AesopRock1227 (09-25-2010)
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
LOL it doesnt stop leechers. it slows them DOWN. I still need to hide it as in making my file hidden.
Last edited by boboben1; 09-25-2010 at 04:08 PM. Reason: 2 textboxes Required
AesopRock1227 (09-25-2010)
actually it could still get leached caz some1 could just save it
to desktop and they will still have it
and from there they could change codes on it
RESPECT LIST
[MPGH]AVGN - Cause He Rapes " " (CA)
Lonely Tedy Bear #2 (Op7)
[IMG]https://i47.photobucke*****m/albums/f190/Sinnemesis/funny_31.gif[/IMG]
TASKS
50 POSTS [ ]
100 POSTS [ ]
250 POSTS[ ]
1000 POSTS[ ]
code a hack [ 1/2 way done ]
get banned 10 times [ ]
lol well yea..
RESPECT LIST
[MPGH]AVGN - Cause He Rapes " " (CA)
Lonely Tedy Bear #2 (Op7)
[IMG]https://i47.photobucke*****m/albums/f190/Sinnemesis/funny_31.gif[/IMG]
TASKS
50 POSTS [ ]
100 POSTS [ ]
250 POSTS[ ]
1000 POSTS[ ]
code a hack [ 1/2 way done ]
get banned 10 times [ ]
Whoa, that's a nice code.
Nice Coding Man (:
Post in general this isn't a hack.
/Moved.
Thanks now we just need a coder
Last edited by AesopRock1227; 09-26-2010 at 04:37 PM. Reason: netgame
"It is dangerous to be right when the government is wrong."
Voltaire
Like Jade Dynasty or heard good things about it and thinking about trying it out?
Check out MPGH's Jade Dynasty section!
Respect List
---------------
Solify