Nah bila anda sering membackup data dengan cd/dvd pasti anda masih akan membuka cd/dvd dengan menekan tombol open pada cd/dvd rom-nya.jika seperti itu, maka akan terasa lama jika masih membuka dengan menekan tombol open tersebut yang terdapat pada cd/dvd rom tersebut.untuk meringankan/mempercepat pembukaan cd/dvd rom tanpa menekan tombol tersebut,mari kita mencoba untuk membuat programnya dengan menggunakan visual basic.

Ini berbeda dengan program lainnya karena membutuhkan module untuk menampung kode-kode.untuk menambah module pada project anda mudah sekali yaitu dengan mengklik project pada menubar lalu pilih add module kemudian open, maka modulenya akan muncul.

Adapaun cara untuk membuat program tersebut ikuti langkah-langkah berikut.

1. tambahkan kontrol-kontrol berikut pada form dan atur propertiesnya.
2. susunlah kontrol-kontrol tersebut sehingga tanpak seperti gambar diatas
3. tulis kode dibawah ini pada kode editor.

Tulis kode dibawah ini pada module yang telah ditambah pada project anda.

Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString _
As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As _
Long
Public Function OpenCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("open " & drv & ": type cdaudio alias " & Alias _
& " wait", vbNullString, 0&, 0&)
retval = mciSendString("set " & Alias & " door open", vbNullString, 0&, _
0&)
OpenCDDoor = retval
End Function
Public Function CloseCDDoor(ByVal drv As String) As Long
Dim Alias As String
Dim retval As Long
Alias = "Drive" & drv
retval = -1
retval = mciSendString("set " & Alias & " door closed", vbNullString, _
0&, 0&)
retval = mciSendString("close " & Alias, vbNullString, 0&, 0&)
CloseCDDoor = retval
End Function

Dan tulis kode dibawah ini pada form yang telah tersedia

Option Explicit
Private Sub Command1_Click()
OpenCDDoor "E"
End Sub
Private Sub Command2_Click()
CloseCDDoor "E"
End Sub

4. simpan form dan project serta module anda.
5. jalankan program tersebut, dan lihatlah hasilnya…!klik open untuk membuka cd/dvd rom,dan klik close untuk menutup cd/dvd rom.maka anda tidak akan merasa lama jika ingin membuka atau menutup cd/dvd rom dengan program tersebut.

Jika menurut anda kurang menarik program tersebut,anda bisa menambah sendiri sesuai dengan keinginan anda.

Selengkapnya...

Dalam belakangan waktu ini mungkin anda pernah mendengar nama virus Brontok?......ya betul virus yang menduplikatkan dirinya dan menyesuaikan nama virus barunya berdasarkan folder atau file pada window epxlorer yang aktif. Ciri khas dari virus ini adalah menggunakan Icon folder, sehingga dapat mengecoh seseorang yang melihatnya.

Mengapa membahas virus ini?,...hmm...m....sebetulnya saya tidak terlalu tertarik membahas ini, tau nggak apa yang menyebabkan saya tertarik membahasnya?...pasti nggak tau kan @!img13@.....ini disebabkan beberapa hari lalu banyak kehebohan mengenai virus brontok dan sempat menginfeksi beberapa komputer teman2ku @!img7@.


Ok untuk mempersingkat waktu kita langsung aja

Setelah dilihat struktur file dari virus tersebut ternyata pembuatan virusnya menggunakan visual basic 6.0 ops....ternyata made in vb coy....nah ini yang membuat tambah menarik.

Virus ini terdiri dari 1 form da 1 Module, dengan nama

Form -> BrontokForm
Module -> API

Dengan detail berikut:

Begin VB.Form BrontokForm
Caption = "Brontok.A"
ForeColor = &H8000000F&
ScaleMode = 1
BeginProperty Font
Name = ""
Size = 195323.4944
Charset = 29
Weight = 774
EndProperty

Begin VB.Timer TmrBrontok
Enabled = 0 'False
Interval = 2000
Left = 2160
Top = 0
Width = 57352
Height = 1
End
End


Dengan nama Project: Brontok.vbp, yang disimpan pada directory:
F:\VPROJECT\REHAB\Re-1\BRONTOK.A

Jelas sekali bahwa virus ini dibuat oleh sorang program lokal, yang mempunyai skill Menengah Keatas.

Ada beberapa procedure & function yang digunakan dengan nama:

Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
TmrBrontok_Timer()
Subr_004()
CekKoneksiInternet()
ManipulasiExec()
Subr_007()
KeluarDong()
BronReg()
CopyAppData()
DownloadVir()
StartDong()
StartUp()
DecTeks()
MutMutex()
MutCr()
DownloadFile()
CekUpdate()
InfekNetwork()
Judul()
CekRemDisk()
BikinFile()
GetEmailFile()
CekValidMail()
GetTeks()
CekKar()
ListMail()
GetTargetMBhs()
GavMailer()
BrontokMail()
Subr_031()
DataEmail()
DownMIME()
FindFilesAPI()
ListFileGav()
InfekFile()
SmallAttack()
MinggirLoe()
GetHostByNameAlias()
StripNulls()
BikinKredit()

Dan beberapa fungsi Api yang digunakan anatara lain:

Fungsi Baca Tulis Ke Register:
Declare Function RegOpenKeyExA Lib "advapi32.dll" ()
Declare Function RegSetValueExA Lib "advapi32.dll" ()
Declare Function RegCloseKey Lib "advapi32.dll" ()
Declare Function RegCreateKeyExA Lib "advapi32.dll" ()

Declare Function Sleep Lib "kernel32" ()

Mendapatkan Spesial Folder:
Declare Function SHGetPathFromIDList Lib "shell32.dll" ()
Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" ()

Membaca Isi Halaman Situs:
Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Mendapatkan Caption Dari Sebuah Window:
Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()

Dapatkan HWND Window aktif:
Declare Function GetForegroundWindow Lib "user32" ()

Shutdown, Reboot, LogOff Windows:
Declare Function ExitWindowsEx Lib "user32" ()
Declare Function GetCurrentProcess Lib "kernel32" ()
Declare Function OpenProcessToken Lib "advapi32" ()
Declare Function LookupPrivilegeValueA Lib "advapi32" ()
Declare Function AdjustTokenPrivileges Lib "advapi32" ()

Mendapatkan Jenis Media yang ada spt Removable Disk, CD-Rom dll:
Declare Function GetDriveTypeA Lib "kernel32" ()

Declare Function ShellExecuteA Lib "shell32.dll" ()
Declare Function RtlMoveMemory Lib "kernel32" ()

Winsock API:
Declare Function closesocket Lib "wsock32.dll" ()
Declare Function connect Lib "wsock32.dll" ()
Declare Function htons Lib "wsock32.dll" ()
Declare Function inet_addr Lib "wsock32.dll" ()
Declare Function recv Lib "wsock32.dll" ()
Declare Function send Lib "wsock32.dll" ()
Declare Function socket Lib "wsock32.dll" ()
Declare Function gethostbyname Lib "wsock32.dll" ()
Declare Function WSAStartup Lib "wsock32.dll" ()
Declare Function WSACleanup Lib "wsock32.dll" ()
Declare Function WSAAsyncSelect Lib "wsock32.dll" ()

Fungsi yang berhubungan dengan file:
Declare Function FindFirstFileA Lib "kernel32" ()
Declare Function FindNextFileA Lib "kernel32" ()
Declare Function GetFileAttributesA Lib "kernel32" ()
Declare Function FindClose Lib "kernel32" ()
dll...

Terlihat jelas pada fungsi-fungsi api yang digunakan bahwa penularan virus ini brontok menggunakan beberapa cara. seperti pengiriman lewat email, pencarian nama komputer yang terhubung kejaringan dengan menyalin dirinya pada folder yang di sharing dan menyalin dirinya pada window explorer yang aktif. kalo gak salah si pembuat virus mempunyai SMTP sendiri (wah ati-ati mas ntar ketangkep)

Jika dilihat kembali pada strukturnya ada beberapa kata yang di encrypt, kemungkinan berupa exploit code atau apalah namanya. hanya allah dan pembuat virus yang tau. @!img1@

Virus ini mempunyai fungsi ExitWindowsEx yang diimport dari file user32.dll, fungsi ini biasanya digunakan untuk mematikan windows.
kayaknya sipembuat virus membuat triger yang berisi perintah mematikan/merestart komputer.

Selain itu dalam struktur filenya terdapat kata-kata seperti ini:
FOLDER.HTT
RORO
.HTT
.DOC
.CSV
.EML
.CFM
.PHP
.WAB
.EML
.TXT
.HTML
.HTM
MY DATA SOURCES
MY EBOOKS
MY MUSIC
MY SHAPES
MY VIDEOS
MY DOCUMENT

Dan ada beberapa alamat situs yang diserang, apa DDOS ya...hik..hik..tau deh. Selain itu pembuat virus mencantumkan nama: --JowoBot#VM Community --

Selanjutnya coba lihat tiga fungsi api berikut:

Declare Function GetWindowTextA Lib "user32" ()
Declare Function GetWindowTextLengthA Lib "user32" ()
Declare Function GetForegroundWindow Lib "user32" ()

Sepertinya pembuat virus memanfaatkan windowexplorer untuk memperbanyak filenya ke folder yang lain. Dengan cara membaca Caption yang terdapat pada windows aktif yang berisi nama directory/path. Dengan menggunakan 2 fungsi diatas (GetWindowTextA & GetWindowTextLengthA), Sedangkan fungsi GetForegroundWindow digunakan untuk mendapatkan Handle Window (HWND) yang sedang aktif.

Jadi kesimpulannya virus ini tidak dapat menyalin dirinya kalo Caption pada windowExplorer bukan berupa Directory/Path. Sehinga si pembuat virus menonaktifkan setting pada Folder Options.

Kemudian yang lebih unik lagi virus ini membaca isi halaman situs yang terbuka pada sebuah InternetExplorer dengan menggunakan fungsi:

Declare Function InternetOpenA Lib "wininet.dll" ()
Declare Function InternetOpenUrlA Lib "wininet.dll" ()
Declare Function InternetReadFile Lib "wininet.dll" ()
Declare Function InternetCloseHandle Lib "wininet.dll" ()

Kalo saya tebak, sepertinya pembuat virus mencari alamat email pada halaman situs yang terbuka dan mengirimkan virus nya berdasarkan alamat email yang ditemukan pada halaman tersebut dengan kata kunci seperti mailto: ataupun @xxxx.com dll...

....Untuk membersihkannya silahkan baca selengkapnya di situs AntiVirus yang lain...he..he...maaf saya hanya membahas yang ini saja.

Tapi kalo pengen menonaktifkan virus ini secara cepat, coba masuk safemode kemudian rename file MSVBVM60.dll menjadi MSVBVM60.dl_
karena virus ini membutuhkan runtime vb. Nah kalo udah gak aktif baru kita bisa hapus beberapa registry entry dan file-file virus brontoknya.

Sayang sekali virus ini tidak menggunakan program compressor, sehingga memudahkan orang untuk mengenalinya.

Semoga bermanfaat,...@!img0@
Maaf kalo ada beberapa informasi yang salah, karena saya hanya mengambil dari pengalaman pribadi bukan bersumber dari informasi yang lain.

Selengkapnya...

Hari natal tak serasa lengkap jika tanpa lampu natal, nah sekarang kita mencoba untuk membuat Lampu Natal sendiri dengan menggunakan aplikasi Visual Basic, tanpa harus mengeluarkan uang untuk membeli lampu natal yang mungkin harganya mahal...!
Dengan lampu natal buatan sendiri tersebut, Hari Natal kita akan menjadi hari natal yang murah dan meriah.


Adapun cara membuatnya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur Propertiesnya sebagai berikut.

Jenis Kontrol	Nama Kontrol	Properties	Nilai
Form	Form1	Caption	Lampu Natal
Shape	Shape1	Caption	Lampu1
		BackColor	&H000040C0&
Shape	Shape2	Caption	Lampu2
		BackColor	&H000040C0&
Shape	Shape3	Caption	Lampu3
		BackColor	&H000040C0&
Shape	Shape4	Caption	Lampu4
		BackColor	&H000040C0&
Timer	Timer1	Interval	700

NB: Semakin kecil nilai interval pada Timer, maka semakin cepat pergantian warnanya. Tapi sebaliknya semakin besar nilainya, maka akan semakin lambat pergantian warnanya.
2. Susunlah letak kontrol-kontrol tersebut pada form sehingga kira-kira seperti gambar dibawah ini.
3. Ketiklah listing berikut pada kode editor.

Dim lamp As Boolean
Private Sub Timer1_Timer()

If Lamp=True Then
Shape2.BackColor=vbGreen
Shape4.BackColor=vbGreen
Shape1.BackColor=vbBlack
Shpae3.BackColor=vbBlack
lamp=False
Else
Shape1.backColor=vbRed
Shape3.BackColor=vbRed
Shape2.BackColor=vbBlue
Shape4.BackColor=vbBlue
lamp=True
End If

End Sub
4. Simpan Form dan Project anda.
5. Kemudian jalankan program tersebut dengan cara klik run pada menu bar, lalu klik start, atau dengan cara menekan F5 pada keyboard, atau juga dengan cara jalan pintas yaitu mengklik tombol yang bergambar simbol Play dibawah menu bar. Setelah anda menjalankan program tersebut lihatlah hasilnya, tidak kalah menarik dengan lampu aslinya kan...?
Selengkapnya...