Introduction - If you have any usage issues, please Google them yourself
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