End Function
/*  
 *@Fun  hide DNF Window   
 *@arg    
 *@retun null
 **/
Function hideDnfWindow()
	Call topDnfWindow(0)
End Function

/*  
 *@Fun  hide DNF Window   
 *@arg    
 *@retun null
 **/
Function showDnfWindow()
	Call topDnfWindow(1)
End Function

/****************************************************************************/

Function arrangeDNFWindow()
	Dim Handler1
	Dim Handler2
	//下面这句是按查找方式(模糊)，遍历符合窗口类名(0)且标题 ()的句柄，保存到数组(HwndEx)里
	//HwndEx = Plugin.Window.SearchEx("地下城与勇士", "地下城与勇士", 0)
	HwndEx = Plugin.Window.Search("地下城与勇士")   
	//下面这句用于分割字符串,将获得的句柄组分割
	dim MyArray
	MyArray = Split(HwndEx, "|")
	If UBound(MyArray) >= 0 Then 
		Handler1 = MyArray(0)
		Handler2 = MyArray(1)
		sRect = Plugin.Window.GetClientRect(Handler1)
		SKMyArray = Split(sRect, "|")
		skL = Clng(SKMyArray(2))
   		Plugin.Window.Move Handler1, 0, 0
   		Delay 500
   		Plugin.Window.Move Handler2, skL, 0
	End If
	
End Function


/****************************************************************************/


/*  
 *@Fun  inputQQNumber  andr  password
 *@arg2  
 *@retun null
 **/
Function inputQQandPaw(x, y)
	SetSimMode 2
	MoveTo x + 400, y + 375
 	Delay 800
 	LeftClick 1
 	Delay 300
 	KeyPress "BackSpace", 18
 	Delay 300
 	Call Lib.键盘.KeyList(QQNum, 2, 100)
 	Delay 300
 	KeyPress "Tab", 1
	Call Lib.键盘.KeyList(QQpass, 2, 100)
	Delay 500
	KeyPress "Enter", 1
	SetSimMode 0
End Function

/*  
 *@Fun   run application software
 *@arg2  every application  software install path
 *@retun null
 **/
Function runDnf(path)
	RunApp path
End Function


/*  
 *@Fun   read  text of  QQ  log info
 *@arg1  whilch one  QQ  
 *@arg2  text file  path
 *@retun null
 **/
Function getQQIdAndPassword(i,txtPath)
	//下面这句是读取一个配置文件参数(小节名："Command" 键值名："Val")得到内容(Text )
	loginConten = Plugin.File.ReadINI("Command", i, txtPath)
	//Msgbox "得到一个配置文件键值为：" & Text
	TracePrint loginConten
	If loginConten = "" Then 
		QQNum = ""
		QQpass = ""
		region = ""
		services = ""
		CH = ""
		getQQIdAndPassword = 0
	Else 
		tempStr = Split(loginConten, "----")