《VisuaBasic下如何实现全自动网页刷新机器人功能.docVIP

Visual Basic下如何实现全自动网页刷新机器人功能 By ShyLion 近几日出于某种被迫的需要，领导要求一周之内务必完成学校某页面的点击量。 该页面内插入的是其他方统计代码，不过好一点的是领导只要求点击量，不要求点击率。 简单分析了下，有两种实现方法： 进入后台直接修改，但是由于不是统计代码管理方管理员，所以这种想法是不可能的事情，直接先给毙掉了。 人为刷新浏览量。不过手动执行也是一件累死人的工程。这个想法也是不可行的。 这可是出了难题了。怎么办才好呢？思来想去，决定还是写个小程序让计算机自己来完成此项艰巨的任务吧！ 说明：本实例属于编程学习的普及篇，主要针对初学Visual Basic的菜鸟同志们，高手自动略过。目的主要是，使如我一般的菜鸟同志们对Visual Basic等面向对象的编程有一个感性的认知，让大家明白编程将不再是一个遥不可及深不可测的东西。 编程环境：Visual Basic 6.0 程序设计思路及逻辑流程图： 具体的程序设计过程： 程序界面，如图所示 当然，程序界面，即程序外壳。 程序的外壳大家可以根据自己的喜好和习惯随意布置 各主要组件对应关系 开始按钮 Command1 网址输入框 Text1 停止按钮 Command2 网页刷新时间隔设定 Text2 定时器 Timer1 刷新次数统计 Label3 浏览器监视窗口 WebBrowser1 编程实现 //点击“开始”按钮时触发的事件 Private Sub Command1_Click() Timer1.Enabled = True //启动定时器 WebBrowser1.Navigate (Text1.Text) //打开需要刷新的网址 Command1.Enabled = False //禁用“开始”按钮 Command2.Enabled = True //激活“停止”按钮 Text1.Enabled = False //禁止再修改需要刷新的网页地址 Text2.Enabled = False //禁止再修改网页刷新时间间隔设定值 End Sub //事件结束的标志 //点击“停止”按钮时触发的事件 Private Sub Command2_Click() Timer1.Enabled = False //禁用定时器 Command1.Enabled = True //启用“开始”按钮 Command2.Enabled = False //禁用“停止”按钮 Text1.Enabled= True//可以再次设定新的需要刷新的网页地址了 Text2.Enabled= True//可以再次设定新的网页刷新时间间隔值了 End Sub //事件结束的标志 //当点击“网址输入框”时触发的事件 Private Sub Text1_Click() Text1.Text = //清空网址等待用户输入 End Sub //事件结束的标志 //当“网址输入框”改变时触发的事件 Private Sub Text1_Change() Label3.Caption = 0 //计数清零 End Sub //事件结束的标志 //当“网页刷新时间间隔设定”被点击时触发的事件 Private Sub Text2_Click() Text2.Text = 10 //默认设定“网页刷新时间间隔”为10秒 End Sub //事件结束的标志 //“定时器”完成定时的时候触发的事件 Private Sub Timer1_Timer() Label3.Caption = Label3.Caption + 1 //网页刷新次数计数加1 Timer1.Interval = Text2.Text * 1000 //初始化“定时器”定时时间 Timer1.Enabled = True //再次启动该“定时器” WebBrowser1.Navigate(Text1.Text) //同时打开“需要刷新的网页”地址 End Sub //事件结束的标志 3.编译生成 Ctrl+F5全部编译执行，调试没有错误以后就可以生成可执行文件了。 生成可执行文件：文件/生成xxxxxxx.exe,在弹出的对话框中填入生成的文件的名称和保存的地址就OK了。注意：生成的文件要以.exe结尾。 4，运行并测试效果 5，总结： 其实编写一些小程序并不难，难的是大家缺乏认知的勇气和独立思考和分析