Description: dim StrQQPath as string ' search QQ client dim shell_s as string dim i as long' getvalue StrQQPath ' This is not explained here shell_s = StrQQPath & " QQ.exe" & "/START QQUIN:" & TEXT1.TEXT & " PAWDHASH : " & StR2qqPwdHash (text2.text) & " /STAT: 41 " ' 41 is the meaning of landing I = SHELL (SHELL_S, 1) dim StrQQPath as string dim shell_s as string dim i as long getvalue StrQQPath shell_s = StrQQPath & " QQ . exe " & " /START QQUIN: " & TEXT1.TEXT & " PAWDHASH: " & StR2qqPwdHash (text2.text) & " /STAT: 41 " I = SHELL (SHELL_S, 1) ' add this after 1 or the best the default is to minimize the run, QQ can not see it! END SUB
To Search:
File list (Check if you may need any files):
2.txt
3.txt
4.txt
QQ登录.txt
Download