1. 延时1000毫秒
2. MsgBox "请确认是163网易邮箱，并且最大化于当前，若没有请设置好再点击本窗口的 确定"
3. 延时1000毫秒
4. msgbox("请不要随意移动鼠标，停止请按F12")
5. 延时1000毫秒
6. 标记 dim v
7. dim v
8. v=inputbox("请输入月份数字:","发邮件")
9. 延时1000毫秒
10. 如果表达式 (v>12 or v<1) 为真,则
11.     v=inputbox("月份输入错误，请重输:","发邮件")
12. 条件结束
13. 如果表达式 (v="1") 为真,则
14.     v="yi"
15. 条件结束
16. 如果表达式 (v="2") 为真,则
17.     v="er"
18. 条件结束
19. 如果表达式 (v="3") 为真,则
20.     v="san"
21. 条件结束
22. 如果表达式 (v="4") 为真,则
23.     v="si"
24. 条件结束
25. 如果表达式 (v="5") 为真,则
26.     v="wu"
27. 条件结束
28. 如果表达式 (v="6") 为真,则
29.     v="liu"
30. 条件结束
31. 如果表达式 (v="7") 为真,则
32.     v="qi"
33. 条件结束
34. 如果表达式 (v="8") 为真,则
35.     v="ba"
36. 条件结束
37. 如果表达式 (v="9") 为真,则
38.     v="jiu"
39. 条件结束
40. 如果表达式 (v="10") 为真,则
41.     v="shi"
42. 条件结束
43. 如果表达式 (v="11") 为真,则
44.     v="shiyi"
45. 条件结束
46. 如果表达式 (v="12") 为真,则
47.     v="shier"
48. 条件结束
49. 调用外部VBScript子程序 在屏幕区域里模糊查找颜色(0,0,1024,768,"6161A0",0,0.9,intX,intY)
50. 延时1000毫秒
51. 如果表达式 (intX>0 and intY>0) 为真,则
52.     鼠标移到 intX , intY
53. 否则
54.     鼠标移到 140 , 214
55. 条件结束
56. 延时1000毫秒
57. 左键单击
58. 延时2000毫秒
59. 输入文本 v
60. 输入文本 "yuexingzuo@126.com"
61. 延时1000毫秒
62. 鼠标相对移动 113 , 10
63. 左键单击
64. 延时1000毫秒
65. 按键<Enter>
66. 延时2000毫秒
67. 跳转到标记 dim v