Scripting vbs脚本发送数据并重复

是否有人有发送变量、等待响应和重复的VBS代码示例

到目前为止，我已经：

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

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

就这样。。。我的其他代码不起作用

---

提前感谢，希望任何人都能帮助，完全迷失在vbs。。。通常在windows中…

假设这是windows脚本主机，您可以使用该库

---

如果您在服务器上修改内容，您可能应该使用POST请求而不是GET请求，但是如果您的服务器端脚本只接受GET请求，这应该是可行的

您好，谢谢您的回复，我想我已经收到了，但是，您如何做到这一点，只发送值，然后清除inputbox并等待另一个响应无限期地重复该过程？我已经更新了代码片段以反映您的评论：我将

inputbox（）

带到循环中，现在输入是一个google查询（用于我的测试）。我还更正了

sleep（）

调用，该调用需要是

WScript

对象的一个方法

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