按键精灵网页操作源码例程

因上级业务部门某网站的对本级发布的信息点击数进行考核，特编制了本脚本进行模拟人工点击，因涉及有关内容的保密，脚本中一些字符用了"*"代替，请见谅！ 

本脚本涉及WScript的一些运用，供参考！ 

运行环境：分辨率：1440x900 色深：32位 操作系统：Windows XP 按键精灵版本：7.00.3730

@agri     2009/3/19

UserVar mmhit=2000 信息点击总次数  
UserVar settime=6:30:00 运行时间  
//一个页面有用链接数是40个  
dim links(40)  
Gosub 定时器  
EndScript   
Sub 定时器  
    startRun=1  
    VBSCall MessageBox("脚本已开始运行!")  
    runTime=CDate(settime)  
    While startRun=1  
        If Abs(DateDiff("s",Time,runTime)) < 100  
            //取得桌面路径  
            Set objShell = CreateObject("WScript.Shell")  
            x = objShell.SpecialFolders.Item("desktop")  
            Set objShell = Nothing  
            //打开日志文件，准备写入  
            set fso=CreateObject("Scripting.FileSystemObject")  
            set myfile=fso.OpenTextFile(x&"\点击操作日志.log", 8, True)  
            //创建浏览器对象  
            set ie=createobject("internetexplorer.application")  
            Gosub 打开***网站  
            Textstr = Date & " " & Time & " 成功打开***网站!"  
            myfile.writeline(Textstr)  
            xxhit=0  
            Gosub 点击*****信息  
            Textstr = Date & " " & Time & " *****信息点击完成，共点击" & xxhit & "次。"  
            myfile.writeline(Textstr)  
            //关闭浏览器，清除对象  
            ie.quit  
            Set ie = Nothing  
            Textstr = Date & " " & Time & " 成功关闭***网站!"  
            myfile.writeline(Textstr & vbCrLf)  
            //关闭日志文件，清除对象  
            myfile.Close  
            Set myfile = Nothing  
            Set fso = Nothing  
        EndIf   
        //按小键盘+号终止运行  
        GetLastKey K  
        If K=107  
            startRun=0  
        EndIf   
        Delay 50000  
    EndWhile   
    VBSCall MessageBox("脚本已停止运行!")  
Return 定时器  
Sub 打开***网站  
    //打开***网站首页  
    url=www.****.cn  
    ie.visible=1  
    ie.navigate url  
    Gosub 延时  
    //激活窗口并最大化  
    wclass = "IEFrame"  
    title = "*** - www.****.cn - Microsoft Internet Explorer"  
    Plugin hwn=Window.Find(wclass , title)  
    Plugin Window.Active(hwn)  
    Plugin Window.Max(hwn)  
    //填写用户名和密码  
    ie.Document.Form1.TextBox1.value = "********"  
    Delay 200  
    ie.Document.Form1.TextBox2.value = "********"  
    Delay 200  
    KeyPress 13,1  
    Gosub 延时  
Return 打开***网站  
Sub 点击****信息  
    xq=int(Timer) mod 5  
    For int(mmhit/20+0.5)  
        //选择信息页面  
        If xq<5  
            xq=xq+1  
        Else   
            xq=1  
        EndIf   
        If xq=1  
            xian="*****1"  
        ElseIf xq=2  
            xian="*****2"  
        ElseIf xq=3  
            xian="*****3"  
        ElseIf xq=4  
            xian="*****4"  
        ElseIf xq=5  
            xian="*****5"  
        Else   
            xian="allxian"  
        EndIf   
        Gosub 打开某页面****信息  
        keywood="bid" : hit=20  
        Gosub 过滤信息并打开  
    EndFor   
Return 点击****信息  
//打开某页面****信息(输入参数:xian)  
Sub 打开某页面****信息  
    url="www.****.cn/store/*****.aspx"  
    aid=xian  
    url=url & "?aid=" & aid  
    ie.navigate url  
    Gosub 延时  
Return 打开某页面****信息  
//打开某条信息(输入参数:keywood 链接URL中的关键词)  
Sub 过滤信息并打开  
    //读取当前页面链接数  
    urls=ie.document.all.tags("a").length  
    I=0 : J=0  
    //过滤出有用信息链接地址  
    For urls  
        linkstr=ie.document.all.tags("a")(I)  
        isBid=inStrRev(linkstr,keywood)  
        If isBid>0  
            links(J)=linkstr  
            J=J+1  
        EndIf   
        I=I+1  
    EndFor   
    //随机打开hit条信息  
    If J>0  
        For hit  
            bid=int(Timer*100) mod J  
            ie.navigate links(bid)  
            xxhit=xxhit+1  
            Gosub 延时  
        EndFor   
    EndIf   
Return 过滤信息并打开  
//等待网页完全打开  
Sub 延时  
    While ie.readystate < 4  
        Delay 200  
    EndWhile   
    Delay 500  
Return 延时