最近结帖率极低，估计都是所谓的大学生搞所谓的毕业设计

Question

准备所以休息几天。

Answer 1

Option ExplicitPrivate Const WM_LBUTTONDBLCLK = &H203
Private Const MK_LBUTTON = &H1
Private Const WM_LBUTTONDOWN = &H201
Private Const WM_LBUTTONUP = &H202Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Sub Command1_Click()
Dim xy As Long, IEHwnd As Long
IEHwnd = &H260292
xy = 65536 * 103& + 120& '这是鼠标坐标
'PostMessage IEHwnd, WM_LBUTTONDBLCLK, MK_LBUTTON, ByVal xy
PostMessage IEHwnd, WM_LBUTTONDOWN, MK_LBUTTON, ByVal xy
PostMessage IEHwnd, WM_LBUTTONUP, MK_LBUTTON, ByVal xy
End Sub

Answer 2

也不完全是，他在Windows版也在，有的贴有意思。
每个人是不一样的，所以这个世界才如此美丽。