his is the Source Code for FileFactory 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 FileFactory 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 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 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, "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 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
