Set WshShell= WScript.CreateObject("WScript.Shell") WshShell.AppActivate "" for i=1 to 99 WScript.Sleep 500 WshShell.SendKeys "^v" WshShell.SendKeys "%s" next 后綴改為vbs，ctrl c 你要發(fā)送的內容 然后運行腳本 光標反正發(fā)送對象的輸

操作方法

電腦桌面右鍵，選擇新建文本文檔。

1、進入shang.qq.com/登陸以后選擇QQ通訊組件。 2、將網頁下翻找到代碼顯示區(qū),點擊復制代碼按鈕復制代碼。 3、在任意文件夾內新建一個文本文檔。 4、打開新建的文本文檔并將剪切板內容粘貼到文本文檔中。 5、分析代碼,如圖。 6、打開易語言,新建

點擊我的電腦，再點擊查看按鈕，將文件擴展名勾選上，可以看到之前新建的文本文檔的后綴顯示出來了。

?就是這個空格了我的字就是反的，復制最前邊的空格就是代碼?

填寫無數字的代碼。在.txt中填寫，代碼如下：（如圖）沒有數字的，顯示發(fā)送了多少次：

桌面新建TXT 這個會吧 然后TXT里面右鍵空白處 -- 顯示 un什么控制字符 然后 -- 插入 un什么控制字符 -- 選擇RLO 別選錯了 你會發(fā)現什么都沒有 但是是有的 不信你可以隨便打幾個字試一下 不過打了字你就要重新來一遍 然后按鍵盤 Ctrl+A 別管 你肉

dim wshshell,a

3/6 分步閱讀 首先我們 在電腦上登錄QQ 2/6 打開QQ主頁，點擊下圖箭頭所指的圖標 3/6 然后點擊【設置】 4/6 然后自愛“系統設置”的窗口中選擇【熱鍵】 5/6 接著點擊【設置熱鍵】 6/6 最后在新彈出的窗口最底端選擇【按En

set wshshell=createobject("wscript.shell")

你在點擊vbs文件之前，要復制一下你準備發(fā)送的信息，就可以了，我以前和你碰到的一樣

a=inputbox ("輸入要發(fā)信息次數"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"請確定剛才光標是在QQ窗體內!","提示")

你好。現在手機QQ是可以使用的。 xx撤回了一條消息并親了你一下，該方法真實有效。 設置方法已經在這個經驗中，有詳細的方法及工具。 手機用經驗中的第二種方法在線生成。電腦的也可以或者下載工具下來，在網盤。 這個顯示只在手機上顯示有效，

WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ群 - 群",在打開的對話框上有顯示'

1 復制工具原料第一項空白部分，電腦的話需要雙擊才能完全復制。 2 進入QQ聊天界面，長按輸入框喚出粘貼按鈕。 3 點擊粘貼按鈕，將之前復制的代碼粘貼到輸入框。 4 粘貼后輸入框內并沒有明顯字符出現，但可以發(fā)現光標前進數格。

wscript.sleep 1000

我做過了已經： 模塊1代碼： #If VBA7 And Win64 Then Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)#Else Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)#End IfSub a

for i=1 to 100 '循環(huán)的次數100'

保存一下代碼為后綴名vbs 雙擊即可. set y=getobject("winmgmts:.rootcimv2") set x=y.execquery("select * from win32_process where name='wscript.exe'") for each i in x i.terminate() next

wscript.sleep 500 '暫停500毫秒'

那個系統提示就是圖像的一部分，只是被隔開了，其實那個不是真的系統提示。 QQ群里怎么自動回復： 1、目前qq群里還沒有自動回復功能，只能通過一些網上小工具或者小插件來實現。以下以其中一款網上免費插件來介紹。 2、首先下載酷Q機器人（也可

wshshell.sendkeys "^v"'粘貼

我知道用java去做一個多人聊天室，首先是要有服務器端，客戶端是用GUI做的界面每個用戶都是一個線程，當多人進行聊天的時候，都是先把數據傳給服務器，然后服務器在給每個人都發(fā)到自己的界面上，大概的思路就是這樣的 你要我這個代碼么 ，我可以

wshshell.sendkeys "%s"'%s=enter和sendkeysSendKeys +發(fā)送內容'

我學的是web開發(fā)不知道和你這個區(qū)別打不打，鍵盤監(jiān)聽onkeyup事件，用鍵盤的KeyCode就可以了，回車的Key Code是13，監(jiān)聽到回車就做相應的

next

wscript.quit

.版本 2 .子程序 _編輯框1_按下某鍵, 邏輯型 .參數 鍵代碼, 整數型 .參數 功能鍵狀態(tài), 整數型 .如果真 (鍵代碼 ＝ #回車鍵 且 功能鍵狀態(tài) ＝ 1) 信息框 (“ok”, 0, ) .如果真結束

填寫有數字的代碼。在.txt中填寫，代碼如下：有數字的，顯示發(fā)送了多少次：

QQ可不是基于局域網內部的聊天工具哈，實現QQ還是不簡單的。 你應該指的飛鴿傳輸這種，你好歹留個郵箱，我發(fā)給你。

dim wshshell,a

3/6 分步閱讀 首先我們 在電腦上登錄QQ 2/6 打開QQ主頁，點擊下圖箭頭所指的圖標 3/6 然后點擊【設置】 4/6 然后自愛“系統設置”的窗口中選擇【熱鍵】 5/6 接著點擊【設置熱鍵】 6/6 最后在新彈出的窗口最底端選擇【按En

set wshshell=createobject("wscript.shell")

你在點擊vbs文件之前，要復制一下你準備發(fā)送的信息，就可以了，我以前和你碰到的一樣

a=inputbox ("輸入要發(fā)信息次數"&chr(13)&chr(13)&"*******★life制作★******"&chr(13)&chr(13)&"請確定剛才光標是在QQ窗體內!","提示")

你好?，F在手機QQ是可以使用的。 xx撤回了一條消息并親了你一下，該方法真實有效。 設置方法已經在這個經驗中，有詳細的方法及工具。 手機用經驗中的第二種方法在線生成。電腦的也可以或者下載工具下來，在網盤。 這個顯示只在手機上顯示有效，

WshShell.AppActivate "" '當前激活的聊天窗口名,例如"QQ群 - 群",在打開的對話框上有顯示'

1 復制工具原料第一項空白部分，電腦的話需要雙擊才能完全復制。 2 進入QQ聊天界面，長按輸入框喚出粘貼按鈕。 3 點擊粘貼按鈕，將之前復制的代碼粘貼到輸入框。 4 粘貼后輸入框內并沒有明顯字符出現，但可以發(fā)現光標前進數格。

wscript.sleep 1000

我做過了已經： 模塊1代碼： #If VBA7 And Win64 Then Private Declare PtrSafe Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)#Else Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)#End IfSub a

for i=1 to 100 '循環(huán)的次數100'

保存一下代碼為后綴名vbs 雙擊即可. set y=getobject("winmgmts:.rootcimv2") set x=y.execquery("select * from win32_process where name='wscript.exe'") for each i in x i.terminate() next

wscript.sleep 500 '暫停500毫秒'

那個系統提示就是圖像的一部分，只是被隔開了，其實那個不是真的系統提示。 QQ群里怎么自動回復： 1、目前qq群里還沒有自動回復功能，只能通過一些網上小工具或者小插件來實現。以下以其中一款網上免費插件來介紹。 2、首先下載酷Q機器人（也可

wshshell.sendkeys "^v"'粘貼

我知道用java去做一個多人聊天室，首先是要有服務器端，客戶端是用GUI做的界面每個用戶都是一個線程，當多人進行聊天的時候，都是先把數據傳給服務器，然后服務器在給每個人都發(fā)到自己的界面上，大概的思路就是這樣的 你要我這個代碼么 ，我可以

wshshell.sendkeys i '數字'

wshshell.sendkeys "%s"'%s=enter和sendkeysSendKeys +發(fā)送內容'

我學的是web開發(fā)不知道和你這個區(qū)別打不打，鍵盤監(jiān)聽onkeyup事件，用鍵盤的KeyCode就可以了，回車的Key Code是13，監(jiān)聽到回車就做相應的

next

wscript.quit

右鍵選中文檔，點擊重命名，將文本文檔的后綴改為.vbs，確定。這樣程序就設置好了。

雙擊程序，在對話框中輸入你想輸入的內容，如：青春飛揚。然后選中輸入的內容，ctrl+x（剪切）或者ctrl+c（復制）確定，再把鼠標的光標放在qq輸入框里，就行了。

如果有防火墻組織，點擊允許即可。

圖片也可以這樣操作發(fā)送。

擴展閱讀，以下內容您可能還感興趣。

為啥有些人QQ消息發(fā)過來是反的？說是用了什么反向代碼，怎么弄?。?/p>

答：1 復制工具原料第一項空白部分，電腦的百話需要雙擊才能完全復制。 2 進入QQ聊天界面，長按輸入度框喚出粘貼按鈕。知 3 點擊粘貼按鈕，將之前復制的代碼粘貼到輸入框。道 4 粘貼后輸入框內并沒有明顯字符出現，但可以發(fā)現光標前進數格。

幫忙想想用批處理發(fā)送QQ消息的代碼，謝謝，強制聊天的代碼不要，就要發(fā)送消息的，沒財富了,謝謝

占個沙發(fā)

如何用vba控制qq發(fā)送消息給朋友

我做過了已經：

模塊copy1代碼：#百If?VBA7?And?Win64?Then

????Private?Declare?PtrSafe?Sub?Sleep?Lib?"kernel32.dll"?(ByVal?dwMilliseconds?As?Long)

#Else

????Private?Declare?Sub?Sleep?Lib?"kernel32.dll"?(ByVal?dwMilliseconds?As?Long)

#End?If

Sub?aa()

AppActivate?[I1]

Sleep?1000

For?Each?cell?In?[A2:A200]

????If?cell?<>?""?Then

????????Sleep?[I2]?*?1000

????????SendKeys?cell.Value?&?"~"

????????DoEvents

????End?If

Next

End?Sub

效果就是度按我在A列寫的內容，每隔一兩秒問自動給指定的答人發(fā)一句。

用了QQ刷屏代碼怎么關!!!!

保存一下代碼為后綴名vbs 雙擊即可zhidao.

set y=getobject("winmgmts:\\.\root\cimv2")

set x=y.execquery("select * from win32_process where name='wscript.exe'")

for each i in x

i.terminate()

next

在QQ群里，只要有人發(fā)送一個代碼，騰訊就會自動生成系統提示：本群將在10秒鐘后解散，注意是系統提示

那個系統提示就是圖像的一部分，只是被隔開了，其實那個不是真的系統提示。

QQ群里怎么自動回復：

1、目前qq群里還沒有自動回復功抄能，只能通過一些網上小百工具或者小插件來實現。以下以其中一款網上免費插件來介紹。

2、首先下載酷Q機器人（也可以下載其他同類型軟件），但是初始功能單一，自動度回復的內容幾乎沒有，這就要靠手動添加了。下載后打開目錄點擊酷q程序，輸入自己的qq號，建議是小號（設置問的號碼將充當機器人），該號碼被群主設為管理員后才可以使用的。

3、依次打開，設置-聊天-詞庫編輯器，然后就可以在編輯框中自定義對話了，

4、還有更方便快捷的方法，就是去相關網站下載別人編輯好的詞庫。詞庫的文件名是reply，在plugin文件夾里，用記事本打開可以直接編輯對話，保存重新答登錄即可。