Cara Hapus File Autorun

Akhir akhir ini kita sering menemui folder aneh yang berupa folder autorun.inf dan recycler bahkan dari pengalaman saya sendiri semua computer yang saya temui memiliki folder ini entah itu punya teman,warnet,keluarga,…dll.

Awalnya saya mengira ini adalah folder system dari Windows karena folder ini tidak bisa dihapus dan dihidden oleh system,Tapi setelah saya melakukan browsing di internet saya menemukan bahwa folder ini diciptakan oleh virus untuk menyembunyikan diri dari kejaran warga ,he....he....kayak maling aja, dan untungnya saya menemukan cara menghapusnya di salah satu forum online yang membahas tentang computer,

thanks for all……….. :

Caranya :

Buka Command Prompt : Klik Run dan ketik cmd

Pada kota cmd ketik RD / S / Q \\.\ Nama Drive\Nama folder
Disini saya mengetik RD / S / Q \\.\E:\autorun.inf

he...he....cuma segitu aja kok....simple kan !

"berbagi untuk kebersamaan"

Mengecek Ukuran dan Jenis File dengan VB

Untuk melihat ukuran maupun jenis file sangantlah mudah di lakukan, tapi pernahkah anda berfikir bagai mana system komputer dapat melakukan itu dengan mudah, padahal dibalik layar banyak coding coding tersusun untuk dapat membantu kita, salah satunya untuk melihat ukuran sebuah file maupen jenis file.
Nah bagai mana kalau kita membuatnya sendiri dengan bantuan Microsoft Visual Basic atau yang sering disebut dengan VB.

Cara:
Tambahkan sebuah componen Microsoft Commond Dialog Control 6.0
dengan cara klik kanan pada bagian toolsbox yang kosong lalu pilih Component...


Pada form tambahkan component : 1 textbox, 1 CommondDialog, 2 buah Button.

Pada form tambahkan kode prosedur, dengan mengklik dua kali form, dan ketikkan coding berikut :
Sub baca(foldername)
Dim x, f, s, h, t
Set x = CreateObject("Scripting.FileSystemObject")
Set f = x.getfile(foldername)
s = f.Size
t = f.Type
h = Val(s) / 1000000
h = Left(h, 4) & " " & "Mb"

MsgBox "Ukuran file : " & h & vbLf & "" _
& "Jenis file :" & t
End Sub

Pada Command1 tambahkan coding berikut:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Pada Command2 tambahkan coding berikut :

Private Sub Command2_Click()
Call baca(Text1.Text)
End Sub


GOOD LUCk....

Kunci Folder Dengan VB

Sebenarnya banyak cara untuk mengunci sebuah file dan folder, salah satunya dengan bahasa Dos, sebenarnya jika dikatakan dikunci kayaknya kurang pas.....
kerena sebenarnya file tersebut hanya di sebunyikan saja alias heiden, namun heiden disini disembunykan secara sistem, jadi dengan cara apapun tidak bakalan terlihat tanpa menggunakan coding dari bahasa Dos.
Nah bagaimana kalau bahasa dos itu kita refrensikan di visual basic 6, bisa ngak ya......?
Bisa....
Download file: disini

Konversi Access ke SQL

Padahal sebelumnya ku ngak tau kalau database access bisa di konversi ke sql server 2000, kerena sebelumnya ku ngak pernah makai sql server.....
ya.....awalnya ada temen yang nyuruh bantuin buatin program rent car sederhana tapi database nya pake sql server...., wah bagi ku itu tantangan baru yang menguntungkan, he.....he......
selain bisa nolongin temen kan bisa jadi belajar sql deh.....

Mungkin ku ngak begitu menguasai sakali yang namanya sql server, tapi asal ada kemauan pasti bisa kok.....
dari sejak tu ku cari bahan materi baik buku,internet ya sama senior senior juga. Ku hanya bisa berbagi apa yang ku punya dan apa yang ku bisa.

He....he.... langsung aja deh, yang mau tau caranya download di sini

Buka Web dengan VB 6

Membuka halaman web dengan membuat program sendiri menggunakan Visual Basic 6.0
Download di sini

Koneksi VB 6 ke Access 2003 dengan Adodc

Ada beberapa cara untuk mengkoneksikan visual basic 6.0 dengan database, salah satunya menggunakan object ADODC yang akan dikoneksikan dengan database Access 2003.

Download di sini

Aplikasi buka gambar / Foto

Malam ini malam minggu, ya......seperti biasa selalu sendirian menghabiskan malam ini,
he......he.......ketimbang kesepian coba-coba ja buat sesuatu yang baik sapa tau berguna tuk sendiri maupun orang lain.
Ni merupakan salah satu yang ku buat malam ini, yaitu sebuah aplikasi sederhana untuk membuka sebuah file gambar. anda dapat mengembangkannya lagi ke yang lebih sempurna. selamat berkarya ya........
satu lagi.....ingat ! "kesendirian bukan berarti kesepian,karena masih bayak hal yang dapat kita lakukan tuk menghilangkan rasa kesepian".

Source Code Program

Private Sub driver_Change()

folder.Path = driver.Drive

End Sub


Private Sub folder_Change()

isi.Path = folder.Path

End Sub




Private Sub isi_Click()

Dim a As String

On Error Resume Next

a = folder.Path & "\" & isi.FileName

Gambar.Picture = LoadPicture(a)

End Sub