Discussion :

[ArHacKnIdE]

Bonjour à tous,

Voilà j'aimerai réaliser une requête sur une page php, c'est à dire que cela revienne à se diriger, par exemple, sur la page :

http://www.site.com/test.php?var1=toto&var2=tata

Donc tout bêtement j'ai pensé à faire ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Command1_Click()
Winsock1.Connect
End Sub
 
Private Sub Form_Load()
Winsock1.RemoteHost = "http://www.site.com/test.php?var1=toto&var2=tata"
Winsock1.RemotePort = 80
 
 
End Sub

Mais cela ne marche pas du tout

J'ai recherché une peu sur google mais je ne sais vraiment pas dans quel sens chercher en fait donc un petit coup de pouce serait le bienvenu...

Merci

[Delbeke]

Le controle winsock fonctionne a un niveau trop bas dans la couche iso pour gerer le protocole http . il faut que tu lui adjoingne du code pour gerer le protocole, ou utiliser un autre composant, comme le controle Microsoft Internet controls, par exemple

[ArHacKnIdE]

Merci de ta réponse mais je ne trouve vraiment rien de concret concernant le Microsoft Internet controls

C'est le contrôle INet sous VB ?

[ProgElecT]

Demonstration avec Microsoft Internet Controls
Sur un Form, un CommandButton

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
 Option Explicit
'nécéssite d'activer la référence Microsoft Internet Controls
Dim IE As InternetExplorer
Dim Msg$
Dim Qui$
Private Sub Command1_Click()
Qui$ = "ArHacKnIdE"
Msg$ = "http://www.developpez.net/forums/search.php?do=" _
 & "process&showposts=0&starteronly=1&exactname=1&searchuser=" & Qui$
Set IE = New InternetExplorer
IE.Navigate Msg$
IE.Visible = True
Do While IE.ReadyState <> READYSTATE_COMPLETE
 DoEvents
Loop
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
On Error Resume Next: IE.Quit: If Err.Number <> 0 Then On Error GoTo 0
Set IE = Nothing
End Sub

[ArHacKnIdE]

Merci beaucoup de ta réponse, je vais essayer cela

[ArHacKnIdE]

Voilà c'est bon j'ai pu adapter et ça marche parfaitement, encore Merci