[VB.NET] 4Shared Downloader Without Premium Account [Source Code]

[io.kent]

You'll need

Textbox

textbox1 - 4Shared Url

textbox2

webbrowser1

button ( Change text to download )

Click Form1 Load, Add This Code :-

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Button1.Enabled = False
WebBrowser1.Hide()
TextBox2.Hide()
TextBox2.Text = "http://www.4server.info/download/"
End Sub

Click The Download Button, Add This Code :-

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox2.Text + TextBox1.Text)
MsgBox("Please wait a sec")
End Sub

Click Textbox1, Add This 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("www.4shared.com/file/") Then
Button1.Enabled = True
Else
Button1.Enabled = False
End If
End Sub

[raynor009]

Nice, am invatat sio ceva de aici.

[BLODAS666]

Daca ai invata si sa scrii, ar fi un castig si mai mare...