tg123(T.G.) 帮我看看可行么？谢谢！！！

Question

能详细一点么？谢谢给你去信了！

Answer 1

Private Sub Inet1_StateChanged(ByVal State As Integer)
    Select Case State
    Case icResponseReceived
    Dim vtData As String ' Data variable.
    
    Do While Len(vtData) = 0
       vtData = Inet1.GetChunk(1024, icString)
       s$ = CStr(vtData)
    Loop
MsgBox s$
    End Select
End Sub注：我精过试验，发现程序没问题，只不过有时候得不到返回值
我加了一段话修正