1. 子程序 自动登陆(帐号,密码)
2.     锁定鼠标位置
3.     如果 Form1.BrowseBox1.Path <> "" 则
4.         调用 （命令库 API）运行程序(Form1.BrowseBox1.Path)
5.         注释： RunApp Form1.BrowseBox1.Path
6.     条件结束
7.     延时 5000 毫秒
8.     循环当 i = 0 时
9.         令 hwnd = 0
10.         延时 1000 毫秒
11.         令 Hwnd = Window.Find("WSGAME","梦幻西游ONLINE")
12.         如果 hwnd > 0 则
13.             令 i = 1
14.             向调试窗口输出：hwnd
15.             向调试窗口输出：i
16.             延时 1000 毫秒
17.             调用 Window.Move(Hwnd,0,0)
18.             调用 Window.Active(Hwnd)
19.             延时 500 毫秒
20.             令 sRect = Window.GetClientRect(Hwnd)
21.             定义变量 MyArray
22.             令 MyArray = Split(sRect,"|")
23.             令 Ux = CLng(MyArray(0))
24.             令 Uy = CLng(MyArray(1))
25.         否则
26.             令 i = 0
27.             延时 1500 毫秒
28.         条件结束
29.     循环结束
30.     注释： 给程序启动五秒时间
31.     注释：539 134 色000000 558 170
32.     循环当 i = 1 时
33.         调用 找色(539,134,"000000",558,170)
34.     循环结束
35.     延时 500 毫秒
36.     注释：64 88色 000000 574,409 000890
37.     循环当 i = 2 时
38.         调用 找色(64,88,"000000",574,409)
39.         延时 500 毫秒
40.     循环结束
41.     注释：106,398 000000 575,411
42.     循环当 i = 3 时
43.         调用 找色(106,398,"000000",574,411)
44.         延时 500 毫秒
45.     循环结束
46.     注释：281,164 000000
47.     循环当 i = 4 时
48.         调用 找色(281,164,"000000",0,0)
49.         延时 2000 毫秒
50.         输入文本 帐号
51.         延时 500 毫秒
52.         （键盘）按 "Enter" 键, 1次
53.         延时 500 毫秒
54.         输入文本 密码
55.         延时 500 毫秒
56.         （键盘）按 Enter 键, 1次
57.         解除鼠标锁定
58.         令 i = 5
59.     循环结束
60. 子程序结束
61. 循环当 i = 5 时
62.     脚本停止运行
63. 循环结束
64. 注释：Hwnd = Plugin.Window.MousePoint()
65. 注释：se1= Plugin.Bkgnd.GetPixelColor(Hwnd, 636, 122)
66. 注释：TracePrint se1
67. 注释：If se1 = 605000 Then
68. 注释： Delay 200
69. 注释： KeyDown "Alt", 1
70. 注释： Delay 200
71. 注释： Call Plugin.Bkgnd.KeyPress(Hwnd, 81)
72. 注释： Delay 200
73. 注释： KeyDown "Alt", 1
74. 注释： Delay 200
75. 注释： KeyDown "Alt", 1
76. 注释： Delay 200
77. 注释： Call Plugin.Bkgnd.KeyPress(Hwnd, 65)
78. 注释： Delay 200
79. 注释： KeyDown "Alt", 1
80. 注释：End If
81. 注释：Hwnd = Plugin.Window.Find(0, "梦幻西游ONLINE - (河南2区[牡丹亭] - 九月い天堂[3594970])")
82. 注释：Call Plugin.Window.Active(Hwnd)
83. 注释：sRect = Plugin.Window.GetClientRect(Hwnd)
84. 注释：Dim MyArray
85. 注释：MyArray=Split(sRect,"|")
86. 注释：Ux=CLng(MyArray(0))
87. 注释：Uy=CLng(MyArray(1))
88. 注释：Rem 开始挂机
89. 注释：IfColor Ux+636,Uy+122,"605000",0 Then
90. 注释： Call 战斗()
91. 注释：Else
92. 注释： Call 战斗判断()
93. 注释：End If
94. 注释：Sub 战斗()
95. 注释： FindPic Ux,Uy,Ux+630,Uy+450,"Attachment:\fashu.bmp",0.7,intX,intY
96. 注释： If intX > 0 And intY > 0 Then
97. 注释： Delay 200
98. 注释： KeyDown 18, 1
99. 注释： Delay 200
100. 注释： KeyPress 81, 1