Hallo Mau Buat Download Manager Sendiri Seperti IDM Namun Ini Sangat Tidak Mirip Dengan IDM Hehehehehe Lanjut Aja Yuk Sob

Program Yang Dibutuhkan:
Visual Basic 2010 Express

Caranya:
Buat 2 Textbox
Buat 2 Button
Buat 2 Label
Buat 1 Progress Bar

Quote

Code Nya:
Imports System.Net
Public Class Form1

Code Nya:
Imports System.Net
Public Class Form1

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.Filter = "Jpeg Image|.Jpg|.exe|*.exe|.rar|*.rar|.zip|*zip|.mp3|*.mp3"
SaveFileDialog1.ShowDialog()
TextBox2.Text = SaveFileDialog1.FileName
End Sub
Public WithEvents download As WebClient
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
download = New WebClient
download.DownloadFileAsync(New Uri(TextBox1.Text), TextBox2.Text)

End Sub

Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged
ProgressBar1.Value = e.ProgressPercentage
End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

End Sub
End Class

 

Sedoot!! 

Jika Bingung Kesini Aja

Jangan Lupa Cendol

How To Make Ramnit.Shortcut Killer

Hello Guys Nice To Meet You . This Time I Will Show You How To Make Your Own Ramnit.Shortcut Killer

Allright Its Time.

You Need Visual Basic 6

1.Add "Microsoft CommonDialog  Sp3" To Your Project
And In Your Form1 Add
a. 1 Text Box
b. 2. Command Button
c. 1. CommonDialog

Example:
And Then Add This Code To Your From:
Private Sub Command1_Click()
CommonDialog1.Filter = "Shortcut|*.Lnk;"
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Private Sub Command2_Click()
If RamnitExploit(Text1.Text) = True Then
MsgBox "File  : " & "[" & Text1.Text & "]" & "  Detected Virus Ramnit.shortcut!!", vbCritical, "Anti Ramnit.Shortcut"
If MsgBox("Are You Sure Want To Delete?", vbQuestion + vbYesNo, APP_PROGRAM) = vbYes Then
On Error Resume Next
End If
Kill Text1.Text
Else
MsgBox "File  : " & "[" & Text1.Text & "]" & " Its Not Virus Shorcut", vbInformation, "Anti Ramnit.Shortcut"
End If
End Sub

Private Sub Form_Load()
MsgBox "Thanks For Gilang4321", vbInformation, "Anti Ramnit.Shortcut"
End Sub

And Then Add a Module With Name "ModDetectLnk" And Add This Code To Your Module
Function RamnitExploit(spath As String) As Boolean
Dim TheVirusString As String, TheVirusName As String
If FileLen(spath) / 110 >= 110 Then
Exit Function
End If
TheVirusString = "ì!ê:i"
TheVirusName = "Ramnit.Shortcut" 'bisa dikembangin dgn membaca database. Apakah cocok?? Jika ya > lapor"
If InStr(ReadFile(spath), TheVirusString) > 0 Then
RamnitExploit = True
End If
End Function
Public Function ReadFile(sFile As String) As String
On Error Resume Next
Open sFile For Binary Access Read As #1
ReadFile = Space(LOF(1))
Get #1, , ReadFile
Close #1
End Function

Ok Guys Thanks For Read This If You Have Problem ? Just Comment In This Post Bye