Comment faire sans msinet.ocx ?

Question

Bonjour,

Je programme sous VB6 initiation et souhaiterais faire un programme qui puisse se connecter automatiquement &#224; un site web avec le login et le mot de passe (apr exemple sur le site d'une banque)

Pour cela j'ai rep&#233;r&#233; que msinet.ocx pouvait le g&#233;rer, avec par exemple ce type de contr&#244;le :
contr&#244;le CommandButton (Command1) sur Form1 et ajoutez le code suivant :         
          Inet1.UserName = "Username"
          Inet1.Password = "Password"
          Inet1.URL = "ftp://YourFTPServer"
          Inet1.Execute , "DIR"
     End Sub

Malheureusement pour moi, msinet.ocx n'est pas livr&#233; et accessible avec VB6 initiation

D'une fa&#231;on d&#233;tourn&#233;e j'arrive &#224; lancer une page web avec shell32, mais je n'arrive pas &#224; envoyer le nom de l'utilisateur et le mot de passe.

ci-dessous les lignes que j'utilise :

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


------------
Dim hWnd As Long
Dim Reponse As Long
Reponse = ShellExecute(hWnd, "Open", "http:www.adresseWeb", "", App.Path, 1)
If Reponse = 0 Then
      WebLink = "L'ouverture a &#233;chou&#233;e"
End If

Par multes recherches sur le web et vbfrance, je n'ai rien trouv&#233;.

Si vous connaissez une solution, je suis preneur

cs_eldim · Answer

Bonjour,
Renseigne toi sur l'ASP et utilise les variables d'environnements etc...

ShareVB · Answer

salut,



essais : http://username:password@tonsite.com

ShareVB

laurent.cpasmoi · Answer

Bonjour &#224; tous,

ShareVB, j'ai d&#233;j&#224; test&#233; ta proposition mais sans succ&#232;s : en fait je g&#233;re l'adresse "brute" http://username:password@tonsite.com ce qui ne fonctionne pas (m&#234;me en faisant le test directement sous Internet explorer)

J'ai m&#234;me tent&#233; plusieurs combinaison avec des caract&#232;res sp&#233;ciaux pour g&#233;n&#233;rer des tabultation, retour chariot ou retour &#224; la ligne : 
http://site.com &Chr(13) & Chr(9) & Chr(10)& username &Chr(13) & Chr(9) & Chr(10)& password... &#231;a ne marche pas mieux 

eldim, pour ASP je ne connais pas encore, je vais regard&#233;.

Merci pour vos propositions

ShareVB · Answer

salut,



ca d&#233;pend si ton identification se fait par formulaire ou par
htaccess...premier cas : requ&#234;te POST...second cas : c'est un header
dans la requ&#234;te GET (Authorization)...

ShareVB

Comment faire sans msinet.ocx ?

4 réponses

Discussions similaires