上扣扣号脚本

‘壹’ 用vbs脚本使QQ自动登入

你在展示自己的才能吗？这是一个爆露狂的行为，你的账号和密码，无疑全问向黑客展示出来了。
WshShell.AppActivate "QQ登录" '万一QQ登录窗口出现的慢了，长于2秒，你就可能把这些账号密码，填写在记事本中。

sendkeys "~" 就可以了。写代码太烦索。

‘贰’ QQ批量登陆脚本

功能：从指定的QQ号码和密码文件中读取信息，分别登录，也就是批量QQ号码自动登录。

操作：

1、把QQ号和密码写在一个叫QQ.ini的文件中，格式为QQ号码|密码，如88480666|12345678，其中|为号码和密码的分隔符。

2、把下面的脚本拷贝放到一个文本文件中，改名了XXX.vbs，XXX你自己任意定。

3、修改你的QQ所在的绝对路径，本例为T:/QQ2009/bin/QQ.exe。

4、双击XXX.vbs，开始自动登录。

说明：如果你有上百个QQ，恐怕开这么多QQ实例你的机器吃不消，就把'Close_Process("QQ.exe")前的'去掉。也就是说，每登录一个退出再登录另一个。

存在的问题：目前登录一个退出一个采用的是结束QQ进程的方法，这样不好，每次都要重新启动QQ实例，浪费时间，如果能注销刚才登录的QQ，再选择另一个号码登录最佳，但本人没有解决这个问题，也没时间。

VBS脚本代码如下：

'Option Explicit
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile("QQ.ini",1)

Do Until objTextFile.AtEndOfStream
Dim strNextLine
Dim spIndex,qqnumber,pwd
Dim WshShell, QQPath, QQselect

strNextLine = objTextFile.Readline

spIndex=InStr(strNextLine,"|")
qqnumber=Mid(strNextLine,1,spIndex-1)
pwd=Mid(strNextLine,spIndex+1,Len(strNextLine))
'MsgBox qqnumber&":"&pwd

QQPath="T:/QQ2009/bin/QQ.exe"
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.Run QQPath
WScript.Sleep 2000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys qqnumber
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys pwd
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

WScript.Sleep 5000 '等5秒再换下一个号码登录

'如果QQ太多，机器吃不消，就用这种方法，登录一个，然后下线换另一个
'Close_Process("QQ.exe")
Loop

objTextFile.Close

'下面是关闭某个进程的过程
sub Close_Process(ProcessName)
On Error Resume Next
for each ps in getobject("winmgmts:\\.\root\cimv2:win32_process").instances_ '循环进程
'MsgBox ps.name
if Ucase(ps.name)=Ucase(ProcessName) then '关闭QQ,也可以改成其它的程序
ps.terminate
end if
next
end Sub

VBS取QQ或TM自动登录代码并防止关闭的脚本

'Dim QQUIN
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_ '列出系统中所有正在运行的程序
If LCase(ps.Name) = "qq.exe" Or LCase(ps.Name) = "tm.exe" Then '检测是否QQ或TM
AppPath = ps.commandline '提取QQ程序的命行
tmp = Replace(AppPath, Chr(34), Space(1))
UIN1 = InStr(tmp, "QQUIN:") + 6
QQUIN = Mid(tmp, UIN1, InStr(UIN1, tmp, Space(1)) - UIN1) '取QQ号码.
End If
Next
If Len(QQUIN) = 0 Then
MsgBox "系统中没有运行QQ或TM程序,请重新启动QQ或TM,登陆后再使用一键换切换一下QQ或TM程序,再运行本脚本"
Else
Do '循环检测
myqqin = chkuin(QQUIN) '检测上面提取出来的QQ号码是否有在本机打开
If Not myqqin Then '如果没有运行则,重新运行QQ程序并登录
runapp(AppPath) '
wscript.sleep 10000 '等待10秒
Else
wscript.sleep 5000 '等待5秒
End If
Loop '返回继续检测
End If
Function RunApp(AppPath)
Dim obj
Set obj = CreateObject("WScript.Shell")
obj.exec(AppPath)
End Function
Function chkuin(QQUIN)
Set objWMIService = GetObject _
("winmgmts:\\" & "." & "\root\cimv2")
Set ps = objWMIService.ExecQuery _
("SELECT * FROM Win32_process")
For Each ps in ps '列出系统中所有正在运行的程序
'for each ps in getobject("winmgmts:\\\\.\\root\\cimv2:win32_process").instances_
If LCase(ps.Name) = "qq.exe" Or LCase(ps.Name) = "tm.exe" Then
AppPatht = ps.commandline
'by chenall qq 368178720
tmp = Replace(AppPatht, Chr(34), Space(1))
UIN1 = InStr(tmp, "QQUIN:") + 6
QQUINTMP = Mid(tmp, UIN1, InStr(UIN1, tmp, Space(1)) - UIN1)
If QQUINTMP = QQUIN Then chkuin = True End If
End If
Next
End Function

VBS脚本实现QQ自动登录的方法（旧）

dim WshShell
Set WshShell=WScript.CreateObject("WScript.Shell")
WshShell.run "D:\Progra~1\Tencent\QQ.exe"
'QQ路径名，请按照自己QQ的路径修改
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "号码"
WScript.Sleep 1000
WshShell.SendKeys "{TAB}"
WScript.Sleep 1000
WshShell.SendKeys "密码"
WScript.Sleep 1000
WshShell.SendKeys "{ENTER}"
把上面这些复制到记事本中，保存，后缀名为.vbs就可以了.

隐身登陆

隐身登陆你的QQ，PWDHASH值我不会算，只知道VBS-Fans的L0Pk0zxjb6Zn87W/2PjWpg

dim QQ,A,C,OX
C=MSGBOX("请首先把你的QQ密码改为:VBS-Fans" & CHR(13) & "注意大小写然后点确定!" & chr(13) & "因为QQ密码经过MD5，XOR，循环加密所以不提供算法，我也不会！",4097,"密码要求")
if C=1 then
qq=inputbox("请输入你的QQ号码","QQ","767913294")
QQ=trim(qq)
ox=1
else
ox=0
end if
if ox=1 then
set ws=createobject("wscript.shell")
a="cmd /c ""D:\Program Files\Tencent\QQ\QQ.exe"" /START QQUIN:" & QQ & " PWDHASH:L0Pk0zxjb6Zn87W/2PjWpg== /STAT:40 eixt"
ws.run a,0
else
end if
'复制以上代码另存成*.vbs,运行就可以了!

‘叁’ 求QQ一键登陆 QQ网吧那个网页的脚本、批处理。达到自动输帐号密码就行。

不需要脚本的，你只要在电脑或手机的QQ主界面上把记住密码和自动登录都点上对号就可以了，以后你点QQ就自动登录了

‘肆’ 打开百度云QQ登录的时候出现脚本错误登录不了怎么回事

我有个方法，虽然治标，但是很好用，可以解决登录问题
步骤
1，打开QQ并登录账号
2，打开网络云并选择第三方QQ登录
3，重点步骤，会出现脚本错误的框，现在我们只需疯狂在键盘上点击Y，使框消失的瞬间疯狂的用鼠标点击上网络云的QQ快速登录头像即可登录上网络云

‘伍’ 哥们你好 我现在的QQ号老是被人抢号，你说编写个vbs脚本能自动上线，请问能否把源代码告诉我

Dim Program1
Program1="D:\Program Files\QQ2011\Bin\QQ.exe"
Set WshShell=CreateObject("WScript.Shell")
Set oExec=WshShell.Exec(Program1)
WScript.Sleep 3000
WshShell.AppActivate "Q登录"
WshShell.SendKeys "+{TAB}"
WshShell.SendKeys "Q号"
WScript.Sleep 200
WshShell.SendKeys "{TAB}"
WshShell.SendKeys "密码"
WScript.Sleep 200
WshShell.SendKeys "{ENTER}"

‘陆’ 跪求一个按键精灵脚本要求：自动登陆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小号怎么快速养号

1、我们先需要在“搜狗”上搜索QQ注册，如图所示：

拓展资料

QQ是腾讯QQ的简称，是腾讯公司开发的一款基于Internet的即时通信（IM）软件。目前QQ已经覆盖Microsoft Windows、OS X、Android、iOS、Windows Phone等多种主流平台。其标志是一只戴着红色围巾的小企鹅。

腾讯QQ支持在线聊天、视频通话、点对点断点续传文件、共享文件、网络硬盘、自定义面板、QQ邮箱等多种功能，并可与多种通讯终端相连。

2017年1月5日，腾讯QQ和美的集团在深圳正式签署战略合作协议，双方将共同构建基于IP授权与物联云技术的深度合作，实现家电产品的连接、对话和远程控制。双方合作的第一步，是共同推出基于QQfamily IP授权和腾讯物联云技术的多款智能家电产品。

‘捌’ 如何申请qq新号码

现在的QQ号可不好申请了！往往不得不反复点击“上一步”、“下一步”向服务器申请，按上N次也未必能申请成功。要是有谁能替我完成这些重复枯燥的动作就好了！ “按键精灵”就可以化繁杂为简单（点击下载：按键精灵），它实际上是一款记录键盘鼠标按键操作的软件，利用它可以实现自动执行一系列键盘鼠标动作的功能。 工作界面——舞台搭建 在“按键精灵”的主界面中点击“增加”按钮出现“脚本编辑器”窗口，整个界面分为三大部分：左侧为动作选择区，右侧上部为脚本设置区，右侧下部为脚本内容区。需要“按键精灵”自动执行的所有动作都需要先在“动作选择区”中选定，然后插入“脚本内容区”。 申请QQ——实战演练 1、抓取鼠标位置 先启动QQ，点击“注册向导”，弹出申请新的QQ号窗口(一定不要移动该窗口的位置)，顺次操作，直到出现“网络设置”窗口。此时再启动“按键精灵”，在图1的“宏的描述”处输入动作名称（如“自动申请QQ号码”），定义启动热键为Ctrl F2，中止热键不要改动了，就使用Ctrl F12，然后在动作区“鼠标动作”中选择动作方式，接着点击“抓点”按钮，将鼠标移动到QQ“网络设置”界面的“下一步”按钮上，然后按“Ctrl Alt 1”键(注意：1是大键盘上的数字键，而不是小键盘上的)将鼠标位置抓下来。在QQ“网络设置”界面上再点击“下一步”，弹出QQ“完成”窗口，将鼠标移到“上一步”按钮上，按“Ctrl Alt 2”键，将鼠标位置再抓下来，然后“退出抓点”状态。 2、插入“下一步”点击 点击“抓点”下的“插入”按钮在“脚本内容区”插入鼠标位置；再点击“鼠标左键”下的“插入”按钮插入点击鼠标左键动作。这是模拟向服务器发出申请QQ号码的操作。 3、加入延时 测试服务器是否繁忙是需要一段时间的，因此在这里要插入延时时间。点击左下角的“其它动作”右侧的箭头，在“延时时间”处设置为30秒(可根据自己的网络速度适当调整)，然后点击其下部的“插入”按钮插入延时30000毫秒。 4、插入“上一步”点击 回到“鼠标控制”设置项，点击“抓点”右侧的三角形按钮，选择“P2:X=333 Y=455”项(这是我们抓的“上一步”鼠标位置)，点击“插入”按钮插入鼠标位置，点击“鼠标左键”下的“插入”按钮插入点击鼠标左键动作，完成模拟QQ返回上一级窗口的操作。 5、循环操作直到按终止键 由于我们不知道向服务器发出多少次申请才能成功，因此可设置为一直重复操作，直到申请成功或按终止键后停止。点击右上部的“循环”按钮，选择“重复到按终止键为止”项，当然你也可根据自己的情况选择重复时间或循环次数。 至此，一个自动申请QQ的脚本就制作完成了，点击右侧最底部的“存盘退出”按钮返回主窗口。在主窗口中已经能够看到我们制作的脚本了。 现在就来申请QQ号吧！首先来到QQ“网络设置”窗口，然后按热键Ctrl F2就可以了，等上一段时间，一个QQ号码就申请到手了。 需要解决的类似不便还有很多。比如在一些聊天室里，为了赚取点数，你不得不过上几分钟说一次话，否则就可能被系统踢出聊天室了；再比如打游戏时，那些功力强劲的组合键绝招能把人搞得手忙脚乱的……想定时说话吗？想一键发功吗？就请您用“按键精灵”来实现吧。详细参考www.zhoushan365.com

‘玖’ 用小软件轻松申请到QQ靓号

“按键精灵”就可以化繁杂为简单，它实际上是一款记录键盘鼠标按键操作的软件，利用它可以实现自动执行一系列键盘鼠标动作的功能从而使申请QQ号更方便。

下载按键精灵：/QQ/ParkD/DownB/20060708699.htm

在“按键精灵”的主界面中点击“增加”按钮出现“脚本编辑器”窗口，整个界面分为三大部分:左侧为动作选择区，右侧上部为脚本设置区，右侧下部为脚本内容区。需要“按键精灵”自动执行的所有动作都需要先在“动作选择区”中选定，然后插入“脚本内容区”。

申请QQ号实战演练

1、抓取鼠标位置

先启动QQ，点击“注册向导”，弹出申请新的QQ号

窗口(一定不要移动该窗口的位置)，顺次操作，直到出现“网络设置”窗口。此时再启动“按键精灵”，在“宏的描述”处输入动作名称(如“自动申请QQ号码”)，定义启动热键为Ctrl+F2，中止热键不要改动了，就使用Ctrl+F12，然后在动作区“鼠标动作”中选择动作方式，接着点击“抓点”按钮，将鼠标移动到QQ“网络设置”界面的“下一步”按钮上，然后按“Ctrl+Alt+1”键(注意:1是大键盘上的数字键，而不是小键盘上的)将鼠标位置抓下来。

在QQ“网络设置”界面上再点击“下一步”，弹出QQ“完成”窗口，将鼠标移到“上一步”按钮上，按“Ctrl+Alt+2”键，将鼠标位置再抓下来，然后“退出抓点”状态。

2、插入“下一步”点击

点击“抓点”下的“插入”按钮在“脚本内容区”插入鼠标位置;再点击“鼠标左键”下的“插入”按钮插入点击鼠标左键动作。这是模拟向服务器发出申请QQ号码的操作。

3、加入延时

测试服务器是否繁忙是需要一段时间的，因此在这里要插入延时时间。点击左下角的“其它动作”右侧的箭头，在“延时时间”处设置为30秒(可根据自己的网络速度适当调整)，然后点击其下部的“插入”按钮插入延时30000毫秒。

4、插入“上一步”点击

回到“鼠标控制”设置项，点击“抓点”右侧的三角形按钮，选择“P2:X=333 Y=455”项(这是我们抓的“上一步”鼠标位置)，点击“插入”按钮插入鼠标位置，点击“鼠标左键”下的“插入”按钮插入点击鼠标左键动作，完成模拟QQ返回上一级窗口的操作。

5、循环操作直到按终止键

由于我们不知道向服务器发出多少次申请才能成功，因此可设置为一直重复操作，直到申请成功或按终止键后停止。点击右上部的“循环”按钮，选择“重复到按终止键为止”项，当然你也可根据自己的情况选择重复时间或循环次数。

至此，一个自动申请QQ的脚本就制作完成了，点击右侧最底部的“存盘退出”按钮返回主窗口。在主窗口中已经能够看到我们制作的脚本了。

现在就来申请QQ号吧!首先来到QQ“网络设置”窗口，然后按热键Ctrl+F2就可以了，等上一段时间，一个QQ号码就申请到手了。不满意可以再换，直到申请到喜欢的号为止。

‘拾’ 买回来的QQ要养号，先挂几天是怎么挂

你好，买回来的QQ，如果你想用来引流的话，挂几天是不够的，需要提高活跃度
我们是用→ QQ全自动养号脚本 来养QQ站街号的，网络一下就可以找到了
用了才知道原来可以这么轻松，也不用担心会封号，脚本完全模拟真人养号。