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

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

本脚本涉及WScript的一些运用,供参考! 

运行环境:分辨率:1440×900 色深: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 延时
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

按键精灵网页操作源码例程》有0个想法

发表回复

您的邮箱地址不会被公开。必填项已用 * 标注