PID=Plugin.Web.Bind("wqm.exe")
Call Plugin.Web.SetSize(1366, 738)
i=5820798
For 500
Call Plugin.Web.Go("http://movieking.qjwm.com/down_"&i&".html")
Rem dgg
Delay 2000
Call Plugin.Web.TabGoto(3)
Url1=Plugin.Web.GetURL()
If Url1 = "http://movieking.qjwm.com/down_"&i&".html" Then 
	Goto dgg
End If
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
Call Plugin.Web.HtmlClick("tag:A&txt:下载文件")
Rem zdgg
Delay 3000
url2 = Plugin.web.geturl()
If url2 = "http://movieking.qjwm.com/down_" & i & ".html" Then 
	Goto zdgg
End If
Call Plugin.Web.TabGoto(2)
Rem pdwy
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 0 Then 
	Goto pdwy
End If
Rem yzm
Call Plugin.Web.ScrollTo(0, 345)
Call Plugin.Web.HtmlInput("千军万马","id:downinput")
Delay 500
Call Plugin.Web.LeftClick(712,302)
Delay 500
KeyPress "Left", 5
Delay 1000
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 0 Then 
	Goto xz
End If
Call Plugin.Web.LeftDoubleClick(726,303)
Call Plugin.Web.HtmlInput("百助","id:downinput")
Delay 500
Call Plugin.Web.LeftClick(712,302)
Delay 500
KeyPress "Left", 5
Delay 1000
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 0 Then 
	Goto xz
End If
Call Plugin.Web.HtmlInput("4455","id:downinput")
Delay 500
Call Plugin.Web.LeftClick(712,302)
Delay 500
KeyPress "Left", 5
Delay 1000
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 0 Then 
	Goto xz
End If
Call Plugin.Web.HtmlInput("画皮","id:downinput")
Delay 500
Call Plugin.Web.LeftClick(712,302)
Delay 500
KeyPress "Left", 5
Delay 1000
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 0 Then 
	Goto xz
End If
Num = Plugin.Web.HtmlExists("id:inputfont")
If num = 1 Then 
	Goto yzm
End If 
Rem xz
Call Plugin.Web.LeftClick(712, 345)
Delay 5000
KeyPress "S", 1
Delay 1000
KeyPress "Enter", 1
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
Call Plugin.Web.TabClose()
i=i+1
Next