xc522313 發表於 2015-12-21 20:02:16

VB6LOL自動喊路問題

Private Sub Check1_Click()
If Check1.Value = 1 Then
            Timer1.Enabled = True '如果打勾起動timer1
        End If
        If Check1.Value = 0 Then
            Timer1.Enabled = False  '如果取消打勾關閉timer1
            End If
End Sub
Private Sub Timer1_Timer()
SendKeys "top{Enter}"
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
            Timer2.Enabled = True '如果打勾起動timer1
        End If
        If Check2.Value = 0 Then
            Timer2.Enabled = False  '如果取消打勾關閉timer1
            End If
End Sub
Private Sub Timer2_Timer()
SendKeys "mid{Enter}"
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
            Timer3.Enabled = True '如果打勾起動timer1
        End If
        If Check3.Value = 0 Then
            Timer3.Enabled = False  '如果取消打勾關閉timer1
            End If
End Sub
Private Sub Timer3_Timer()
SendKeys "jg{Enter}"
End Sub
Private Sub Check4_Click()
If Check4.Value = 1 Then
            Timer4.Enabled = True '如果打勾起動timer1
        End If
        If Check4.Value = 0 Then
            Timer4.Enabled = False  '如果取消打勾關閉timer1
            End If
End Sub
Private Sub Timer4_Timer()
SendKeys "ad{Enter}"
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then
            Timer5.Enabled = True '如果打勾起動timer1
        End If
        If Check5.Value = 0 Then
            Timer5.Enabled = False  '如果取消打勾關閉timer1
            End If
End Sub
Private Sub Timer5_Timer()
SendKeys "sup{Enter}"
End Sub


這些程式碼是我看板上的某一帖 然後增加了幾個而已 我按下Check1的時候我只設定TOP(Enter}可是她就會打出TOP MID AD SUP JG 一直從複打 也會按ENTER

還有我勾勾取消後她還會繼續大 步之有哪位大神能幫助我一夏我身上現在沒錢 只求有心人 拜託了VB才學2個禮拜而已

YuYanix 發表於 2015-12-21 22:26:00

嚴格來說應該會停下來才對Private Sub Check1_Click()
Timer1.Enabled = Check1.Value
End Sub
Private Sub Timer1_Timer()
SendKeys "top{Enter}"
End Sub
Private Sub Check2_Click()
Timer2.Enabled = Check2.Value
End Sub
Private Sub Timer2_Timer()
SendKeys "mid{Enter}"
End Sub
Private Sub Check3_Click()
Timer3.Enabled = Check3.Value
End Sub
Private Sub Timer3_Timer()
SendKeys "jg{Enter}"
End Sub
Private Sub Check4_Click()
Timer4.Enabled = Check4.Value
End Sub
Private Sub Timer4_Timer()
SendKeys "ad{Enter}"
End Sub
Private Sub Check5_Click()
Timer5.Enabled = Check5.Value
End Sub
Private Sub Timer5_Timer()
SendKeys "sup{Enter}"
End Sub

aaa0986555377 發表於 2015-12-24 20:26:19

可能你全部都寫成check1了要不要檢查一下
頁: [1]
查看完整版本: VB6LOL自動喊路問題