Discussion :

[Gautheron]

Bonjour,

je m'interresse particulièrement au tuto de Bbil "Google calendar et VB6", reconnu comme la référence pour travailler sur l'agenda google.

Mais je dois avouer mon incompréhension du principe meme dutiliser un contrôle INET (Microsoft Internet Transfer Control 6.0) pour communiquer avec
les serveurs Google.
Y a t-il des reférence à sélectionner ? ( je ne trouve pas Microsoft Internet Transfer Control , ni MsITC....)

du coup, je n'arrive même pas à jouer le programme fourni dans le tuto, à savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Authentification
'
Function GooAuthentification(stEmail As String, stPassword As String) As Boolean
Dim stURl As String
Dim stSource As String
Dim stFormData As String
Dim stHeaders As String
stSource = App.CompanyName & "-" & App.EXEName & "-" & App.Major & "." & App.Minor
stURl = "https://www.google.com/accounts/ClientLogin"
stFormData = "Email=" & stEmail & "&Passwd=" & stPassword & "&source=" & stSource & "&service=cl"
stHeaders = "Content-Type:application/x-www-form-urlencoded"
Inet1.Execute stURl, "POST", stFormData, stHeaders
'Mise à 0 flag d'attente réponse
bFinAttente = False
Do Until bFinAttente = True
DoEvents
Loop
If InStr(1, stRetHeader, "200 OK") > 0 Then
stAuthCode = Right(stReponse, Len(stReponse) - InStrRev(stReponse, "Auth=") - 4)
GooAuthentification = True
Else
GooAuthentification = False
End If
End Function

je plante au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stSource = App.CompanyName & "-" & App.EXEName & "-" & App.Major & "." & App.Minor

.

Peut on m'orienter vers un autre tuto ou m'aider à comprendre ?

[fring]

Bonjour,

Télécharge sur ton pc le fichier msinet.ocx (fais une recherche sur Google) puis tu vas le rechercher via le bouton Parcourir du menu Références.
Ensuite tu devrais avoir la possibilité de cocher la référence Microsoft Internet Transfer Control

[Gautheron]

Merci pour l'INET, après avoir téléchargé le fichier et appliquer son enregistrement dans le registre, le userform fonctionne parfaitement.

Cependant, ce passage bugg toujours.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

stSource = App.CompanyName & "-" & App.EXEName & "-" & App.Major & "." & App.Minor

Plus grave, je ne comprends pas à quoi il fait référence. Ce code est issu du tuto de bbil :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
''
Authentification
'
Function GooAuthentification(stEmail As String, stPassword As String) As Boolean
Dim stURl As String
Dim stSource As String
Dim stFormData As String
Dim stHeaders As String
stSource = App.CompanyName & "-" & App.EXEName & "-" & App.Major & "." & App.Minor
stURl = "https://www.google.com/accounts/ClientLogin"
stFormData = "Email=" & stEmail & "&Passwd=" & stPassword & "&source=" & stSource & "&service=cl"
stHeaders = "Content-Type:application/x-www-form-urlencoded"
Inet1.Execute stURl, "POST", stFormData, stHeaders
'Mise à 0 flag d'attente réponse
bFinAttente = False
Do Until bFinAttente = True
DoEvents
Loop
If InStr(1, stRetHeader, "200 OK") > 0 Then
stAuthCode = Right(stReponse, Len(stReponse) - InStrRev(stReponse, "Auth=") - 4)
GooAuthentification = True
Else
GooAuthentification = False
End If
End Function

Merci de votre aide

[AlainTech]

Bonjour,

L'application proposée par bbil est une application VB6.
App fait référence à l'application elle-même (l'EXE).

Compose ta string stSource toi-même.

[Gautheron]

OK. Merci.
Cependant, je ne comprends le contexte de cette phrase. Il s'agit d'un tuto sur google agenda, donc j'imagine que bbil l'a faite dans ce cadre !
Rien dans son tuto fait mention à un programme qu'il aurait créer, avec un compagny name, etc...
Du coup, moi qui ne cherche juste qu'à comprendre comment "pomper" les rdv de l'agenda et comment en inscrire des nouveaux, je bloque sur la phrase d'authentification...
Peux tu ou peut on m'éclairer, éventuellement à court circuiter cette phrase ?