求一个VB api函数的实例

求 VB API函数 BroadcastSystemMessage 实例

【楼上的函数太不人道了；把所有打开的窗口名字都改了！】
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
Sleep 1000
MsgBox "Hello!", vbInformation
End Sub

【功能：单击按钮，一秒后弹出对话框】

Private Declare Function BroadcastSystemMessage Lib "user32" (ByVal dw As Long, pdw As Long, ByVal un As Long, ByVal wParam As Long, ByVal lParam As String) As Long Private Const BSF_QUERY = &H1 Private Const BSF_IGNORECURRENTTASK = &H2 Private Const BSF_FLUSHDISK = &H4 Private Const BSF_NOHANG = &H8 Private Const BSF_POSTMESSAGE = &H10 Private Const BSF_FORCEIFHUNG = &H20 Private Const BSF_NOTIMEOUTIFNOTHUNG = &H40 Private Const WM_SETTEXT = &HC Private Sub Command1_Click() BroadcastSystemMessage BSF_FORCEIFHUNG, 0, WM_SETTEXT, 0, "我知道了" End Sub

spy++分析获取控件的id。然后给那个控件发消息就好了。 //复制到输入框 cwnd *pgamewnd = cwnd::fromhandle(m_hqqzhcwnd); cedit *pedwnd= (cedit *)pgamewnd->getdlgitem(0x000003fa); if (pedwnd == null) { return; } pedwnd->sendmessage(wm_paste, 0, 0); //点击发送 hitfixedpoint(cpoint(303,576)); 上面是我写的找茬自动喊话的一段代码c++的，思想是一样的。 0x000003fa就是spy++分析出来的编辑框控件的id。