亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 編程 > VBScript > 正文

用VBScript制作QQ自動登錄的腳本代碼

2020-06-26 18:34:22
字體:
來源:轉載
供稿:網友
有時候我們在個人電腦上,每次輸入密碼比較麻煩,可以自動登錄,但如果qq賬號多了,就可以使用這個腳本了
 

一直用的是狂人版的QQ,也用它附贈的自動登錄器很久了,不過最近一版的狂人QQ不知為何取消了自動登錄組件。好在QQ2009已經能夠同時記住多個號碼的密碼,雖然要多點擊幾下,但依然能夠實現免輸入密碼登錄。

  誰知最近不知道電腦發了什么瘋,每隔一段時間,QQ記住的密碼就會被清空。我的兩個QQ號密碼都設置得比較復雜,每次登錄要輸入兩遍密碼實在是件痛苦的事情,于是決定自制一個登錄器。

  在網上找了許久,發現了一個用VBS制作QQ登錄腳本的辦法:

 

復制代碼代碼如下:

set WshShell = WScript.CreateObject("WScript.Shell")   '創建一個Shell對象
WshShell.Run "C:/Progra~1/Tencent/QQ/QQ.exe"      '運行QQ,這里改成你自己的QQ目錄
WScript.Sleep 3000                      '休眠 3000毫秒(停止3秒)
WshShell.SendKeys "{tab}"
WScript.Sleep 100
WshShell.SendKeys "xxxxxxxxx"      '這里的xxxx用你的QQ號碼代替
Wscript.Sleep 100
WshShell.SendKeys "{tab}"
Wscript.Sleep 100
WshShell.SendKeys "********"      '這里的****用你的QQ密碼代替
Wscript.Sleep 1000
WshShell.Sendkeys "{enter}"

 

  需要注意的是,文件夾的名如果大于8個字符或者中間有空格,要寫成“PROGRA~1”這種形式,就是保留名字的前6個字母然后加上“~1”,這個“~1”代表前6個字母相同文件夾名字的第一個文件夾,例如有2個文件夾中間都有空格:Program Files和Program Filez,那就先以名稱排列圖標,看最前面的就是~1,第2個就是~2

  可是把代碼復制過來后,卻始終說密碼錯誤。研究半天,終于明白,原來是因為我的密碼中有一些特殊字符,而這些特殊字符在VBS中另有其它含義。然而,要想使用這些特殊字符的本來意義,網上卻找不到解決的辦法——很多網站都說用“/”引導就可以了,例如密碼中如果有“$”字符,就要用“/$”代替??墒俏以囉弥笞C明在DOS環境中這樣不行!

  最后經過反復試驗,終于把這個問題解決了。而且,我還添加了一個判斷過程。也就是如果把這個腳本放在開始-->所有程序-->啟動里面,打算在開機的時候自動運行的話,那就可以通過點擊確定或者取消來啟動或者跳過QQ自動登錄。代碼如下:

 

復制代碼代碼如下:

set WshShell = WScript.CreateObject("WScript.Shell")
Dim a
a = MsgBox("自動登錄QQ嗎?",65,"QQ自動登錄")
If a=1 Then
WshShell.Run "D:/Progra~1/Tencent/QQ2009/Bin/QQ.exe"
WScript.Sleep 11000
WshShell.SendKeys "+{tab}"
WScript.Sleep 300
WshShell.SendKeys "xxxxxxx{tab}"
Wscript.Sleep 300
WshShell.SendKeys "****************{tab}"
Wscript.Sleep 300
WshShell.SendKeys "{down 7}{enter}"
Wscript.Sleep 300
WshShell.SendKeys "{tab 4}{enter}"

 

Wscript.Sleep 15000

WshShell.Run "D:/Progra~1/Tencent/QQ2009/Bin/QQ.exe"
WScript.Sleep 2000
WshShell.SendKeys "+{tab}"
WScript.Sleep 300
WshShell.SendKeys "xxxxxxxxx{tab}"
Wscript.Sleep 300
WshShell.SendKeys "****************{tab}"
Wscript.Sleep 300
WshShell.SendKeys "{down 7}{enter}"
Wscript.Sleep 300
WshShell.SendKeys "{tab 4}{enter}"
End If

 

注釋:
  如果你不希望出現提示對話框,只要把第2、3、4行和最后一行刪除掉即可。

  第5行,我的QQ啟動目錄在D:/Program Files/Tencent中。

  第6行,由于剛開機時可能同時要加載許多程序,QQ的啟動過程可能比較慢,需要等待11秒鐘確保登錄界面出現。而且我發現,狂人版的QQ在啟動過程中很容易受到干擾而失去當前登錄窗口,所以這里的等待時間應盡可能足夠長以確保自動登錄時沒有其它程序搶走當前窗口。

  第7行,狂人版QQ啟動后,除非是第一次運行QQ,否則光標位置并不在輸入號碼的地方,而是輸入密碼的地方,所以需要發送Shift+Tab組合鍵使得光標出現在輸入號碼的框中。
  對于需要與Shift、Ctrl、Alt三個控制鍵組合的按鍵,SendKeys使用特殊字符來表示:+、^、%,另外對于一些不會生成字符的控制功能按鍵,則需要使用大括號括起來按鍵的名稱。下面是這些按鍵和表示法的對照:
  按鍵                代碼    
  BACKSPACE     {BACKSPACE}, {BS}, 或 {BKSP}    
  BREAK       {BREAK}    
  CAPS LOCK     {CAPSLOCK}    
  DEL or Delete   {Delete} 或 {DEL}    
  DOWN ARROW     {DOWN}    
  END        {END}    
  ENTER       {ENTER}或 ~    
  ESC        {ESC}    
  HELP        {HELP}    
  HOME        {HOME}    
  INS or Insert   {Insert} 或 {INS}    
  LEFT ARROW     {LEFT}    
  NUM LOCK      {NUMLOCK}    
  PAGE DOWN     {PGDN}    
  PAGE UP      {PGUP}    
  PRINT SCREEN    {PRTSC}    
  RIGHT ARROW    {RIGHT}    
  SCROLL LOCK    {SCROLLLOCK}    
  TAB        {TAB}    
  UP ARROW      {UP}    
  F1         {F1}    
  ……
  F10         {F10}

  第8行,光標發生位置變動,所以延時0.3秒,確保光標成功轉移。以下同。

  第9行,輸入完號碼后還需要按一下Tab鍵使得光標跳轉到密碼輸入框中。這里我考慮到數字鍵和Tab鍵的點擊都是在同一個框內,所以直接放在了一起,節約時間。

  第11行,輸入密碼。注意,如果你的密碼中有“$”、“(”、“)”、“*”、“+”、“_”、“[”、“?”、“/”、“^”、“{”或者“|”符號,就必須用{ }框起來,例如有“[”,就得寫成“{[}”;如果有“{”,就得寫成“{{}”;如果密碼是“a*2+3”,就得寫成“a{*}2{+}3”。其余類推。
  注意最后的{Tab},如果你只有一個QQ號,而且每次都是正常方式登錄,那么你可以將{Tab}改成{Enter},然后刪除后面的行就行了。

  第13行,由于我每次都希望能以隱身方式登錄,所以在這里添加了按向下鍵選取隱身模式的過程,選中隱身模式后需要發送回車鍵才能選中。如果需要發送多個重復的單字母按鍵,不必重復輸入該字母,SendKeys允許使用簡化格式進行描述,使用格式為“{按鍵 數字}”。例如要發送10個字母“x”,則輸入“WshShell.SendKeys "{x 10}"”即可,所以這里我用了7個向下鍵。

  第15行,這里的4個Tab是用于將鼠標點擊焦點移動到登錄窗口中的“登錄”按鈕上,最后發送回車開始登錄過程。

  第17行,我需要登錄兩個QQ號,所以在這里需要等待至少15秒,確保第一個號碼完全登錄。如果你的第一個QQ號還沒有登錄完畢就出現了第二個登錄窗口,那第二個QQ登錄一定會失敗,需要增大這里的數值。

  后面的過程就和前面的一樣了,不再贅述。編輯好這段代碼之后,新建一個文本文件,將代碼復制進去,然后將文件改名為AutoQQ.VBS,雙擊就可以看到效果了。

補充說明:

1)雙擊運行vbs文件后,不能點擊鼠標,也不能敲擊鍵盤,必須等到QQ號啟動結束才能做其它事情,否則登錄過程很可能會失敗。

2)運行此腳本時不能有其它搶占最頂端窗口的程序,例如QQ記牌器之類,否則WScript會把字符發送到錯誤的窗口中;也不要設置收到QQ消息就自動彈出窗口,否則后續QQ號登錄很可能會被干擾。

3)這種方法自動登錄QQ,密碼是明文形式存放在vbs文件中的,所以只適用于私人電腦,如果多人使用同一電腦就不安全了。也許你可以去網上找一個叫做“VBS2EXE”的軟件來把腳本文件轉換成exe文件,但是我試驗了多次,這個軟件沒法在我的機器上運行。

(本人原創作品,轉載請注明出自玄鳥翩翩)


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
在线免费观看羞羞视频一区二区| 91手机视频在线观看| 97碰碰碰免费色视频| 亚洲精品永久免费| 国产精品∨欧美精品v日韩精品| 91sao在线观看国产| 欧美电影在线免费观看网站| 国产一区二区在线播放| 国产98色在线| www.日韩.com| 中文字幕日韩精品在线观看| 国产精品久久中文| 国产精品女视频| 亚洲欧美日韩天堂一区二区| 97精品国产91久久久久久| 日韩精品中文字幕在线观看| 91高清免费在线观看| 久久手机免费视频| 欧美激情xxxx性bbbb| 国产精品日韩在线| 姬川优奈aav一区二区| 久久九九热免费视频| 九九热最新视频//这里只有精品| 57pao成人国产永久免费| 川上优av一区二区线观看| 欧美与欧洲交xxxx免费观看| 亚洲成人精品久久久| 97在线精品国自产拍中文| 91久久久精品| 亚洲韩国日本中文字幕| 日韩欧美亚洲范冰冰与中字| 亚洲天堂av综合网| 北条麻妃在线一区二区| 国产有码在线一区二区视频| 亚洲美女黄色片| 日本精品在线视频| 成人黄色在线观看| 久久黄色av网站| 国产亚洲一级高清| 日韩精品在线观看网站| 国产精品中文字幕久久久| 日韩成人激情在线| 欧美一级淫片播放口| 亚洲第一级黄色片| 亚洲女在线观看| 久久综合伊人77777尤物| 中文字幕亚洲精品| 美女精品视频一区| 九九精品在线视频| 久久精品国产久精国产思思| 国产手机视频精品| 亚洲国产一区自拍| 国产日本欧美一区二区三区在线| 日韩av电影在线免费播放| 国产自产女人91一区在线观看| 欧美性在线视频| 亚洲美女视频网站| 久久亚洲综合国产精品99麻豆精品福利| 欧美黑人国产人伦爽爽爽| 精品人伦一区二区三区蜜桃免费| 日本精品视频在线播放| 国产欧美精品va在线观看| 亚洲国产古装精品网站| 在线精品高清中文字幕| 成人av在线天堂| xvideos成人免费中文版| 亚洲精品国产精品国自产观看浪潮| 亚洲人成网站777色婷婷| 高清在线视频日韩欧美| 欧美专区国产专区| 久久免费高清视频| 久久中国妇女中文字幕| 久久久久久com| 一本色道久久88精品综合| 国产精品一区二区3区| 日韩成人在线播放| 久久精品美女视频网站| 夜夜狂射影院欧美极品| 国产午夜精品视频免费不卡69堂| 欧美日韩综合视频网址| 日韩欧美在线免费观看| 亚洲自拍小视频免费观看| 日韩电影中文字幕av| 欧美夫妻性生活视频| 亚洲国产小视频在线观看| 国产精品久久久久久久久久久久久久| 超薄丝袜一区二区| 亚洲一区二区三区xxx视频| 最近2019免费中文字幕视频三| 精品久久久久久久大神国产| 亚洲三级 欧美三级| 国产欧美精品一区二区三区介绍| 欧美夫妻性视频| 欧美风情在线观看| 国产精品久久久久av| 国产成人精品日本亚洲专区61| 美女性感视频久久久| 欧美成人免费在线视频| 久久久国产精品x99av| 中文字幕在线成人| 欧美精品在线免费| 怡红院精品视频| 亚洲女人天堂av| 欧美日韩裸体免费视频| 色婷婷综合成人av| 3344国产精品免费看| 亚洲a在线观看| 日韩精品中文字幕在线| 黄网站色欧美视频| 欧美午夜www高清视频| 欧美精品18videosex性欧美| 欧美日韩免费一区| 韩国一区二区电影| 国产亚洲精品va在线观看| 午夜精品美女自拍福到在线| 精品久久久久久国产| 成人黄色大片在线免费观看| 成人福利视频在线观看| 亚洲黄页视频免费观看| 国产精品夜间视频香蕉| 精品爽片免费看久久| 国产成人av在线| 国产精品视频资源| 欧美放荡办公室videos4k| 中文字幕在线成人| 亚洲国产精品一区二区三区| 精品久久久91| 中文字幕亚洲国产| 亚洲精品视频在线播放| 亚洲va久久久噜噜噜久久天堂| 日韩免费观看网站| 美女久久久久久久久久久| 亚洲人成绝费网站色www| 成人精品视频99在线观看免费| 亚洲精品电影在线观看| 91精品国产91久久| 亚洲综合av影视| 国产亚洲视频中文字幕视频| 亚洲性xxxx| 欧美国产极速在线| 欧美激情三级免费| 亚洲精品不卡在线| 午夜免费在线观看精品视频| 亚洲图片在线综合| 国产精品爽爽爽爽爽爽在线观看| 91九色在线视频| 久久久久久久网站| 91视频九色网站| 青青草原成人在线视频| 国产精品美女网站| 久久久亚洲欧洲日产国码aⅴ| 夜色77av精品影院| 亚洲综合社区网| 成人网在线观看| 91精品国产沙发| 日韩专区在线播放| 久久精品99久久久香蕉| 成人精品视频在线| 57pao成人国产永久免费| 国语对白做受69| 欧美精品在线视频观看| 国产精品久久久久久一区二区| 91国产美女在线观看| 成人黄色免费在线观看|