[教程源码] 咸鱼之王连点器

Dim Hwnd
Event Form1.Load
    //当窗体被加载时触发的事件
SetSimMode 2
//查找窗口类名("Chrome_WidgetWin_0")或者标题("咸鱼之王"),返回找到的句柄Hwnd
Hwnd = Plugin.Window.Find("Chrome_WidgetWin_0", "咸鱼之王")
Call Plugin.SysEx.Speed(Hwnd, 2)
End Event
Event Form1.run_btn.Click
    SetSimMode 2
//激活窗口
//Call Plugin.Window.Active(Hwnd)
//最小化窗口
//Call Plugin.Window.Min(Hwnd)
Call Lib.API.设置窗口透明度(Hwnd,1)
While True
    Call Plugin.Bkgnd.LeftClick(Hwnd, 450, 800)
    Delay 50
Wend
End Event
Event Form1.stop_btn.Click
    ExitScript
EndScript
End Event
Event Form1.set_btn.Click

Call Lib.API.设置窗口透明度(Hwnd,Int(Int(Form1.light_num.Text)*2.55))
End Event