代码实现qq消息发送（代码发送）

本篇文章给大家谈谈代码实现qq消息发送，以及代码发送对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、讲文件拖到qq发送,代码是怎么实现的
• 2、如何用vb给qq发送消息
• 3、如何用vba控制qq发送消息给朋友
• 4、VBS代码QQ群自动发消息
• 5、qq定时发送消息软件

讲文件拖到qq发送,代码是怎么实现的

讲文件拖到qq发送,代码是实现的在win8系统下用来装扮空间的，主要是为不愿花费金钱在装扮空间上的用户，因此大多都是免费的，少部分是黄钻专用的。将代码复制后粘贴到地址栏里，回车，看到装扮后保存就行了。

发送文件的手机QQ开启系统的wifi热点功能，并监听一个固定端口，接收文件的QQ连接wifi热点，连接对应的端口判断是不是手机QQ打开的并使用相关协议进行连接，如果确认就接收文件，发送文件的QQ确认有连接过来的QQ就发送文件。

目录：

目录文件是长度固定的记录式文件。大多数操作系统如UNIX，DOS采用多级目录机构 ，称为树型目录结构。 从根目录出发到任一非叶结点或树页结点都有且只有一条路径。系统为用户提供一个目前使用的工作目录，称为当前目录。

目录分解法：将目录项分为：名号目录项，基本目录项。 目录文件也分为名号目录文件和基本目录文件。 文件存取控制通过文件的共享，保护和保密三方面体现。 文件的共享是一个文件可以允许多个用户共同使用。

如何用vb给qq发送消息

可参考以下：

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 = "正在获取发送列表，请稍候..."

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 = "无法获取QQ消息窗口列表"

Exit Sub

End If

Me.Caption = "获取发送列表完成"

Sleep (500)

Me.Caption = "正在发送QQ消息，请稍候..."

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 = "正在发送第" i + 1 "个QQ消息窗口"

SendMessage THwnd, EM_REPLACESEL, 0, ByVal Text1.Text

RHwnd = FindWindowEx(QQHwnd, 0, "Button", "发送(S)")

SendMessage RHwnd, BM_CLICK, 0, 0

DoEvents

Sleep (500)

Next i

Me.Caption = "一共发送了" i "个QQ消息窗口"

List1.Clear

List1.AddItem ("已完成所有消息发送")

ErrorHandler:

End Sub

如何用vba控制qq发送消息给朋友

我做过了已经：

模块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 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列写的内容，每隔一两秒自动给指定的人发一句。

VBS代码QQ群自动发消息

dim content,t,times

content=inputbox("内容:","content")

t=int(inputbox("间隔时间:","time"))

times=int(inputbox("次数:","times"))

msgbox"确定此对话框后2秒内将光标移至QQ发送框中"chr(10)chr(13)"在程序未提示发送完毕前不要对计算机进行一切操作，否则后果自负！！",64,"提示"

WScript.Sleep (2500)

for main=1 to times

Set wscrip=CreateObject("Wscript.Shell")

wscrip.sendkeys content"{enter}"

WScript.sleep t

next

msgbox"发送完毕",64,"提示"

楼上代码有误，以更正。现在可以了

实测，现在真的可以了

qq定时发送消息软件

当然QQ本身没有定时向好友发信息的功能，但是我发现用定时提醒消息也能代替这个功能。

我们开启运行手机QQ软件，然后找到需要发送QQ消息提醒的好友。 并打开与好友的聊天窗口界面，点击“+”按钮。 并在接下来出现的界面中，找到“提醒”功能选项，并点击该选项。 然后在这里就可以输入消息提醒内容了，然后设置好提醒的时间，最后点击“创建”。 也许在设置的时间到了之后，好友就会收到对应的QQ消息提示了vbs脚本可以实现qq发送，原理是发送联系人到桌面，然后用vbs直接调用桌面快捷方式打开聊天窗口发送消息关闭窗口，然后把这个vbs脚本添加到系统的自动调度，按你需要的时间进行调度，当然你也可以把定时写进vbs，让这个脚本常驻运行，就不用了添加到调度，或者添加为开机自动执行。

首先，你需要建一个文档，把你要发送的内容写入文档，然后保存为txt，发送快捷方式到桌面。找到这个快捷方式，右键，属性，复制目标里边的内容，我在这里称它为A。

然后把你要发消息的人发送快捷方式到桌面，也复制目标里边的内容。我们称它为B

新建一个txt文档，

Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run "A"

WScript.Sleep 1000

WshShell.SendKeys "^a"

WScript.Sleep 1000

WshShell.SendKeys "^c"

WScript.Sleep 1000

WshShell.sendKeys "%{F4}"

WScript.Sleep 1500

WshShell.Run "B"

WScript.Sleep 1500

WshShell.sendKeys "^v"

WshShell.sendKeys "{ENTER}"

WScript.Sleep 1500

WshShell.sendKeys "%{F4}"

用上边复制的AB路径代替代码里的A B ，保存，重命名，将后缀名改为vbs。手动运行查看效果。当然，脚本运行时qq需要在线，不能在脚本执行打开窗口的一系列操作时操作键盘，不能切换窗口等。WScript.Sleep 1000是一个延时，可以根据自己的电脑适度调小。如果你要给多个人发消息的话，复制第十行以及以后的代码，粘贴多份在后边，并将B替换为不同联系人的桌面快捷方式。如果效果没问题，就可以把这个脚本加入系统的自动调度，定时执行啦。

实测，发送一次之后桌面联系人快捷方式可以删除，保存发送内容的文本快捷方式不可删除。

微信由于没找到怎么发送联系人到桌面还在研究其他替代方案。

网上down了一段代码，发现可以发送微信消息

Dim Name,Msg

Name= "微信团队"

Msg = "Hellow！"

set ws=wscript.createobject("wscript.shell")

Welcome! "mshta vbscript:ClipboardData.SetData("chr(34)"text"chr(34)"," Chr(34) NameChr(34) ")(close)",0,True

ws.sendKeys "^%w"

ws.appactivate "微信"

wscript.sleep 500

ws.sendKeys "^f"

wscript.sleep 500

ws.sendKeys "^v"

wscript.sleep 500

ws.sendKeys "{ENTER}"

wscript.sleep 200

ws.sendKeys "{TAB}"

wscript.sleep 200

ws.sendKeys "{ENTER}"

Welcome! "mshta vbscript:ClipboardData.SetData("chr(34)"text"chr(34)"," Chr(34) Msg Chr(34) ")(close)",0,True

wscript.sleep 200

ws.sendKeys "^v"

wscript.sleep 300

ws.sendKeys "{ENTER}"

ws.sendKeys "%{F4}"

name是你要发的人的名字，msg是发送内容QQ自动定时发送消息（微信暂时没有好的办法），可以通过以下代码实现，有人已经给出来了但有些细节没说清楚容易导致不一定能正常运行，我这里做些补充。

1、建立一个txt文档、里面写上需要发送的消息内容，复制这个文件所在路径

2、对目标好友生成桌面快捷方式（对好友头像点右键、在好友管理选项下），查看快捷方式的属性并复制其“目标”栏的所有内容。

3、建立另一个txt文档、复制粘贴下面的脚本代码，然后重命名这个文档、将txt后缀修改为vbs，将前两步当中复制下的内容粘贴进脚本当中对应位置。

4、在任务计划当中建立定时任务、运行制作的vbs脚本文件。

需要注意的地方：

1、QQ的安装目录通常默认是在 C盘的Program Files (x86)文件夹下，这个文件夹的名称中间带有空格，所以直接复制QQ好友快捷方式的目标内容粘贴到脚本里，通常都会导致运行错误，所以最简单的办法是重新安装QQ，选择一个自定义的、名称简单的目录（避免有空格、特殊符号、中文之类的情况）。至于针对空格符应该可以有特别的表达语法以保证VBS脚本正常运行，我没研究过，相信精通VBS脚本的大神应该知道，欢迎指出。

2、QQ发送消息的快捷键，有些人使用的是回车键、有些人可能设置的是ctrl加回车，所以在脚本倒数第三行，可以根据自己需要来设置：如果是ctrl加回车，那么脚本就修改成WshShell.sendKeys "^{ENTER}"

3、脚本运行需要保持QQ处于登录状态，如果发送消息之后并不需要关闭对话框，可以把最后两行脚本删除。

4、如果电脑安装了安全卫士、杀软之类的，在运行脚本的时候可能会被阻止，所以建议在设置计划任务前先把脚本添加进安全软件的白名单。

5、电脑系统需要处于登录状态，不能锁屏。

Dim WshShell

Set WshShell=WScript.CreateObject("WScript.Shell")

WshShell.Run "消息内容文本文档所在路径"

WScript.Sleep 1000

WshShell.SendKeys "^a"

WScript.Sleep 1000

WshShell.SendKeys "^c"

WScript.Sleep 1000

WshShell.sendKeys "%{F4}"

WScript.Sleep 1500

WshShell.Run "QQ好友桌面快捷方式目标栏内容"

WScript.Sleep 1500

WshShell.sendKeys "^v"

WshShell.sendKeys "{ENTER}"

WScript.Sleep 1500

WshShell.sendKeys "%{F4}"

代码实现qq消息发送的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于代码发送、代码实现qq消息发送的信息别忘了在本站进行查找喔。