How to write vbs qq automatic login script
This article introduces the knowledge of "how to write an automatic login script for vbs qq". Many people will encounter such a dilemma in the operation of actual cases, so let the editor lead you to learn how to deal with these situations. I hope you can read it carefully and be able to achieve something!
The copy code is as follows:
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 user login") True
Wscript.sleep 500
Loop
WScript.Sleep 1000
WshShell.AppActivate "QQ user login"
SendKeys "814116208"
WScript.Sleep 100
SendKeys "{TAB}"
WScript.Sleep 100
SendKeys "*"
WScript.Sleep 100
SendKeys "{ENTER}"
WshShell.Run "" & QQPath& "
Do while WshShell.AppActivate ("QQ user login") True
Wscript.sleep 500
Loop
WScript.Sleep 1000
WshShell.AppActivate "QQ user login"
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
This is the end of "how to write an automatic login script for vbs qq". Thank you for reading. If you want to know more about the industry, you can follow the website, the editor will output more high-quality practical articles for you!
