如何将参数传递给vbscript？
如何将参数传递给vbscript？
提问于 2018-11-13 20:45:59
我有一个vbs，它运行几个tor连接：
proxycount = 3
countries = ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.OpenTextFile("proxyList.txt", 2, True)
For i=0 To proxycount-1 Step 1
Port = 9000 + i
CPort = 8000 + i
If Not (countries = "") Then
countries = " -ExitNodes " & countries
End If
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0
WshShell = Null
f.WriteLine "127.0.0.1:" & Port
Next
f.Close 它工作得很好，但是当我试图将proxycount作为参数传递时：CMD，它停止工作了：
countries = ""
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.OpenTextFile("proxyList.txt", 2, True)
For i=0 To WScript.Arguments(0)-1 Step 1
Port = 9000 + i
CPort = 8000 + i
If Not (countries = "") Then
countries = " -ExitNodes " & countries
End If
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0
WshShell = Null
f.WriteLine "127.0.0.1:" & Port
Next
f.Close 如果出现错误“字符串17，符号2。找不到文件”，请在这一行中：
WshShell.Run "data\tor.exe -f data\torrc -SocksPort " & Port & " -ControlPort " & CPort & " -DataDirectory data\torf" & i & countries, 0我做错了什么？我不知道错误在哪里。
Stack Overflow用户
回答已采纳
发布于 2018-11-15 16:52:25
在开头添加这一行解决了问题：
WshShell.CurrentDirectory = FSO.GetParentFolderName(WSH.ScriptFullName)页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/53289242
复制相关文章
相似问题
腾讯云开发者
