1. 用户定义变量 mmhit=2000 信息点击总次数
2. 用户定义变量 settime=6:30:00 运行时间
3. //一个页面有用链接数是40个
4. dim links(40)
5. 调用子程序 定时器
6. 脚本停止运行
7. 子程序 定时器
8.     startRun=1
9.     调用外部VBScript子程序 MessageBox("脚本已开始运行!")
10.     runTime=CDate(settime)
11.     如果表达式 (startRun=1) 为真,则循环执行
12.         如果表达式 (Abs(DateDiff("s",Time,runTime)) < 100) 为真,则
13.             //取得桌面路径
14.             Set objShell = CreateObject("WScript.Shell")
15.             x = objShell.SpecialFolders.Item("desktop")
16.             Set objShell = Nothing
17.             //打开日志文件，准备写入
18.             set fso=CreateObject("Scripting.FileSystemObject")
19.             set myfile=fso.OpenTextFile(x&"\点击操作日志.log", 8, True)
20.             //创建浏览器对象
21.             set ie=createobject("internetexplorer.application")
22.             调用子程序 打开***网站
23.             Textstr = Date & " " & Time & " 成功打开***网站!"
24.             myfile.writeline(Textstr)
25.             xxhit=0
26.             调用子程序 点击*****信息
27.             Textstr = Date & " " & Time & " *****信息点击完成，共点击" & xxhit & "次。"
28.             myfile.writeline(Textstr)
29.             //关闭浏览器，清除对象
30.             ie.quit
31.             Set ie = Nothing
32.             Textstr = Date & " " & Time & " 成功关闭***网站!"
33.             myfile.writeline(Textstr & vbCrLf)
34.             //关闭日志文件，清除对象
35.             myfile.Close
36.             Set myfile = Nothing
37.             Set fso = Nothing
38.         条件结束
39.         //按小键盘+号终止运行
40.         检测上次按键，保存到变量K中
41.         如果表达式 (K=107) 为真,则
42.             startRun=0
43.         条件结束
44.         延时50000毫秒
45.     循环结束
46.     调用外部VBScript子程序 MessageBox("脚本已开始运行!")
47. 子程序结束,回到调用处
48. 子程序 打开***网站
49.     //打开***网站首页
50.     url=www.****.cn
51.     ie.visible=1
52.     ie.navigate url
53.     调用子程序 延时
54.     //激活窗口并最大化
55.     wclass = "IEFrame"
56.     title = "*** - www.****.cn - Microsoft Internet Explorer"
57.     调用插件命令 hwn=Window.Find(wclass , title)
58.     调用插件命令 Window.Active(hwn)
59.     调用插件命令 Window.Max(hwn)
60.     //填写用户名和密码
61.     ie.Document.Form1.TextBox1.value = "********"
62.     延时200毫秒
63.     ie.Document.Form1.TextBox2.value = "********"
64.     延时200毫秒
65.     按键<Enter>
66.     调用子程序 延时
67. 子程序结束,回到调用处
68. 子程序 点击****信息
69.     xq=int(Timer) mod 5
70.     循环 int(mmhit/20+0.5) 遍
71.         //选择信息页面
72.         如果表达式 (xq<5) 为真,则
73.             xq=xq+1
74.         否则
75.             xq=1
76.         条件结束
77.         如果表达式 (xq=1) 为真,则
78.             xian="*****1"
79.         否则如果(xq=2)为真,则
80.             xian="*****2"
81.         否则如果(xq=3)为真,则
82.             xian="*****3"
83.         否则如果(xq=4)为真,则
84.             xian="*****4"
85.         否则如果(xq=5)为真,则
86.             xian="*****5"
87.         否则
88.             xian="allxian"
89.         条件结束
90.         调用子程序 打开某页面****信息
91.         keywood="bid" : hit=20
92.         调用子程序 过滤信息并打开
93.     循环结束
94. 子程序结束,回到调用处
95. //打开某页面****信息(输入参数:xian)
96. 子程序 打开某页面****信息
97.     url="www.****.cn/store/*****.aspx"
98.     aid=xian
99.     url=url & "?aid=" & aid
100.     ie.navigate url