老坑爹游戏辅助 - 专注自动化变现

标题: 按键精灵多线程实例 [打印本页]
作者: 卡若    时间: 2013-12-25 21:58
标题: 按键精灵多线程实例
  1. Dim HwndArray(6)
  2. Dim ThreadID(6)
  3. Dim PingPang(6)
  4. Dim Index
  5. Index = 1

  7. //=====================主循环============================

  9. Rem main
  10.    Hwnd = Plugin.Window.MousePoint()
  11.    HwndArray(0)=Hwnd
  12.    ThreadID(0)=BeginThread(Thread1)
  13.    While 1

  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
复制代码
作者: 斌哥来逛逛    时间: 2016-3-5 04:35
谢谢，过来支持一下
作者: 斌哥来逛逛    时间: 2016-3-6 18:38
支持楼主，加油。加油！
作者: 巭孬    时间: 2016-3-7 16:23
支持楼主，加油。加油！
作者: 火舞风歌    时间: 2016-3-8 03:10
谢谢，过来支持一下



欢迎光临 老坑爹游戏辅助 - 专注自动化变现 (http://www.lkdie.com/) Powered by Discuz! X3.2