十六、一键启动所有聊天程序

现在聊天工具软件非常多，而每次一一启动这些聊天程序显得非常麻烦，如何能实现一键启动呢?

新建一个记事本文件，打开该文件并输入以下命令:

Program1= "C:\Program Files\Tencent\QQ\QQ.exe"

Program2="C:\Program Files\MSN Messenger\msnmsgr.exe"

(你还可以在此处添加Program 3……)

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命令语句，并将上面的“Program1、Program2”依次更换为相应的变量即可)。然后将该记事本文件格式保存扩展名为“vbs”格式的文件，如:“多程序.vbs”。接下来为该文件创建一个桌面快捷方式，用鼠标右击它并选择“属性”项，在打开的窗口中单击“快捷方式”选项卡，在“快捷键”栏中为它设置一个相应的快捷键，如:“F4”，单击“确定”按钮。这样设置后，你只要按下F4键，就可以立刻同时启动所有的聊天程序了。

十七、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”，再对着它点击“右键→发送到→桌面快捷方式”最后对着这个快捷方式点击“右键→属性”在“快捷键”中设置为F5键。要登录QQ时，只须用手指轻轻点一下F5键，就能自动登录QQ，很方便吧!

然后用记事本打开按实际情况填写好QQ路径、QQ号码和密码即可使用。