Access也能象网页一样实时预报天气

李寻欢 · 发表于 2002-12-8 05:18:00

如果没装VB6，请先执行reg.bat注册控件。

制作思路：利用msinet控件获取天气预报网页信息，把信息放在本地一个文本文件中，然后从该文本文件筛选出自已想要的天气预报信息，在窗体中显示。文件下载

[此贴子已经被作者于2002-12-7 21:17:50编辑过]

waltonw · 发表于 2002-12-8 05:53:00

是否要点击下面的网址呢？老是提示加载出错。另外，请问是否可以同样提取证券信息吗？

李寻欢 · 发表于 2002-12-8 06:18:00

不是，没装VB的话要注册控件，说明文件里有

李寻欢 · 发表于 2002-12-8 06:39:00

如在98里还要把REGSVR32.EXE跟控件及reg.bat文件放在一起才能注册控件。

[此贴子已经被作者于2002-12-7 22:38:55编辑过]

prince · 发表于 2002-12-8 16:23:00

做的好！

cg1 · 发表于 2002-12-8 18:17:00

倒，这东西还编译？

prince · 发表于 2002-12-8 18:21:00

msinet.ocx怎么用？

李寻欢 · 发表于 2002-12-8 18:35:00

Dim b() As Byte
'设定协议为 HTTP
Inet1.Protocol = icHTTP
'设定 URL 属性
Inet1.URL = "http://www.szmb.gov.cn/homepage.php"
'将读取的 HTML 数据放进一个 byte array.
b() = Inet1.OpenURL(, icByteArray)
'建立一个暂存文件來存放取回來的 html 文件
Open "d:\weather.txt" For Binary Access Write As #1
Put #1, , b()
Close #1
'注：Inet1是msinet.ocx控件在窗体上的名称。

李寻欢 · 发表于 2002-12-8 18:43:00

编程思路及用到的控件已告诉你了，源程序不看也罢：）

[此贴子已经被作者于2002-12-8 10:42:53编辑过]

prince · 发表于 2002-12-8 18:47:00

谢谢，原来是放到数组中再写的文件，我明白了。
那你用什么方法准确定位文本文件中的预报信息？

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

Access也能象网页一样实时预报天气

注册控件实在麻烦

msinet.ocx的用法

别倒：授人与鱼不如授人与渔(复cg1兄)

群介绍
主题无相 (随机显示版	同地区群块其他地区)