.NET [VB] All Downloaders source code[CODES]

Hello HF,
I am able to share this all thanks for DevilMayCry. It's all his I'm just sharing it on HF I hope you don't mind.

[vb.net]4Shared Downloader Use Premium accont[vb.net][Source]

This is the Source Code for 4Shared 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 4Shared 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://www.4shared.com/")

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, "4Shared Premium Downloader")

            With WebBrowser1.Document

                .GetElementById("login").InvokeMember("click")

                .GetElementById("loginfield").SetAttribute("Value", "your Username")

                .GetElementById("passfield").SetAttribute("Value", "your password")

            End With

            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("value") = "Login" Then

                    webpageelement.InvokeMember("click")

                End If

            Next

        Catch

            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "4Shared 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

===========================================================================

[vb.net]zShare Downloader Use Premium accont[vb.net]

This is the Source Code for zShare 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 zShare 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://www.zshare.net/myzshare/login.php")

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, "zShare Premium Downloader")

            WebBrowser1.Document.GetElementById("username").SetAttribute("Value", "your username")

            WebBrowser1.Document.GetElementById("password").SetAttribute("Value", "your password")

            WebBrowser1.Document.GetElementById("submit").Invokemember("click")

        Catch

            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "zShare 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

============================================================================

[vb.net]FileFactory Downloader Use Premium accont[vb.net][Source]

This is the Source Code for FileFactory 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 FileFactory 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://filefactory.com/member/login.php")

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, "FileFactory Premium Downloader")

            WebBrowser1.Document.GetElementById("email").SetAttribute("Value", "your username")

            WebBrowser1.Document.GetElementById("password").SetAttribute("Value", "your password")

            WebBrowser1.Document.GetElementById("submit").Invokemember("click")

        Catch

            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "FileFactory 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

===========================================================================

[vb.net]Uploading.com Downloader Use Premium accont[vb.net][Source]

This is the Source Code for Uploading.com 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 Uploading 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://uploading.com/")

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, "Uploading Premium Downloader")

            With WebBrowser1.Document

                .GetElementById("login_button").InvokeMember("click")

                .GetElementById("email").SetAttribute("Value", "your Username")

                .GetElementById("password").SetAttribute("Value", "your password")

            End With

            Dim allelements As HtmlElementCollection = WebBrowser1.Document.All

            For Each webpageelement As HtmlElement In allelements

                If webpageelement.GetAttribute("type") = "submit" Then

                    webpageelement.InvokeMember("click")

                End If

            Next

        Catch

            MsgBox("You Are Already Click This" & vbNewLine & " Please Enter the Url then Click Download", MsgBoxStyle.Information, "Uploading 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

===========================================================================

Well That All.

Again A Very Big Thanks To DevilMayCry. If You Use Any Of These Codes Please Give Him Credits For These Codes.

IF You Really Liked This And Used The Codes Please Rate Thread, Thanks.