Meminta Maaf adalah Kebiasaan Orang Jepang

Menambah kapasitas harddisk (iseng)

Menambah Kapasitas Hard Disk Dengan Garam

Cara Membuat Hardisk Internal Menjadi Eksternal

Belajar Matematika lebih mudah dengan Microsoft Mathematics

AMD Mengeluarkan Processor Terbaru

Cara Menggunakan Facebook Messenger untuk PC

Mengembalikan data yang hilang dengan Free Undelete

Solusi perbaikan printer inkjet

ROUTER

Mencari blogger satu daerah

Membuat portable software dengan winrar

Teknik Mencari Driver paling ampuh

Membuat installer package sendiri

Cara Melacak keberadaan Seseorang dengan No HP

KISAH PEMBANTAIAN UMAT HINDU DAN BUDHA INDIA OLEH ISLAM

Biografi Steve Jobs – Pendiri Apple Inc

Membuat program text editor menggunakan VB

Membuat Task manager sendiri

Tampilan Menu yang kereen Abezz...

Membuat Buku Tamu

Billing Wartel

Membuat dan menghapus folder melalui VB

Menghubungkan VB dengan semua database

Membuat Program Barcode

Membuat angka terbilang dengan bahasa indonesia

Visualisasi Mengklik Tombol dari Coding

Menekan Tombol di Form Lain

Program kirim SMS melalui PC

Latihan membuat game dengan VB

Shutdown Timer menggunakan VB

Shutdown timer adalah program yang berfungsi untuk menentukan kapan komputer akan dimatikan secara otomatis setelah menentukan dengan sebuh program.Nah kali ini kamu bisa membuat sendiri program shutdown timer dengan kreasi kalian sendiri.
komponen yang dibutuhkan adalah :

3 Command Buttons
4 Combo Boxes
1 Form
6 Labels
2 List Boxes
8 Menus
1 Timer
1 Module

jika kamu tidak ingin repot dengan membuat sendiri kamu juga bisa download source codenya yang sudah jadi dan langsung jalan
disini
Berikut source code lengkapnya


Option Explicit
Private Sub btnExit_Click()
frmCancelUnload = False
Unload Me
End Sub

Private Sub btnTurnOFF_Click()
btnTurnON.Enabled = True
btnTurnOFF.Enabled = False

mnuPopupTurnON.Enabled = True
mnuPopupTurnOFF.Enabled = False

cboHour.Enabled = True
cboMinute.Enabled = True
cboSecond.Enabled = True
cboAMPM.Enabled = True
lstOptions.Enabled = True
lstExtra.Enabled = True

Me.Caption = "Shutdown Timer - OFF"

tmrShutdown.Enabled = False
End Sub

Private Sub btnTurnON_Click()
btnTurnON.Enabled = False
btnTurnOFF.Enabled = True

mnuPopupTurnON.Enabled = False
mnuPopupTurnOFF.Enabled = True

cboHour.Enabled = False
cboMinute.Enabled = False
cboSecond.Enabled = False
cboAMPM.Enabled = False
lstOptions.Enabled = False
lstExtra.Enabled = False

Me.Caption = "Shutdown Timer - ON"

strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text
tmrShutdown.Enabled = True
End Sub

Private Sub cboAMPM_Click()
strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text
End Sub

Private Sub cboHour_Click()
strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text
End Sub

Private Sub cboMinute_Click()
strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text
End Sub

Private Sub cboSecond_Click()
strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text
End Sub

Private Sub Form_Load()
Dim intCnt As Integer

Dim strOptSel As String
Dim strExtSel As String

Dim strHour As String
Dim strMinute As String
Dim strSecond As String
Dim strAMPM As String

For intCnt = 1 To 12
DoEvents
cboHour.AddItem intCnt
Next intCnt

For intCnt = 0 To 59
DoEvents
cboMinute.AddItem intCnt
Next intCnt

For intCnt = 0 To 59
DoEvents
cboSecond.AddItem intCnt
Next intCnt

With lstOptions
.AddItem "Shutdown OS"
.AddItem "Turn off Computer"
.AddItem "Restart"
.AddItem "Log off"
End With

cboAMPM.AddItem "AM"
cboAMPM.AddItem "PM"

lstExtra.AddItem "Use Force"
lstExtra.AddItem "Force only if Freezes"

strIniPath = App.Path & "\" & App.Title & ".ini"

strOptSel = String(255, vbNullChar)
strExtSel = String(255, vbNullChar)

Call GetPrivateProfileString("Options", "Selected", 1, strOptSel, 255, strIniPath)
Call GetPrivateProfileString("Extra", "Selected", 1, strExtSel, 255, strIniPath)

lstOptions.Selected(Int(strOptSel)) = True
lstExtra.Selected(Int(strExtSel)) = True

strHour = String(255, vbNullChar)
strMinute = String(255, vbNullChar)
strSecond = String(255, vbNullChar)
strAMPM = String(255, vbNullChar)

Call GetPrivateProfileString("Shutdown", "Hour", 3, strHour, 255, strIniPath)
Call GetPrivateProfileString("Shutdown", "Minute", 15, strMinute, 255, strIniPath)
Call GetPrivateProfileString("Shutdown", "Second", 45, strSecond, 255, strIniPath)
Call GetPrivateProfileString("Shutdown", "AMPM", "AM", strAMPM, 255, strIniPath)

cboHour.Text = strHour
cboMinute.Text = strMinute
cboSecond.Text = strSecond
cboAMPM.Text = strAMPM

strShutdown = cboHour.Text & ":" & cboMinute.Text & ":" & cboSecond.Text & " " & cboAMPM.Text

If IsWinNT = False Then lstExtra.Enabled = False
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim xTray As Single

xTray = x / Screen.TwipsPerPixelX

Select Case xTray
Case WM_RBUTTONDOWN
Call SetForegroundWindow(Me.hwnd)
Call PopupMenu(mnuPopup)
Case WM_LBUTTONDBLCLK
Call SetForegroundWindow(Me.hwnd)
Me.Show
End Select
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Cancel = frmCancelUnload
If frmCancelUnload = True Then
Me.WindowState = vbMinimized
Me.Hide
Me.WindowState = vbNormal
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call Shell_NotifyIcon(NIM_DELETE, nid_Tray)
Call SavePos(Me, strIniPath)

Call WriteINI("Options", "Selected", lstOptions.ListIndex, strIniPath)
Call WriteINI("Extra", "Selected", lstExtra.ListIndex, strIniPath)

Call WriteINI("Shutdown", "Hour", cboHour.Text, strIniPath)
Call WriteINI("Shutdown", "Minute", cboMinute.Text, strIniPath)
Call WriteINI("Shutdown", "Second", cboSecond.Text, strIniPath)
Call WriteINI("Shutdown", "AMPM", cboAMPM.Text, strIniPath)
End Sub

Private Sub lstExtra_Click()
lstExtra.Selected(lstExtra.ListIndex) = True
End Sub

Private Sub lstExtra_ItemCheck(Item As Integer)
Dim iLst As Integer

For iLst = 0 To (lstExtra.ListCount - 1)
If iLst <> Item Then lstExtra.Selected(iLst) = False
Next iLst
End Sub

Private Sub lstOptions_Click()
lstOptions.Selected(lstOptions.ListIndex) = True
End Sub

Private Sub lstOptions_ItemCheck(Item As Integer)
Dim iLst As Integer
For iLst = 0 To (lstOptions.ListCount - 1)
DoEvents
If iLst <> Item Then lstOptions.Selected(iLst) = False
Next iLst
End Sub

Private Sub mnuPopup_Click()
Select Case Me.Visible
Case True
mnuPopupHide.Enabled = True
mnuPopupShow.Enabled = False
Case False
mnuPopupHide.Enabled = False
mnuPopupShow.Enabled = True
End Select
End Sub

Private Sub mnuPopupExit_Click()
Call btnExit_Click
End Sub

Private Sub mnuPopupHide_Click()
Me.Hide
End Sub

Private Sub mnuPopupShow_Click()
Me.Show
End Sub

Private Sub mnuPopupTurnOFF_Click()
Call btnTurnOFF_Click
End Sub

Private Sub mnuPopupTurnON_Click()
Call btnTurnON_Click
End Sub

Private Sub tmrShutdown_Timer()
Dim lngFlags As Long

If FormatDateTime(strShutdown, vbLongTime) = FormatDateTime(Time, vbLongTime) Then
Select Case lstOptions.ListIndex
Case 0 'Shutdown OS
lngFlags = EWX_SHUTDOWN
Case 1 'Turn off System
lngFlags = EWX_POWEROFF
Case 2 'Restart
lngFlags = EWX_REBOOT
Case 3 'Logoff
lngFlags = EWX_LOGOFF
End Select

Select Case lstExtra.ListIndex
Case 0 'Use force
lngFlags = lngFlags Or EWX_FORCE
Case 1 'Force only if freezes
lngFlags = lngFlags Or EWX_FORCEIFHUNG
End Select

If IsWinNT = True Then Call EnableNTShutdown
Call ExitWindowsEx(lngFlags, 0)

Call btnTurnOFF_Click
End If
End Sub

Source Code untuk module nya
Public Const ANYSIZE_ARRAY As Long = 1

Public Const EWX_FORCE As Long = 4
Public Const EWX_FORCEIFHUNG As Long = &H10
Public Const EWX_LOGOFF As Long = 0
Public Const EWX_POWEROFF As Long = &H8
Public Const EWX_REBOOT As Long = 2
Public Const EWX_SHUTDOWN As Long = 1

Public Const MAX_COMPUTERNAME As Long = 15

Public Const SE_PRIVILEGE_ENABLED As Long = &H2

Public Const TOKEN_ADJUST_DEFAULT As Long = &H80
Public Const TOKEN_ADJUST_GROUPS As Long = &H40
Public Const TOKEN_ADJUST_PRIVILEGES As Long = &H20
Public Const TOKEN_ADJUST_SESSIONID As Long = &H100
Public Const TOKEN_QUERY As Long = &H8

Public Const VER_PLATFORM_WIN32_NT As Long = 2

Public Const NIF_ICON = &H2
Public Const NIF_MESSAGE = &H1
Public Const NIF_TIP = &H4

Public Const NIM_ADD = &H0
Public Const NIM_DELETE = &H2
Public Const NIM_MODIFY = &H1

Public Const WM_LBUTTONDBLCLK As Long = &H203
Public Const WM_MOUSEMOVE As Long = &H200
Public Const WM_RBUTTONDOWN As Long = &H204

Public Const HWND_TOPMOST As Long = -1

Public Const SWP_NOMOVE As Long = &H2
Public Const SWP_NOSIZE As Long = &H1

Public Type LARGE_INTEGER
LowPart As Long
HighPart As Long
End Type

Public Type LUID
LowPart As Long
HighPart As Long
End Type

Public Type LUID_AND_ATTRIBUTES
pLuid As LUID
Attributes As Long
End Type

Public Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type

Public Type TOKEN_PRIVILEGES
PrivilegeCount As Long
Privileges(ANYSIZE_ARRAY) As LUID_AND_ATTRIBUTES
End Type

Public Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 64
End Type

'ADVAPI32
Public Declare Function LookupPrivilegeValue Lib "advapi32.dll" Alias "LookupPrivilegeValueA" ( _
ByVal lpSystemName As String, _
ByVal lpName As String, _
ByRef lpLuid As LUID) As Long 'change lpLuid from LARGE_INTEGER to LUID
Public Declare Function AdjustTokenPrivileges Lib "advapi32.dll" ( _
ByVal TokenHandle As Long, _
ByVal DisableAllPrivileges As Long, _
ByRef NewState As TOKEN_PRIVILEGES, _
ByVal BufferLength As Long, _
ByRef PreviousState As TOKEN_PRIVILEGES, _
ByRef ReturnLength As Long) As Long
Public Declare Function OpenProcessToken Lib "advapi32.dll" ( _
ByVal ProcessHandle As Long, _
ByVal DesiredAccess As Long, _
ByRef TokenHandle As Long) As Long

'COMCTL32
Public Declare Sub InitCommonControls Lib "comctl32.dll" ()

'KERNEL32
Public Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" ( _
ByRef lpVersionInformation As OSVERSIONINFO) As Long
Public Declare Function GetComputerName Lib "kernel32.dll" Alias "GetComputerNameA" ( _
ByVal lpBuffer As String, _
ByRef nSize As Long) As Long
Public Declare Function GetCurrentProcess Lib "kernel32.dll" () As Long

'USER32
Public Declare Function ExitWindowsEx Lib "user32.dll" ( _
ByVal uFlags As Long, _
ByVal dwReserved As Long) As Long

Public Declare Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As String, _
ByVal lpDefault As String, _
ByVal lpReturnedString As String, _
ByVal nSize As Long, _
ByVal lpFileName As String) As Long

Public Declare Function SetWindowPos Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal hWndInsertAfter As Long, _
ByVal x As Long, _
ByVal y As Long, _
ByVal cx As Long, _
ByVal cy As Long, _
ByVal wFlags As Long) As Long

Public Declare Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" ( _
ByVal lpApplicationName As String, _
ByVal lpKeyName As Any, _
ByVal lpString As Any, _
ByVal lpFileName As String) As Long

Public Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Public Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Public OSVerInfo As OSVERSIONINFO
Public nid_Tray As NOTIFYICONDATA
Public frmCancelUnload As Boolean
Public strIniPath As String
Public strShutdown As String

Public Sub Main()
Dim strBuffLeft As String
Dim strBuffTop As String

Dim lngFlags As Long
Dim blnTrig As Boolean

If App.PrevInstance = True Then End
Call InitCommonControls

If Command <> "" Then
If InStr(1, Command, "shutdown") <> 0 Then
lngFlags = EWX_SHUTDOWN
blnTrig = True
ElseIf InStr(1, Command, "poweroff") <> 0 Then
lngFlags = EWX_POWEROFF
blnTrig = True
ElseIf InStr(1, Command, "reboot") <> 0 Then
lngFlags = EWX_REBOOT
blnTrig = True
ElseIf InStr(1, Command, "logoff") <> 0 Then
lngFlags = EWX_LOGOFF
blnTrig = True
End If

If InStr(1, Command, "force") <> 0 Then
lngFlags = lngFlags Or EWX_FORCE
ElseIf InStr(1, Command, "forceifhung") <> 0 Then
lngFlags = lngFlags Or EWX_FORCEIFHUNG
End If

If blnTrig = True Then
If IsWinNT = True Then Call EnableNTShutdown
Call ExitWindowsEx(lngFlags, 0)
End
End If
End If

Load frmMain

With nid_Tray
.cbSize = Len(nid_Tray)
.hIcon = frmMain.Icon
.hwnd = frmMain.hwnd
.szTip = frmMain.Caption & vbNullChar
.uCallbackMessage = WM_MOUSEMOVE
.uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP
.uID = vbNull
End With

Call Shell_NotifyIcon(NIM_ADD, nid_Tray)

frmCancelUnload = True 'cancel unload by default

strBuffLeft = String(255, vbNullChar)
strBuffTop = String(255, vbNullChar)

strIniPath = App.Path & "\" & App.Title & ".ini"

Call GetPrivateProfileString("Position", "Left", 0, strBuffLeft, 255, strIniPath)
Call GetPrivateProfileString("Position", "Top", 0, strBuffTop, 255, strIniPath)

frmMain.Left = strBuffLeft
frmMain.Top = strBuffTop

Call SetWindowPos(frmMain.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE)

frmMain.Show
End Sub

Public Sub WriteINI(strSection As String, strKey As String, strValue As String, strPath As String)
Call WritePrivateProfileString(strSection, strKey, strValue, strPath)
End Sub

Public Sub SavePos(frmSave As Form, strPath As String)
If frmSave.WindowState = vbNormal Then
Call WriteINI("Position", "Left", frmSave.Left, strPath)
Call WriteINI("Position", "Top", frmSave.Top, strPath)
End If
End Sub

Public Function IsWinNT() As Boolean
OSVerInfo.dwOSVersionInfoSize = Len(OSVerInfo)
Call GetVersionEx(OSVerInfo)
If OSVerInfo.dwPlatformId = VER_PLATFORM_WIN32_NT Then IsWinNT = True
End Function

Public Sub EnableNTShutdown()
Dim TknPriv_Old As TOKEN_PRIVILEGES
Dim TknPriv_New As TOKEN_PRIVILEGES
Dim LUID_NTShutdown As LUID
Dim CurProc As Long
Dim TknHnd As Long

CurProc = GetCurrentProcess
Call OpenProcessToken(CurProc, TOKEN_ADJUST_PRIVILEGES + TOKEN_QUERY, TknHnd)
Call LookupPrivilegeValue(CompName, "SeShutdownPrivilege", LUID_NTShutdown)

TknPriv_Old.PrivilegeCount = 1
TknPriv_Old.Privileges(0).Attributes = SE_PRIVILEGE_ENABLED
TknPriv_Old.Privileges(0).pLuid = LUID_NTShutdown

Call AdjustTokenPrivileges(TknHnd, False, TknPriv_Old, 4 + (12 * TknPriv_Old.PrivilegeCount), TknPriv_New, 4 + (12 * TknPriv_New.PrivilegeCount))
End Sub

Public Function CompName() As String
Dim lngInStr As Long

CompName = String(MAX_COMPUTERNAME, vbNullChar)
Call GetComputerName(CompName, MAX_COMPUTERNAME + 1)

lngInStr = InStr(1, CompName, vbNullChar) 'error protection

If lngInStr <> 0 Then CompName = Mid(CompName, 1, lngInStr - 1)
End Function

Installasi VB di LINUX

Membuat tampilan VB tampil kereeeen

Compact Database Acces

Membuat Virus menggunakan VB

Membuat Form VB bergaya XP

Koneksi VB dengan Excell

Menyimpan gambar kedalam database

Membuat aplikasi pendaftaran siswa baru

Tempat Ibadah Umat Beragama Terbesar di Indonesia

Top 10 Antivirus 2011

10 Keajaiban Dunia yang Terlupakan

10 Manusia Aneh Yang Pernah Hidup Di Dunia

10 Orang Berpenampilan Paling Aneh Di Dunia

1 Stalking Cat

Dennis Avner modifikasi tubuh yang terdiri dari tattoos, silicon implants dimuka , pointed teeth (taring), surgically pointed ears (kuping lancip), piercings, attachable whiskers, claws, a bifurcated top lip (bibir dibelah) and even an animatronic tiger�s tail (dan ada ekor elektronik)2. Lucky Diamond Rich

Mempunyai tato lebih banyak dari Leopard Man (no 10) dan dia bisa menelan makanan tanpa mengunyah terlebih dahulu.
3. The Lizardman

Eric Sprague, lahir tahun 1972
merupakan salah satu orang pertama yg membuat lidah bercabang.
hampir seluruh tubuhnya berwarna hijau.
dan di seluruh tubuhnya ditanam implan yg membuat kulitnya bersisik seperti kadal
4. Pauly Unstoppable

Lidah bercabang, lobang hidung terbesar di barat, codet di pipi, beberapa implan di kepala.
5. Kala Kaiwi

67 piercings dan 75 % badannya di tatto
mempunyai studio modifikasi tubuh di hawai.
lubang hidungnya dibesarkan 4 inchi untuk memasukan anting tersebut
dan beberapa silikon implan untuk bikin tanduk.
6. Elaine Davidson

kelahiran brazil
Elaine mempunyai beberapa tato , 2500 piercings internal dan external, 500 disekitar alat kelamin (vagina) Total berat yg dibawanya karena piercing itu adalah 3Kg
7. The Illustrated Lady

Julia Gnuse (aka the illustrated lady)
Dia lahir dengan cacat pada kulit nya, karena itu, untuk menutupi cacat tersebut ia men tato dirinya full body
8. Rick Genest

9. Etienne Dumont

Etienne dumont
kritikus seni dan kultur di geneva
Tanduk dikepalanya adah implant silikon asli
10. The Leopard Man

Tom leppard
Full tatto

Hack SMS HP Symbian

Mengetahui Keyascii Keyboard dengan Visual Basic

Billing Rental Play Station (PS) Dengan Visual Basic 6

Fakta tentang Keistimewaan Indonesia di Mata Dunia Internasional

Wajah Komputer Masa Depan di Mata Ilmuwan

Alur Akuntansi

MANAJEMEN KEUANGAN PENGELOLAAN KAS

MAKALAH MANAJEMEN KEUANGAN PENGELOLAAN PIUTANG

Cara Bikin Log in dengan VB 6.0

Textbox Menerima Angka Saja

Contoh Pembuatan Program Trial Version (VB)

Program Versi Trial merupakan suatu Program atau Aplikasi yang sengaja dibuat menggunakan batas waktu tertentu sesuai keingingan si Software Maker, jadi apabila lewat batas waktu yg sudah ditentukan program tidak dapat digunakan lagi. Apabila pengguna sudah terlanjur menyukai program tersebut dan ingin menggunakan nya lagi, mau tidak mau pengguna harus memenuhi persyaratan yg diajukan oleh si software maker. Kebanyakan Program yg seperti ini digunakan sebagai sarana untuk mempromosikan suatu progam atau aplikasi.

Nah pada postingan kali ini saya coba membahas tentang contoh pembuatan program tersebut, bagi yang berkenan silakan ikuti langkah – langkah berikut :

- Buat Project Baru (Standart Exe)
- Tambah dua buah Label pada Form

Ketik code berikut pada Form

Option Explicit

Dim x
Dim y
Dim jumlah
Dim sisa

Private Sub Form_Load()
MsgBox "Program ini hanya dapat di gunakan 5 kali", 48, "Info"
x = GetSetting("y", "y", "y")
jumlah = Val(x) + 1
SaveSetting "Y", "Y", "Y", jumlah
Label1.Caption = "Program sudah dijalankan " & jumlah & " Kali"
sisa = 5 - jumlah
Label2.Caption = "Sisa pemakaian " & sisa & " Kali"

If jumlah > 5 Then
MsgBox "Batas waktu pemakaian sudah habis" + vbCrLf + _
"untuk menggunakan program ini lagi" + vbCrLf + _
"Anda harus menghubungi saya ....", 4, "Info"
Unload Me
End If

End Sub

Mudah – mudahan ada mampaat nya bagi kita semua … dan terimakasih bagi yang mau ngasih komen pada postingan ini …. Salam

Menampilkan file PDF pada Windows Form di Visual Basic

Mengetahui alamat IP dari komputer anda menggunakan Windows API di Visual Basic 6

5 Source Code Program dengan Database di Visual Basic 6

5 Source Code Program Sederhana Visual Basic 6

Belajar pemrograman untuk pemula dan tutorialnya

10 Source code program sederhana dengan database Access di Visual Basic 6

Memainkan file video dengan Windows API di Visual Basic 6

Mengubah gambar berwarna menjadi Grayscale di Visual Basic

Cara mengirim Email di Visual Basic

Cara mendeteksi penggunaan Proxy pada Internet Explorer di Visual Basic

Memainkan file MIDI di Visual Basic

Cara mengetahui versi Microsoft Access dari Windows Registry di Visual Basic 6

Cara mengetahui jumlah prosesor dari WMI di Visual Basic 6

Membandingkan dua buah file di Visual Basic

Memainkan file WAV dengan Windows API di Visual Basic 6

Menanggapi permintaan dari salah satu tamu di blog saya, tentang bagaimana memainkan file dengan ekstensi WAV ( biasa digunakan oleh Windows untuk suara pada event – eventnya) di Visual Basic 6. Langsung saja ke potongan source codenya.
Kita akan menggunakan fungsi Windows API sndPlaySound dan kita deklarasikan seperti berikut ini:

 

Private Declare Function sndPlaySound Lib "winmm.dll" Alias

"sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags

 As Long) As Long

Private Const SND_ASYNC = &H1

Setelah itu kita gunakan dalam event Form_Load()

Private Sub Form_Load()

  Call sndPlaySound("D:\Sample\Splash.wav", SND_ASYNC)

End Sub

 

 Anda bisa mengganti lokasi file WAV sesuai dengan kebutuhan anda.

Menampilkan seluruh Font pada Windows di Visual Basic

Mengetahui font – font yang ada di Windows sebenarnya cukup mudah, secara manual anda bisa melihatnya di C:\Windows\Fonts. Anda juga bisa menggunakan program untuk menampilkan seluruh font yang terinstall di Windows, atau anda bisa membuat program itu sendiri.

.NET Framework sendiri telah menyediakan fasilitas tersebut seperti di CommonDialog atau yang akan dicontohkan nanti adalah dengan sedikit usaha sehingga secara fleksibel dapat ditampilkan di combobox, listbox atau di komponen lainnya.
Kita akan membuat prosedur dengan nama TampilFont() yang bertugas untuk menampilkan semua font di combobox.

Public Sub TampilFont()

        'Mendapatkan informasi mengenai semua font yang terinstall

        Dim semuaFont As New Drawing.Text.InstalledFontCollection

        'Seluruh keluarga Font(Font Families) dijadikan Array

        Dim keluargaFont() As FontFamily = semuaFont.Families()

        ' Menampilkan Font

        For Each Fontku As FontFamily In keluargaFont

            comboFont.AddItem(Fontku.Name)

        Next

End Sub

 Potongan kode di atas hanya menampilkan font – font yang terinstall di Windows dan biasanya terletak di C:\Windows\Fonts.

Validasi input di Visual Basic 6

Mengetahui input dari pengguna benar atau tidak caranya cukup banyak dan tergantung apa yang ingin divalidasi dari input pengguna, yang paling sederhana misal ingin memastikan bahwa input pengguna adalah hanya bisa angka saja. Biasanya kita akan membuat validasi sendiri – sendiri dan berbeda – beda tergantung input apa yang dimasukkan pengguna dan akan diproses seperti apa nantinya.
Kali ini saya akan memberikan cara validasi yang bisa digunakan berulang kali dan bisa disesuaikan dengan mudah tergantung kebutuhan anda beserta contoh penggunaannya yang umum.

1.Validasi input hanya angka:

Public Sub NumberValid(KeyAscii As Integer)

Const Number = "0123456789"

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Number, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

2.Validasi input hanya huruf:

Public Sub CharacterValid(KeyAscii As Integer)

Const Character = "AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

 

3.Validasi input angka dan huruf:

Public Sub AlphaNumericValid(KeyAscii As Integer)

Const Character = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz "

If KeyAscii <> 8 And KeyAscii <> 13 Then

   If InStr(Character, Chr(KeyAscii)) = 0 Then

      KeyAscii = 0

      Exit Sub

   End If

End If

End Sub

Cara mengetahui sebuah file telah berubah atau tidak dengan Visual Basic

Bila anda mempunyai sebuah file yang sangat penting tentu kita tidak ingin terjadinya perubahan – perubahan tanpa sepengetahuan kita terhadap file tersebut.Dalam tutorial kali ini kita akan membuat sebuah program sederhana untuk mengetahui apakah sebuah file telah termodifikasi atau tidak.Penjelasan sederhana mengenai metode yang akan kita gunakan dalam program ini adalah dengan menggunakan checksum. Checksum merupakan identitas dari sebuah file berdasarkan isinya. Bila kita menghitung checksum dari file yang identik maka hasilnya akan sama, jika file yang berbeda akan menghasilkan checksum yang berbeda. Algoritma checksum yang baik akan mendeteksi perubahan sekecil apapun terhadap file tersebut.
Buatlah sebuah Windows Form, letakkan dua buah TextBox control dan diberi nama txtFileInput dan txtChecksum,dan sebuah Button dengan nama btnHitungChecksum. Buat property ReadOnly pada txtChecksum menjadi True. Tambahkan label untuk memperjelas tampilan program.
Silahkan copy-paste coding berikut ini ke project anda

Imports System.Text Imports System.Security.Cryptography Public Class Form1 Private Sub btnHitungChecksum_Click( _ ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnHitungChecksum.Click Dim checksum As Byte( ) Dim counter As Integer Dim hasil As String ' ----- Hitung checksum untuk file. Try checksum = HitungFileChecksum(txtFileInput.Text) Catch ex As Exception MsgBox("Terjadi error saat " & _ "menghitung checksum:" & _ vbCrLf & vbCrLf & ex.Message) Exit Sub End Try ' ----- Menyiapkan checksum untuk ditampilkan. If (checksum Is Nothing) Then hasil = "Tidak ada checksum." Else ' ----- Menyesuaikan checksum supaya lebih mudah dibaca hasil = "" For counter = 0 To checksum.Length - 1 hasil &= String.Format("{0:X2}", _ checksum(counter)) Next counter End If ' ----- Tampilkan hasil checksum. txtChecksum.Text = hasil End Sub Public Function HitungFileChecksum( _ ByVal filePath As String) As Byte( ) ' ----- Menggunakan fungsi hash HMACSHA1 '       untuk memperhitungkan checksum dari sebuah file. Dim fungsiHash As HMACSHA1 Dim dasarHash( ) As Byte Dim nilaiHash( ) As Byte Dim inputStream As IO.Stream ' ----- Memastikan file input ada. If (My.Computer.FileSystem.FileExists(filePath) _ = False) Then Throw New IO.FileNotFoundException Return Nothing End If ' ----- Mempersiapkan kunci hash. Anda harus menggunakan '       kunci yang sama tiap kali memperhitungkan, jika tidak '       hasil yang didapat akan berbeda. dasarHash = (New UnicodeEncoding).GetBytes("chandra") ' ----- Membuat objek SHA. fungsiHash = New HMACSHA1(dasarHash, True) ' ----- Membuka file sebgaia stream. inputStream = New IO.FileStream(filePath, _ IO.FileMode.Open, IO.FileAccess.Read) ' ----- Memperhitungkan nilai checksum nilaiHash = fungsiHash.ComputeHash(inputStream) ' ----- Menutup stream input inputStream.Close( ) ' ----- Mengembalikan nilai sebagai array Byte Return nilaiHash End Function End Class

 

Untuk menggunakan program silahkan ketikkan lokasi file di txtFileInputn dan tekan btnHitungChecksum. Checksum dari file tersebut akan tampil di txtChecksum.

Checksum sangatlah berguna saat anda ingin mengetahui apakah dua buah file identik atau tidak, dan biasanya dihasilkan melalui algoritma hashing.
Didalam .NET Framework terdapat beberapa algoritma hashing dan enkripsi di namespace System.Security.Cryptography, dan yang kita gunakan adalah HMACSHA1 (Hash-based Message Authentication Code, atau HMAC melalui fungsi SHA1).

Membuat Komputer Bisa Bicara Sendiri

Komputer bisa bicara sendiri kayak'e maknyos tuh .. Tapi teknologi terbaru tentang komputer, emang bisa bicara ya? ehm ane masih agak sedikit bingung menjelaskan. Apakah komputer itu punya mulut seperti manusia? Oh, tidak. Untuk membuat komputer bisa bicara, caranya lumayan gampang-gampang susah. Susah-susah gampang. Sebelumnya ane emang sering googling, dan menemukan trik-trik seperti ini. Sebenarnya sudah banyak yang memposting artikel ini, tapi ane akan tetep nyoba untuk mempraktekkan dulu, setelah OK 100% baru ntar tak tulis di postingan.

Setelah dicek, ternyata bisa ya udah langsung tak tulis ::>>
1. Siapkan dulu Notepad
2. Isi dengan kode ini ::>>

Dim msg, sapi
msg = "Very cool"
Set sapi = CreateObject ( "sapi.spvoice")
sapi.Speak msg

3. Tulisan berwarna biru diganti sesuka hati kalian ..
4. Setelah itu simpan dengan format mypc.vbs

5. Setelah muncul gambar seperti ini ::>>

6. Klik 2 x file itu .. dan dengarkan .. ada suaranya khan?
Ane dah nyoba dan berhasil kok .. bagus banget hehe !!

Membuat Windows Bajakan Jadi Genuine

Agan-agan pasti sering ke warnet-warnet ya, ato kalau nggak ya punya kompi di rumah, pasang modem, dan langsung internetan di rumah .. tapi sebenarnya ada berita yang agak sedikit mengganggu seh, WINDOWS yang menjadi system operational di kompi itu kebanyakan dan nggak sedikit yang bajakan .. pasti agan sering nemui ya, biasanya di warnet terkadang keluar yang kayak ginian Ask For Genunie Microsoft Windows .. Kalau ada perintah itu jangan langsung di klik OK aja .. sebaiknya ane kasih caranya dikit ya supaya Windows kita nggak meminta kayak gituan lagi .. tapi kalo ini berhasil ya Alhamdulillah, kalo nggak ya kita kembalikan kepada Yang Maha Esa .. hehe

Langkah-langkahnya seperti ane kasih dibawah ini :
1. Download softwarenya terlebih dahulu
2. Untuk membuktikan windows asli atau tidak buka polder Tool kemudian jalankan
3. Setelah selesai dicek double klik keyfinder.exe untuk memulai lalu pilih option --> change windows key
Maka akan tampil seperti ini :

4. Copy/ketik manual Serial Number pada kolom yang disediakan lalu klik change seperti ini :


Nah itu aja yang bisa ane kasih, yah semoga bisa berjalan dengan baek ya ..

Free Download VC RamCleaner 1.10 Build 039

VC RamCleaner 1.10 Build 039 adalah software untuk membersihkan RAM dari bug atau varian virus yang menyerang dan udah memakan byte sehingga kinerja dari RAM yang kita pake di CPU menjadi sangat lambat. Dan hal ini tentu saja sangat meresahkan kita sebagai pengguna komputer, karena akses komputer menjadi tidak lancar dan tidak semestinya. Untuk membersihkan RAM dari berbagai bug itu, muncullah software dengan kategori baik untuk membersihkan hardware di dalam CPU komputer misal RAM yaitu VC RamCleaner 1.10 Build 039. Dengan software ini, setidaknya akan membuat RAM kembali menjadi stabil dan kinerja komputer menjadi cepat kembali. Untuk mendownloadnya kalian hanya tinggal klik link dibawah dan langsung install software di drive C komputer kalian. Selamat mencoba dan semoga berhasil.

VC RAM Cleaner

Software Aneh, Unik dan Gokil Menjahili Teman

Skin Visual Basic 6

Ada skin bagus nih buat VB6 biar jadi bagus. Skin keren ni buatan warga Indonesia. Cara pakenya juga gampang banget, nggak perlu coding sama sekali. Nama pembuatnya Osen Kusnadi. Makasih banget buat Om Osen. Nah ada dua macem skinnya, Osen XP Suite sama Osen Vista Suite. Nah untuk Osen XP Suite, nggak ada lisensi yang gratis. Sedangkan untuk Osen Vista Suite, ada yang untuk para pelajar. Bebas digunakan untuk pendidikan. Lagian walaupun gratis, bangus banget kok!


Dan ini homepagenya Om Kusnadi:
WWW.OSENXPSUITE.NET

Atau mau download langsung Osen Vista Suite 2009 Pro Student Edition?

DOWNLOAD OSENvista

Mengubah Skin Program yang Dibuat Dengan Visual Basic 6

Bahasa pemrograman ini mungkin sudah agak ketinggalan karena sudah ada penerusnya yaitu vb.net yang memiliki vitur yang lebih baik. Tapi tidak ada salahnya saya posting tentang vb6 ini, karena bahasa pemrograman ini masih banyak yang menggunakannya.
Mengganti skin atau model form software yang dibuat dengan vb sangat mudah, cukup menambahkan component Active X Control yang bernama VbSkinner pada toolbox vb dan meletakkannya diform anda dan menuliskan kode

set skinner1.forms=forms

pada sub load, maka anda sudah dapat mengganti tampilan program buatan anda.
VbSkinner ini tersedia dalam 2 versi yaitu versi free atau gratisan dan versi professional yang memiliki beberapa kelebihan, tapi untuk versi profesional harus diregistrasi dulu, untuk registrasinya silahkan masukkan kode ini
User Name: DWGROUP
Key : 12345-4280-6919-3272.
Untuk mendownload nya silahkan klik pada link dibawah:
1. VbSkinner Pro 2.1
2. VbSkinner Free

Tutorial Membuat Program Trial Pada VB 6 berdasarkan Jumlah Pakai