Question

VB 6.0 网页代码获取问题

form1下有timer1和text1，窗口代码如下：

Private Declare Function icePub_openUrl Lib "icePubDll.dll" (ByVal currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As Integer,ByVal strProxy As String) As Integer

Private Sub Timer1_Timer()

Dim str1 As String
Dim a2 As Integer

str1 = Space(1024 * 20 + 1)

a2=icePub_openUrl("http://xxx.xxxx.xxx",str1,1024*20,"")
Text1 =str1
End Sub

这是别人给我的代码，我看不明白，试了后在text1中可以得到该网页的代码，但不完整，只是网页代码最前面的一小部分，还差很多，是不是text1显示代码的空间不够？这里的设置什么的有关系么？请高手指点
同目录下是有一个icePubDll.dll，我把1024*20改为1024*30后，显示的就更多，显然是和这个有关，但是我调到1024*100,1024*200什么的，就显示错误，怎么调才运行正常？？

Answer 1

用这个吧，关于你所说的不能及时获取实时变化的网页内容问题，主要是：
.htm是静态页面，xmlhttp默认先在ie缓存中读取页面 ，所以
可以在.htm后面加后缀，让xmlhttp认为这是不同的网页
代码为：
Dim n As Integer
Private Sub Command1_Click()

Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", "http://www.baidu.com" & "?" & n, True
xmlHTTP1.send
While xmlHTTP1.readyState <> 4
DoEvents
Wend
Text1.Text = xmlHTTP1.responseText
Set xmlHTTP1 = Nothing
n = n + 1
End Sub

Answer 2

Private Declare Function icePub_openUrl Lib "icePubDll.dll" (ByVal currentUrlString As String, ByVal strHtmlText As String, ByVal TextMaxLen As Integer,ByVal strProxy As String) As Integer

同目录下还有一个icePubDll.dll吧，要不就在系统目录下
icePub_openUrl调用了其中的函数，具体的代码是写在icePubDll.dll中的
调用的第三个参数1024*20估计是长度，把它增大点看看

获取代码你可以用XMLHTTP，用Webbrowser，用Inet
希望能够帮助您