让我的QQ能一键登录 《电脑报》的第30期的G9版《DIY属于自己的QQ登录器》一文中介绍了如何双击一个vbs文件就可以让QQ自动登录的方法。今天,我们再补充并优化一下其代码,只需轻轻按一个键,就能实现QQ的自动登录。首先新建一个记事本并输入: Dim Program1 Program1= "C:\Program Files\Ten cent\QQ\QQ.exe" 'QQ路径 Set WshShell=createobject("wscri pt.shell") Set oExec=WshShell.Exec(Progra m1) WScript.Sleep 2000 WshShell.AppActivate "Q登录" WshShell.SendKeys "+{TAB}" WshShell.SendKeys "123456"'QQ号码 WScript.Sleep 200 WshShell.SendKeys "{TAB}" WshShell.SendKeys "123" 'QQ密码 WScript.Sleep 200 WshShell.SendKeys "{ENTER}" 然后将此文件的后缀名改为“.vbs”,再对着它点击“右键→发送到→桌面快捷方式”最后对着这个快捷方式点击“右键→属性”在“快捷键”中设置为F9键。要登录QQ时,只须用手指轻轻点一下F9键,就能自动登录QQ,很方便吧! 本文涉及的代码可到:
http://www.cpcw.com/xz/loginQQ.rar下载,然后用记事本打开按实际情况填写好QQ路径、QQ号码和密码即可使用。