多线程框架 自动启动

Dimenv hwnd

Event Form1.Load

End Event
Event Form1.Button1.Click
Dim x, y
x = 0
y = 0
for i=1 to form1.inputbox1.text step 1
Call RunApp("notepad.exe")

do

Hwnd=plugin.window.Find(0,"无标题 - 记事本")
窗口句柄 = Hwnd
Loop While Hwnd = ""
//TracePrint "通过1"
Do
Call Plugin.window.setText(窗口句柄, "第" & i & "窗口")
标题=Plugin.window.GetText(窗口句柄)
//TracePrint 标题
Loop While 标题<> "第" & i & "窗口"
//TracePrint "通过2"
Call Plugin.window.move(窗口句柄,x,y)
开启线程ID = BeginThread(打字)
Call Plugin.file.WriteINI("窗口句柄", "第" & i & "窗口", 窗口句柄, "c:\window.ini")
Call Plugin.file.WriteINI("线程ID", "第" & i & "窗口", 开启线程ID, "c:\window.ini")
x = x + 50
form1.button1.enabled = false

Next

End Event

Event Form1.Button3.Click
For i = 1 To form1.InputBox1.text Step 1
    线程ID = Plugin.file.ReadIni("线程ID", "第" & i & "窗口", "c:\window.ini")
    窗口句柄=Plugin.file.ReadINI("窗口句柄","第"&i&"窗口", "c:\window.ini")
    StopThread (线程ID)
    Call Plugin.window.close(窗口句柄)
    
Next
End Event
Event Form1.Button2.Click
窗口句柄 = Plugin.file.ReadINI("窗口句柄", "第" & form1.inputbox2.text & "窗口", "c:\window.ini")
线程ID = Plugin.file.ReadINI("线程ID", "第" & form1.inputbox2.text & "窗口", "c:\window.ini")

If form1.Button2.Caption = "暂停" Then 
    

PauseThread (线程ID)

form1.Button2.Caption = "继续"
Else 

ContinueThread (线程ID)
form1.button2.caption="暂停"
End if
End Event
Sub 打字()

子句柄 = Plugin.window.FindEx(Hwnd, 0, "Edit", 0)
//TracePrint 子句柄
For i = 1 To 200
    Call Plugin.bkgnd.SendString(子句柄, i)
    Call Plugin.Bkgnd.KeyPress(子句柄, 13)
    
Next
End Sub
Event Form1.LoadOver
form1.Caption="一键启动"
End Event