Membuka dan Menutup CD/DVD Rom Dengan VB

04.58

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

  1. simpan form dan project serta module anda.
  2. 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...

Read On 0 komentar

Kode Brontok

05.43

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...

Read On 0 komentar

Membuat Lampu Natal Dengan Visual Basic

02.08

Lampu Natal
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 KontrolNama KontrolPropertiesNilai
FormForm1CaptionLampu Natal
ShapeShape1CaptionLampu1


BackColor&H000040C0&
ShapeShape2CaptionLampu2


BackColor&H000040C0&
ShapeShape3CaptionLampu3


BackColor&H000040C0&
ShapeShape4CaptionLampu4


BackColor&H000040C0&
TimerTimer1Interval700

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...

Read On 0 komentar

Membuat Wallpaper Viewer Dengan Visual Basic

05.41

Wallpaper Viewer
Jika anda sering mengganti-ganti walpaper, tentunya sangat merepotkan jika anda harus membuka Control Panel, lalu Display Seting dan bla bla....

Dibicarakan saja sudah capek. Dengan aplikasi ini anda cukup memilih file gambar seperti pada program Picture Viewer dan mengklik sebuah tombol, maka sekejap wallpaper anda telah berubah.



Adapun caranya adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur propertiesnyaseperti berikut.
Jenis KontrolNama KontrolProperties
Nilai
FormForm1CaptionPicture Viewer
DriveListBoxDrive1--
DirListBoxDir1--
FileListBoxFile1--
ImageImage1StretchTrue
CommondButtonCommand1CaptionSet This Picture As Wallpaper


2. Susunlah letak kontrol-kontrol tersebut pada form sehingga menjadi kira-kira seperti gambar berikut.


3. Ketikkan listing berikut pada kode editor

Private Const SPIF_UPDATEINFILE=&H1
Private Const SPI_SETDESKWALLPAPER=20
Private Const SPIF_SENDWININICHANGE=&H2

Private Declare SystemParametersInfo

Selengkapnya...

Read On 0 komentar

Membuat MP3 Player Dengan Visual Basic

03.44

MP3 Player
Anda sering mendengarkan musik dengan komputer? Jika ya, anda sudah tahu dan akrab dengan Winamp, Windows Media Player, dan Aplikasi multimedia lainnya.
Kita akan mencoba untuk membuat sendiri aplikasi untuk memutar MP3. Apa yang terlintas dibenak anda?"Wah, berapa lama membuatnya? Pasti rumit sekali!"



Jangan salah, Dengan ActiveX semuanya jadi mudah. Kita hanya perlu membuat program untuk memerintah kan ActiveX tersebut untuk membuka file dan memainkannya. Sebelumnya, Tambahkan ActiveX MMControl ke dalam ToolBox terlebih dahulu yaitu dengan cara klik kanan pada ToolBox-Component-Microsoft Multimedia Control.

Cara membuat MP3 Player sendiri adalah sebagai berikut.
1. Tambahkan kontrol-kontrol ke Form dan atur propertiesnyasebagai berikut.
Jenis KontrolNama KontrolPropertiesNilai
FormForm1CaptionMP3 Player
LabelLabel1Caption(kosongkan)
--BorderStyleFixedSingle
MMControlMMControl1--
CommonDialogCommonDialogCancelErrorTrue
--FilterMP3 Audio (*.mp3)|*.mp3
CommondButtonCommand1CaptionOpen File


2. Susunlah letak kontrol-kontrol tersebut pada Form sehingga menjadi kira-kra seperti sebagai berikut.


3. Ketikkan listing program berikut pada kode editor.

Private Sub Command1_Click()
On Error GoTo loncat
MMControl1.Command="Stop"
CommonDialog1.ShowOpen
MMControl.FileName=CommonDialog.FileName
MMControl1.Command="Open"
Label1.Caption=CommonDialog.FileTitle
loncat
Exit Sub
End Sub

Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command="Stop"
End Sub

4. Simpan Form dan Project anda

5. Jalankan program tersebut.Klik tombol Open File. Pilih lagu yang anda inginkan. Klik tombol Play. Maka musik yang anda pilih akan mengalun dari speaker anda. Ajiiiip....!!!

Mungkin anda merasa tidak puas dengan penampilan atau wisualisasi dari program MP3 Player ini. Berkresilah sesuka selera karena keinginan dan selera seseorang pasti berbeda-beda.
Selengkapnya...

Read On 0 komentar

Tips Meningkatkan Kineja komputer

04.09

Seiring dengan banyaknya software/program yang diInstall dikomputer, sering kta merasa kinerja komputer kita menjadi semakin lambat. Atau kadang kita tahunya komputer kita semakin lambat kinerjanya. Hal ini wajar apalagi dengan semakin lamanya pengguna komputer dengan berbagai program yang diInstall.
Sebenarnya kinerja komputer bisa dipengaruhi oleh banyaknya faktor, baik software maupun hardware. Ada berbagai tips yang dapat dilakukan agar kinerja komputer menjadi lebih baik. Berikut beberapa tips yang mungkin dapat dilakukan dan mungkin sebagian sudah umum kita lakukan atau kita dengar.


1. Uninstall program yang tidak dipakai
Meskipun tidak djalankan, program yang jarang atau tidak pernah digunakan bisa ikut mempengaruhi kinerja komputer. Terutama program yang menyimpan setting-settingnya di registry. Mengapa ? Karena setiap kali komputer dijalankan, registry windows akan di load di memory, sehingga semakin besar ukurannya, memory yang digunakan akan semakin besar pula.

2. Periksa program-program yang otomatis berjalan dengan windows
Hal ini bisa dicek dengan program seerti autoruns. Biasanya ada beberapa program yang selalu berjalan yang sebenarnya tidak begitu penting atau kurang penting.

3. Defragment harddisk
Ini bisa dilakukan melalui menu Properties-System Tools-Disk Defragment yang tujuannya untuk menata kembali file-file sesuai prioritasnya.


4. Mematikan service yang tidak terpakai
Hal ini memerlukan sedikit pengetahuan tentang komputer. Service merupakan program /library juga yang dijalankan (diLoad) setiap komputer hidup. Bisa dilihat melalui Control Panel-Administrative Tools-Service. Jika komputer tidak pernah digunakan online (internet), ada beberapa service yang bisa di non aktifkan Misalnya Windows Time dan beberapa service lainnya (bisa dicek keterangannya). Tapi hal ini juga perlu berhati-hati, jika salah bisa menyebabkan beberapa fungsi windos tidak berjalan.

5. Hindari penggunaan Skin Windows
Kadang penggunaan tampilan/skin tambahan windows bisa mempengaruhi kinerja cukup signifikan. Terutama penggunaan software tambahan. Sebaiknya jika ingin tampilan yang berbeda gunakan saja Windows Themes (bawaan windows).

6. Matikan beberapa efek Visual Windows
Selain itu beberapa efek windows [xp] yang tidak begitu penting bisa dmatikan. Bisa dilakukan melalui klik kanan di My Computer pilih Properties. Ditab Advance di bagian Performance klik tombol Settings. Bisa dinon aktifkan Visual efek yang tidak begitu penting.


7. Batasi tambahan jumlah font
Ini berpengaruh ke aplikasi yang menggunakan Pilihan font seperti Microsoft Office. Dengan banyaknya font tambahan akan mempengaruhi ke memori yang digunakan dan loading akan terasa lebih lambat.

8. Hapus icon di desktop yang tidak penting
Sering program yang diInstall dikomputer akan membuat shortcut baru (icon) di desktop. jika kita jarang menggunakan icon-icon ini, lebih baik dihapus saja, bisa sedikit mengurangi pemakaian memori.

9. Scan komputer dari Virus, Spyware, Trojan dan sejenisnya
Jika komputer terinfeksi virus,sebagian besar kinerjanya akan menurun, bahkan bisa-bisa komputer menjadi sangat lambat. Oleh karena itu sebaiknya selalu dijaga agar komputer bebas virus. Kemudian jika komputer sering terkoneksi internet, maka sebaiknya sekitar sebuan sekali komputer discan dari Spyware, Mallware dan sejenisnya.

10. Gunakan alternatif software yang lebih ringan
Beberapa software kadang hanya digunakan untuk beberapa hal yang sederhana. Misalnya menggunakan ACDSee hanya untuk melihat-lihat gambar atau foto saja. Jika hanya ingin melihat-lihat gambar dengan format standard, maka bisa menggunakan Fasilitas bawaan windows, karena ACDSee cukup berat terutama versi-versi terbaru.

11. Menggunakan software TuneUp, defragment dan sejenisnya
Jika kita kesulitan dengan optimalisasi sistem manual dan ingin cara mudah, maka kita bisa menggunakan program-program TuneUp, Defragment registry, dan sejenisnya.

12. Upgrade hardware
Jika memiliki dana tambahan dan spesifikasi komputer masih pas-pasan maka bisa di Upgrade hardwarenya seperti Memory, CPU atau VGA yang paling berpengaruh biasanya CPU dan Memory.

13. Install Ulang
Kadang sistem yang sangat lama dan penuh dengan program yang banyak/jarang terpakai, meski sudah dioptimalisasi masih saja lambat. Jika seperti itu, mungkin Install Ulang adalah jalan yang terbaik, karena biasanya dengan sistem yang lebih "Fresh" kinerja bisa maksimal.

Cara diatas mungkin hanya sebagian tips yang bisa dilakukan dan saya yakin masih banyak tips lain termasuk optimalisasi setting hardware. Jika ada tambahan tips lainnya, silahkan Semoga bermanfaat.

Selengkapnya...

Read On 0 komentar
02.50

coba


lom ada

Selengkapnya...

Read On 0 komentar
Abd.Rauf © 2008 Template by:
Zenplate