Setelah membahas mengenai Windows API, sekarang kita akan mulai memanfaatkan fungsi-fungsi windows API tersebut ke dalam implementasi program menggunakan visual basic 6.0. Kita akan menggunakan fungsi API Visual Basic, pada materi ini akan membuat folder dengan visual basic.
Pengertian File DLL (Dynamic Link Library)
Maret 9, 2010Setelah pembahasan kita tentang Windows API 1 dan WIndows API 2 maka materi ini adalah kelanjutan dari Windows API tersebut. Kita sering melihat file berekstensi .DLL. Apakah file DLL ?
Menyembunyikan Kursor Mouse dengan Visual Basic
Februari 23, 2010Suatu hari, kursor mouse komputer saya hilang, sampai-sampai kebingungan. Saya coba pakai mouse yang baru-pun tidak bisa juga kembali. Komputer saya re-start. Tidak menemukan solusi juga. He he he … Ternyata komputer saya terkena virus.. Yang salah satu tujuan serangannya adalah menyembunyikan kursor mouse…
Mengetahui Keyascii Keyboard dengan Visual Basic
Februari 8, 2010ASCII (American Standart Code Information Interchange) adalah suatu standar internasional dalam kode huruf dan simbol seperti Hex dan Unicode tetapi ASCII lebih bersifat universal, contohnya 124 adalah untuk karakter “|”. Ia selalu digunakan oleh komputer dan alat komunikasi lain untuk menunjukkan teks. Kode ASCII sebenarnya memiliki komposisi bilangan biner sebanyak 8 bit. Dimulai dari 00000000 hingga 11111111. Total kombinasi yang dihasilkan sebanyak 256, dimulai dari kode 0 hingga 255 dalam sistem bilangan Desimal.
Menonaktifkan Ctrl+Alt+Del pada Windows 98
Maret 18, 2008Suatu ketika, task manager komputer saya mati. Ketika saya menekan ctrl+alt+del kok tidak hidup, kenapa? Ternyata komputer saya terkena virus yang menyebabkan fungsi tersebut dimatikan. Di sini akan saya bahas bagaimana menghilangkan / mematikan fungsi Ctrl+Alt+Del dengan Visual Basic 6.0 dan bagaimana pula menghidupkan kembali fungsi tersebut.
Buat sebuah form dan masukkan 2 buah command button dan beri nama command1 (caption : Matikan ) dan command2 (Caption : Hidupkan). Tulis atau copy paste program di bawah ini :
Option explicit
Private Declare Function System ParametersInfoLib(“User32” Alias “SystemParametersInfoA” (ByVal uAction As Long, ByVal uParam as Long, lpvParam As Any, ByVal fuWinIni As Long)
Private Command1_click()
‘Tombol tidak aktif
Dim IngRet As Long
Dim blnPrevValue as Bolean
lngRetVal=SystemParametersInfo (SPI_SCREENSAVERRUNNING,true, blnPrevValue,0&)
End Sub
Private Command2_click()
‘Tombol mati
Dim IngRet As Long
Dim blnPrevValue as Bolean
lngRetVal=SystemParametersInfo (SPI_SCREENSAVERRUNNING,flase, blnPrevValue,0&)
End Sub
Selamat mencoba!