This is the Source Code for # Using Premium Account....
By Using this You Need
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
Click the Button1 and Add this Code :-
This is Enter Ur Premium account Details and Login You In....
After that Add this Code :-
If the Document Completed It Enable the Program
At Last Click the Button2 and Add this Code :-
This will download Begin
If you Use this Please Let me In Your Credit System
COMMENTS ARE WELCOME
PLEASE DON'T SPAM THIS
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 SubClick 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 SubAfter 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 SubAt 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 SubIf you Use this Please Let me In Your Credit System
COMMENTS ARE WELCOME
PLEASE DON'T SPAM THIS
