roles(12)="90,190":roles(13)="220,190":roles(14)="350,190":roles(15)="480,190"

//日志记录 文件
//date1 = Plugin.GetSysInfo.GetDateTime()
s=FormatDateTime(Date, 0) 
loginFileName="E:\login\" & s & ".txt"

Call Plugin.File.CreateFolder("E:\login")

While whichQQ <= qqCount
	Call hideDnfWindow()
	Delay 1000
	Call dnfLogin(whichQQ)
	Delay 1000
	Call showDnfWindow()
	Delay 1500
	Call arrangeDNFWindow()
	Delay 1000
	roleNum = 0
	//
	For tempI
		Call arrangeBigStore(0, 0)
		Delay 1000
		For switchRolesCount
			Call startExChange()
 			roleNum = roleNum + 1
 			If roleNum < roleCount Then 
 				//MessageBox roleNum
 				Call switchRoles(roleNum)
 			End If
		Next
	Next
	
	loginConten = loginConten & "====" & whichQQ
	TracePrint loginConten
	Call recordLogin(whichQQ, loginConten, loginFileName)
	Call finishGame()
	whichQQ = whichQQ + 1
Wend
	
	




/*-------------------Dnf 登录—————————--------------*/
Function dnfLogin(num)
	Call runDnf(dnfPath)
	Delay 500
	temp1 = getQQIdAndPassword(num, qqPath)
	Delay 2000
	If temp1 = 1 Then 
	 	Call selectService()
	 Else 
	 	MessageBox "文本设置有误！请检查"
	 	EndScript
	End If
End Function

/*  
 *@Fun   restart run application software 
 *@arg2  every application  software install path
 *@retun null
 **/
Function reStartApp()
	Call Lib.系统.结束进程("DNFchina.exe")
	Delay 8000
	Call dnfLogin(whichQQ)
End Function

 
 /*-------------------选择服服务器—————————--------------*/
 Function selectService()
 	Hwnd = Plugin.Window.Find("#32770", "地下城与勇士")
 	If Hwnd <> 0 Then 
 		sRect = Plugin.Window.GetClientRect(Hwnd)
 		MyArray = Split(sRect, "|")
 		X = Clng(MyArray(0))
 		Y = Clng(MyArray(1))
 		//MessageBox X+100 &" "& Y+150 &" "& X+610 &" "& Y+230
 		Call searchSection(X+100, Y+110, X+610, Y+230, region, 1)
 		Delay 2000
 		//MessageBox X+100 &" "& Y+360 &" "& X+610 &" "& Y+480
 		Call searchSection(X + 100, Y + 370, X + 610, Y + 480, services, 2)
 		Call inputQQNumAndPaw()
	Else 
		MessageBox "没有所选服务器！"
		Call reStartApp()
 	End If
 End Function



 /*---------------------------输入qq号和密码—————-----------*/

Function inputQQNumAndPaw()
	Delay 18000
 	Hwnd = Plugin.Window.Find("TWINCONTROL", "地下城与勇士")
 	If Hwnd <> 0 Then 
 		sRect = Plugin.Window.GetClientRect(Hwnd)