vbs腳本發送數據並重復

Question

有沒有人有發送變量的示例VBS代碼，等待響應並重復？

我到目前爲止有：

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

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

就是這樣......我的其他代碼不起作用......

在此先感謝，希望有人可以幫助，在VBS完全失去了...在Windows中一般...

Answer 1

假設這是Windows腳本宿主，您可以使用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請求