被嫌弃松子的一生影评:SendMessage给另一个程序

来源:百度文库 编辑:偶看新闻 时间:2024/04/30 07:40:24
Private Const WM_LBUTTONDOWN = &H201Private Const WM_LBUTTONUP = &H202Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal Hwnd1 As Long, ByVal Hwnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Sub Form_Load()Shell "calc.exe", vbNormalNoFocusEnd SubPrivate Sub Command1_Click()Dim Hwnd1 As LongDim Hwnd2 As LongHwnd1 = FindWindow("SciCalc", "计算器")Hwnd2 = FindWindowEx(Hwnd1, 0, "Button", "1")SendMessage Hwnd2, WM_LBUTTONDOWN, ByVal 0&, ByVal 0&SendMessage Hwnd2, WM_LBUTTONUP, ByVal 0&, ByVal 0&End Sub