Delay 20
Hwnd = Plugin.Window.Find(0, "穿越火线(CF)→√窗口化已开启√[游戏中按ESC键可解除鼠标限制][By:天堂][感谢大脚]")
Delay 20
Call Plugin.Window.Move(Hwnd, 0, 0)
SetSimMode 2

    Sub 启动有效()

FindPic 0,0,1024,768,"Attachment:\在大厅里.bmp",0.9,intX,intY
If intX > 0 And intY > 0 Then
MoveTo 498, 462
    Delay 1000
    LeftClick 1
    Delay 1000
    MoveTo 480, 299
    Delay 500
    KeyPress "BackSpace", 17
    Delay 1000
        SayString Form1.InputBox1.Text
    Delay 1000
    MoveTo 434, 418
    Delay 1000
    LeftDoubleClick 1
    Delay 500
SayString Form1.InputBox2.Text

    Delay 500
    KeyPress "BackSpace", 10
    Delay 1000
    SayString Form1.InputBox2.Text
    Delay 500
    KeyPress "Enter", 1
    Delay 1000
End If
If Form1.ComboBox1.ListIndex = 0 Then 
    Delay 500
        MoveTo 165, 272
    Delay 500
        LeftClick 1
    Delay 500
    ElseIf Form1.ComboBox1.ListIndex = 1 Then
    Delay 500
        MoveTo 171, 286
        LeftClick 1
    Delay 500
        ElseIf Form1.ComboBox1.ListIndex = 2 Then
    Delay 500
    MoveTo 168, 305
    LeftClick 1
        ElseIf Form1.ComboBox1.ListIndex = 3 Then
    Delay 500
    MoveTo 168, 323
    LeftClick 1
        ElseIf Form1.ComboBox1.ListIndex = 4 Then
    Delay 500
    MoveTo 167, 343
    LeftClick 1
        ElseIf Form1.ComboBox1.ListIndex = 5 Then
    Delay 500
    MoveTo 168, 362
    LeftClick 1
        ElseIf Form1.ComboBox1.ListIndex = 6 Then
    Delay 500
    MoveTo 172, 376
    LeftClick 1
    End If

If Form1.团队地图1.ListIndex = 0 Then 
Delay 500
Delay 500
MoveTo 235, 272
LeftClick 1
Delay 500
MoveTo 163, 343
LeftClick 1
Delay 500

	ElseIf form1.团队地图1.ListIndex = 1 Then
	Delay 500
Delay 500
MoveTo 235, 272
LeftClick 1
Delay 500
MoveTo 162, 361
LeftClick 1
Delay 500
	
		ElseIf form1.团队地图1.ListIndex = 2 Then
		Delay 500
Delay 500
MoveTo 235, 272
    Delay 700
LeftClick 1
Delay 500
MoveTo 233, 453
For 6
    LeftClick 1
    Delay 700
    Next 
    MoveTo 163, 448