How to Make ANTI leech for your hacks
How to Make ANTI leech for your hacks using vb.net and innerTEXT commands.
2 textboxes needed. 1 webbrowser.
Button 1:
[php]
WebBrowser1.Document.GetElementById("navbar_userna me").SetAttribute("value", TextBox1.Text)
WebBrowser1.Document.GetElementById("navbar_passwo rd").SetAttribute("value", TextBox2.Text)
For Each i As HtmlElement In WebBrowser1.Document.GetElementsByTagName("input")
If i.GetAttribute("value") = "Log in" And i.GetAttribute("tabindex") = "104" Then
i.InvokeMember("click")
End If
Next
[/php]
Button 2:
[php] Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate("https://www.mpgh.net/forum/173-operation-7-hacks/")
Label1.Text = "Processing....."
End Sub[/php]
WebBrowser Complete:
[php] Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEv entArgs) Handles WebBrowser1.DocumentCompleted
If WebBrowser1.Url.ToString() = "https://www.mpgh.net/forum/173-operation-7-hacks/" Then
If WebBrowser1.Document.GetElementById("content-eh").InnerTex*****ntains("Welcome,") Then
Label1.Text = "Finished!" & vbNewLine & "Click me to go on"
End If
End If
End Sub[/php]
Label 1 Click:
[php]
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
If WebBrowser1.Url.ToString() = "https://www.mpgh.net/forum/173-operation-7-hacks/" Then
If WebBrowser1.Document.GetElementById("content-eh").InnerTex*****ntains("Welcome,") Then
extract()
End If
End If
End Sub[/php]
Extract():
[php]Public Sub extract()
SaveToDisk()
Sleep(100)
Shell("perX.exe")
End Sub
Public Sub SaveToDisk()
' Get a reference to the running application.
Dim a As FileStream = New FileStream("PerX.exe", FileMode.OpenOrCreate)
a.Write(My.Resources.PerX, 0, My.Resources.PerX.Length)
Dim b As FileStream = New FileStream("Menu Test.dll", FileMode.OpenOrCreate)
b.Write(My.Resources.Menu_Test, 0, My.Resources.Menu_Test.Length)
a.Close()
b.Close()
Dim x As StreamWriter
x = File.CreateText("PerX.ini")
x.Write(My.Resources.PerX1)
x.Close()
End Sub
Private Sub Form1_Close(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.FormClosing
File.Delete("Menu_Test.dll")
End Sub
[/php]
SUCK THAT LEECHERS :p
LOL it doesnt stop leechers. it slows them DOWN. I still need to hide it as in making my file hidden.
