实现自动填写拨号软件，并一键登录

实现自动填写拨号软件，并一键登录

教你如何编写VBS代码实现软件的自动填写！本教程虽然简单，但是如果能理解其中原理，你想在哪自动填写就在哪自动填写，自动发QQ消息刷屏也不是难事（详细见前几篇经验）。计算机就是用来解决重复连续操作的工具。比如，拨号软件，每一次登录都要重复一个输入密码的动作，实在麻烦，我们还是把这样呆滞的操作交还给计算机做吧。

代码如图，把代码复制到“新建文本文档.txt”，修改相关参数（图中单引号“ ' ”后面的文字为注释），点击文件->另存为，然后输入文件名：自动拨号.vbs。点击保存。值得注意的是拨号软件的路径最好不要有空格或太长，所以我用的是一个快捷方式来指向拨号软件的。

双击“自动拨号.vbs”，你会看到拨号软件上的用户名输入框和密码输入框都神奇地填上了数据。一眨眼功夫就已经成功登录完成。

在其他拨号软件同样适用。前提是你得懂纯键盘操作，这样说把，如果你能不用鼠标，只用键盘来操作一个软件的话，VBS就代替你操作这样一个软件。关于纯键盘操作，另见我之前发表的经验。

下面是代码，请复制到“新建文本文档.txt”，修改相关参数，另存为：自动拨号.vbs。

===========分========割========线===========

set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run "C:\Digital.lnk" '拨号软件快捷方式

WScript.Sleep 1000

WshShell.AppActivate("DigitalChinaSupplicant")

if WshShell.appactivate("DigitalChinaSupplicant")=true then

WshShell.SendKeys "user" '账号

WshShell.SendKeys "{tab}" 'Tab到密码框

WshShell.SendKeys "123456" '密码

WshShell.SendKeys "{tab 3}" '按下3次Tab，到连接按钮

WshShell.Sendkeys "{enter}" '回车,拨号

WScript.quit

else

WScript.quit

end if

WScript.quit

===========分========割========线===========

你可以把程序防到开机启动项里面，不过建议在“WshShell.Run "C:\Digital.lnk" ”这一行前面添加一行“WScript.Sleep 3000”，这表示vbs将在3秒后才开始自动拨号。

拨号软件的路径最好不要有空格或太长，所以我用的是一个快捷方式来指向拨号软件的。