Taki żarcik (skanerek żródła strony).....strona haker.pl wkleila sie automatycznie

[barukoru]

Download: http://www.mediafire.com/download/w0rw7jrbm1j2h8b/BaruKoru®grabber.exe

Zródło:

'   '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