如何用vb給qq發(fā)送消息

可參考以下：

成都創(chuàng)新互聯(lián)公司從2013年開(kāi)始，是專(zhuān)業(yè)互聯(lián)網(wǎng)技術(shù)服務(wù)公司，擁有項(xiàng)目網(wǎng)站設(shè)計(jì)制作、成都網(wǎng)站制作網(wǎng)站策劃，項(xiàng)目實(shí)施與項(xiàng)目整合能力。我們以讓每一個(gè)夢(mèng)想脫穎而出為使命，1280元云龍做網(wǎng)站,已為上家服務(wù),為云龍各地企業(yè)和個(gè)人服務(wù),聯(lián)系電話:13518219792

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

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

Private Const WM_GETTEXT = HD

Private Const EM_REPLACESEL = HC2

Private Const BM_CLICK = HF5

Private Function GetWinText(ByVal WinHwnd As Long) As String

Dim lLen As Long

GetWinText = String(255, Chr(0))

lLen = SendMessage(WinHwnd, WM_GETTEXT, Len(GetWinText), ByVal GetWinText)

GetWinText = Left(GetWinText, lLen)

End Function

Private Sub Command1_Click()

On Error GoTo ErrorHandler

Dim HFindWnd As Long

Dim QQHwnd As Long, AHwnd As Long, THwnd As Long, RHwnd As Long

List1.Clear

Me.Caption = "正在獲取發(fā)送列表，請(qǐng)稍候..."

HFindWnd = FindWindowEx(0, 0, "#32770", vbNullString)

Do While HFindWnd 0

If InStr(GetWinText(HFindWnd), "聊天中") 0 Or InStr(GetWinText(HFindWnd), " － ") 0 Or InStr(GetWinText(HFindWnd), "群") 0 Or InStr(GetWinText(HFindWnd), "交談中") 0 Or InStr(GetWinText(HFindWnd), "正在輸入") 0 Or InStr(GetWinText(HFindWnd), " － ") 0 Then

List1.AddItem GetWinText(HFindWnd)

End If

HFindWnd = FindWindowEx(0, HFindWnd, "#32770", vbNullString)

DoEvents

Loop

If List1.ListCount = 0 Then

Me.Caption = "無(wú)法獲取QQ消息窗口列表"

Exit Sub

End If

Me.Caption = "獲取發(fā)送列表完成"

Sleep (500)

Me.Caption = "正在發(fā)送QQ消息，請(qǐng)稍候..."

For i = 0 To List1.ListCount - 1

List1.Selected(i) = True

QQHwnd = FindWindow("#32770", List1.Text)

Do

If QQHwnd = 0 Then

QQHwnd = FindWindow("#32770", List1.Text)

End If

AHwnd = FindWindowEx(QQHwnd, AHwnd, "AfxWnd42", vbNullString)

If AHwnd = 0 Then

QQHwnd = FindWindowEx(QQHwnd, 0, "#32770", vbNullString)

End If

THwnd = FindWindowEx(AHwnd, 0, "RichEdit20A", vbNullString)

DoEvents

Loop While THwnd = 0

Me.Caption = "正在發(fā)送第" i + 1 "個(gè)QQ消息窗口"

SendMessage THwnd, EM_REPLACESEL, 0, ByVal Text1.Text

RHwnd = FindWindowEx(QQHwnd, 0, "Button", "發(fā)送(S)")

SendMessage RHwnd, BM_CLICK, 0, 0

DoEvents

Sleep (500)

Next i

Me.Caption = "一共發(fā)送了" i "個(gè)QQ消息窗口"

List1.Clear

List1.AddItem ("已完成所有消息發(fā)送")

ErrorHandler:

End Sub

如何向?qū)Ψ絈Q發(fā)送信息？

點(diǎn)擊好友列表，找到需要發(fā)送消息的好友，右擊（或者連續(xù)點(diǎn)擊兩下），會(huì)有個(gè)對(duì)話框彈出來(lái)。在里面輸入你需要發(fā)送的話，點(diǎn)擊下面的發(fā)送。即可。謝謝

如何給qq聊天窗口發(fā)消息

那是因?yàn)槟惆l(fā)消息的模式設(shè)置問(wèn)題，解決方法：

在發(fā)送消息前，先點(diǎn)擊“發(fā)送”旁邊的下拉箭頭，把“消息模式”取消了就ok了

QQ怎么群發(fā)消息？QQ群發(fā)信息方法簡(jiǎn)介

不要協(xié)議利用現(xiàn)有PC端的QQ，采用模擬方式進(jìn)行發(fā)送，感覺(jué)很靠譜是吧，那就趕緊行動(dòng)起來(lái)，模擬咱不會(huì)呀，先搜搜：

1、按鍵精靈，好像逼格很高，很強(qiáng)大呀，下載下來(lái)，搞起，我勒個(gè)去完全擺不平呀，不會(huì)寫(xiě)這貨的腳本，我不能一直對(duì)著一個(gè)人發(fā)吧，基本放棄

2、易語(yǔ)言，好像不錯(cuò)，啥都可以操作，決定就他了，準(zhǔn)備開(kāi)始搞了。。。突然還想試試是不是有跟更簡(jiǎn)單點(diǎn)的，好吧，暫時(shí)先緩緩，實(shí)在找不到了，就這貨

3、各種找：蝴蝶鍵盤(pán)鼠標(biāo)錄制精靈，鍵盤(pán)鼠標(biāo)錄制精靈，Auto Key Press。。。全部放棄

4、回光返照：VBS，終于發(fā)現(xiàn)簡(jiǎn)單的了，我會(huì)呀，這貨半小時(shí)基本就撿起來(lái)了，終于可以模擬了，說(shuō)說(shuō)模擬步驟，先使用快捷鍵方式：

先打開(kāi)qq，把qq登錄上去，自己設(shè)置qq窗口打開(kāi)的快捷鍵，默認(rèn)為：ctrl+alt+z，設(shè)置qq發(fā) 送消息默認(rèn)為按enter鍵，消息窗口設(shè)置為不合并，主面板在桌面邊緣不自動(dòng)隱藏，差不多 設(shè)置這些就行了

編寫(xiě)VBS腳本，實(shí)現(xiàn)發(fā)送，具體細(xì)節(jié)如下：

a）發(fā)送快捷鍵ctrl+alt+z，打開(kāi)qq主面板

b）發(fā)送快捷鍵，2次esc，進(jìn)入qq主面板的搜索欄，此步操作很重要

c）發(fā)送內(nèi)容：想發(fā)給誰(shuí)（QQ號(hào)碼，或者QQ昵稱，備注姓名都可以），確保搜索出來(lái)在 第一 位

d）發(fā)送快捷鍵，enter（回車(chē)鍵），打開(kāi)消息框

e）發(fā)送內(nèi)容：具體需要發(fā)送的內(nèi)容

f）發(fā)送快捷鍵，enter（回車(chē)鍵），發(fā)送消息完成

g）發(fā)送快捷鍵，alt+f4，關(guān)閉消息窗口

h）發(fā)送快捷鍵，ctrl+alt+z，關(guān)閉qq窗口主面板

注意：每次發(fā)送快捷期間需要有短暫休眠，防止界面響應(yīng)不及時(shí)導(dǎo)致出現(xiàn)意外

5、錦上添花：autoit，此貨跟vbs差不多，但是功能卻強(qiáng)大很多，細(xì)節(jié)不多說(shuō)，參考api即可，處理圖片都不在話下，我發(fā)送圖片的功能也是由此貨實(shí)現(xiàn)，確實(shí)很好，推薦大家使用，具體發(fā)送細(xì)節(jié)可參考VBS的發(fā)送步驟

至此發(fā)送qq消息流程結(jié)束，消息如愿收到，沒(méi)有問(wèn)題，寫(xiě)個(gè)測(cè)試代碼，一直發(fā)送，穩(wěn)定跑完一個(gè)星期，靠譜了?。?！

部署方式：

云主機(jī)，windows系統(tǒng)，QQ先下載并登錄，采用遠(yuǎn)程桌面登錄云主機(jī)啟動(dòng)程序，正常發(fā)送后，斷開(kāi)遠(yuǎn)程主機(jī)，發(fā)現(xiàn)不發(fā)送了，因?yàn)榭旖萱I處理當(dāng)前用戶被斷開(kāi)后就沒(méi)辦法干活了，不過(guò)沒(méi)關(guān)系，可以采用軟件解決：向日葵，非哈遠(yuǎn)程桌面（強(qiáng)烈推薦），通過(guò)windows登錄云服務(wù)器，新建1個(gè)用戶，打開(kāi)非哈遠(yuǎn)程桌面，連接自己的云服務(wù)器，通過(guò)新建用戶登錄，在新用戶下登錄QQ，運(yùn)行程序即可，斷開(kāi)時(shí)只斷開(kāi)通過(guò)windows遠(yuǎn)程的主機(jī)，非哈遠(yuǎn)程桌面不要斷開(kāi)即可

優(yōu)勢(shì)：

穩(wěn)定，基本不漏消息，騰訊中招策略被封很少，適用于消息量不大，沒(méi)有并發(fā)的場(chǎng)景

劣勢(shì)：

發(fā)送單條消息較慢（5-6S，實(shí)際上此種方式發(fā)送，更能模擬人工發(fā)送的時(shí)間間隔，不易中策略），不能并發(fā)（鍵盤(pán)操作，可以利用非哈遠(yuǎn)程開(kāi)多個(gè)窗口實(shí)現(xiàn)少量并發(fā)），必須為windows主機(jī)

總結(jié)：

利用模擬操作可以繞過(guò)接口的限制，且不易中招騰訊策略，適用于少消息量的發(fā)送，并可以通過(guò)此方式舉一反三，微信發(fā)送，發(fā)送微博，都可以實(shí)現(xiàn)，不管接口如何變動(dòng)，此種方式可以不變應(yīng)萬(wàn)變，哈哈?。?！

=====================================================================

看我寫(xiě)了這么多，打個(gè)廣告，正在利用此種方式發(fā)送信息的群，群內(nèi)還是有很多小商品值得購(gòu)買(mǎi)的，自動(dòng)采集，自動(dòng)發(fā)送。。。群號(hào)：468199592，加群鏈接：二維碼頁(yè)面，可以進(jìn)群看看實(shí)際發(fā)送效果

在電腦上QQ怎樣用鍵盤(pán)發(fā)送消息

1、電腦登錄QQ。

2、登錄QQ之后，打開(kāi)聊天界面，打開(kāi)聊天界面后，點(diǎn)擊發(fā)送中的下拉圖標(biāo)。

3、點(diǎn)擊發(fā)送下拉圖標(biāo)后，可以選擇Enter鍵或者Ctrl+Enter鍵發(fā)送信息。

4、設(shè)置好之后，輸入聊天信息。

5、輸入聊天信息后，按Enter鍵就可以發(fā)送信息了。