自动登录用的VBscript脚本

2011-6-13 10:57 786 0

摘要: 最近做数据分析工作中发现些减少人工的方法首先是用来自动登录C/S客户端软件脚 Dim WshShell Set WshShell = ...

关键词： nbsp WshShell WScript Sendkeys Sleep CreateObject 1000 password username 引号

最近做数据分析工作中发现些减少人工的方法首先是用来自动登录C/S客户端软件脚 Dim WshShell Set WshShell = WScript.CreateObject("WScript.Shell") WshShell.Run """C:\Program Files\NeoAccel\SSL VPN-Plus Client\NeoAccel.exe""" WScript.Sleep 1000 WshShell.Sendkeys "{enter}" Wscript.Sleep 1000 WshShell.SendKeys "username" WshShell.SendKeys "{tab}" Wscript.Sleep 1000 WshShell.SendKeys "password" Wscript.Sleep 1000 WshShell.SendKeys "{tab}" WshShell.Sendkeys "{enter}" 这个脚本我用来登录VPN，这里要注意Run后的路径被3个双引号包围，这是因为路径中的文件夹名多于8个字或者含有空格，如果只用一对双引号，VB会提示不识别接下来的脚本是用来登录B/S客户端 Set ie=WScript.CreateObject("InternetExplorer.Application") Set WshShell=WScript.CreateObject("WScript.Shell") ie.visible=true ie.navigate "http://xxxx.xxxx.com/"Do Wscript.Sleep 5000 Loop Until ie.ReadyState=4 and not ie.busy ie.document.getElementById("username").value="username" ie.document.getElementById("password").value="password" dim a ie.document.getElementsByTagName("input")(0).focus() #这个是用来让browser获得焦点Wscript.Sleep 1000 WshShell.Sendkeys "{enter}"

声明：文章版权归原作者所有部分文章转自互联网如有侵权请联系 [邮箱地址] 删除