Snippet Library

none

'here I copy it to a file and then display it in a textbox to boot

Private Sub Command1_Click()
   
   Dim myFile As String
   myFile = "C:my documentsmyfile.txt"
   Dim myString As String

'surf to the webpage and read it's content into myString
   Open myFile For Output As #1
   
     myString = Inet1.OpenURL("http://forums.vb-world.net/showthread.php?s=&threadid=74797", icString)
     ReturnStr = Inet1.GetChunk(2048, icString)
     
     Do While Len(ReturnStr) <> 0
        DoEvents
        myString = myString & ReturnStr
        ReturnStr = Inet1.GetChunk(2048, icString)
     Loop

'save the content of the webpage source to "C:my documentsmyfile.txt"
   Write #1, myString

 
 'clear the textbox
   Text1.Text = ""
 
       Text1 = myString

End Sub;