Call Plugin.Bkgnd.MoveTo(h, 787, 339)
    Call Plugin.Bkgnd.LeftClick(h, 787, 339) 
    Delay 100
    Call Plugin.Bkgnd.MoveTo(h, 660, 116)
    Call Plugin.Bkgnd.LeftClick(h, 660, 116)
    Delay 100
        Call Plugin.Bkgnd.MoveTo(h, 666, 500)
    Call Plugin.Bkgnd.LeftClick(h, 666, 500)
      Delay 1000
    Call Plugin.Bkgnd.MoveTo(h, 577, 566)
    Call Plugin.Bkgnd.LeftClick(h, 577, 566)
    Delay 100

    For 5

        Call Plugin.Bkgnd.MoveTo(h, 280, 230)
        Call Plugin.Bkgnd.LeftClick(h, 577, 566)
        Delay 100

        Call Plugin.Bkgnd.MoveTo(h, 256, 515)
        Call Plugin.Bkgnd.LeftClick(h, 256, 515)
        Delay 100


        Call Plugin.Bkgnd.MoveTo(h, 600, 360)
        Call Plugin.Bkgnd.LeftClick(h, 600, 360)
        Delay 100



    Next
    Delay 1000
    Call Plugin.Bkgnd.MoveTo(h, 550, 35)
    Call Plugin.Bkgnd.LeftClick(h, 550, 35)

    Delay 1000
    Call Plugin.Bkgnd.MoveTo(h, 565, 525)
    Call Plugin.Bkgnd.LeftClick(h, 565, 525)
    Delay 100
    Call Plugin.Bkgnd.MoveTo(h, 275, 455)
    Call Plugin.Bkgnd.LeftClick(h, 275, 455)
    Delay 800


    Call Plugin.Bkgnd.MoveTo(h, 668, 68)
    Call Plugin.Bkgnd.LeftClick(h, 668, 68)
    Delay 500

    Call Plugin.Bkgnd.MoveTo(h, 765, 25)
    Call Plugin.Bkgnd.LeftClick(h, 765,  25)
    Delay 100
End Sub
Event Form1.Button34.Click
	
    Call Plugin.Msg.Tips("飞车鱼坊成功开启，欢迎您的使用！" )
    鱼坊ID=BeginThread  (飞车鱼坊)
End Event
Event Form1.Button35.Click
    Call Plugin.Msg.Tips("飞车鱼坊想关闭请按F12" )
End Event



Sub 优化
	
//    Call Plugin.Msg.Tips("优化降耗只优化2到6飞车")
    Call Plugin.bgkms5.SaveCPU(hwndBB, 50)
    Call Plugin.bgkms5.SaveCPU(hwndCC, 50)
    Call Plugin.bgkms5.SaveCPU(hwndDD, 50)
    Call Plugin.bgkms5.SaveCPU(hwndEE, 50)
    Call Plugin.bgkms5.SaveCPU(hwndFF, 50)

End Sub
Sub 优化还原
    Call Plugin.Msg.Tips("检查是否已经还原优化")

    Call Plugin.bgkms5.SaveCPU(hwndBB, 0)
    Call Plugin.bgkms5.SaveCPU(hwndCC, 0)
    Call Plugin.bgkms5.SaveCPU(hwndDD, 0)
    Call Plugin.bgkms5.SaveCPU(hwndEE, 0)
    Call Plugin.bgkms5.SaveCPU(hwndFF, 0)
End Sub
Event Form1.Button42.Click
    Call 优化还原
End Event
Event Form1.Button45.Click
    Call RunApp("http://speed.qq.com/act/a20110801zzlb/")

End Event
Event Form1.Button44.Click
    Call RunApp("http://guanjia.qq.com/act/qqspeed/?ADUIN/")
End Event
//
Sub 创建房()
    Dim h
    h = Plugin.Window.Find("GAMEAPP", 0)
    Call Plugin.Window.Move(h, 0, 0)
    Delay 500