[vb.net]Sharecash Downloader Use Premium [Source Code]

[vb.net]Sharecash Downloader Use Premium [Source Code] - Printable Version

+- Sinisterly (https://sinister.ly)
+-- Forum: Coding (https://sinister.ly/Forum-Coding)
+--- Forum: Visual Basic & .NET Framework (https://sinister.ly/Forum-Visual-Basic-NET-Framework)
+--- Thread: [vb.net]Sharecash Downloader Use Premium [Source Code] (/Thread-vb-net-Sharecash-Downloader-Use-Premium-Source-Code)

[vb.net]Sharecash Downloader Use Premium [Source Code] - psycho.ts - 02-12-2012

This Is the ShareCash Downloader Source Uses PRemium Accounts...
It Is Only FOr Mirror Link Not Sharecash.org

By Doing THis Use Need
Textbox
Buttons
Button1 (Change to Navigate)
Button2 (Change to Download)

Let's The Coding Part....

After the Public Class Add This Code

Code:
Dim Iclick, submit

Click the Navigate Button Add This Code

Code:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
         If TextBox1.Text = "" Then
             MsgBox("Please enter a valid URL")
         Else
             WebBrowser1.Navigate(TextBox1.Text)
             MsgBox("Succesfully navigated, please wait!")
             Button2.Enabled = True
         End If
  End Sub

After the Documents Completed Navigating to Your Url (Goto the Download Page)

Code:
Private Sub  WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As  System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles  WebBrowser1.DocumentCompleted
         Iclick = WebBrowser1.Document.GetElementById("Image19")
         submit = WebBrowser1.Document.GetElementById("button")
         If (WebBrowser1.DocumentText.Contains("Close")) Then
             WebBrowser1.Document.GetElementById("dark").InvokeMember("click")
         End If
 End Sub

It is Only for Mirror So Add This Code (If Sharecash.org Link Enter Popup Message)

Code:
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
         Dim str1 As String = (TextBox1.Text)
         If str1.Contains("sharecash") Then
             MsgBox("You must make your link a mirror!")
             TextBox1.Text = ""
         End If
     End Sub

On The Download Button Add This Final Code

Code:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
         Iclick.InvokeMember("click")
         With WebBrowser1.Document
             .All("prem_username").InnerText = "l33ts" ' replace l33ts with your username
             .All("prem_password").InnerText = "l33ts" ' replace l33ts  with your password
         End With
         submit.InvokeMember("click")
     End Sub

After Click Navigate Please Wait 1~2 Minutes then Click Download