how to use internet transfer control to get view source of any site?
Printable View
how to use internet transfer control to get view source of any site?
Private Sub Inet1_StateChanged(ByVal State As Integer)
Dim sTemp As String
Select Case State
Case 12 'icResponseCompleted
sTemp = Inet1.GetChunk(100)
While sTemp <> ""
txtCode.Text = txtCode.Text & sTemp
sTemp = Inet1.GetChunk(100)
Wend
Case 11 'icError
MsgBox Inet1.ResponseInfo, vbCritical, "ERROR!"
End Select
End Sub
***************************
Here you go .. now you can put what ever sTemp returns for you in your RTB or TB :D