QQ目录是:D:\QQ.exe
帐号密码存在D:\1.txt 帐号:555444333 密码:123456
自动读取1.txt.里的帐号密码,然后自动输入到对应的QQ窗口,然后自动点登陆
我的QQ840609009 给编出来的送QQ会员
请人用C语言写一个QQ自动登陆
答案:4 悬赏:20 手机版
解决时间 2021-03-17 13:04
- 提问者网友:姑娘长的好罪过
- 2021-03-17 01:32
最佳答案
- 五星知识达人网友:人類模型
- 2021-03-17 02:23
首先打开记事本 然后在“中国(中文)”输入法下输入如下代码:
Dim guwan
guwan="D:\Program Files\Tencent\QQ\QQ.exe"
Set baobei=createObject("wscript.shell")
Set pangchao=baobei.exec(guwan)
wscript.sleep 4000
baobei.AppActivate"QQ用户登录"
baobei.Sendkeys"{TAB}"
baobei.Sendkeys"123456"
wscript.sleep 1000
baobei.Sendkeys"{TAB}"
wscript.sleep 1000
baobei.Sendkeys"000000"
wscript.sleep 1000
baobei.Sendkeys"{ENTER}"
wscript.Quit
要注意的是:
1、D:\Program Files\Tencent\QQ\QQ.exe 要改成为自己电脑里的QQ路径。
2、123456 要改为自己要登陆的QQ号。
3、000000 要改为自己要登陆的QQ号的密码。
然后以.vbs的格式保存 。双击运行试试看 是不是自己的QQ就自动登陆了呢?
如果有好几个QQ自己再把代码改改就可以了 这样是不是就简单多了 省得每次开机都要输好多次QQ号和密码。
Dim guwan
guwan="D:\Program Files\Tencent\QQ\QQ.exe"
Set baobei=createObject("wscript.shell")
Set pangchao=baobei.exec(guwan)
wscript.sleep 4000
baobei.AppActivate"QQ用户登录"
baobei.Sendkeys"{TAB}"
baobei.Sendkeys"123456"
wscript.sleep 1000
baobei.Sendkeys"{TAB}"
wscript.sleep 1000
baobei.Sendkeys"000000"
wscript.sleep 1000
baobei.Sendkeys"{ENTER}"
wscript.Quit
要注意的是:
1、D:\Program Files\Tencent\QQ\QQ.exe 要改成为自己电脑里的QQ路径。
2、123456 要改为自己要登陆的QQ号。
3、000000 要改为自己要登陆的QQ号的密码。
然后以.vbs的格式保存 。双击运行试试看 是不是自己的QQ就自动登陆了呢?
如果有好几个QQ自己再把代码改改就可以了 这样是不是就简单多了 省得每次开机都要输好多次QQ号和密码。
全部回答
- 1楼网友:猎心人
- 2021-03-17 05:19
1.txt里面的内容是什么?
是不是只有一个帐号?
帐号和密码之后的冒号后是否有空格?
-------------------------------------------
哈哈 终于做出来了
- 2楼网友:风格不统一
- 2021-03-17 04:06
期望有人能编出来,我也很好奇!
- 3楼网友:孤独入客枕
- 2021-03-17 02:42
建议楼主改用 autoit、按键精灵、易语言……
let's autoit 基础语法, 关键还是 得多看帮助文档
例如 我自己用的登陆qq的脚本
shellexecute("f:\program files\tencent\qq2011beta\bin\qq.exe")
while not winexists("qq2011")
sleep(1000)
wend
traytip("正在登陆qq", "请稍候...", 3, 1)
sleep(2000)
winactivate("qq2011")
sleep(500)
opt("mousecoordmode", 2)
mouseclick("left", 180, 145)
send("^a")
send("622053851")
mouseclick("left", 180, 180)
send("^a")
send("baidu")
send("{enter}")
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯