网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文
因上级业务部门某网站的对本级发布的信息点击数进行考核,特编制了本脚本进行模拟人工点击,因涉及有关内容的保密,脚本中一些字符用了"*"代替,请见谅!
本脚本涉及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 延时
- 上一篇: 易语言淘口令生成源码(sign算法开源)
- 下一篇: 鱼刺多线程通用架构_代理注册x4.31
猜你喜欢
- 2020-06-25 手机群控框架,可自由灵活编辑功能
- 2019-03-25 按键精灵脚本源码 五开辅助战斗
- 2019-03-25 按键精灵脚本源码 奶德自动N
- 2019-03-25 按键精灵脚本源码 梦幻西游自动打怪
- 2019-03-25 按键精灵脚本源码 梦幻西游五开挂机
- 2019-03-25 按键精灵脚本源码 梦幻西游挂机感恩版v1.1
- 2019-03-25 按键精灵脚本源码 急速封妖1.2.2
- 2019-03-25 按键精灵脚本源码 火源小怪
- 2019-03-25 按键精灵脚本源码 董卓脚本
- 2019-03-25 按键精灵脚本源码 钓鱼智能版
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有26位网友发表了看法:
置加密方式 评论于 [2019-01-19 10:11:42] 回复
XX抹机按键精灵源码
客户认证发放机构 评论于 [2019-01-22 09:07:44] 回复
按键精灵驾校源码
火山安卓教程网 评论于 [2019-03-09 15:45:20] 回复
按键精灵如何获取网页验证码
三叶资源网站 评论于 [2019-03-24 10:15:35] 回复
按键精灵Run+url
三叶之家 评论于 [2019-04-22 08:29:04] 回复
按键精灵获取当前页源码
教程网视频 评论于 [2019-05-03 20:24:49] 回复
按键精灵怎么用代码打开网页
三叶论坛 评论于 [2019-05-15 10:18:57] 回复
按键精灵源码参考
易语言娱乐网 评论于 [2019-05-19 09:23:48] 回复
按键精灵网页操作
易语言资源站 评论于 [2019-05-23 11:26:13] 回复
按键精灵网页日志
易语言资源网站 评论于 [2019-05-25 23:25:57] 回复
按键精灵网页版打开网页中的链接
易语言教程网站 评论于 [2019-06-18 16:44:09] 回复
按键精灵+htmlget+网页源码
易语言例程 评论于 [2019-08-29 10:29:45] 回复
资源网的源码是怎么去操作
易语言教程下载 评论于 [2019-09-03 12:15:59] 回复
xian j ie
易语言TV 评论于 [2019-10-01 14:57:22] 回复
按键精灵++源码
资源网 评论于 [2019-10-11 01:57:58] 回复
按键精灵源码
易语言教程 评论于 [2020-02-02 20:48:06] 回复
按键精灵网页验证码
模块说明 评论于 [2020-02-19 12:44:20] 回复
按键精灵做网页用户名
广大易友 评论于 [2020-02-21 21:55:56] 回复
按键精灵源码库
广大易友 评论于 [2020-02-21 22:13:34] 回复
按键精灵操作网页
广大易友 评论于 [2020-02-23 21:48:44] 回复
按键精灵源码地址
易语言 评论于 [2020-03-04 17:16:47] 回复
按键精灵网页版教程
易语言例程 评论于 [2020-05-09 19:43:07] 回复
网页按键精灵教程
鱼刺类 评论于 [2020-05-28 00:06:39] 回复
按键精灵++监控超文本浏览器+
易语言 评论于 [2020-08-18 17:10:53] 回复
按键精灵怎么网页源代码读取想要的内容
易语言 评论于 [2020-08-18 17:11:44] 回复
按键精灵网页操作代码
易语言 评论于 [2020-08-18 17:12:59] 回复
UserVar mmhit
易语言 评论于 [2020-08-19 17:11:54] 回复
按键精灵读取网页代码并提取
火山PC版 评论于 [2020-09-10 20:42:51] 回复
按键精灵+淘宝+源码
例程源码 评论于 [2021-06-04 11:02:37] 回复
按键精灵读取网页元素源码
资源站 评论于 [2021-06-09 22:54:57] 回复
按键精灵取网页文字源码