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请求，那么这应该有效

vbs脚本发送数据并重复

1 个答案: