/*
刷贡脚本 
刷贡方法：掠夺方式刷贡，每次发1兵。
掠夺对像：标记第一行。（每个小号都要调整）
//------------------------------------------------
在C盘根目录下创建Set.ini文件，内容表参考如下

SERVER 为服务器地址及端口（网页进入游戏后，地址栏上取的)
BROWSER 为所使用的浏览器安装位置。建议使用谷鹆
密码密文，在网页进入游戏后，地址栏上取的。


[SET]
SERVER=http://ybsg7.login.game.uc.cn:8028
BROWSER=C:\Documents and Settings\Administrator\Local settings\Application Data\Google\Chrome\Application\chrome.exe

[USERS]
COUNT=5
USER1=便于记忆|帐号1|密码密文
USER2=便于记忆|帐号2|密码密文
USER3=便于记忆|帐号3|密码密文
USER4=便于记忆|帐号4|密码密文
USER5=便于记忆|帐号5|密码密文
*/


Global GameHwnd, IsLdle, IsTimeout, IsError, IsErr, nCount, nIndex, Users
Dim USER(10),PASSWORD(10),SERVER,BROWSER
Sub SetUser()
    IniFile = "C:\SET.INI"
    IsFile = Plugin.File.IsFileExit(IniFile)
    If IsFile Then 
        SERVER = Plugin.File.ReadINI("SET", "SERVER", IniFile)
        BROWSER = Plugin.File.ReadINI("SET", "BROWSER", IniFile)
        nCount = CInt(Plugin.File.ReadINI("USERS", "COUNT", IniFile))
        For nIndex = 1 To nCount
            strTmp = Plugin.file.ReadINI("USERS", "USER" & nIndex, IniFile)
            aryTmp = Split(strTmp, "|")
            USER(nIndex) = aryTmp(1)
            PASSWORD(nIndex) = aryTmp(2)
        Next 
    Else 
        Call Plugin.Msg.Tips("配制文件不存在，退出运行")
        ExitScript
    End If

End Sub
Sub RunGame()
    nIndex = nIndex + 1
    If nIndex > nCount Then 
        nIndex = 1
    End If
    WebServer = "[SERVER]/webgame/sanguo2.jsp?userName=[USER]&pwd=[PASS]"
    WebUser = Replace(WebServer,"[SERVER]",SERVER)
    WebUser = Replace(WebUser, "[USER]", USER(nIndex))
    WebUser = Replace(WebUser, "[PASS]", PASSWORD(nIndex))
    WebHttp = BROWSER & " " & WebUser
    RunApp WebHttp
    Delay 3000
End Sub
//定义鼠标按下操作,X,Y,1单击,2双击
VBSBegin
    Function MouseClick(X, Y, N)
        LockMouse 
        Delay 50
        MoveTo X, Y
        Delay 50
        If N = 1 Then 
            LeftClick 1
        ElseIf N = 2 Then
            LeftDoubleClick 1
        End If
        Delay 50
        UnlockMouse
    End Function	
VBSEnd
Sub Main()
    Call CloseAll()
    Call RunGame
    GameHwnd = Plugin.Window.Find(0, "三国 - Google Chrome")
    Call Plugin.Window.Max(GameHwnd)
    //开始调将
    Call FindMilitary()
    If IsError Then 
    	Call Main()
    End If
    Call Start()    
End Sub
Sub CloseGame()
    Call Plugin.Window.CloseEx(GameHwnd)
End Sub
Sub CloseLottery
    //找抽奖按钮
    IsTimeout = 0
    Do While True
        FindPic 0,0,1024,768,"Attachment:\关闭抽奖.bmp",0.9,intX,intY
        If intX > 0 And intY > 0 Then 
            MouseClick intX+5,intY+5,1
            Exit Do
        Else