1. 令 ProcessID = Web.Bind("wqm.exe")
2. 延时 2000 毫秒
3. 如果 ProcessID = 0 则
4.     弹出窗口 "网页按键精灵没有运行"
5.     脚本停止运行
6. 条件结束
7. 注释：连接数据库
8. 令 conn = createObject("adodb.Connection")
9. 令 conn.connectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\粟术英\工具软件\SEO自动\谷歌外链自动\data\data.mdb;Persist Security Info=False"
10. conn.open()
11. 注释：创建rs对象
12. 令 rs = createObject("ADODB.Recordset")
13. 令 rs2 = createObject("ADODB.Recordset")
14. 注释：//////////////发布规则//////////////////////////////////
15. 注释：由选定内容来决定发布目标地址
16. 注释：1)读取选定内容
17. Randomize
18. 令 r = Rnd
19. 令 pushNum = Form1.InputBox1.Text
20. 令 selectType = Form1.InputBox2.text
21. 令 cmdStr = "select top " & pushNum & " * from 内容库" & selectType
22. 令 cmdStr2 = "select top " & pushNum & " * from 地址库 where 分类属性='" & selectType & "' order by rnd( " & r & "-id) "
23. rs.open(cmdStr,conn,1,3)
24. rs2.open(cmdStr2,conn,1,3)
25. 注释：step1:新建pushNum个页面
26. 循环 pushNum - 1 次
27.     调用 Web.TabNew()
28. 循环结束
29. 调用 web.TabGoto(1)
30. 延时 2000 毫秒
31. 注释：step2:转打标签页打开网页
32. 定义变量 arrClass(50)
33. 令 m = 1
34. 循环当 not rs2.eof 时
35.     令 arrClass(m) = rs2("分类")
36.     令 url = rs2("网址")
37.     调用 web.TabGoto(m)
38.     调用 Web.Go(url)
39.     如果 not rs2.eof 则
40.         rs2.movenext()
41.     条件结束
42.     令 m = m + 1
43.     延时 2000 毫秒
44. 循环结束
45. rs2.close()
46. 延时 30000 毫秒
47. 注释：填写内容
48. 令 i = 1
49. 循环当 not rs.eof 时
50.     调用 Web.TabGoto(i)
51.     延时 10000 毫秒
52.     令 username = rs("username")
53.     令 website = rs("website")
54.     令 email = rs("email")
55.     令 info = rs("info")
56.     令 title = rs("title")
57.     selectFun((arrClass(i)))
58.     如果 not rs.eof 则
59.         rs.movenext()
60.     条件结束
61.     令 i = i + 1
62. 循环结束
63. 弹出窗口 i
64. 注释：/////////////发布规则END///////////////////////////////////
65. 函数 selectFun(funSelect)
66.     根据 funSelect 选择
67.     情况 "bahnhof":
68.         调用 bahnhof(url,username,website,email,info)
69.     情况 "coursdinformatique":
70.         调用 coursdinformatique(url,username,website,email,info,title)
71.     情况 "gravidblogg":
72.         调用 gravidblogg(url,username,website,email,info,title)
73.     情况 "sokolhovezi":
74.         调用 sokolhovezi(url,username,website,email,info,title)
75.     情况 "servercronos":
76.         调用 servercronos(url,username,info)
77.     情况 "sununews":
78.         调用 sununews(url,username,website,email,info,title)
79.     情况 "jerryghionis":
80.         调用 jerryghionis(url,username,website,email,info,title)
81.     情况 "sufehmi":
82.         调用 sufehmi(url,username,website,email,info,title)
83.     情况 :
84.         弹出窗口 ("没有对应函数 需要更新函数库")
85.     选择结束
86. 函数结束
87. (语句无法识别，可能有错误): Function sufehmi(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
88. 调用 Web.Tips("sufehmi")
89. 延时 1000 毫秒
90. 调用 Web.HtmlInput(username,"id:author")
91. 延时 1000 毫秒
92. 调用 Web.HtmlInput(email,"id:email")
93. 延时 1000 毫秒
94. 调用 Web.HtmlInput(website,"id:url")
95. 延时 1000 毫秒
96. 调用 Web.HtmlInput(info,"id:comment&type:textarea")
97. 函数结束
98. (语句无法识别，可能有错误): Function jerryghionis(url,username,website,email,info,title)//url网址 username用户名称 website 主页 email邮箱地址 info 内容 title 标题
99. 调用 Web.Tips("jerryghionis")
100. 延时 1000 毫秒