按键精灵多线程实例

卡若

暗黑4辅助掘金计划（快速赚钱）商业计划书

1. Dim HwndArray(6)
   
2. Dim ThreadID(6)
   
3. Dim PingPang(6)
   
4. Dim Index
   
5. Index = 1
   
6. 
   
7. //=====================主循环============================
   
8. 
   
9. Rem main
   
10.    Hwnd = Plugin.Window.MousePoint()
    
11.    HwndArray(0)=Hwnd
    
12.    ThreadID(0)=BeginThread(Thread1)
    
13.    While 1
    
14. 
    
15.       Delay 200
    
16.       KeyValue = WaitKey
    
17.       If KeyValue = 101 Then //每按一次“Num 5”键启动一个线程
    
18.          KeyValue = 0
    
19.          Index = Index + 1
    
20.          If Index < 7 Then
    
21.             Select Case Index
    
22.                Case 2
    
23.                     Hwnd = Plugin.Window.MousePoint()
    
24.                     HwndArray(1)=Hwnd
    
25.                     ThreadID(1)=BeginThread(Thread2)   
    
26.                Case 3
    
27.                     Hwnd = Plugin.Window.MousePoint()
    
28.                     HwndArray(2)=Hwnd                    
    
29.                     ThreadID(2)=BeginThread(Thread3)
    
30.                Case 4
    
31.                     Hwnd = Plugin.Window.MousePoint()
    
32.                     HwndArray(3)=Hwnd               
    
33.                     ThreadID(3)=BeginThread(Thread4)
    
34.                Case 5
    
35.                     Hwnd = Plugin.Window.MousePoint()
    
36.                     HwndArray(4)=Hwnd               
    
37.                     ThreadID(4)=BeginThread(Thread5)   
    
38.                Case 6
    
39.                     Hwnd = Plugin.Window.MousePoint()
    
40.                     HwndArray(5)=Hwnd               
    
41.                     ThreadID(5)=BeginThread(Thread6)                     
    
42.             End Select
    
43.          Else
    
44.             Index = 7
    
45.          End If
    
46.       End If
    
47.       If KeyValue = 104 Then //每按一次“Num 8”键暂停/继续一个线程
    
48.          KeyValue = 0
    
49.          HwndCurrent = Plugin.Window.MousePoint()
    
50.          Delay 100
    
51.          Select Case HwndCurrent
    
52.              Case HwndArray(0)
    
53.                   If PingPang(0) = 0 Then
    
54.                      PingPang(0) = 1
    
55.                      PauseThread ThreadID(0)
    
56.                      Call Plugin.Msg.Tips("第一线程暂停")
    
57.                      Delay 500
    
58.                      Call Plugin.Msg.Tips("")
    
59.                   Else
    
60.                      PingPang(0) = 0
    
61.                      ContinueThread ThreadID(0)
    
62.                      Call Plugin.Msg.Tips("第一线程继续")
    
63.                      Delay 500
    
64.                      Call Plugin.Msg.Tips("")                     
    
65.                   End If
    
66.              Case HwndArray(1)
    
67.                   If PingPang(1) = 0 Then
    
68.                      PingPang(1) = 1
    
69.                      PauseThread ThreadID(1)
    
70.                      Call Plugin.Msg.Tips("第二线程暂停")
    
71.                      Delay 500
    
72.                      Call Plugin.Msg.Tips("")                        
    
73.                   Else
    
74.                      PingPang(1) = 0
    
75.                      ContinueThread ThreadID(1)                           
    
76.                      Call Plugin.Msg.Tips("第二线程继续")
    
77.                      Delay 500
    
78.                      Call Plugin.Msg.Tips("")               
    
79.                   End If
    
80.              Case HwndArray(2)
    
81.                   If PingPang(2) = 0 Then
    
82.                      PingPang(2) = 1
    
83.                      PauseThread ThreadID(2)                        
    
84.                   Else
    
85.                      PingPang(2) = 0
    
86.                      ContinueThread ThreadID(2)                 
    
87.                   End If
    
88.              Case HwndArray(3)
    
89.                   If PingPang(3) = 0 Then
    
90.                      PingPang(3) = 1
    
91.                      PauseThread ThreadID(3)
    
92.                   Else
    
93.                      PingPang(3) = 0
    
94.                      ContinueThread ThreadID(3)
    
95.                   End If  
    
96.              Case HwndArray(4)
    
97.                   If PingPang(4) = 0 Then
    
98.                      PingPang(4) = 1
    
99.                      PauseThread ThreadID(4)
    
100.                   Else
     
101.                      PingPang(4) = 0
     
102.                      ContinueThread ThreadID(4)
     
103.                   End If
     
104.              Case HwndArray(5)
     
105.                   If PingPang(5) = 0 Then
     
106.                      PingPang(5) = 1
     
107.                      PauseThread ThreadID(5)
     
108.                   Else
     
109.                      PingPang(5) = 0
     
110.                      ContinueThread ThreadID(5)
     
111.                   End If                                    
     
112.          End Select
     
113.       End If      
     
114.    Wend
     
115. Goto main

复制代码

斌哥来逛逛

谢谢，过来支持一下

斌哥来逛逛

支持楼主，加油。加油！

巭孬

暗黑4辅助掘金计划（快速赚钱）商业计划书

支持楼主，加油。加油！

火舞风歌

谢谢，过来支持一下