[分享]VF中实现自动登录QQ

阿杰

<p><font face="Verdana"><font face="Verdana">自动登录QQ("帐号","密码")</font></font></p>
<p>&nbsp;</p>
<p><font face="Verdana"><font face="Verdana">FUNCTION 自动登录QQ(帐号 AS STRING&nbsp; ,密码 AS STRING )<br/>&nbsp;PROGRAM=wshell.RegRead("HKEY_LOCAL_MACHINE\Software\Tencent\QQ\\Install")<br/>&nbsp;PROGRAM=PROGRAM+"qq.exe"<br/>&nbsp;Wshell=CREATEOBJECT("Wscript.Shell")<br/>&nbsp;oexec=Wshell.EXEC(PROGRAM)<br/>&nbsp;INKEY(0.5)<br/>&nbsp;Wshell.AppActivate ("QQTang")<br/>&nbsp;Wshell.SendKeys("{TAB}")<br/>&nbsp;Wshell.SendKeys(帐号)<br/>&nbsp;INKEY(0.5)<br/>&nbsp;Wshell.SendKeys("{TAB}")<br/>&nbsp;Wshell.SendKeys(密码)<br/>&nbsp;INKEY(0.15)<br/>&nbsp;Wshell.SendKeys("{ENTER}")<br/>ENDFUNC</font></font></p>

[此贴子已经被作者于2008-11-1 11:45:42编辑过]