Shulou(Shulou.com)06/03 Report--

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!

Welcome to subscribe "Shulou Technology Information " to get latest news, interesting things and hot topics in the IT industry, and controls the hottest and latest Internet news, technology news and IT industry trends.