VB activesocket

来源：百度知道 编辑：UC知道 时间：2024/05/12 12:16:18
在VB下连结Linux,使用Linux命令,这个软件如何使用
还有其他方法吗?
Activescoket软件

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Type POINTAPI
X As Long
Y As Long
End Type

Private Sub Form_Load()
Me.Move 0, 0
Command1.Caption = "按F9键"
Command2.Caption = "点击左键"
End Sub

Private Sub Command2_Click()
Sleep 1000 '停1秒
SetCursorPos 100, 100
mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFT