VBS скрипт для отправки данных и повторения

Question

У кого-нибудь есть пример кода VBS, который отправляет переменную, ждет ответа и повторяет?

пока у меня есть:

dim input 
input = Inputbox ("Enter Var:" ,"Var sender...") 

SourceURL = "http://example.com/someFunction.php?var="&input&""

вот и все ... мой другой код не работает ...

спасибо заранее, надеюсь, кто-нибудь может помочь, полностью потерян в VBS ... в Windows в целом ...

Answer 1

Предполагая, что это Windows Script Host, вы можете использовать библиотеку MSXML2.

do while true

    Dim input, SourceURL 
    input = Inputbox ("Enter Var:" ,"Var sender...") 

    SourceURL = "http://www.google.co.uk/search?q=" & input
    ''// connect and send to server
    Dim http: set http = CreateObject("MSXML2.XMLHTTP") 
    http.open "GET", SourceURL, false
    http.send

    if http.status = 200 then
        ''// do something with the return value if necessary 
         WScript.Echo http.responseText
    else
        ''// problem? 
    end if
    ''// pause execution if you don't want to hit the server so often
    WScript.Sleep 10 
loop

если вы изменяете что-то на сервере, вам, вероятно, следует использовать POST-запрос вместо GET-запроса, но это должно работать, если ваш серверный скрипт принимает только GET-запросы