/ Snippet Library - View Code

Snippet details

ID: 370

Viewed: 1242

Added: 2002-08-19

Version:

Snippets in this catagory
Show Printable Version

how to save a webpage and put it in a text box.

General Details

Snippet uploaded by: snippet

Email : webmaster@snippetlibrary.com

Snippet By: Unknown

Snippet By:	Unknown
Declarations
Highlight Allnone
Code
Highlight All'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

No Reviews to show