就是说,我单机一下按钮 就自动登录我的QQ账号
我是想单击一下就登录多个QQ账号,!!!不过还是谢谢一楼
直接下一个按键精灵就能完成楼主的要求了
按键精灵8是最新版
楼主你最起码给点分吧
按键精灵和vb一样(差不了太多)
这是我很久以前写的代码
代码
---------------------------------------------
//判断文件是否存在如果存在将在下次运行无需手动输入账号以及密码!
aa = Plugin.File.IsFileExit("c:\c.txt")
If aa = true then
Call haha
Else
k=inputbox("QQ路径:",麦兜Terran)
y= inputbox("用户名:",麦兜Terran)
m= inputbox("密码:",麦兜Terran)
//创建一个文件,作为记录
RunApp "cmd /c cd.>c:\c.txt&",0
Call Plugin.File.WriteFileEx("c:\c.txt", y)
Call Plugin.File.WriteFileEx("c:\c.txt", m)
Call Plugin.File.WriteFileEx("c:\c.txt", k)
Call haha
End if
//开始工作
Sub haha
l = Plugin.File.ReadFileEx("c:\c.txt")
x = Split(l,"|")
RunApp x(2)
KeyPress 9,9
SayString x(0)
KeyPress 9,1
SayString x(1)
KeyPress 9,5
KeyPress 13,1
End Sub
按键精灵8是最新版
楼主你最起码给点分吧
按键精灵和vb一样(差不了太多)
这是我很久以前写的代码
代码
---------------------------------------------
//判断文件是否存在如果存在将在下次运行无需手动输入账号以及密码!
aa = Plugin.File.IsFileExit("c:\c.txt")
If aa = true then
Call haha
Else
k=inputbox("QQ路径:",麦兜Terran)
y= inputbox("用户名:",麦兜Terran)
m= inputbox("密码:",麦兜Terran)
//创建一个文件,作为记录
RunApp "cmd /c cd.>c:\c.txt&",0
Call Plugin.File.WriteFileEx("c:\c.txt", y)
Call Plugin.File.WriteFileEx("c:\c.txt", m)
Call Plugin.File.WriteFileEx("c:\c.txt", k)
Call haha
End if
//开始工作
Sub haha
l = Plugin.File.ReadFileEx("c:\c.txt")
x = Split(l,"|")
RunApp x(2)
KeyPress 9,9
SayString x(0)
KeyPress 9,1
SayString x(1)
KeyPress 9,5
KeyPress 13,1
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答 推荐于2017-10-10
运行(“QQ客户端的地址”)。
例如:运行(“E:\qq\Bin\QQ.exe”)
自动填写。双击按钮2进入源码区,填入:模拟按键(#某键)
例如:模拟S键:模拟按键(#S键)
模拟按键的时候 前提QQ客户端 在最前面,设置按了按钮2后最小化,然后用时钟设置延迟3秒,再模拟按键。
第2个回答 2019-07-03
.版本 2 .支持库 script .子程序 _按钮_登陆_被单击 .局部变量 pass, 文本型 .局部变量 ok, 文本型 脚本组件1.执行 (#md5) ' qq网页登陆密码md5加密方式 pass = 脚本组件1.运行 (“md5_3”, 编辑框_qq密码.内容) pass = 脚本组件1.运行 (“md5”, pass + 到大写 (编辑框_验证码.内容)) ok = 到文本 (彗星http读文件 (“ <a href="" target="_blank"></a>”, “post”, , , “u1= <a href="" target="_blank"></a>
第3个回答 2010-08-05
不用。QQ有这个功能。