Saturday, April 3, 2010

VB6 Code - Fungsi Untuk Merubah Desktop Wallpaper

Di bawah ini merupakan fungsi VB6 untuk merubah desktop wallpaper. Bagaimana implementasinya dalam Visual Basic 6.0?

Option Explicit

Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Any, ByVal fuWinIni As Long) As Long

Private Const SPIF_SENDWININICHANGE = &H2
Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SETDESKWALLPAPER = 20

Public Function ChangeWallPaper(imgFile As String)
    Call SystemParametersInfo(SPIF_SETDESKWALLPAPER, 0&, imgFile, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)
End Function

Contoh penggunaan kode di atas

Private Sub Command1_Click()
    Call ChangeWallPaper("C:\Windows\Blue.bmp")
End Sub

VB6 - Menyembunyikan Dan Menampilkan Windows Taskbar

Di bawah ini merupakan contoh standar untuk menyembunyikan dan menampilkan windows taskbar menggunakan Visual Basic 6.

Option Explicit

Private Declare Function SetWindowPos Lib "user32" (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
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Const SWP_HIDEWINDOW = &H80
Const SWP_SHOWWINDOW = &H40

Public Sub HideTaskBar()
    Dim hWnd1 As Long
    hWnd1 = FindWindow("Shell_traywnd", "")
    Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW)
End Sub

Public Sub ShowTaskBar()
    Dim hWnd1 As Long
    hWnd1 = FindWindow("Shell_traywnd", "")
    Call SetWindowPos(hWnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW)
End Sub

Contoh penggunaan untuk menyembunyikan windows taskbar

Private Sub  Command1_Click()
    HideTaskBar
End Sub

Contoh penggunaan untuk menampilkan windows taskbar

Private Sub Command2_Click()
    ShowTaskBar
End Sub

Demikian mengenai cara menampilkan dan menyembunyikan windows taskbar menggunakan Visual Basic 6.

VB6 Code - Menampilkan Kotak Dialog Shutdown

Di bawah ini merupakan fungsi API untuk menampilkan kotak dialog shutdown menggunakan kode VB6. Fungsi yang digunakan adalah SHShutDownDialog yang terdapat pada Shell32.dll.

Option Explicit

Private Declare Function SHShutDownDialog Lib "shell32" Alias "#60" (ByVal sParam As Long) As Long

Contoh penggunaan fungsi API di atas:

Private Sub Command1_Click()
    SHShutDownDialog 0
End Sub

VB6 Code - Fungsi Untuk Memeriksa Resolusi Screen

Di bawah ini merupakan fungsi VB6 untuk mengetahui resolusi screen. Bagaimana implementasinya dalam Visual Basic 6.0? bisa kita simak kodenya di bawah ini:

Option Explicit
Public Function ScreenResolution(iWidth, iHeight) As String
    iWidth = Screen.Width \ Screen.TwipsPerPixelX
    iHeight = Screen.Height \ Screen.TwipsPerPixelY
    ScreenResolution = "Screen Resolution:" + vbCrLf + vbCrLf + Str$(iWidth) + " x" + Str$(iHeight)
End Function

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
    Dim intWidth As Integer
    Dim intHeight As Integer
    MsgBox ScreenResolution(intWidth, intHeight)
    MsgBox intWidth
    MsgBox intHeight
End Sub

VB6 Code - Drag Form Yang Tidak Memiliki Controlbox

Di bawah ini merupakan fungsi VB6 (menggunakan fungsi API) untuk men-drag form yang tidak memiliki Control Box.

Option Explicit

Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Sub ReleaseCapture Lib "User32" ()

Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Public Sub DragForm(frm As Form)
    Dim lngReturnValue As Long
    Call ReleaseCapture
    lngReturnValue = SendMessage(frm.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
End Sub

Contoh penggunaan drag form yang tidak memiliki controlbox

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    DragForm Me
End Sub

VB6 Code - Mencari Aplikasi Asosiasi Sebuah File

Di bawah ini merupakan fungsi VB6 untuk mencari aplikasi yang diasosiasikan terhadap sebuah file. Bingung? misalnya kita double klik file berektensi .ini maka aplikasinya notepad.exe, double klik file berektensi .doc maka aplikasinya Microsoft Word, dst.

Option Explicit

Private Declare Function FindExecutableA Lib "shell32.dll" (ByVal lpFile As String, ByVal lpdirectory As String, ByVal lpResult As String) As Long
Private Const MAX_FILENAME_LEN = 256

Public Function FindExecutable(FileName As String) As String
   Dim iReturn As Integer
   Dim sResults As String
   
   sResults = String(MAX_FILENAME_LEN, 32) & Chr$(0)
   
   iReturn = FindExecutableA(FileName & Chr$(0), vbNullString, sResults)
   
   If iReturn > 32 Then
      FindExecutable = Left$(sResults, InStr(sResults, Chr$(0)) - 1)
   Else
      FindExecutable = ""
   End If
End Function

Contoh penggunaan fungsi untuk mencari assosiasi sebuah file

Private Sub Form_Load()
    MsgBox FindExecutable("c:\boot.ini")
End Sub

VB Code - Mengubah Object LeftToRight Menjadi RighToLeft

Di bawah ini merupakan fungsi VB6 untuk mengubah objek yang tidak memiliki properties LeftToRight agar seolah-olah memiliki properties tersebut. Melalui akal-akalan fungsi API, hal tersebut mungkin untuk dilakukan.

Option Explicit

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long 'TreeView1 RightToLeft True

Private Const WS_EX_LAYOUTRTL = 4194304
Private Const GWL_EXSTYLE = -20

Public Sub ctlRightToLeft(ctl As Control)
    SetWindowLong ctl.hWnd, GWL_EXSTYLE, WS_EX_LAYOUTRTL
End Sub

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    ctlRightToLeft TreeView1
    TreeView1.Appearance = cc3D
    TreeView1.BorderStyle = ccFixedSingle
    TreeView1.Refresh
End Sub

Coba Anda ganti objeknya misalnya menggunakan Progress Bar, kemudian lihat apa yang terjadi?

VB6 Code - Download File Menggunakan IE

Di bawah ini merupakan procedure VB6 untuk mendownload sebuah file dengan memanfaatkan file bawaan IE (internet explorer) hdocvw.dll. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Private Declare Function DoFileDownload Lib "shdocvw.dll" (ByVal lpszFile As String) As Long

Public Sub DownloadFile(URL As String)
   Dim sDownload As String
   sDownload = StrConv(Text1.Text, vbUnicode)
   Call DoFileDownload(sDownload)
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    DownloadFile "http://google.co.id"
End Sub

VB6 Code - Apakah Aplikasi Masih Dalam IDE VB6

Ini merupakan cara yang cerdik untuk mengetahui apakah sebuah aplikasi masih dalam IDE Visual Basic 6.0 ataukah sudah dicompile. Procedurenya sangat sederhana sekali yakni dengan memanfaatkan handle error.

Public Function IsIDE() As Boolean
On Error GoTo ErrHandler
    Debug.Print 1 / 0
ErrHandler:
    IsIDE = Err
End Function

Contoh penggunaan kode VB6 di atas:

Private Sub Form_Load()
    If IsIDE Then
        MsgBox "Jalankan aplikasi ini dari file .EXE", vbInformation, "Message"
    End If
End Sub

VB6 Code - Memindahkan File Ke Recycle Bin

Di bawah ini merupakan procedure VB6 untuk memindahkan/menghapus file ke dalam recycle bin. Bagaimana kodenya dalam Visual Basic 6.0? bisa kita simak di bawah ini:

Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long
End Type

Private Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4

Public Sub SendFileToRecycleBin(FileName As String, Optional Confirm As Boolean = True, Optional Silent As Boolean = False)
    Dim FileOp As SHFILEOPSTRUCT

    With FileOp
        .wFunc = FO_DELETE
        .pFrom = FileName
         fFlags = FOF_ALLOWUNDO
        If Not Confirm Then .fFlags = .fFlags + FOF_NOCONFIRMATION
        If Silent Then .fFlags = .fFlags + FOF_SILENT
    End With
    SHFileOperation FileOp
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    SendFileToRecycleBin "c:\42.tmp", True, False
End Sub

VB6 Code - Menghapus Seluruh File Recycle Bin

Di bawah ini merupakan fungsi VB6 untuk menghapus seluruh file yang terdapat pada recycle bin. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini

Option Explicit

Private Declare Function SHEmptyRecycleBin Lib "shell32.dll" Alias "SHEmptyRecycleBinA" (ByVal hWnd As Long, ByVal pszRootPath As String, ByVal dwFlags As Long) As Long
Const SHERB_NOCONFIRMATION = &H1
Const SHERB_NOPROGRESSUI = &H2
Const SHERB_NOSOUND = &H4

Public Sub EmptyRecycleBin(frm As Form)
    Dim RetVal
    RetVal = SHEmptyRecycleBin(frm.hWnd, "", SHERB_NOPROGRESSUI + SHERB_NOCONFIRMATION)
End Sub

Contoh pengunaan procedure VB6 di atas

Private Sub Command1_Click()
    EmptyRecycleBin Me
End Sub

VB6 Code - Apakah Recycle Bin Kosong?

Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah recycle bin kosong? Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya dibawah ini:

Option Explicit

Private Type SHQUERYRBINFO
    cbSize As Long
    i64SizeLo As Long
    i64SizeHi As Long
    i64NumItemsLo As Long
    i64NumItemsHi As Long
End Type

Private Declare Function SHQueryRecycleBin Lib "shell32" Alias "SHQueryRecycleBinA" (ByVal pszRootPath As String, pSHQueryRBInfo As SHQUERYRBINFO) As Long

Function IsEmptyRecycle() As Boolean
    Dim RB As SHQUERYRBINFO
    RB.cbSize = Len(RB)
    Call SHQueryRecycleBin("C:\", RB)
    IsEmptyRecycle = (RB.i64NumItemsLo = 0)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsEmptyRecycle
End Sub

VB6 Code - Menghapus Seluruh File Recent Document

Di bawah ini merupakan procedure VB6 untuk menghapus seluruh yang terdapat pada recent document. Untuk keperluan ini digunakan satu fungsi API yakni SHAddToRecentDocs yang terdapat pada shell32.dll.

Option Explicit

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As Any)

Sub EmptyRecentDocument()
   SHAddToRecentDocs 0, CLng(0)
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Command1_Click()
    EmptyRecentDocument
End Sub

VB6 Code - Membuat Efek Bayangan Pada Objek

Di bawah ini merupakan fungsi VB6 untuk membuat efek bayangan pada sebuah objek. Bagaimana implementasi dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Public Function Shadow(frm As Form, ctl As Control, Optional shWidth = 3, Optional Color = vbGrayed)
    Dim oldWidth As Integer
    Dim oldScale As Integer
    
    With frm
        oldWidth = .DrawWidth
        oldScale = .ScaleMode
        .ScaleMode = 3
        .DrawWidth = 1
        frm.Line (ctl.Left + shWidth, ctl.Top + shWidth)-Step(ctl.Width - 1, ctl.Height - 1), Color, BF
        .DrawWidth = oldWidth
        .ScaleMode = oldScale
    End With
    
End Function

Contoh penggunaan fungsi membuat efek bayangan pada objek:

Private Sub Command1_Click()
    Shadow Me, Command1, 2, vbBlack
End Sub

Anda dapat menggunakannya pada objek secara bulk dengan menggunakan for...each.

VB6 Code - Menambahkan File Ke Recent Document

Di bawah ini merupakan fungsi VB6 (API) untuk menambahkan file ke recent document. Untuk keperluan ini digunakan satu fungsi API yakni SHAddToRecentDocs yang terdapat pada shell32.dll.

Option Explicit

Private Declare Sub SHAddToRecentDocs Lib "shell32.dll" (ByVal uFlags As Long, ByVal pv As String)

Public Function AddToRecentDocument(FileName As String)
  Call SHAddToRecentDocs(3, FileName)
End Function

Cara menggunakan fungsi VB6 di atas:

Private Sub Command1_Click()
    AddToRecentDocument "C:\boot.ini"
End Sub

VB6 Code - Class Untuk Mengetahui Crc32 Dari Sebuah File

Di bawah ini merupakan class VB6 untuk mengetahui CRC32 dari sebuah file. Untuk keperluan ini copy dan pastekan kode di bawah ini ke dalam class, kemudian ganti nama kelasnya menjadi clsCRC.

Option Explicit

Private crcTable(0 To 255) As Long 'crc32

Private Function CRC32(ByRef bArrayIn() As Byte, ByVal lLen As Long, Optional ByVal lcrc As Long = 0) As Long
  
  Dim lCurPos As Long
  Dim lTemp As Long
  
  If lLen = 0 Then Exit Function 'In case of empty file
  lTemp = lcrc Xor &HFFFFFFFF 'lcrc is for current value from partial check on the partial array
  
  For lCurPos = 0 To lLen
    lTemp = (((lTemp And &HFFFFFF00) \ &H100) And &HFFFFFF) Xor (crcTable((lTemp And 255) Xor bArrayIn(lCurPos)))
  Next lCurPos
  
  CRC32 = lTemp Xor &HFFFFFFFF

End Function

Private Function BuildTable() As Boolean

  Dim I As Long, x As Long, crc As Long
  Const Limit = &HEDB88320 'usally its shown backward, cant  remember what it was.

  For I = 0 To 255
    crc = I
    For x = 0 To 7
      If crc And 1 Then
        crc = (((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF) Xor Limit
      Else
        crc = ((crc And &HFFFFFFFE) \ 2) And &H7FFFFFFF
      End If
    Next x
    crcTable(I) = crc
  Next I

End Function

Private Sub Class_Initialize()
  BuildTable
End Sub

Public Function CekCRC32(FileName As String) As String

    Dim lngCrc As Long
    Dim sCrc As Long
    
    On Error GoTo ErrHandler
    
    Open FileName For Binary Access Read As #1
        ReDim tmp(LOF(1)) As Byte
        Get #1, , tmp()
    Close #1

    lngCrc = UBound(tmp)
    lngCrc = CRC32(tmp, lngCrc)
    CekCRC32 = Hex(lngCrc)
    
    Exit Function

ErrHandler:

    MsgBox Err.Description, vbCritical, "Error"

 End Function

Contoh penggunaan Class CRC32

Option  Explicit

Private Sub Form_Load()
    Dim crc As New clsCRC
    MsgBox crc.CekCRC32("C:\boot.ini")
End Sub

VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali - Part-2

Di bawah ini merupakan prosedure VB6 kedua masih mengenai cara mencegah aplikasi dijalankan dua kali. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak kodenya di bawah ini:

Option Explicit

Declare Function OpenIcon Lib "user32" (ByVal hWnd As Long) As Long
Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Declare Function GetWindow Lib "user32" (ByVal hWnd As Long, ByVal wCmd As Long) As Long
Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Public Const GW_HWNDPREV = 3

Sub ActivatePrevInstance()

    Dim AppTitle As String
    Dim PrevHndl As Long
    Dim result As Long

    AppTitle = App.Title
    App.Title = "unwanted instance"
    
    If PrevHndl = 0 Then
        PrevHndl = FindWindow("ThunderRT6Main", AppTitle)
        If PrevHndl <> 0 Then
                PrevHndl =  GetWindow(PrevHndl, GW_HWNDPREV)
                result = OpenIcon(PrevHndl)
                result = SetForegroundWindow(PrevHndl)
                End
        End If
    End If
    
End Sub

Contoh penggunaan prosedure VB6 di atas:

Private Sub Form_Load()
    If App.PrevInstance Then ActivatePrevInstance
End Sub

VB6 Code - Mengetahui Jumlah Tombol Yang Terdapat Pada Mouse

Di bawah ini merupakan fungsi VB6 untuk mengetahui jumlah tombol yang terdapat pada mouse.

Option Explicit

Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Private Const SM_CMOUSEBUTTONS As Long = 43

Public Function ButtonMouse()
    ButtonMouse = GetSystemMetrics(SM_CMOUSEBUTTONS)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox ButtonMouse
End Sub

VB6 Code - Apakah Mouse Terinstall Pada Komputer Anda?

Di bawah ini merupakan fungsi VB6 untuk memeriksa apakah mouse terinstall pada komputer Anda. Bagaimana implementasinya dalam Visual Basic 6.0? simaklah kodenya di bawah ini.

Option Explicit

Private Const SM_CMOUSEBUTTONS = 43
Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long

Public Function IsMousePresent() As Boolean
   IsMousePresent = (GetSystemMetrics(SM_CMOUSEBUTTONS) > 0)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    MsgBox IsMousePresent
End Sub

VB6 Code - Merubah Waktu Double Klik Pada Mouse

Di bawah ini merupakan fungsi VB6 untuk merubah waktu double klik pada mouse. Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit

Private Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long

Public Function ChangeDBClkTime(Time As Integer)
    SetDoubleClickTime (Time)
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Call ChangeDBClkTime(1000)
End Sub

VB6 Code - Mencegah Aplikasi Dijalankan Dua Kali

Di bawah ini merupakan cara termudah untuk mencegah sebuah aplikasi dijalankan dua kali (double instance) menggunakan VB6. Bagaimana implementasinya dalam Visual Basic 6.0? Simaklah kodenya di bawah ini.

Option Explicit

Private Sub ActivatePrevInstance()
    AppActivate App.Title
    SendKeys "+", True
    End
End Sub

Contoh penggunaan procedure VB6 di atas:

Private Sub Form_Load()
    If App.PrevInstance Then ActivatePrevInstance
End Sub

VB6 Code - Memindahkan Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi VB6 untuk memindahkan seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit

Public Function MoveAllFiles()
    Dim fso As New FileSystemObject
    Call fso.MoveFolder(Source, Destination)
    Set fso = Nothing
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Call MoveAllFiles("C:\djview", "D:\djview")
End Sub

VB6 Code - Mengcopy Seluruh File Dalam Satu Directory

Di bawah ini merupakan fungsi VB6 untuk meng-copy seluruh file dari satu directory tertentu. Untuk keperluan ini Anda harus mereferensi pada objek Microsoft Scripting Runtime atau scrun.dll.

Option Explicit

Public Function CopyAllFiles(Source As String, Destination As String)
    Dim fso As New FileSystemObject
    Call fso.CopyFolder(Source, Destination)
    Set fso = Nothing
End Function

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
    Call CopyAllFiles("C:\djview", "D:\djview")
End Sub

VB6 Code Konversi Warna Dari Qbcolor Ke RGB

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari QBColor ke RGB. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub QBColorToRGB(QBColorValue As Integer)
    QBColorToRGB = LongToRGB(QBColor(QBColorValue))
End Sub

VB6 Code - Konversi Warna Dari Rgb Ke Long

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari RGB(red, green, blue) ke Long. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToLong(Red As Integer, Green As Integer, Blue As Integer)
    RGBToLong = RGB(Red, Green, Blue)
End Function

Contoh penggunaan fungsi konversi warna dari RGB ke Long

Private Sub Command1_Click()
    MsgBox RGB(8, 12, 254)
End Sub

VB6 Code - Konversi Warna Long Ke RGB

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari long ke rgb (red, green, blue). Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Sub LongToRGB(Color As Long, Red, Green, Blue)
    Blue = Color \ 65536
    Green = (Color - Blue * 65536) \ 256
    Red = Color - (Blue * 65536) - (Green * 256)
End Sub

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim red
    Dim green
    Dim blue
    Call LongToRGB(CLng("23489"), red, green, blue)
    MsgBox red & "," & green & "," & blue
End Sub

VB6 Code - Konversi Warna Dari RGB Ke Hex

Di bawah ini merupakan fungsi VB6 untuk meng-konversi warna dari rgb (red, green, blue) ke Hex. Bagaimana implementasinya dalam Visual Basic 6.0? simak kodenya di bawah ini:

Public Function RGBToHex(Red As Integer, Green As Integer, Blue As Integer)
    RGBToHex = Right(0 & Hex(Red), 2) & Right(0 & Hex(Green), 2) & Right(0 & Hex(Blue), 2)
End Function

Contoh penggunaan fungsi konversi warna dari RGB ke HEX

Private Sub Command1_Click()
    MsgBox RGBToHex(0, 0, 12)
End Sub

VB6 Code - Konversi Angka Dari Hexa Ke Decimal

Di bawah ini merupakan fungsi VB6 untuk mengkonversi angka dari hexadecimal ke decimal dan sebaliknya. Adapun kode untuk mengkonversi angka dari hexa ke decimal dan sebaliknya menggunakan VB6 adalah sebagai berikut:

Option Explicit

Public Function DecToHex(DecNumber)
   DecToHex = Hex(DecNumber)
End Function

Public Function HexToDec(HexNumber)
   HexToDec = Val("&H" & HexNumber)
End Function

Contoh penggunaan Konversi angka dari decimal ke hexa

Private Sub Form_Load()
   MsgBox DecToHex(120000)
End Sub

Contoh penggunaan konversi angka dari hexa ke decimal

Private Sub Form_Load()
   MsgBox HexToDec(120000)
End Sub

VB6 Code - Menyembunyikan Dan Menampilkan Pointer Mouse

Di bawah ini merupakan procedure VB6 untuk menyembunyikan dan menampilkan pointer mouse. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit

Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long

Sub ShowMouseCursor(bShow As Boolean)
    ShowCursor bShow
End Sub

Dua contoh penggunaan menyembunyikan dan menampilkan pointer mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    ShowMouseCursor (Check1.Value = 0)
End Sub

Private Sub Command1_Click()
    ShowMouseCursor True
End Sub

VB6 Code - Vertical Scrollbar Textbox Pada Saat Runtime

Di bawah ini merupakan fungsi VB6 untuk menampilkan Vertical ScrollBar pada TextBox.

Option Explicit

Private Declare Function ShowScrollBar Lib "user32" (ByVal hwnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long

Public Function ShowScroll(obj As Control, bShow As Boolean)
    ShowScrollBar obj.hwnd, 1, bShow
    obj.Refresh
End Function

Contoh penggunaan kode VB6 di atas:

Public Sub Command1_Click()
    ShowScroll Text1, True
End Sub

VB6 Code - Fungsi Untuk Membentuk Form Dari Huruf

Di bawah ini merupakan fungsi VB6 untuk membentuk form dari sebuah huruf, kata, atau kalimat. Untuk keperluan ini Anda dapat memodifikasi besar serta jenis hurufnya. Untuk keperluan-keperluan yang seperti ini, kita tidak bisa memprogramnya secara langsung akan tetapi harus melewati fungsi-fungsi API. Bagaimana implementasinya dalam Visual Basic 6.0? bisa Anda simak implementasinya di bawah ini:

Option Explicit

Private Declare Function SelectClipPath Lib "gdi32" (ByVal hDC As Long, ByVal iMode As Long) As Long
Private Declare Function BeginPath Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function EndPath Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function PathToRegion Lib "gdi32" (ByVal hDC As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Private Const txt = "ASEP" & vbCrLf & "HIBBAN"

Public Function MakeFormChar(frm As  Form)
    Dim hRgn As Long

    With frm.Font
        .Name = "Comic Sans MS"
        .Bold = True
        .Size = 100
    End With
    
    With frm
        .Width = frm.TextWidth(txt)
        .Height = frm.TextHeight(txt)
        BeginPath .hDC
        .CurrentX = 0
        .CurrentY = 0
        frm.Print txt
        EndPath .hDC
        hRgn = PathToRegion(.hDC)
        SetWindowRgn .hwnd, hRgn, False
        .Move (Screen.Width - .Width) / 2, (Screen.Height - .Height) / 2
    End With
    
End Function

VB6 Code - Fungsi Untuk Menghancurkan File

Di bawah ini merupakan fungsi VB6 untuk menghancurkan file. Maksud dari fungsi ini, agar file yang sudah dihapus/dihancurkan, tidak dapat direcover dengan software-software recovery.
Core function dari fungsi penghancur file ini hanyalah 3 line code, yaitu:

Open Filename For Output As #1
        Print #1, "Sorry, destroyed....."
Close #1

Adapun fungsi lengkapnya serta cara penggunaannya:

Option Explicit

Public Function DestroyFile(Filename As String)
    Open Filename For Output As #1
        Print #1, "Sorry, destroyed....."
    Close #1
End Function

Cara penggunaan Fungsi Untuk Menghancurkan File

Private Sub Command1_Click()
    Call DestroyFile("C:\hancur.jpg")
End Sub

Di atas merupakan cara penggunaan yang sederhana, dalam kenyataannya Anda dapat memodifikasi penggunaan, sehingga bisa digunakan untuk bulk files destroyer.

VB6 Code - Procedure Membatasi Pointer Mouse

Di bawah ini merupakan procedure VB6 untuk membatasi gerak pointer mouse pada objek tertentu yang memilliki hwnd (handle window).

Option Explicit

Private Declare Sub ClipCursor Lib "user32" (lpRect As Any)
Private Declare Sub GetClientRect Lib "user32" (ByVal hWnd As Long, lpRect As RECT)
Private Declare Sub ClientToScreen Lib "user32" (ByVal hWnd As Long, lpPoint As POINT)
Private Declare Sub OffsetRect Lib "user32" (lpRect As RECT, ByVal x As Long, ByVal y As Long)

Private Type RECT
    left As Integer
    top As Integer
    right As Integer
    bottom As Integer
End Type

Private Type POINT
    x As Long
    y As Long
End Type

Public Sub LimitCursorMovement(ctl As Object)
   
    Dim client As RECT
    Dim upperleft As POINT
    Dim lHwnd As Long

On Error Resume Next

    lHwnd = ctl.hWnd
    If lHwnd = 0 Then Exit Sub
    
    GetClientRect ctl.hWnd, client
     upperleft.x = client.left
    upperleft.y = client.top
    ClientToScreen ctl.hWnd, upperleft
    OffsetRect client, upperleft.x, upperleft.y
    ClipCursor client
   
End Sub

Public Sub ReleaseLimit()
   ClipCursor ByVal 0&
End Sub

Contoh penggunaan procedureVB6 membatasi pointer mouse

Private Sub Command1_Click()
    Command1.Caption = IIf(Command1.Caption = "Set Limit", "Release", "Set Limit")
    If Command1.Caption = "Set Limit" Then
        ReleaseLimit
    Else
        LimitCursorMovement Command1
    End If
End Sub

Private Sub Form_Load()
    Command1.Caption = "Set Limit"
End Sub

VB Code - Menukarkan Tombol Mouse

Di bawah ini merupakan procedure VB6 untuk menukarkan tombol mouse, dari kiri ke kanan dan sebaliknya. Bagaimana implementasinya dalam Visual Basic 6.0, simaklah kodenya di bawah ini:

Option Explicit

Private Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long

Public Sub SwapMouse(bSwap As Boolean)
    SwapMouseButton bSwap
End Sub

Dua contoh penggunaan menukarkan tombol mouse

Private Sub Check1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    SwapMouse (Check1.Value=0)
End Sub

Private Sub Command1_Click()
    SwapMouse True
End Sub

VB6 Code - Menggerakan Pointer Mouse Satu Koordinat

Di bawah ini merupakan fungsi VB6 untuk menggerakan pointer mouse pada koordinat tertentu.

Private Declare Function SetCursorPos Lib "User32" (ByVal X As Long, ByVal Y As Long) As Long
Contoh penggunaan code untuk menggerakan pointer mouse pada koordinat tertentu
Private Sub Command1_Click()
    Call SetCursorPos(100, 200)
End Sub

VB6 Code - Menutup Seluruh Aplikasi Yang Sedang Berjalan

Di bawah ini merupakan fungsi VB6 untuk menutup seluruh aplikasi yang sedang berjalan. Mengapa seluruh aplikasi yang sedang berjalan tersebut harus ditutup? contoh kecilnya dalam pembuatan billing warnet. Misalnya A (user) log-out, kemudian datang B (user baru) log-in, B tidak akan melihat aplikasi-aplikasi yang masih terbuka (kemungkinan lupa ditutup oleh A), karena seluruh aplikasi yang sedang berjalan telah ditutup secara otomatis dengan fungsi di bawah ini.
Mungkin ada pertanyaan, Apakah ditutup dengan software billing warnetnya juga? ya, boleh jika kita mau, bahkan sekalian di shutdown pula.

Option Explicit

Public Declare Function SendMessageTimeout Lib "user32" Alias "SendMessageTimeoutA" (ByVal hwnd As Long, ByVal msg As Long, ByVal wParam As Long, _
ByVal lParam As Long, ByVal fuFlags As Long, ByVal uTimeout As Long, lpdwResult As Long) As Long
Public Declare Function IsWindowVisible& Lib "user32" (ByVal hwnd As Long)
Public Declare  Function IsWindow Lib "user32" (ByVal hwnd As Long) As Long
Public Declare Function EnumWindows Lib "user32.dll" (ByVal lpEnumFunc As Long, ByVal lParam As Long) As Long
Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Public Declare Function TerminateProcess& Lib "kernel32" (ByVal hProcess As Long, ByVal uExitCode As Long)
Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Public Const SMTO_BLOCK = &H1
Public Const SMTO_ABORTIFHUNG = &H2
Public Const SC_CLOSE = &HF060&
Public Const WM_SYSCOMMAND = &H112
Public Const WM_NULL = &H0
Public  Const PROCESS_ALL_ACCESS = &H1F0FFF

Public HWND_Taskbar As Long
Public HWND_Desktop As Long
Public HWND_ExplorerW As Long

Public Function EnumWindowsProc(ByVal hwnd As Long, ByVal lParam As Long) As Long

    Dim lThreadID As Long
    Dim lPid As Long
    Dim lHp As Long
    
    If hwnd <> HWND_Taskbar And hwnd <> HWND_Desktop And hwnd <> HWND_ExplorerW Then
    lThreadID = GetWindowThreadProcessId(hwnd, lPid)
        If lThreadID <> App.ThreadID Then
            If IsWindowVisible(hwnd) Then
                SendMessageTimeout hwnd, WM_SYSCOMMAND, SC_CLOSE, 0, 0, 500, 0
                If IsWindow(hwnd) Then
                    lHp = OpenProcess(PROCESS_ALL_ACCESS, 0&, lPid)
                    TerminateProcess lHp&, 0&
                    CloseHandle lHp
                End If
            End If
        End If
    End If
    
    EnumWindowsProc = 1

End Function

Public Sub  CloseAllRuning()
    HWND_Desktop = FindWindowEx(0&, 0&, "Progman", vbNullString)
    HWND_Taskbar = FindWindowEx(0&, 0&, "Shell_TrayWnd", vbNullString)
    EnumWindows AddressOf EnumWindowsProc, 0&
End Sub

Contoh Penggunaan fungsi untuk menutup seluruh aplikasi menggunakan VB6:

Sub Main()
      Call CloseAllRuning
End Sub

VB Code - Meng-capture Screen .bmp Atau .jpg (Ezcapture.dll)

Di bawah ini merupakan fungsi VB6 untuk meng-capture (mengambil) gambar screen dalam format .bmp atau format .jpg dengan menggunakan ActiveX ezCapture.dll. Untuk keperluan ini tentu saja Anda harus memiliki dll ezCapture.dll kemudian mereferensikan project Anda terhadapnya. Mengenai ezCapture.dll bisa Anda download di sini.

Fungsi VB6 untuk meng-Capture screen dalam format .bmp

Option Explicit

Sub CaptureScreenBMP()
   Dim ezCapture As New CaptureScreen
   On Error Resume Next
   With ezCapture
        .CaptureFullScreen "C:\screen.bmp"
   End With
End Sub

Fungsi VB6 untuk meng-Capture screen dalam format .jpg

Sub CaptureScreenJPG()
   Dim ezCapture As New CaptureScreen
   With ezCapture
        .CaptureFullScreen "C:\screen.jpg"
   End With
End Sub

Contoh penggunaan fungsi capture screen .bmp

Private Sub Command1_Click()
    CaptureScreenBMP
End Sub

Contoh penggunaan fungsi capture screen .jpg.
Untuk keperluan ini Anda membutuhkan satu file lagi yakni "ijl11.dll"

Private Sub Command2_Click()
    CaptureScreenJPG
End Sub

VB6 Code - Menjalankan File .wav Menggunakan Visual Basic

Di bawah ini merupakan fungsi VB6 untuk menjalankan file .wav dengan menggunakan Visual Basic 6.0 disertai dengan beberapa argumen yang dibutuhkan.

Option Explicit

Public Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Public Enum SoundOption
    SND_SYNC = &H0
    SND_ASYNC = &H1
    SND_NODEFAULT = &H2
    SND_LOOP = &H8
    SND_NOSTOP = &H10
End Enum

Public Sub PlaySound(Filename As String, Optional OpsiSound As SoundOption = SND_ASYNC Or SND_NODEFAULT)
    Dim sThewavsound As String, ret As Long
    sThewavsound = Filename
    ret = sndPlaySound(sThewavsound, OpsiSound)
End Sub

Contoh Penggunaan fungsi menjalankan file .wav menggunakan visual basic 6.0

Private Sub Command1_Click()
    PlaySound Text1.Text, SND_ASYNC
End Sub

VB6 Code - Mendapatkan Source Html Dari URLTertentu

Di bawah ini merupakan fungsi VB6 untuk mendapatkan source code HTML dari URL tertentu.

Option Explicit

Function GetSource(ByVal URL As String) As String
    
    MousePointer = vbHourglass
    
    Dim Data() As Byte
    Dim sText As String
    Dim i As Long
        
    Data() = Inet1.OpenURL(URL)
    
    sText = Data()
    GetSource = sText
    
    MousePointer = vbDefault
    
End Function

Cara penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
    Dim sUrl As String
    sUrl = Text1.Text
    Text2.Text = GetSource(sUrl)
End Sub

Untuk tujuan tertentu, maka dengan sedikit modifikasi tentu saja Anda dapat menyimpannya ke dalam hardisk Anda.

VB Code - Menghapus Seluruh Komentar Visual Basic 6.0

Di bawah ini merupakan fungsi VB6 untuk menghapus seluruh komentar yang terdapat dalam source code Visual Basic 6.0. Kami membuatnya menjadi dua fungsi, fungsi pertama untuk menghapus seluruh komentar sedangkan fungsi yang kedua untuk menghapus seluruh line kosong. Berikut kodenya di bawah ini:
Di bawah ini merupakan fungsi untuk menghapus seluruh komentar yang terdapat dalam Visual Basic 6.0:

Option Explicit

Function DeleteAllComment(sText As String) As String
    
    Dim str As String
    Dim vArray As Variant
    Dim g As String
    Dim i As Integer
    Dim x As Integer
    Dim w As Integer
    Dim u As String
    Dim y As Integer
    
    str = sText
    vArray = Split(str, vbCrLf)

    For i = LBound(vArray) To UBound(vArray)
    
            If Trim(Right(vArray(i), 1)) = "_" Then
                
                Do While Trim(Right(vArray(i + w), 1)) = "_"
                    
                     If w > 0 Then
                       vArray(i) = vArray(i) & Left(vArray(i + w), Len(vArray(i + w)) - 1) & " "
                       vArray(i + w) = "'"
                    Else
                       vArray(i) = Left(vArray(i), Len(vArray(i)) - 1)
                    End If
                    
                    w = w + 1
                    
                Loop
                
                vArray(i) = vArray(i) & Left(vArray(i + w), Len(vArray(i + w))) & " "
                vArray(i + w) = "'"
                
            End If
         
            w = 0
         
            y = InStr(1, vArray(i), Chr(34) & "'" & Chr(34))
            x = InStr(1, vArray(i), "'")
            
            If x > 0 Then
               
               If (y = 0) Then
               
                   If Right(vArray(i), 1) = "_" Then
                       Do While Right(vArray(i + w), 1) = "_"
                            If w > 0 Then vArray(i + w) = "'"
                           w = w + 1
                       Loop
                       vArray(i + w) = "'"
                   End If
                   
                   If Trim(Mid(vArray(i), 1, x)) <> "'" Then
                       
                       If Right(Mid(vArray(i), 1, x), 1) = "'" Then
                           g = g & Left(Mid(vArray(i), 1, x), Len(Mid(vArray(i), 1, x)) - 1) & vbCrLf
                       Else
                           g = g & Mid(vArray(i), 1, x) & vbCrLf
                       End If
                       
                   End If
                   
                Else
                   g = g & vArray(i) & vbCrLf
                End If
             Else
                g = g & vArray(i) & vbCrLf
            End If

    Next
    
    DeleteAllComment = g
    
End Function

Di bawah ini merupakan fungsi untuk menghapus seluruh jajaran kosong (blank line)

Function DeleteBlankLine(sText As String) As String

    Dim str As String
    Dim vArray As Variant
    Dim i As Integer
    Dim g As String
    
    str = sText
    vArray = Split(sText, vbCrLf)
    
    For i = LBound(vArray) To UBound(vArray)
        
        If Trim(vArray(i)) <> "" Then
            g = g & vArray(i) & vbCrLf
        End If
        
    Next
    
    DeleteBlankLine = g
    
End Function

Cara penggunaan:

Option Explicit

Private Sub Command1_Click()
    Dim str As String
    str = DeleteAllComment(Text1.Text)
    Text2.Text = DeleteBlankLine(str)
End Sub

VB Code - Fungsi Personal Editor Html Unordering List [ ul ]

Ini merupakan fungsi VB6 yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag UL (Unordering List).

Option Explicit

Function UL(strText As String) As String
    Dim sText As String
    Dim aText() As String
    Dim i As Integer
    sText = strText
    aText = Split(sText, vbCrLf)
    For i = LBound(aText) To UBound(aText)
        Select Case i
        Case LBound(aText)
            sText = "<ul>" & "<li>" & aText(i) & "</li>" & vbCrLf
        Case UBound(aText)
            sText = sText & "<li>" & aText(i) & "</li>" & "</ul>"
        Case Else
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf
        End Select
    Next
    UL = sText
End Function

Cara penggunaan Fungsi Personal Editor HTML Unordering List <UL>

Private Sub Command1_Click()
    Text1.SelText = UL(Text1.SelText)
End Sub

VB6 Code - Fungsi Encode Dan Decode Tag HTML

Mengenai Fungsi VB6 untuk meng-encode dan decode tag HTML - Kode HTML yang dituliskan dalam sebuah tulisan/postingan tentu saja tidak dapat ditulis secara langsung tetapi harus dikonversi terlebih dahulu agar format tulisannya sesuai dengan apa yang diharapkan. Perlu kita ketahui bahwa mesin penerjemah (compiler) akan menganggap tulisannya merupakan kode HTML dan menerjemahkannya, padahal yang kita maksud adalah tulisan, tulisan yang mengandung kode HTML . Dibawah ini merupakan fungsi encode dan decode tag HTML yang bisa Anda gunakan ketika membuat tulisan/postingan yang melibatkan banyak kode/tag HTML.

Option Explicit

Dim EncodeTag() As String
Dim DecodeTag() As String

Enum eType
    Decode
    Encode
End Enum

Public Function EncDecTag(strText As String, EncDec As eType) As String
    Dim i As Integer
    InitTagArray
    For i = LBound(EncodeTag) To UBound(EncodeTag)
        If EncDec = Encode Then
            strText = Replace(strText, EncodeTag(i), DecodeTag(i), , ,  vbTextCompare)
        Else
            strText = Replace(strText, DecodeTag(i), EncodeTag(i), , , vbTextCompare)
        End If
    Next
    EncDecTag = strText
End Function

Private Function InitTagArray()
    Dim EncTag As String
    Dim DecTag As String
    EncTag = "&,<,>," & Chr(34) & ",±"
    DecTag = "&amp;,&lt;,&gt;,&quot;,&plusmn;"
    EncodeTag = Split(EncTag, ",")
    DecodeTag = Split(LCase(DecTag), ",")
End Function

Cara Penggunaan Fungsi Encode dan Decode Tag HTML

Private Sub Command1_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Decode)
End Sub

Private Sub Command2_Click()
    Text1.SelText = EncDecTag(Text1.SelText, Encode)
End Sub

VB6 Code - Fungsi Personal Editor HTML Ordering List [ ol ]

Ini merupakan fungsi VB6 yang digunakan untuk membuat personal editor. Tag yang akan kita modifikasi adalah tag OL (Ordering List).

Option Explicit

Function OL(strText As String) As String
    Dim sText As String
    Dim aText() As String
    Dim i As Integer
    sText = strText
    aText = Split(sText, vbCrLf)
    For i = LBound(aText) To UBound(aText)
        Select Case i
        Case LBound(aText)
            sText = "<ol>" & "<li>" & aText(i) & "</li>" & vbCrLf
        Case UBound(aText)
            sText = sText & "<li>" & aText(i) & "</li>" & "</ol>"
        Case Else
            sText = sText & "<li>" & aText(i) & "</li>" & vbCrLf
        End Select
    Next
    OL = sText
End Function

Cara penggunaan Fungsi Personal Editor HTML Ordering List <OL>

Private Sub Command1_Click()
    Text1.SelText = OL(Text1.SelText)
End Sub

Thursday, April 1, 2010

Blogging - Membuat Menu Drop Down Pada Blogspot

Mengenai cara membuat menu dropdown pada blogspot - Untuk membuat menu dropdown,selain membuat situs lebih rapi,juga sambil belajar yuk!

Untuk kodenya copy paste kode di bawah ini :

<form><select name="menu"
onchange="window.open(this.options[this.selectedIndex].value,'_blank')"size=1
name=menu><option value=0 selected>KATA YANG PERTAMA MUNCUL</option>
<option value="ALAMAT YANG DI TUJU">TEXT YANG DI TAMPILKAN</option>
</select></form>

Contoh penggunaan kode :

<form><select name="menu"
onchange="window.open(this.options[this.selectedIndex].value,'_blank')"size=1
name=menu>
<option>Link</option>
<option value="http://www.youtube.com">Youtube</option>
<option value="http://www.yahoo.com">Yahoo</option>
<option value="http://www.google.com">Google</option>
</select></form>

Yang hasilnya nanti akan seperti di bawah ini :

VB Code - Mengisi Seluruh Fonts Ke Dalam Listbox

Di bawah ini merupakan fungsi VB6 untuk mengisi seluruh fonts yang ada dalam komputer Anda ke dalam objek ListBox pada dasarnya Anda dapat menggunakan objek selain ListBox seperti ListView, TreeView, dll.

Public Function LoadAllFonts(lst As Control)
    Dim i As Integer
    For i = 1 To 1000
        If Screen.Fonts(i) = "" Then Exit For
        lst.AddItem Screen.Fonts(i)
    Next i
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Form_Load()
    LoadAllFonts List1
End Sub

Subscribe to: Posts ( Atom )

Saturday, April 3, 2010

Thursday, April 1, 2010

Perhatian

Page Rank

Online

Statistik Pengunjung

embrio9 - Auto Reply

Blog Archive

Visual Basic 6.0

Arabic

Blogging

Miscellaneous