QQNum = tempStr(0)
		QQpass = tempStr(1)
		region = tempStr(2)
		services = tempStr(3)
		CH = tempStr(4)
		getQQIdAndPassword = 1
	End If
End Function



 /*  
 *@Fun   注册大漠插件
 *@arg   null
 *@retun null
 **/ 
  /*  
 Function registerDm()
 	//首先打包dm.dll和RegDll.dll到附件,当然如果你还有其它资源(字库，图片等)也可以一并打包
	// 这个need_ver作为本脚本需要使用的插件版本. 如果要换插件时，记得更改这个值.
	need_ver = "3.1239"
	// 插件需要用到atl系统库,有些XP精简系统会把atl.dll精简掉. 为了防止注册失败，这里手动注册一下atl.dll
	set ws=createobject("Wscript.Shell")
	ws.run "regsvr32 atl.dll /s"
	set ws=nothing
	//释放附件>>>>>>>>>>>>>>>
	// 这里选择c盘的test-_game作为插件的基本目录 也就是SetPath对应的目录。所以所有资源都释放在此目录.
	PutAttachment "e:\dnfPlug","*.*"
	// 这里要用到RegDll来注册插件，所以必须释放到Plugin. 但是切记不能把dm.dll释放到Plugin.那会导致插件失效.
	PutAttachment ".\Plugin", "RegDll.dll"
	
	// 插件注册开始>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
	// 下面开始注册插件,先尝试用RegDll来注册.这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
	Call Plugin.RegDll.Reg("e:\dnfPlug\dm.dll") 
	// 这里判断是否注册成功
	set dm = createobject("dm.dmsoft")
	ver = dm.Ver()
	if ver <> need_ver then
	// 先释放先前创建的dm
	set dm = nothing
   	// 再尝试用regsvr32 来注册. 这里必须使用绝对路径。以免有别人把dm.dll释放在系统目录.造成版本错误.
	set ws=createobject("Wscript.Shell")
	ws.run "regsvr32 e:\dnfPlug\dm.dll /s"
	set ws=nothing
	Delay 1500   
	// 再判断插件是否注册成功
	set dm = createobject("dm.dmsoft")
	ver = dm.Ver()
		If ver <> need_ver Then 
			// 这时，已经确认插件注册失败了。 弹出一些调试信息，以供分析.
			messagebox "插件版本错误,当前使用的版本是:"&ver&",插件所在目录是:"&dm.GetBasePath()
			messagebox "请关闭程序,重新打开本程序再尝试"
			endscript
 		end if
	End If
	//插件注册结束<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
	//这里设置插件基本目录
	dm.SetPath "e:\dnfPlug"
 End Function
**/ 

 /*  
 *@Fun   search every  region
 *@arg1  start x coordinate
 *@arg2  start y coordinate
 *@arg3  end x coordinate
 *@arg4  end y coordinate
 *@arg5  need to find dmp
 *@arg6  temp  variable
 *@arg7  similarity
 *@retun if success return  1  else  return  0
 **/ 
Function searchSection(s_x,s_y,e_x,e_y,mBmp,mTemp)
	Dim intX, intY
	FindPic s_x, s_y, e_x, e_y, "Attachment:\" & mBmp & ".bmp",1.0, intX, intY	
	If intX > 0 and intY > 0 Then 
		If mTemp = 1 Then 
			Delay 200
	 		MoveTo intX, intY
	 		Delay 200
	 		LeftClick 1
	 	ElseIf mTemp = 2 Then
	 		Delay 200
	 		MoveTo intX, intY
	 		Delay 500
	 		LeftDoubleClick 1
		End If
	 	searchSection = 1
	 Else 
	    searchSection = 0
	    MessageBox "找不到所选服务区"
	    Call reStartApp()
	End If

End Function