您的位置：程序门 -> vb -> 网络编程

又一繁体转简体的问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

又一繁体转简体的问题[已结贴,结贴人:yexingfeng]

发表于：2007-01-12 15:13:35 楼主

发表于：2007-01-12 22:20:371楼得分:10

抓网页有好多种方法，我知道的有inet xmlhttp webbroswer，关于你这个问题，繁体简体我也是一头雾水，不过，我用xmlhttp方法试过了可以正确读出这个叶面的繁体，附代码函数如下：
public function geturlpage（url as string) as string
on error resume next
dim xhttp as new xmlhttprequest

xhttp.open "post ", url, false
xhttp.send
if xhttp.readystate = 4 then
geturlpage = xhttp.responsetext
else
debug.print （ "server: " + url + ")no resposed！ ")
end if
set xhttp = nothing
if err.number <> 0 then err.clear
end function

函数调用：填个richbox控件
richtextbox1.text = geturlpage（ "http://big5.phoenixtv.com:82/gate/big5/www.phoenixtv.com/ ")

发表于：2007-01-13 20:43:062楼得分:0

非常的谢谢你!不过这个xmlhttp在那里可以调用呢?

发表于：2007-01-13 20:45:323楼得分:0

我得这样才能把分给你??

发表于：2007-01-13 20:45:554楼得分:0

我得怎样才能把分给你??

发表于：2007-01-15 15:33:365楼得分:10

不过这个xmlhttp在那里可以调用呢?
工程里引用微软的xml
===========
给分嘛，嘿嘿，点“我的问题”，点问题后面的管理，就可以一个一个给了，今天有收成了，呵呵

发表于：2007-01-16 15:41:256楼得分:0

非常谢谢你!我结贴了!

下一篇：vb ftp已上传文件大小的取得
上一篇：用vb的inet控件怎么得到ftp站点下的文件列表?