воскресенье, 31 июля 2011 г.

Как выполнить GET запрос из VBS ?

Для этого достаточно использовать объект Microsoft.XMLHTTP
Пример :
есть calc.php
<?
   $o=$_GET['o'];
   $t=$_GET['t'];
   echo($o."*".$t."=".$o*$t);
?>
обычное умножение...

создаем запрос:

Dim objHTTP
Set objHTTP = CreateObject("Microsoft.XMLHTTP")
Call objHTTP.Open("GET", "http://127.0.0.1/calc.php?o=12&t=124", False)
Call objHTTP.Send

и после выводим ответ от сервера

MsgBox(objHTTP.ResponseText)

подробнее можно почитать здесь

Комментариев нет:

Отправить комментарий