你的位置：
求高手大神教小白
12:42:07 |
来源: 按键精灵资源站
Dim 线程ID(100)
Dim hwndEx(100)
Dim 句柄(100)
set dm = createobject(&dm.dmsoft&)
& & Key=WaitKey()
& & If Key = 118 Then
& && &&&hwnd = dm.GetMousePointWindow()
& && &&&句柄(i) = hwnd& &
& && &&&TracePrint&&hwnd
& && &&&线程ID(i) = BeginThread(干扰)
& && &&&i = i + 1
& & End If& &
& & If Key = 119 Then
& && &&&hwndx = dm.GetMousePointWindow()
& && &&&For i = 0 To 句柄(i)&&
& && && && &If hwndx = clng(句柄(i)) Then
& && && && && & StopThread 线程ID(i)
& && && && &End if
& && &&&Next
& & End If
Set dm = createobject(&dm.dmsoft&)
& && &&&hwnd = dm.GetMousePointWindow()& && && &
& && &&&If Form1.CheckBox1.Value=1 then
& && &&&线程ID(i) = BeginThread(a)
& && &&&End If
& && && & If Form1.CheckBox2.Value=1 then
& && &&&线程ID(i) = BeginThread(b)& && &
& & End If
& && && && && && &&&End sub
Set dm = createobject(&dm.dmsoft&)
hwnd1 = dm.GetMousePointWindow()
dm_ret = dm.bindwindow(hwnd1, &gdi&, &dx&, &normal&, &0&)
& & & &&&dm.SendString hwnd1, &1&
& & & &&&Delay 1000
& & & &&&Loop
& & & & Set dm = createobject(&dm.dmsoft&)
hwnd1 = dm.GetMousePointWindow()
dm_ret = dm.bindwindow(hwnd1, &gdi&, &dx&, &normal&, &0&)
dm.SendString hwnd1, &2&
Delay 1000
怎么停止子线程里的线程