快捷導(dǎo)航

vbs qq自動登錄腳本改進版

更新時間：2014年05月11日 00:50:57 作者：

這篇文章主要介紹了vbs qq自動登錄腳本改進版,需要的朋友可以參考下

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)文章

用vbs將輸出內(nèi)容寫到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法
用vbs將輸出內(nèi)容寫到屏幕以覆蓋當(dāng)前屏幕上的內(nèi)容的方法...
2007-03-03
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs
可以得到當(dāng)前系統(tǒng)信息的腳本sysinfo.vbs...
2007-02-02
ipclear.vbs源代碼
ipclear.vbs源代碼...
2007-02-02
Restart.vbs源代碼可以重啟遠程電腦的vbs
Restart.vbs源代碼可以重啟遠程電腦的vbs...
2007-02-02
VBS教程：運算符-Is 運算符
VBS教程：運算符-Is 運算符...
2006-11-11
VBS遍歷文件或文件夾路徑輸入文件的所有絕對路徑（附源碼）
這篇文章主要介紹了VBS遍歷文件或文件夾路徑輸入文件的所有絕對路徑的代碼,需要的朋友可以參考下
2019-12-12
VBS中的SetLocale函數(shù)到底有什么用？
寫了這么多VBS，從來都沒有使用過SetLocale函數(shù)，似乎也沒有見過誰的代碼使用過，這個SetLocale函數(shù)到底有什么用呢
2013-05-05
VBS正則表達式對象的MultiLine屬性
昨天在《VBS創(chuàng)建正則表達式對象的兩種方法》中提到了 VBScript 正則表達式對象的 MultiLine 屬性，在 shirne 的提醒下，我才想起參考手冊中是出現(xiàn)過 MultiLine 屬性的
2012-01-01
VBS教程：函數(shù)-IsNumeric 函數(shù)
VBS教程：函數(shù)-IsNumeric 函數(shù)...
2006-11-11
VBScript 文件操作代碼小結(jié)
下面是一些vbs下常用到的一些文件操作代碼，整理了下方便以后開發(fā)使用，提高效率。
2009-08-08