742
社区成员
发帖
与我相关
我的任务
分享
Private Function SendClick(hwnd As Long, mX As Long, mY As Long)
'发送点击消息
Dim I As Long
I = PostMessage(hwnd, WM_LBUTTONDOWN, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
I = PostMessage(hwnd, WM_LBUTTONUP, 0, (mX And &HFFFF) + (mY And &HFFFF) * &H10000)
End Function
Command1_Click()
Command1_Click()
private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
private Const BM_CLICK = &HF5
Private Sub Timer1_Timer()
PostMessage Command1.hwnd , BM_CLICK, 0&, ByVal 0
End Sub
Option Explicit
Private Sub Command1_Click()
Text1 = Val(Text1) + 1
End Sub
Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Command1_Click
End Sub