dim StrQQPath as string 寻找QQ客户端

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" 41就是登陆的意思

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) 这个后面最好加个1否则将默认是最小化运行，QQ是看不到的！

END SUB

-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