最近在玩我的世界一个空岛服务器，这个服务器什么都好，红石什么都没禁唯一的问题就是当红石频率或者刷怪频率太高的时候会掉线，进来以后要输一次密码，就不能大晚上挂机刷袭击塔了，想求一个服务器重连的脚本或者软件。我自己在按键精灵里面找了一个别人写的脚本，可是我也不太会用，我发出来看看有没有大神能够指导一下怎么用的。
Call Plugin.Window.Foreground()
x = Plugin.Window.Foreground()

Call Plugin.Window.Top(x, 1)

shijian = int(Form1.InputBox1.Text)//检测时间

daguanggao = form1.optionBox1.Value//是否打广告

diaoyu = form1.OptionBox2.Value//是否钓鱼

zuojian =         form1.optionBox3.Value                //是否刷武器


Do

        MN = Plugin.Bkgnd.FindPic(x, 0, 0, 700, 500, "掉线.bmp", 0, 0.5)

        iZB = InStr(MN, "|")

        M = CLng(Left(MN, iZB - 1))

        N = CLng(Right(MN, Len(MN) - iZB))
       
       
       
        If M > 0 and N > 0 Then
       
                Call Plugin.Window.Top(x, 0)
               
                Call Plugin.Window.Top(x, 1)
               
               
                FindPic 10, 10, 1917, 1024, "位置1.bmp", 0.9, intX, intY//检测窗口位置
               
               
                If intX
               
                        FindPic 10, 10, 1917, 1024, "位置2.bmp", 0.9, intX, intY//检测窗口位置
                       
                End If
               
               

                FindPic intX, intY, intX + 900, intY + 500, "掉线.bmp", 0.9, intX, intY//检测是否掉线

       
       
                If intX > 0 And intY > 0 Then //掉线执行操作
       
       
                        MoveTo intX + 199, intY + 11
               
                        Delay 1000
               
                        LeftClick 1
               
                        Delay 1000
               
                        MoveTo intX - 64, intY - 168
               
                        Delay 1000
               
                        LeftClick 1
               
                        Delay 1000
               
                        LeftClick 1
               
                        Delay 7000
                       
                        KeyDown "/", 1
               
                        Delay 1000
               
                        SayString "密码"
                        Delay 1000
                               
                        KeyPress "Enter", 1
                       
                        If diaoyu = 1 Then
                       
                                RightClick 1
                               
                        End If
                       
       
                End If
               
               
        End If
               
                If daguanggao = 1 Then
                       
                        Call Plugin.Bkgnd.KeyPress(x, 84)
               
                        Delay 1000
               
                        Call Plugin.Bkgnd.SendString(x, "%I ")
                       
                        Delay 1000
       
                        Call Plugin.Bkgnd.KeyPress(x, 13)
                       
                End If
       
               
               
               
                       
        n = shijian     
               
        i = n * 5
               
               
        While i > 0
               
                If zuojian = 1 Then
               
                        LeftClick 1
                       
                End If
                       
                Delay 200
                       
            i = i - 1
                   
        Wend
       
       
Loop