VB QQ消息发送器源码

QQ消息发送器源码

最好是把我之前的关于API函数的2个初级知识看一遍（当然高手跳过，这个文章也可以不用看，呵呵）。

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByValhwnd As Long, ByValwMsg As Long, ByValwParam As Long, lParam As Any) As Long

Private Declare Function GetWindow Lib "user32" (ByValhwnd As Long, ByValwCmd As Long) 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 GetWindowText Lib "user32" Alias "GetWindowTextA" (ByValhwnd As Long, ByVallpString As String, ByValcch As Long) As Long

Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByValhwnd As Long, ByVallpClassName As String, ByValnMaxCount As Long) As Long

Private Const BM_CLICK = &HF5 '消息模拟按钮事件

Private Const EM_REPLACESEL = &HC2

Private Const WM_SETTEXT = &HC '消息设置文本到编辑框中

Private Const GW_HWNDFIRST = 0 '找到与源窗口同级别的第一个窗口

Private Const GW_HWNDNEXT = 2'找到与源窗口同级别的下一个窗口

Dim Mainfrm_hwnd As Long'主窗口的句柄

Dim Mainfrmchild_hwnd As Long '主窗口孩子窗口句柄（类为#32770）

Dim Button_hwnd As Long'发送按钮的句柄

Dim Edit_hwnd As Long'编辑框的句柄

'得到qq发送对话框的句柄

Public Function Findmessagefrm_hwnd(hwnd As Long, name As String) As Long

Dim lpString As String * 256

Dim lpClassName As String * 256

'得到与本程序窗口同级别的Z序列第一个窗口句柄

Mainfrm_hwnd = GetWindow(hwnd, GW_HWNDFIRST)

While Mainfrm_hwnd<> 0

'得到窗口的标题

GetWindowTextMainfrm_hwnd, lpString, 255

'得到窗口的类名

GetClassNameMainfrm_hwnd, lpClassName, 255

If InStr(1, lpString, name) > 0 And InStr(1, lpClassName, "#32770") > 0 Then

Findmessagefrm_hwnd = Mainfrm_hwnd

Exit Function

End If

Mainfrm_hwnd = GetWindow(Mainfrm_hwnd, GW_HWNDNEXT)

Wend

Findmessagefrm_hwnd = Mainfrm_hwnd

End Function

'得到要向其写入文字的编辑框窗口的句柄

Public Function FindEdit_hwnd(hwnd As Long) As Long

'定义拥有Mainfrmchild_hwnd窗口的直系孩子窗口句柄

'这里我们要找的编辑框窗口是属于我们下面定义的句柄窗口的孩子

'实际上我们找的编辑框窗口的父窗口的类名是AfxWnd42

'在拥有Mainfrmchild_hwnd窗口的直系孩子窗口类名为AfxWnd42有四个

Dim Mainfrmchild_child_hwnd As Long

'得到编辑框的句柄

Dim Edithwnd As Long

'得到类为AfxWnd42的窗口句柄，因为我们要找的窗口就是该类窗口的孩子窗口

Mainfrmchild_child_hwnd = FindWindowEx(hwnd, 0, "AfxWnd42", vbNullString)

'得到类为AfxWnd42的窗口的孩子窗口句柄

'这时得到的句柄可能为0，不是我们要找的

Edithwnd = FindWindowEx(Mainfrmchild_child_hwnd, 0, "RichEdit20A", vbNullString)

While Edithwnd = 0

Mainfrmchild_child_hwnd = FindWindowEx(hwnd, Mainfrmchild_child_hwnd, "AfxWnd42", vbNullString) Edithwnd = FindWindowEx(Mainfrmchild_child_hwnd, 0, "RichEdit20A", vbNullString)

Wend

FindEdit_hwnd = Edithwnd

End Function

'得到发送按钮窗口的句柄

Public Function FindButton_hwnd(hwnd As Long) As Long

'发送按钮窗口是拥有Mainfrmchild_hwnd句柄窗口的孩子窗口FindButton_hwnd = FindWindowEx(hwnd, 0, "Button", "发送(S)")

End Function

Private Sub Cmdsend_Click() '发送信息

Dim Strflag As String

Strflag = "聊天中" '因为一个聊天窗口的标题

'得到qq发送对话框窗口的句柄

Mainfrm_hwnd = Findmessagefrm_hwnd(Me.hwnd, Strflag)

'得到qq发送对话框窗口的直系孩子窗口句柄

'qq聊天对话框窗口的直系子窗口只有四个，一个最小化按钮窗口，一个'最大化按钮窗口，一个关闭按钮窗口，最后一个就是我们要得到的对话'框窗口（和父窗口一样的类别），前面三个都是button类的

Mainfrmchild_hwnd = FindWindowEx(Mainfrm_hwnd, 0, "#32770", vbNullString)

'得到要向其写入文字的编辑框窗口的句柄

Edit_hwnd = FindEdit_hwnd(Mainfrmchild_hwnd)

'得到发送按钮窗口的句柄

Button_hwnd = FindButton_hwnd(Mainfrmchild_hwnd)

Timer1.Enabled = True

Timer1.Interval = Val(Trim(Text2.Text))

End Sub

Private Sub Cmdstop_Click()

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

SendMessageEdit_hwnd, EM_REPLACESEL, 0, ByVal Text1.Text SendMessageButton_hwnd, BM_CLICK, 0, ByVal 0&

End Sub

java视频播放器源代码

import java.awt.*; import java.io.*; import java.util.*; import javax.media.*; import javax.media.format.*; import javax.swing.*; public class VideoPlayer implements ControllerListener { Vector audioCapDevList = null; Vector videoCapDevList = null; CaptureDeviceInfo audioCapDevInfo = null; CaptureDeviceInfo videoCapDevInfo = null; MediaLocator audioCapDevLoc = null; MediaLocator videoCapDevLoc = null; Player audioPlayer; Player videoPlayer; public void initAudioCapDevLoc() { //这里可以填写其它的音频编码格式，具体请看AudioFormat类 audioCapDevList = CaptureDeviceManager.getDeviceList(new AudioFormat( AudioFormat.LINEAR)); if ((audioCapDevList.size() > 0)) { //或许有几个CaptureDevice,这里取第一个 audioCapDevInfo = (CaptureDeviceInfo) audioCapDevList.elementAt(0); audioCapDevLoc = audioCapDevInfo.getLocator(); } else { System.out.println("找不到音频采集设备"); System.exit(0); } } public void initVideoCapDevLoc() { //这里可以填写其它的编码视频格式，具体请看VideoFormat类 videoCapDevList = CaptureDeviceManager.getDeviceList(new VideoFormat( VideoFormat.YUV)); if ((videoCapDevList.size() > 0)) {

视频播放器通用代码

ASP视频播放器通用代码 1.avi格式 2.mpg格式