vbs qq自動登錄腳本改進(jìn)版
來源:易賢網(wǎng) 閱讀:2323 次 日期:2014-05-12 15:49:08
溫馨提示:易賢網(wǎng)小編為您整理了“vbs qq自動登錄腳本改進(jìn)版”,方便廣大網(wǎng)友查閱!

代碼如下:

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

更多信息請查看IT技術(shù)專欄

更多信息請查看腳本欄目
上一篇:VBE decoder
易賢網(wǎng)手機(jī)網(wǎng)站地址:vbs qq自動登錄腳本改進(jìn)版
由于各方面情況的不斷調(diào)整與變化,易賢網(wǎng)提供的所有考試信息和咨詢回復(fù)僅供參考,敬請考生以權(quán)威部門公布的正式信息和咨詢?yōu)闇?zhǔn)!
關(guān)于我們 | 聯(lián)系我們 | 人才招聘 | 網(wǎng)站聲明 | 網(wǎng)站幫助 | 非正式的簡要咨詢 | 簡要咨詢須知 | 新媒體/短視頻平臺 | 手機(jī)站點

版權(quán)所有:易賢網(wǎng)