Hack Forums
[.NET] [vb.net]Netload Downloader Use Premium accont[vb.net][Source] - Printable Version

+- Hack Forums (https://hackforums.net)
+-- Forum: Tech (https://hackforums.net/forumdisplay.php?fid=444)
+--- Forum: Coding (https://hackforums.net/forumdisplay.php?fid=151)
+---- Forum: Software Development (https://hackforums.net/forumdisplay.php?fid=118)
+---- Thread: [.NET] [vb.net]Netload Downloader Use Premium accont[vb.net][Source] (/showthread.php?tid=3059560)

[vb.net]Netload Downloader Use Premium accont[vb.net][Source] - Mrkiller2010 - Nov 30, 2012

This is the Source Code for # Using Premium Account....

By Using this You Need
  • Webbrowser

  • Textbox

  • Button1 for Navigate

  • Button2 for Download



First You Need to Add the Webbrowser from the Toolbox
After that

Click the Form1 and Add this Code :-
[This will Load the netload Server
Code
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Enabled = False
WebBrowser1.Navigate("http://#/")
End Sub

Click the Button1 and Add this Code :-
This is Enter Ur Premium account Details and Login You In....
Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
            MsgBox("Please Wait !!.. 1 Minutes For the First Use", MsgBoxStyle.Information, "Netload Premium Downloader")
            WebBrowser1.Document.GetElementById("txtuser").SetAttribute("Value", "your username")
            WebBrowser1.Document.GetElementById("txtpass").SetAttribute("Value", "your password")
            WebBrowser1.Document.GetElementById("txtlogin").Invokemember("click")
        Catch
            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "Netload Premium downloader")
        End Try
End Sub

After that Add this Code :-
If the Document Completed It Enable the Program
Code
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.Enabled = True
End Sub

At Last Click the Button2 and Add this Code :-
This will download Begin
Code
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub

If you Use this Please Let me In Your Credit System

COMMENTS ARE WELCOME
PLEASE DON'T SPAM THIS

* - Meerkat. - Nov 30, 2012

Did you seriously create 2 "tutorials" that are exactly the same, just for another website?
If it were a good tutorial, all right, but it's truly truly horrible.

Rule #1, never EVER use webbrowsers.