創建QQ獲取特定號碼腳本
① 怎樣使用qq同步助手獲取手機號
qq同步助手除了可以使用qq賬號登錄外,還支持手機賬號的登錄,那麼,qq同步助手如何獲取手機號呢?下面就讓我告訴大家怎樣使用qq同步助手獲取手機號。
使用qq同步助手獲取手機拿和號的 方法
登錄你的手機QQ同步助手客戶端
點擊打開右上角的菜單按鈕,看到賬號與設置選項,點擊打開這個選項。
看到我的賬號一欄,如果有登錄的升帶,點擊它進入,先注銷賬號,
注銷賬號之後切換到手機賬號登錄界面,點擊下面的小字創建新賬號。
填上你的手機號碼,之後點擊下一步
接著設置你的手機賬吵敏蘆號密碼
在下來就是獲取一條驗證簡訊,輸入驗證碼進行驗證。
驗證過後會提示你手機賬號已經創建成功。
看了怎樣使用qq同步助手獲取手機號的人還看
1. 如何使用qq同步助手獲取手機號碼
2. 怎樣使用qq同步助手更新通訊錄
3. iPhone如何使用qq同步助手
4. 如何使用qq同步助手添加微信好友
5. qq同步助手如何使用
② 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號碼
若使用的vivo手機,申請QQ帳號方法如下:
進入手機QQ登此轎中錄界面,選擇「新用戶注冊」,森山然後按提示操作即可完成QQ的注冊。
④ 我想用按鍵精靈製作一個 自動讀取賬號密碼並登陸QQ的腳本 要學什麼基礎知識 本人小白 求大神 好心人指點
讀取文件,有規律定義的文件,經過分割,判斷。用到的一般用到 ReadFile、InStr、Split幾個方法或函數