用PB编写一个简单的网络信息收集小工具软件
来源:互联网 发布:linux snmp配置详解 编辑:程序博客网 时间:2024/05/16 07:06
inet非可视对象是PB中提供的专门用来和Internet交互的对象,使用该对象可以编写Internet处理程序。该对象使用时,需要首先创建一个继承自InternetResult对象的用户自定义对象,在该自定义对象上编写脚本对从Internet上返回的结果进行处理。下面我们给出一个实例,该实例从企业黄页之类的网站中获取各个企业的信息,保存到本地计算机中。这样的软件对于从事电话推销的公司是非常需要的。
按照以下步骤开发该软件:
1、创建一个Standard Class,选择InternetResult对象,然后在该对象缺省函数InternetData中编写如下脚本(我们希望将获取到的内容保存到文件中,文件的格式是HTML的):
String ls_filename
string ls_content
integer li_FileNum
integer li_pos1,li_pos2
ls_content = string(data)
li_pos1 = Pos(ls_content,'<table align=center border=0 cellpadding=0 cellspacing=1>')
li_pos2 = Pos(ls_content,'联系人')
li_pos2 = pos(ls_content,'</table>',li_pos2) + len('</table>') - 1
ls_content = Mid(ls_content,li_pos1,li_pos2 - li_pos1)
if Pos(ls_content,'010') > 0 then
ls_filename = String(now(),'hhmmss') + right('00000' + string(rand(100)),3) + '.htm'
li_FileNum = FileOpen("d:/data/" + ls_filename, &
StreamMode!, Write!, Shared!, Replace!)
FileWrite(li_FileNum, ls_content)
FileClose(li_FileNum)
end if
Return 1
保存该用户对象,命名为n_ir_msgbox。
2、创建一个窗口,提供用户操作界面。非常简单的一个窗口,命名为w_main,在该窗口中定义一个窗口实例变量:
n_ir_msgbox iir_msgbox
在该窗口上放置一个命令按钮,在命令按钮的Clicked事件中编写如下教本:
inet linet_base
String ls_url
long ll_index
SetPointer(HourGlass!)
ls_url = 'http://www.6608.net/qy-ml/view_epinfo_vip.php?id='
iir_msgbox = CREATE n_ir_msgbox
if GetContextService("Internet", linet_base) = 1 THEN
For ll_index = 21272 to 1 step -1
This.Text = String(ll_index)
linet_base.GetURL(ls_url + String(ll_index), iir_msgbox)
next
END IF
DESTROY iir_msgbox
相信上面的程序,如果你能够真正理解,可以改造或者编写成非常使用的网络信息处理程序。
按照以下步骤开发该软件:
1、创建一个Standard Class,选择InternetResult对象,然后在该对象缺省函数InternetData中编写如下脚本(我们希望将获取到的内容保存到文件中,文件的格式是HTML的):
String ls_filename
string ls_content
integer li_FileNum
integer li_pos1,li_pos2
ls_content = string(data)
li_pos1 = Pos(ls_content,'<table align=center border=0 cellpadding=0 cellspacing=1>')
li_pos2 = Pos(ls_content,'联系人')
li_pos2 = pos(ls_content,'</table>',li_pos2) + len('</table>') - 1
ls_content = Mid(ls_content,li_pos1,li_pos2 - li_pos1)
if Pos(ls_content,'010') > 0 then
ls_filename = String(now(),'hhmmss') + right('00000' + string(rand(100)),3) + '.htm'
li_FileNum = FileOpen("d:/data/" + ls_filename, &
StreamMode!, Write!, Shared!, Replace!)
FileWrite(li_FileNum, ls_content)
FileClose(li_FileNum)
end if
Return 1
保存该用户对象,命名为n_ir_msgbox。
2、创建一个窗口,提供用户操作界面。非常简单的一个窗口,命名为w_main,在该窗口中定义一个窗口实例变量:
n_ir_msgbox iir_msgbox
在该窗口上放置一个命令按钮,在命令按钮的Clicked事件中编写如下教本:
inet linet_base
String ls_url
long ll_index
SetPointer(HourGlass!)
ls_url = 'http://www.6608.net/qy-ml/view_epinfo_vip.php?id='
iir_msgbox = CREATE n_ir_msgbox
if GetContextService("Internet", linet_base) = 1 THEN
For ll_index = 21272 to 1 step -1
This.Text = String(ll_index)
linet_base.GetURL(ls_url + String(ll_index), iir_msgbox)
next
END IF
DESTROY iir_msgbox
相信上面的程序,如果你能够真正理解,可以改造或者编写成非常使用的网络信息处理程序。
- 用PB编写一个简单的网络信息收集小工具软件
- 发布我做的一个小工具软件
- 编写一个简单的servlet小程序
- 关于设计一个网络信息收集软件的想法
- java编写的一个读取图片信息的小程序
- 一个简单的网络推广小方案
- 工具软件收集
- Ubuntu上的小工具软件
- 一个简单的C#编写的小机器人对话程序
- 编写一个信息查询小应用
- 使用Tkinter编写一个简单的提醒小程序
- 一个简单的pb动态报表
- 用HTML编写的一个小调查表
- 用Java编写的一个小记事本
- 用Java编写的一个小计算器
- java Swing 开发的C/S版的一个小工具软件
- 一个简单的日志收集
- 一个简单的日志收集
- ibatis中maxSessions配置项的位置
- 面向对象编程,我的思想(下部)
- UIQ3.1最终稳定版本
- 程序语言中的变量名为什么不能以数字开头
- 译稿:微软的10个幸运瞬间
- 用PB编写一个简单的网络信息收集小工具软件
- 数据类型之间的转换
- asp.net 2.0中实现弹窗报警提示
- Windows通知栏图标高级编程概述
- 股票不是人人能玩儿的
- 数据结构笔记--排序
- 国际知名企业 急招职位
- 格式化时间的方法
- DRM破解再升级 支持新版WM11