欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

vbs qq自動(dòng)登錄腳本改進(jìn)版

 更新時(shí)間：2014年05月11日 00:50:57   作者：  
這篇文章主要介紹了vbs qq自動(dòng)登錄腳本改進(jìn)版,需要的朋友可以參考下

復(fù)制代碼 代碼如下:

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

相關(guān)文章

最新評(píng)論