冰楓論壇

標題: VB6LOL自動喊路問題 [打印本頁]

---

作者: xc522313    時間: 2015-12-21 20:02
標題: 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
嚴格來說應該會停下來才對

1. Private Sub Check1_Click()
   
2. Timer1.Enabled = Check1.Value
   
3. End Sub
   
4. Private Sub Timer1_Timer()
   
5. SendKeys "top{Enter}"
   
6. End Sub
   
7. Private Sub Check2_Click()
   
8. Timer2.Enabled = Check2.Value
   
9. End Sub
   
10. Private Sub Timer2_Timer()
    
11. SendKeys "mid{Enter}"
    
12. End Sub
    
13. Private Sub Check3_Click()
    
14. Timer3.Enabled = Check3.Value
    
15. End Sub
    
16. Private Sub Timer3_Timer()
    
17. SendKeys "jg{Enter}"
    
18. End Sub
    
19. Private Sub Check4_Click()
    
20. Timer4.Enabled = Check4.Value
    
21. End Sub
    
22. Private Sub Timer4_Timer()
    
23. SendKeys "ad{Enter}"
    
24. End Sub
    
25. Private Sub Check5_Click()
    
26. Timer5.Enabled = Check5.Value
    
27. End Sub
    
28. Private Sub Timer5_Timer()
    
29. SendKeys "sup{Enter}"
    
30. End Sub
    

複製代碼

---

作者: aaa0986555377    時間: 2015-12-24 20:26
可能你全部都寫成check1了要不要檢查一下

---

歡迎光臨 冰楓論壇 (https://bingfong.com/)

Powered by 冰楓