嗯嗯~以后再也不用为关机或者登陆QQ,MSN等点N多次鼠标了~
简单易行的一键关机、一键登录QQ,MSN,一键启动程序
先说一键关机
在桌面空白处点击鼠标右键"新建->快捷方式",在"请键入项目位置"处输入"shutdown.exe -s -f -t 0",单击下一步,为你的快捷方式取个名,譬如"一键关机"之后点击"完成",一键关机的快捷方式就生成了,接下来可以做一下美化,在桌面生成的"一键关机的"的图标上单击右键"属性",在"快捷方式"一栏"快捷键"中设置所需快捷键,譬如F9,单击"更改图标"还可以为你的快捷方式设置一个好看的图标,这里我推荐一个可以在线制作.ICO图标文件的网站:
http://www.xiangqiao.com/GongJu/ico/?action=make
这样图标也不局限于系统自带的那些了~
一键登录QQ
新建一个记事本
输入以下内容:
Dim Program1
Program1 = "C:\Program Files\QQ2008\QQ.exe" (引号内为QQ主程序所在位置)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate"QQ一键登陆"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"1234567" (引号内为QQ号)
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "12345" (引号内为QQ密码)
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"
完成之后保存,再将后缀名改为".vbs",之后可以右键发送到桌面快捷方式,美化过程同一键关机,不再赘述
同理,一键登录MSN,飞信
新建记事本,输入:
Dim Program1
Program1 = "C:\Program Files\Windows Live\Messenger\msnmsgr.exe"(程序位置)
Set WshShell=createobject("wscript.shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 2000
WshShell.AppActivate"MSN一键登陆"
完成之后保存,再将后缀名改为".vbs"
实现一键登录MSN和飞信最好已经设置自动登录,如果需要不同的帐号实现一键登录,有兴趣的可以自己写一下程序,不是很难.
一键启动程序无非是将主程序的位置改一下而已,不再赘述
另外,我试过了将多个一键登录QQ写在一个程序里,但是我用3个QQ试过,一次只能登录2个,不知道为什么,还望这方面专家给予指点
之后就开始享受一键生活吧~ |
|