Discussion :

[carkiko]

Bonjour cher compatriote !

Je fais appel à vous car un problème est venu à moi, je souhaite récupérer le source d'une page HTML/PHP dans une page VBS.
J'ai essayé ça, mais ce n'est pas concluant !

Code VBS :

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
 
Set objFso = CreateObject("Scripting.FileSystemObject")
 
alancer = "C:\wamp\www\coucou.bat"
 
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", "http://localhost/demande.php", FALSE)
objHTTP.Send
resultat = instr(objHTTP.ResponseText, "body")
wscript.echo resultat
 
Set WshShell = WScript.CreateObject("WScript.Shell")  
appel = "cmd /c """ & alancer & """"
codeRetour = WshShell.run(appel, 1, true)
 
REM Si codeRetour = 1 -> erreur
REM Si codeRetour <> 1 (-1073741510) -> réussi
Wscript.echo codeRetour

Edit:
Je souhaiterais avoir ce code en VBS ^^

Code PHP :

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

1
2
3
4
5
6
7
8
9
 
$curl_handle=curl_init();
curl_setopt($curl_handle, CURLOPT_URL,'localhost/demande.php');
curl_setopt($curl_handle, CURLOPT_CONNECTTIMEOUT, 2);
curl_setopt($curl_handle, CURLOPT_RETURNTRANSFER, 1);
curl_setopt($curl_handle, CURLOPT_USERAGENT, 'Mozilla/5.0');
$recup = curl_exec($curl_handle);
curl_close($curl_handle);
$res = htmlentities($recup);

Merci de de votre aide

[carkiko]

J'ai trouvé, voici la solution:

Code VBS :

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

1
2
3
4
5
6
7
8
9
10
11
 
Set oWHR = CreateObject("WinHttp.WinHttpRequest.5.1")
with oWHR
    .open "POST", "http://localhost/demande.php", false
    .SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    .send("")
    if .status = 200 Then resultat = .ResponseText
end with
set oWHR=nothing
 
Wscript.echo resultat