Private Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos"(lpPoint As POINTAPI) As Long Private Type POINTAPI x As Long y As Long End Type Dim lpPoint As String Private Sub Form_Load() Timer1.Intrval = 55 End Sub Private Sub Timer1_Timer() GetCursorPos lpPoint If lpPoint.x = …… '不用我说了吧。 End Sub
也就是说单击开始按钮的时候弹出的是我的菜单而不是WINDOWS的开始菜单
建议用HOOK应该可以屏蔽掉(最方面的,我没试过).呵呵!有分吗?
谢谢
另外可以给我你的邮箱或OICQ吗?
Private Type POINTAPI
x As Long
y As Long
End Type
Dim lpPoint As String
Private Sub Form_Load()
Timer1.Intrval = 55
End Sub
Private Sub Timer1_Timer()
GetCursorPos lpPoint
If lpPoint.x = …… '不用我说了吧。
End Sub