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
㈡ 求QQ一键登陆 QQ网吧那个网页的脚本、批处理。达到自动输帐号密码就行。
不需要脚本的,你只要在电脑或手机的QQ主界面上把记住密码和自动登录都点上对号就可以了,以后你点QQ就自动登录了
㈢ 用C语言或C++写一个QQ自动登陆器
建议楼主改用 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("")
Send("{ENTER}")
㈣ QQ上线登陆器的自助VBS登陆脚本
Dim Program1
Program1= QQ所在目录(要包含QQ.EXE)
Set WshShell=createobject(wscript.shell)
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate 这里随便打
WshShell.SendKeys +{TAB}
WshShell.SendKeys 要登陆的帐号
WScript.Sleep 200
WshShell.SendKeys {TAB}
WshShell.SendKeys 对应的密码
WScript.Sleep 200
WshShell.SendKeys {ENTER}
将此脚本保存为.vbs便大功告成了!
只要运行脚本就会自动打开并登陆QQ!不过由于是明文保存,所以存在泄漏密码的可能!如果有能力的可以制造脚本用来创建这个脚本,这样你就可以对帐号密码进行可逆加密了。不过对于即不会输出脚本有害怕泄漏的人还有一个特别的办法。只是将密码处变成一个变量,然后用指令弹出对话框手动输入下密码就可以了。不过有种多此一举的感觉,我也就不改脚本了。
PS:此脚本收集自网络除注释外无变更。

㈤ 用vbs脚本使QQ自动登入
你在展示自己的才能吗?这是一个爆露狂的行为,你的账号和密码,无疑全问向黑客展示出来了。
WshShell.AppActivate "QQ登录" '万一QQ登录窗口出现的慢了,长于2秒,你就可能把这些账号密码,填写在记事本中。
sendkeys "~" 就可以了。写代码太烦索。
㈥ 跪求一个按键精灵脚本要求:自动登陆txt文本内的QQ,文本格式类似QQ号码----QQ密码。
直接写前台,手的操作用按键精灵代替,思路是打开qq,得到输入框的位置,读取文本复制粘贴。
http://zy.anjian.com/?action-model-name-qmdn-itemid-229
http://zy.anjian.com/index.php?action-viewthread-tid-356604
这里有例子,综合一下就好了
㈦ 怎样用批处理设置自动登录QQ
Dim strPrgpth
strPrgpth = "c:\pro\qq\bin\qq.exe" '如果QQ安装路径不同,在此处修改
Set wshshell = CreateObject("wscript.shell")
Set oexec = wshshell.exec(strPrgpth)
wscript.sleep 3000 '如果脚本无法工作,可以适当延长这部分的时间值
wshshell.AppActivate "QQ用户登录"
wshshell.Sendkeys "{TAB}"
wshshell.Sendkeys "111111" '换成你自己的QQ号
wscript.Sleep 1000
wshshell.Sendkeys "{TAB}"
wscript.Sleep 1000
wshshell.Sendkeys "111111" '换成你的QQ号密码
wscript.Sleep 1000
wshshell.Sendkeys "{ENTER}"
wscript.Quit
保存为vbs格式
无语,还不够清楚啊,我都没法再说了,在有注释的行,把你qq的安装路径、号码、密码填上就行了
㈧ 如何设置一键登录QQ
让我的QQ能一键登录 《电脑报》的第30期的G9版《DIY属于自己的QQ登录器》一文中介绍了如何双击一个vbs文件就可以让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”,再对着它点击“右键→发送到→桌面快捷方式”最后对着这个快捷方式点击“右键→属性”在“快捷键”中设置为F9键。要登录QQ时,只须用手指轻轻点一下F9键,就能自动登录QQ,很方便吧! 本文涉及的代码可到: http://www.cpcw.com/xz/loginQQ.rar下载,然后用记事本打开按实际情况填写好QQ路径、QQ号码和密码即可使用。
㈨ QQ自动登陆脚本会编VB的来
用VBS吧。存为vbs文件,拖到启动项目:
set ws=wscript.Createobject("wscript.shell")
ws.run "E:\Software\Post\QQ\QQ.exe"
wscript.sleep 5000
ws.sendkeys "^`"
wscript.quit
注意把你QQ路径改掉,5000是启动5秒后再执行按键“^`”,^表示Ctrl
