vbs qq自动登录脚本改进版，vbs自动登录

文章由Byrx.net分享于2019-03-22 05:03:48评论（472）

vbs qq自动登录脚本改进版，vbs自动登录

复制代码代码如下:

On Error Resume Next
Dim WshShell, QQPath, QQselect
set wshshell=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
key="HKLM\SOFTWARE\Tencent\PlatForm_TYPE_LIST\1\"
QQPath=wshshell.regread(key&"TypePath")
Set f = fso.getfile(QQPath)
fso.deletefile f.ParentFolder&"\LoginUinList.dat"
WshShell.Run """"&QQPath&""""
do while WshShell.AppActivate("QQ用户登录")<>True
wscript.sleep 500
loop
WScript.Sleep 1000
WshShell.AppActivate "QQ用户登录"

SendKeys "814116208"
WScript.Sleep 100
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "********"
WScript.Sleep 100
SendKeys "{ENTER}"
WshShell.Run """"&QQPath&""""
do while WshShell.AppActivate("QQ用户登录")<>True
wscript.sleep 500
loop
WScript.Sleep 1000
WshShell.AppActivate "QQ用户登录"

SendKeys "371471521"
WScript.Sleep 100
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "********"
WScript.Sleep 100
SendKeys "{ENTER}"
sub sendkeys(keys)
wshshell.sendkeys keys,ture
end sub

用vbs脚本使QQ自动登入

你在展示自己的才能吗？这是一个爆露狂的行为，你的账号和密码，无疑全问向黑客展示出来了。
WshShell.AppActivate "QQ登录" '万一QQ登录窗口出现的慢了，长于2秒，你就可能把这些账号密码，填写在记事本中。

sendkeys "~" 就可以了。写代码太烦索。

VBS自动登录QQ的问题

是吗？屏蔽了没错是屏蔽了sendkeys? 那你试试我的虽然不一定成功但是密码和帐号绝对可以输入~
Dim Program1,a,b
Program1= "D:\Progra~1\Tencent\QQ\QQ.exe" 'QQ路径
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 1000
WshShell.AppActivate "Q登录"
wshShell.SendKeys "+{TAB}"
a="QQ帐号"
WshShell.SendKeys a
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
b="QQ密码"
WshShell.SendKeys b
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

热门文章：

vbs qq自动登录脚本改进版，vbs自动登录