Question

Does anyone have sample VBS code that sends a variable, waits response and repeat?

i have so far:

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

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

that’s it… my other code is not functional…

thanks in advance, hope anyone can help, totally lost in vbs… in windows in general…

Answer 1

Assuming that this is Windows Script Host, you can use the MSXML2 library.

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

if you’re modifying things on the server, you should probably use a POST request instead of a GET request, but this should work if your server side script only accepts GET requests