dnfPath=""  //"游戏路径"
qqPath=""   //"QQ号文本路径" 
qqCount=1  //"QQ数量" 
whichQQ=1  //"第几个号"
redHowMuch = 1
blueHowMuch = 1





dnfPath = Form.dnfPath.Text
qqPath = Form.qqPath.Text
qqCount = Form.qqCount.Text
whichQQ = Form.whichQQ.Text
TempI = Form.ComboBox.ListIndex
redHowMuch = Form.redHowMuch.Text
blueHowMuch = Form.blueHowMuch.Text
Model = Form.Model.ListIndex



qqCount = CInt(qqCount)
whichQQ = CInt(whichQQ)
TempI = CInt(TempI)
redHowMuch = CInt(redHowMuch)
blueHowMuch = CInt(blueHowMuch)
Model = CInt(Model)

/** temp  varible  **/
//dnfPath = "D:\地下城与勇士\start\DNFchina.exe"
//qqPath = "E:\西北2.txt"
//qqCount = 5
//whichQQ = 1



Dim QQNum      //instore qq accout
Dim QQpass     //instore qq passowrd
Dim region     //instore each  region
Dim services   //instore each  region  every  services
Dim CH         //频道
Dim bmp1
Dim bmp2

QQNum = ""
QQpass = ""
region = ""
services = ""
CH = ""

Dim roles(15)     //角色数量 坐标
roleNum = 0 
validateFlag = true


Dim loginConten  //日志记录内容
loginConten = ""
//16个角色坐标
roles(0)="90,190":roles(1)="220,190":roles(2)="350,190":roles(3)="480,190":roles(4)="610,190":roles(5)="740,190"
roles(6)="90,400":roles(7)="220,400":roles(8)="350,400":roles(9)="480,400":roles(10)="610,400":roles(11)="740,400"
roles(12)="90,190":roles(13)="220,190":roles(14)="350,190":roles(15)="480,190"

//日志记录 文件

s=FormatDateTime(Date, 0) 
loginFileName="E:\login\" & s & ".txt"
Call Plugin.File.CreateFolder("E:\login") 

If TempI = 0 Then 
	bmp1 = "小红"
	bmp2 = "小蓝"
ElseIf TempI = 1 Then
	bmp1 = "中红"
	bmp2 = "中蓝"
Else
	bmp1 = "大红"
	bmp2 = "大蓝"
	
End If


While whichQQ <= qqCount
	Call dnfLogin(whichQQ)
	Delay 1000
	roleNum = 0
	For 2
		Call arrangePack(bmp1, bmp2, TempI)
		Delay 100
 		roleNum = roleNum + 1
 		If roleNum < 2 Then 
 				Call switchRoles(roleNum)
 		End If
	Next	
	loginConten = loginConten & "====" & whichQQ
	//TracePrint loginConten
	Call recordLogin(whichQQ, loginConten, loginFileName)
	Call finishGame()
	whichQQ = whichQQ + 1