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
相關文章
vbScript on error resume next容錯使用心得
在vbscript中,使用on error resume next處理錯誤,當使用這段代碼時,程序將忽略產生的錯誤繼續(xù)運行后面的代碼。本文就使用心得作個小結,供有需要的朋友參考2009-02-02VBS實現(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