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

Menyembunyikan File Dalam Gambar

Apakah anda mempunyai keinginan untuk menyembunyikan file-file pribadi anda agar tidak bisa di lihat oleh orang lain? sebenarnya cara sederhana adalah dengan cara meng-hidden file yang ingin disembunyikan, tetapi cara ini ada kelemahannya. File tersebut bisa di lihat apabila seseorang meng-aktifkan fitur Show hidden files and folder pada menu Folder options.

Pada trik kali ini kita akan mencoba menyembunyikan file rahasia ke dalam gambar dengan menggunakan Aplikasi Jpeg+FileBinder. Tetapi tetap saja kita membutuhkan beberapa program pendukung lainnya seperti WinZip, 7zip, dan lain sebagainya, karena nantinya sebenarnya file tersebut menjadi bentuk kompresi tetapi seakan-akan menjadi gambar.
Langkah-langkah yang harus dilakukan:

1. Untuk percobaannya, buat satu file dari notepad. Dalam contoh kali ini penulis membuat file fastncheap.txt.
2. Dilanjutkan dengan mengkompress file tersebut dengan WinRAR ke dalam bentuk ZIP.
3. Jalankan Aplikasi Jpeg+FileBinder untuk memulai trik penyembunyian file.
4. Masukkan satu file gambar yang ingin digunakan sebagai tempat persembunyian File rahasia pada kolom Pictures.
5. Masukkan file yang ingin di sembunyikan ke dalam kolom Compressed File, ingat! file tersebut sudah kita buat pada langkah no 2.
6. Pada Output Picture File, ketikkan nama yang anda ingini sebagai nama gambar yang akan di buat.
7. Kemudian klik tombol OK. Maka akan tercipta sebuah file gambar yang di dalamnya terdapat file rahasia anda.
8. Untuk mencoba apakah trik ini berhasil anda bisa membuka file gambar yang sudah tercipta tadi menggunakan WinRAR. Klik Kanan pada file gambar kemudian Open With > WinRAR.
   
9. Segera kita dapat mengetahui isi file gambar tersebut.

Cara ini sebenarnya sangat efektif dimana bila seseorang melihatnya sepintas tak akan pernah berfikir bahwa di dalamnya terdapat file rahasia, karena gambar tersebut bisa di lihat melalui Microsoft Frame Picture akan tetap seperti gambar.
Tetapi bisa anda menyimpan file yang agak besar ukurannya, cara ini bisa sangat mencurigakan. Karena gambar yang biasanya pixelnya rendah mempunyai ukuran 100 MB karena di dalamnya terdapat file rahasia anda. Selalu gunakan cara-cara di atas dengan bijak.
Sumber: http://blog.fastncheap.com/trik-menyembunyikan-file-dalam-gambar-jpeg-dan-jpg/#ixzz1vUpIhpqs


Download : Jpg+filebinder

PF All Mode, Score Hack, Great Hack, Auto keys, combo hack x9999, Score 2x, Skip Pin2nd

FITUR DAN HOTKEY ADA DI DALEM JADI TINGGAL DOWNLOAD AJAH

DOWNLOAD HERE

[Ayodance] IN-Cyber v.6079

Created : Zekertkot
Support : IN-Cyber.com ( International Cyber Community )

Fiture :
- PF All Mode
- Auto Key
- Invite 5 NPC
- Anti Spam Chat
- Skip Pin 2nd
- No Grey & Red Key's
- Peach Emoticon Cash

Download : Here
Virus Jotti : Here( Ada Virusnya karna saya Pack Dll dan Injectornya )

Info : Kami tidak bertanggung jawab ada yang mengatasnamakan kami di Forum/Blog/Web Lain

Masih Ragu ? Masih Takut Dengan Keylogger ? Harap Scan Terlebih Dahulu Bila Masih Ragu untuk Memakai Cheat kami

Ub40 Kingston Town Lyrics

The night seems to fade,
But the moonlight lingers on
There are wonders for everyone
The stars shine so bright,
But they`re fading after dawn
There is magic in kingston town

(chorus)

Oh kingston town,
The place I long to be
If I had the whole world
I would give it away
Just to see, the girls at play
Ooh, ooh, ooh

And when I am king,
Surely I would need a queen
And a palace and everything, yeah
And now I am king,
And my queen will come at dawn
She`ll be waiting in kingston town

(chorus)

And when I am king,
Surely I would need a queen
And a palace and everything, yeah
And now I am king,
And my queen will come at dawn
She`ll be waiting in kingston town

Lyric Bondan Prakoso & Fade 2 Black - R.I.P (Rhyme In Peace)

Apa kata yang tepat untuk protes terhadap waktu 

Rhyme style apa yang pas untuk demo sedih diriku 

Air mataku sanggup katakan lebih banyak dari pada pesan yang disampaikan semua kata 

Yoo.. yo capital A. N. double much respect fo ya 

Kau Selalu karyakan beat untuk rima ber-lima 

Meski jarak terbentang ambisi bukan halangannya 

Roda dua F1Z menghempas debu Bogor-Jakarta 

Sahabat terbaik dalam mengejar mimpi 

Teman terhebatku untuk dapat berdiri 

Kawan yang tepat untuk sharing hal-hal kecil 

Kuping yang pas untuk 

Untuk dengar rima Cypress Hill 

Masih tergambar jelas alunan takdir 

Kita lewati malam dengan sebotol beer 

Bicara, tertawa, bertingkah semaunya 

Sudah saatnya kau tenang di alam sana 

[reff] 

Hari - hari yang kan ku jalani kini semua kan terasa sunyi … 

Walau hampa pasti ku hadapi ku ucapkan slamat jalan … 

[rapp] 

slamat jalan teman, semoga kau tenang 

Semua canda tawa bayangmu takkan pernah hilang 

Dalam setiap langkah, kau slalu ada 

Sampai kini ku tak percaya kau telah tiada 

Yo.. yo.. Mungkin batu nisan pisahkan dunia kita 

Namun ambisimu kan kujaga slalu membara 

Gapailah doa yang slalu kubaca 

Menemani langkahmu menuju singgasana surga 

Back to : [reff] 

Selamat tinggal tidur yang lelap mimpi yang indah slamat jalan 

Selamat tinggal (We love you my brother you’ll always in my heart) tidur yang lelap 

(Even now and forever we’ll always one blood) mimpi yang indah 

(Hope God give you heaven, may God be with you) slamat jalan 

kami detik ini tanpa kau seperti minus 1 Kami hisap “King Arthur” untuk kau kawan 

Kami minum “ini” hanya untuk mu teman 

Kau adalah milik-Nya, dan kepada-Nya lah kau kembali 

Sampai bertemu Brother, dialam sana nanti Rhyme In Peace