QQ登录

只需一步,快速开始

简单有趣的一键关机、一键登录QQ,MSN,一键启动程序

[复制链接]
Orion23rdy 发表于 2009-3-24 09:12 | 显示全部楼层 |阅读模式 来自: 中国–辽宁–营口 中移铁通

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?加入牧夫(请注明天文爱好者,否则无法通过审核,请勿使用gmail/outlook/aol/icloud邮箱注册)

×
嗯嗯~以后再也不用为关机或者登陆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个,不知道为什么,还望这方面专家给予指点

之后就开始享受一键生活吧~
霓虹彩云 发表于 2009-3-24 09:22 | 显示全部楼层 来自: 中国–上海–上海–浦东新区 电信
学习中,谢谢。
回复 顶~ 砸~

使用道具 举报

zhl91 发表于 2009-3-24 10:18 | 显示全部楼层 来自: 中国–福建–福州 电信
谢谢LZ分享,学习一下
回复 顶~ 砸~

使用道具 举报

花楹 发表于 2009-3-24 10:20 | 显示全部楼层 来自: 中国–天津–天津 联通
人们越来越懒的表现,鉴定完毕~~O(∩_∩)O
回复 顶~ 砸~

使用道具 举报

 楼主| Orion23rdy 发表于 2009-3-24 10:29 | 显示全部楼层 来自: 中国–辽宁–营口 中移铁通
回复 顶~ 砸~

使用道具 举报

suyayanshu 发表于 2009-3-24 14:18 | 显示全部楼层 来自: 中国–江苏–南通 电信/南通大学
不想试...  我更懒...
回复 顶~ 砸~

使用道具 举报

井蛙 发表于 2009-3-24 15:27 | 显示全部楼层 来自: 中国–河南–许昌 联通
“……
WshShell.AppActivate"QQ一键登陆"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"1234567"   (引号内为QQ号)
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "12345"   (引号内为QQ密码)
WScript.Sleep 200
……”

安全性是个问题。
回复 顶~ 砸~

使用道具 举报

 楼主| Orion23rdy 发表于 2009-3-24 16:33 | 显示全部楼层 来自: 中国–辽宁–营口 中移铁通
“……
WshShell.AppActivate"QQ一键登陆"
WshShell.SendKeys"+{TAB}"
WshShell.SendKeys"1234567"   (引号内为QQ号)
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "12345"   (引号内为QQ密码)
W ...
井蛙 发表于 2009-3-24 15:27

怎么说?
回复 顶~ 砸~

使用道具 举报

井蛙 发表于 2009-3-24 16:42 | 显示全部楼层 来自: 中国–河南–许昌 联通
8# Orion23rdy
如果被别人看到这个文件,你的QQ号、密码不就全泄露了?
回复 顶~ 砸~

使用道具 举报

 楼主| Orion23rdy 发表于 2009-3-24 20:51 | 显示全部楼层 来自: 中国–辽宁–营口 中移铁通
8# Orion23rdy  
如果被别人看到这个文件,你的QQ号、密码不就全泄露了?
井蛙 发表于 2009-3-24 16:42

哦...当然是在自己最常用的个人电脑或者家用电脑了~
但是还是注意点好~呵呵
回复 顶~ 砸~

使用道具 举报

eventime 发表于 2009-3-24 22:28 | 显示全部楼层 来自: 中国–广东–潮州 电信
哦...当然是在自己最常用的个人电脑或者家用电脑了~
但是还是注意点好~呵呵
Orion23rdy 发表于 2009-3-24 20:51

不光是被他人看到,还有可能被木马看到。另外qq还可以通过命令行的方式实现自动登录(qq2007的时候玩过不知道现在还可以不)。我电脑坏了上网不方便,大家自己动手百度一下。
提醒一下:有些木马是可以盗取qq的命令行参数的。用命令行有一定风险。
回复 顶~ 砸~

使用道具 举报

 楼主| Orion23rdy 发表于 2009-3-24 22:30 | 显示全部楼层 来自: 中国–辽宁–营口 中移铁通
不光是被他人看到,还有可能被木马看到。另外qq还可以通过命令行的方式实现自动登录(qq2007的时候玩过不知道现在还可以不)。我电脑坏了上网不方便,大家自己动手百度一下。
提醒一下:有些木马是可以盗取qq的命令 ...
eventime 发表于 2009-3-24 22:28

这个我倒不担心,呵呵
回复 顶~ 砸~

使用道具 举报

南宫飞云 发表于 2009-3-25 00:26 | 显示全部楼层 来自: 中国–辽宁–鞍山 联通
这个以前看过,不是什么版本的都有效!
回复 顶~ 砸~

使用道具 举报

本版积分规则

APP下載|手机版|爱牧夫天文淘宝店|牧夫天文网 ( 公安备案号21021102000967 )|网站地图|辽ICP备19018387号

GMT+8, 2025-5-26 06:18 , Processed in 0.074861 second(s), 6 queries , Gzip On, Redis On.

Powered by Discuz! X3.5 Licensed

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表