網址是 http://210.69.124.207/abbs/wkw/WHD2ASHOW.jsp?rowid=%2Fksd%2F09209%2F12155816.017,我用Inet1.OpenURL作會下載不完全,而用Inet1.Execute作有時又可以<但大多是不完全的>為什麼?又請問下列程式錯在哪?
Private Sub Command1_Click()
MyRec3.Open "SELECT * From url ", MyDBS, adOpenStatic, adLockOptimistic
Do
r = MyRec3.Fields("url")' 網址...
Inet1.Execute "" & r & ""
MyRec3.Fields("urlp") = Text1
MyRec3.Update
MyRec3.MoveNext
Loop Until MyRec3.EOF
MyRec3.Close
MsgBox "OK!"
End Sub
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim vTEMP() As Byte
Dim sData As String
Select Case State
Case icError
Case icResponseCompleted
sData = ""
   fWrite = FreeFile
   Do
    sData = sData & StrConv(vTEMP, vbUnicode)
    vTEMP = Inet1.GetChunk(1024, icByteArray)
    DoEvents
    If UBound(vTEMP) = -1 Then Exit Do
   Loop
  
   Text1 = sData
End Select
End Sub
謝謝!!
arrow
arrow
    全站熱搜

    vbqa 發表在 痞客邦 留言(1) 人氣()