= request.GetResponse
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim sourcecode As String = sr.ReadToEnd()
TextBox2.Text = sourcecode
Catch ex As Exception
MessageBox.Show("Url Invalida")
Return
End Try
End Sub
Private Sub GuardarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GuardarToolStripMenuItem.Click
MsgBox("Guardando en C:\")
Dim oSW As New StreamWriter("C:\" + TextBox3.Text + ".htm")
Dim vLinea As String = TextBox2.Text
oSW.WriteLine(vLinea)
oSW.Flush()
oSW.Close()
End Sub
Private Sub AbrirToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AbrirToolStripMenuItem.Click
OpenFileDialog1.CheckFileExists = True
OpenFileDialog1.CheckPathExists = True
OpenFileDialog1.DefaultExt = "htm"
OpenFileDialog1.FileName = "By Smackinq "
OpenFileDialog1.Filter = "HTM Files (*.htm)|*.htm|All Files (*.*)|*.*"
OpenFileDialog1.Multiselect = False
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
End If
TextBox2.Text = My.Computer.FileSystem.ReadAllText(OpenFileDialog1.FileName)
End Sub
Private Sub CerrarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CerrarToolStripMenuItem.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Descarga: http://www.mediafire.com/download.php?dabbr7ddtfbrxyo