上扣扣號腳本
『壹』 用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站街號的，網路一下就可以找到了
用了才知道原來可以這么輕松，也不用擔心會封號，腳本完全模擬真人養號。