一键启动所有聊天程序
一键启动所有聊天程序
现在聊天工具软件非常多，而每次一一启动这些聊天程序显得非常麻烦，如何能实现一键启动呢？
新建一个记事本文件，打开该文件并输入以下命令：
Program1= "C:\Program Files\Ten cent\QQ\QQ.exe"
Program2= "C:\Program Files\淘宝网\淘宝旺旺\WangWang.exe"
Program3="C:\Program Files\MSN Messenger\msnmsgr.exe"
（你还可以在此处添加Program 4……）
Set WshShell=createobject("wscr ipt.shell")
Set oExec=WshShell.Exec(Progra m1)
Set WshShell=createobject("wscr ipt.shell")
Set oExec=WshShell.Exec(Progra m2)
Set WshShell=createobject("wscr ipt.shell")
Set oExec=WshShell.Exec(Progra m3)
上面我们只以三个聊天软件为例来设置的，如果你还想让其他聊天工具也添加到一次性启动行列中，只要再按照上面的格式分别在上、下两个部分进行添加即可（只要将这些程序的安装路径依次赋值给相应的变量，在下面依次添加两条Set命令语句，并将上面的“Program1、Program2”依次更换为相应的变量即可）。然后将该记事本文件格式保存扩展名为“vbs”格式的文件，如：“多程序.vbs”。接下来为该文件创建一个桌面快捷方式，用鼠标右击它并选择“属性”项，在打开的窗口中单击“快捷方式”选项卡，在“快捷键”栏中为它设置一个相应的快捷键，如：“F7”，单击“确定”按钮。这样设置后，你只要按下F7键，就可以立刻同时启动所有的聊天程序了。
让我的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，很方便吧！
比比有话说：以上方法会让我们的桌面增加很多快捷方式，但是我们不能将它们直接删除，可以在桌面上新建一个文件夹，先取消桌面上所有快捷方式中的快捷键设置，然后将它们放进该文件夹中，再逐一对它们进行重新设置。
现在，相信你已经喜欢上“一键操作电脑”的感觉了。其实，还有很多“独门”的一键绝技，如：一键分区、一键排版、一键收藏等，只是由于文章篇幅有限，在此就不作介绍了。心动不如行动，朋友们还是赶紧亲自去体验一下它所带来的简单乐趣吧！
网友评论