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

This article mainly introduces how to use VBS to get QQ or TM automatic login code and prevent shutdown, the article is very detailed, has a certain reference value, interested friends must read it!

'Dim QQUIN

Set objWMIService = GetObject _

("winmgmts:\\" & "." & "\ root\ cimv2")

Set ps = objWMIService.ExecQuery _

("SELECT * FROM Win32_process")

For Each ps in ps' lists all running programs in the system

'for each ps in getobject ("winmgmts:\.\ root\\ cimv2:win32_process") .instances_ 'lists all running programs on the system

If LCase (ps.Name) = "qq.exe" Or LCase (ps.Name) = "tm.exe" Then 'detect whether QQ or TM

AppPath = ps.commandline 'extract the life line of the QQ program

Tmp = Replace (AppPath, Chr (34), Space (1))

UIN1 = InStr (tmp, "QQUIN:") + 6

QQUIN = Mid (tmp, UIN1, InStr (UIN1, tmp, Space (1))-UIN1) 'take the QQ number.

End If

Next

If Len (QQUIN) = 0 Then

MsgBox "there are no QQ or TM programs running in the system, please restart QQ or TM, log in and use one button to switch QQ or TM programs, and then run this script."

Else

Do 'cycle detection

Myqqin = chkuin (QQUIN) 'detect whether the QQ number extracted above has been opened locally

If Not myqqin Then'if not running, rerun the QQ program and log in

Runapp (AppPath)'

Wscript.sleep 10000 'wait 10 seconds

Else

Wscript.sleep 5000 'wait 5 seconds

End If

Loop 'returns to continue detection.

End If

Function RunApp (AppPath)

Dim obj

Set obj = CreateObject ("WScript.Shell")

Obj.exec (AppPath)

End Function

Function chkuin (QQUIN)

Set objWMIService = GetObject _

("winmgmts:\\" & "." & "\ root\ cimv2")

Set ps = objWMIService.ExecQuery _

("SELECT * FROM Win32_process")

For Each ps in ps' lists all running programs in the system

'for each ps in getobject ("winmgmts:\.\ root\\ cimv2:win32_process") .instances_

If LCase (ps.Name) = "qq.exe" Or LCase (ps.Name) = "tm.exe" Then

AppPatht = ps.commandline

'by chenall qq 368178720

Tmp = Replace (AppPatht, Chr (34), Space (1))

UIN1 = InStr (tmp, "QQUIN:") + 6

QQUINTMP = Mid (tmp, UIN1, InStr (UIN1, tmp, Space (1))-UIN1)

If QQUINTMP = QQUIN Then chkuin = True End If

End If

Next

End Function

The above is all the contents of the article "how to use VBS to get the QQ or TM automatic login code and prevent it from shutting down". Thank you for reading! Hope to share the content to help you, more related knowledge, welcome to follow the industry information channel!

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.