eeeee.jpg
Download: http://www.mediafire.com/download/w0...%AEgrabber.exe
Zródło:
Download: http://www.mediafire.com/download/w0...%AEgrabber.exe
Zródło:
Kod:
' 'barubarubarukoru
Imports System.Net
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim request As System.Net.HttpWebRequest = System.Net.HttpWebRequest.Create(TextBox1.Text)
Dim response As System.Net.HttpWebResponse = request.GetResponse()
Dim sr As System.IO.StreamReader = New System.IO.StreamReader(response.GetResponseStream())
Dim sourcecode As String = sr.ReadToEnd()
RichTextBox1.Text = sourcecode
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub btnCopy_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncopy.Click
'barubarubarukoru
If RichTextBox1.SelectedText <> "" Then
'barubarubarukoru
Clipboard.SetText(RichTextBox1.SelectedText)
Else
' 'barubarubarukoru
MsgBox("Nie wybrałeś tekstu do skopiowania koleszko!!!")
End If
End Sub
End Class