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ā)送的內(nèi)容 然后運(yùn)行腳本 光標(biāo)反正發(fā)送對(duì)象的輸

操作方法

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

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

點(diǎn)擊我的電腦，再點(diǎn)擊查看按鈕，將文件擴(kuò)展名勾選上，可以看到之前新建的文本文檔的后綴顯示出來(lái)了。

?就是這個(gè)空格了我的字就是反的，復(fù)制最前邊的空格就是代碼?

填寫(xiě)無(wú)數(shù)字的代碼。在.txt中填寫(xiě)，代碼如下：（如圖）沒(méi)有數(shù)字的，顯示發(fā)送了多少次：

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

dim wshshell,a

3/6 分步閱讀 首先我們 在電腦上登錄QQ 2/6 打開(kāi)QQ主頁(yè)，點(diǎn)擊下圖箭頭所指的圖標(biāo) 3/6 然后點(diǎn)擊【設(shè)置】 4/6 然后自愛(ài)“系統(tǒng)設(shè)置”的窗口中選擇【熱鍵】 5/6 接著點(diǎn)擊【設(shè)置熱鍵】 6/6 最后在新彈出的窗口最底端選擇【按En

set wshshell=createobject("wscript.shell")

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

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

你好。現(xiàn)在手機(jī)QQ是可以使用的。 xx撤回了一條消息并親了你一下，該方法真實(shí)有效。 設(shè)置方法已經(jīng)在這個(gè)經(jīng)驗(yàn)中，有詳細(xì)的方法及工具。 手機(jī)用經(jīng)驗(yàn)中的第二種方法在線(xiàn)生成。電腦的也可以或者下載工具下來(lái)，在網(wǎng)盤(pán)。 這個(gè)顯示只在手機(jī)上顯示有效，

WshShell.AppActivate "" '當(dāng)前激活的聊天窗口名,例如"QQ群 - 群",在打開(kāi)的對(duì)話(huà)框上有顯示'

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

wscript.sleep 1000

我做過(guò)了已經(jīng)： 模塊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)的次數(shù)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毫秒'

那個(gè)系統(tǒng)提示就是圖像的一部分，只是被隔開(kāi)了，其實(shí)那個(gè)不是真的系統(tǒng)提示。 QQ群里怎么自動(dòng)回復(fù)： 1、目前qq群里還沒(méi)有自動(dòng)回復(fù)功能，只能通過(guò)一些網(wǎng)上小工具或者小插件來(lái)實(shí)現(xiàn)。以下以其中一款網(wǎng)上免費(fèi)插件來(lái)介紹。 2、首先下載酷Q機(jī)器人（也可

wshshell.sendkeys "^v"'粘貼

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

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

我學(xué)的是web開(kāi)發(fā)不知道和你這個(gè)區(qū)別打不打，鍵盤(pán)監(jiān)聽(tīng)onkeyup事件，用鍵盤(pán)的KeyCode就可以了，回車(chē)的Key Code是13，監(jiān)聽(tīng)到回車(chē)就做相應(yīng)的

next

wscript.quit

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

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

QQ可不是基于局域網(wǎng)內(nèi)部的聊天工具哈，實(shí)現(xiàn)QQ還是不簡(jiǎn)單的。 你應(yīng)該指的飛鴿傳輸這種，你好歹留個(gè)郵箱，我發(fā)給你。

dim wshshell,a

3/6 分步閱讀 首先我們 在電腦上登錄QQ 2/6 打開(kāi)QQ主頁(yè)，點(diǎn)擊下圖箭頭所指的圖標(biāo) 3/6 然后點(diǎn)擊【設(shè)置】 4/6 然后自愛(ài)“系統(tǒng)設(shè)置”的窗口中選擇【熱鍵】 5/6 接著點(diǎn)擊【設(shè)置熱鍵】 6/6 最后在新彈出的窗口最底端選擇【按En

set wshshell=createobject("wscript.shell")

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

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

你好。現(xiàn)在手機(jī)QQ是可以使用的。 xx撤回了一條消息并親了你一下，該方法真實(shí)有效。 設(shè)置方法已經(jīng)在這個(gè)經(jīng)驗(yàn)中，有詳細(xì)的方法及工具。 手機(jī)用經(jīng)驗(yàn)中的第二種方法在線(xiàn)生成。電腦的也可以或者下載工具下來(lái)，在網(wǎng)盤(pán)。 這個(gè)顯示只在手機(jī)上顯示有效，

WshShell.AppActivate "" '當(dāng)前激活的聊天窗口名,例如"QQ群 - 群",在打開(kāi)的對(duì)話(huà)框上有顯示'

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

wscript.sleep 1000

我做過(guò)了已經(jīng)： 模塊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)的次數(shù)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毫秒'

那個(gè)系統(tǒng)提示就是圖像的一部分，只是被隔開(kāi)了，其實(shí)那個(gè)不是真的系統(tǒng)提示。 QQ群里怎么自動(dòng)回復(fù)： 1、目前qq群里還沒(méi)有自動(dòng)回復(fù)功能，只能通過(guò)一些網(wǎng)上小工具或者小插件來(lái)實(shí)現(xiàn)。以下以其中一款網(wǎng)上免費(fèi)插件來(lái)介紹。 2、首先下載酷Q機(jī)器人（也可

wshshell.sendkeys "^v"'粘貼

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

wshshell.sendkeys i '數(shù)字'

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

我學(xué)的是web開(kāi)發(fā)不知道和你這個(gè)區(qū)別打不打，鍵盤(pán)監(jiān)聽(tīng)onkeyup事件，用鍵盤(pán)的KeyCode就可以了，回車(chē)的Key Code是13，監(jiān)聽(tīng)到回車(chē)就做相應(yīng)的

next

wscript.quit

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

雙擊程序，在對(duì)話(huà)框中輸入你想輸入的內(nèi)容，如：青春飛揚(yáng)。然后選中輸入的內(nèi)容，ctrl+x（剪切）或者ctrl+c（復(fù)制）確定，再把鼠標(biāo)的光標(biāo)放在qq輸入框里，就行了。

如果有防火墻組織，點(diǎn)擊允許即可。

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

擴(kuò)展閱讀，以下內(nèi)容您可能還感興趣。

為啥有些人QQ消息發(fā)過(guò)來(lái)是反的？說(shuō)是用了什么反向代碼，怎么弄啊？

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

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

占個(gè)沙發(fā)

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

我做過(guò)了已經(jīng)：

模塊copy1代碼：#百I(mǎi)f?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列寫(xiě)的內(nèi)容，每隔一兩秒問(wèn)自動(dòng)給指定的答人發(fā)一句。

用了QQ刷屏代碼怎么關(guān)!!!!

保存一下代碼為后綴名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ā)送一個(gè)代碼，騰訊就會(huì)自動(dòng)生成系統(tǒng)提示：本群將在10秒鐘后解散，注意是系統(tǒng)提示

那個(gè)系統(tǒng)提示就是圖像的一部分，只是被隔開(kāi)了，其實(shí)那個(gè)不是真的系統(tǒng)提示。

QQ群里怎么自動(dòng)回復(fù)：

1、目前qq群里還沒(méi)有自動(dòng)回復(fù)功抄能，只能通過(guò)一些網(wǎng)上小百工具或者小插件來(lái)實(shí)現(xiàn)。以下以其中一款網(wǎng)上免費(fèi)插件來(lái)介紹。

2、首先下載酷Q機(jī)器人（也可以下載其他同類(lèi)型軟件），但是初始功能單一，自動(dòng)度回復(fù)的內(nèi)容幾乎沒(méi)有，這就要靠手動(dòng)添加了。下載后打開(kāi)目錄點(diǎn)擊酷q程序，輸入自己的qq號(hào)，建議是小號(hào)（設(shè)置問(wèn)的號(hào)碼將充當(dāng)機(jī)器人），該號(hào)碼被群主設(shè)為管理員后才可以使用的。

3、依次打開(kāi)，設(shè)置-聊天-詞庫(kù)編輯器，然后就可以在編輯框中自定義對(duì)話(huà)了，

4、還有更方便快捷的方法，就是去相關(guān)網(wǎng)站下載別人編輯好的詞庫(kù)。詞庫(kù)的文件名是reply，在plugin文件夾里，用記事本打開(kāi)可以直接編輯對(duì)話(huà)，保存重新答登錄即可。