수다닷컴

제가 오른쪽 왼쪽 오토 마우스를 만들었는데 왼쪽은 되는데 오른쪽이 안되네요;잘못된 부분이나 넣이 않은부분점 수정해주세요Private Declare Function GetAsyncKeyState Lib user32 (ByVal vKey As Long) As Integer
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 Const mouseeventf_leftdown = &H2
Private Const mouseeventf_leftup = &H4Private Sub HScroll1_Change()
Label1.Caption = HScroll1.Value
End Sub
Private Sub HScroll2_Change()
Label4.Caption = HScroll2.Value
End SubPrivate Sub mnuExit_Click()
Unload Me
End Sub
Private Sub RichTextBox1_Change()End SubPrivate Sub Timer1_Timer()
If GetAsyncKeyState(189) Then
If Timer2.Enabled Then
Timer2.Enabled = False
MsgBox 마우스가 현재 실행중 입니다., vbInformation, 알림
MsgBox 다시 실행해 주십시오, vbInformation, 알림

Else
Timer2.Interval = HScroll1.Value
Timer2.Enabled = True
End If

ElseIf GetAsyncKeyState(187) Then
If Timer2.Enabled Then
Timer2.Enabled = False
Else
MsgBox 현재 실행중이 아닙니다., vbInformation, 알림
End If
End If
End SubPrivate Sub Timer2_Timer()
mouse_event mouseeventf_leftdown, 0, 0, 0, 0
mouse_event mouseeventf_leftup, 0, 0, 0, 0
End SubPrivate Sub 설정_Click()End SubPrivate Sub Timer3_Timer()
If GetAsyncKeyState(45) Then
If Timer4.Enabled Then
Timer4.Enabled = False
MsgBox 마우스가 현재 실행중 입니다., vbInformation, 알림
MsgBox 다시 실행해 주십시오, vbInformation, 알림

Else
Timer4.Interval = HScroll1.Value
Timer4.Enabled = True
End If

ElseIf GetAsyncKeyState(6) Then
If Timer4.Enabled Then
Timer4.Enabled = False
Else
MsgBox 현재 실행중이 아닙니다., vbInformation, 알림
End If
End If
End SubPrivate Sub Timer4_Timer()
mouse_event mouseeventf_rightdown, 0, 0, 0, 0
mouse_event mouseeventf_rightup, 0, 0, 0, 0
End Sub

신청하기