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
您可能感興趣的文章:
相關文章
今天寫代碼的時候需要用到vbs獲取文件配置項，不用放數(shù)據(jù)庫里面，要不增刪改查都要做一篇，本身功能就簡單，這里就為大家分享一下實現(xiàn)代碼,需要的朋友可以參考下2019-09-09
vbScript on error resume next容錯使用心得
在vbscript中，使用on error resume next處理錯誤，當使用這段代碼時，程序將忽略產生的錯誤繼續(xù)運行后面的代碼。本文就使用心得作個小結，供有需要的朋友參考2009-02-02
2008-01-01
用vbs記錄屏幕保護程序的開始時間和結束時間...2007-03-03
用vbs轉換加密代碼2008-05-05
經常有一些想學習vbs的朋友問我一些問題，昨天又有一個朋友問我取路徑的問題，今天就biweilun就一并寫出來，希望對大家有點幫助，呵呵2008-07-07
盡管我們并不知道您自己是怎么解決這個問題的。大家知道，有一個很小的稱為 Win32_SystemEnclosure 的傻瓜式 WMI 類2008-06-06
VBS實現(xiàn)的系統(tǒng)服務備份優(yōu)化代碼
將下面代碼保存為VBS執(zhí)行即可,服務優(yōu)化規(guī)則可以自由修改(上面是我現(xiàn)在使用的優(yōu)化規(guī)則),并且每次優(yōu)化都會在我的文檔里面生成一個對應日期的服務備份文件.可以直接還原2013-01-01
自定義vbs腳本實現(xiàn)開機后延時啟動指定程序的方法
這篇文章主要介紹了自定義vbs腳本實現(xiàn)開機后延時啟動指定程序的方法,本文以延遲啟動金山毒霸為例,需要的朋友可以參考下2014-09-09
將excel的數(shù)據(jù)轉化為access的數(shù)據(jù)庫中的方法。2009-07-07