1. 令 PID = Web.Bind("wqm.exe")
2. 调用 Web.SetSize(1366,738)
3. 令 i = 5820798
4. 循环 500 次
5.     调用 Web.Go("http://movieking.qjwm.com/down_" & i & ".html")
6.     标记 dgg
7.     延时 2000 毫秒
8.     调用 Web.TabGoto(3)
9.     令 Url1 = Web.GetURL()
10.     如果 Url1 = "http://movieking.qjwm.com/down_" & i & ".html" 则
11.         跳转到标记 dgg
12.     条件结束
13.     调用 Web.TabClose()
14.     调用 Web.TabClose()
15.     调用 Web.HtmlClick("tag:A&txt:下载文件")
16.     标记 zdgg
17.     延时 3000 毫秒
18.     令 url2 = web.geturl()
19.     如果 url2 = "http://movieking.qjwm.com/down_" & i & ".html" 则
20.         跳转到标记 zdgg
21.     条件结束
22.     调用 Web.TabGoto(2)
23.     标记 pdwy
24.     令 Num = Web.HtmlExists("id:inputfont")
25.     如果 num = 0 则
26.         跳转到标记 pdwy
27.     条件结束
28.     标记 yzm
29.     调用 Web.ScrollTo(0,345)
30.     调用 Web.HtmlInput("千军万马","id:downinput")
31.     延时 500 毫秒
32.     调用 Web.LeftClick(712,302)
33.     延时 500 毫秒
34.     （键盘）按 "Left" 键, 5次
35.     延时 1000 毫秒
36.     令 Num = Web.HtmlExists("id:inputfont")
37.     如果 num = 0 则
38.         跳转到标记 xz
39.     条件结束
40.     调用 Web.LeftDoubleClick(726,303)
41.     调用 Web.HtmlInput("百助","id:downinput")
42.     延时 500 毫秒
43.     调用 Web.LeftClick(712,302)
44.     延时 500 毫秒
45.     （键盘）按 "Left" 键, 5次
46.     延时 1000 毫秒
47.     令 Num = Web.HtmlExists("id:inputfont")
48.     如果 num = 0 则
49.         跳转到标记 xz
50.     条件结束
51.     调用 Web.HtmlInput("4455","id:downinput")
52.     延时 500 毫秒
53.     调用 Web.LeftClick(712,302)
54.     延时 500 毫秒
55.     （键盘）按 "Left" 键, 5次
56.     延时 1000 毫秒
57.     令 Num = Web.HtmlExists("id:inputfont")
58.     如果 num = 0 则
59.         跳转到标记 xz
60.     条件结束
61.     调用 Web.HtmlInput("画皮","id:downinput")
62.     延时 500 毫秒
63.     调用 Web.LeftClick(712,302)
64.     延时 500 毫秒
65.     （键盘）按 "Left" 键, 5次
66.     延时 1000 毫秒
67.     令 Num = Web.HtmlExists("id:inputfont")
68.     如果 num = 0 则
69.         跳转到标记 xz
70.     条件结束
71.     令 Num = Web.HtmlExists("id:inputfont")
72.     如果 num = 1 则
73.         跳转到标记 yzm
74.     条件结束
75.     标记 xz
76.     调用 Web.LeftClick(712,345)
77.     延时 5000 毫秒
78.     （键盘）按 "S" 键, 1次
79.     延时 1000 毫秒
80.     （键盘）按 "Enter" 键, 1次
81.     调用 Web.TabClose()
82.     调用 Web.TabClose()
83.     调用 Web.TabClose()
84.     调用 Web.TabClose()
85.     调用 Web.TabClose()
86.     调用 Web.TabClose()
87.     令 i = i + 1
88. 循环结束