UserVar Var1 = "http://www.3663.com/playgame/index/4/53/1?iframe=1" "游戏地址"
UserVar Var2 = "http://www.3663.com/member/login/?referer=" "登录地址"
UserVar Var3 = "http://www.3663.com/member/logout/?referer=" "退出地址"
 
//--得到wqm窗口句柄，并最大化-----------------------------------------------------------------
Function Hwnd()
	HwndEx = Plugin.Window.SearchEx("Afx:00400000",0,0)//查找wqm浏览器
	If HwndEx = "" Then 
		Call Plugin.Web.Tips("正在打开浏览器...")
		Call Plugin.Web.Bind("wqm.exe")//调用wqm浏览器
		Call Plugin.Window.Max(Plugin.Window.Foreground())
		Hwnd = Plugin.Window.Foreground()
		Delay 2000
	Else 
		MyArray = Split(HwndEx, "|")//数组化
		Hwnd = MyArray(0)
		Call Plugin.Window.Max(MyArray(0))
	End If
End Function
Call Hwnd()

Sub login(name,pass)
	Plugin.Web.Go Var3 & Var1
	Delay 2000
	Call Plugin.Web.HtmlInput(name,"name:login[user_code]")
	Call Plugin.Web.HtmlInput(pass, "name:login[user_password]")
	arr_xy=split(Plugin.Web.HtmlGet("offset","tag:INPUT&value:登录"),"|")
	MoveTo arr_xy(0)+50,arr_xy(1)+140
	LeftClick 1
End Sub
Call login("eksij","eksij1997")
//-------------------------------------------------------------------
Rem 准备登录
a = WaitKey()
If a = 27 Then 
	Goto 退出
ElseIf a = 48 Then
	Call Plugin.Web.TabNew()
	Call login("eksij","eksij1997")
ElseIf a > 48 and a < 58 Then
	Call Plugin.Web.TabNew()
	Call login("eksij0"&(a-48),"eksij0"&(a-48))
End If
Goto 准备登录 
Rem 退出

//-------------------------------------------------------------------
//-------------------------------------------------------------------
//-------------------------------------------------------------------
//-------------------------------------------------------------------