VB6.0 - Set Google Chrome Default Home Site Programmatically

Mendefaultkan home site IE (Internet Explorer) atau Mozilla Firefox secara pemrograman mungkin kita sudah mengetahuinya, tapi bagaimana dengan Google Chrome yang tergolong relatif masih muda untuk saat ini (2011).

Masalah mendefaultkan Google Chrome home page, hanyalah masalah merubah 1 baris kode yang terdapat pada file preferences yang terdapat pada folder: .... \Local Settings\Application Data\Google\Chrome\User Data\Default.

Atau tepatnya merubah 1 baris kode yang terdapat pada gambar di bawah ini:

Gambar 1  Kode yang dirubah pada file preferences

Di bawah ini merupakan kode untuk mendefaultkan home page Google Chrome. Letakan kode ini pada module.

'---------------------------------------------------------------------------------- 
'From: http://khoiriyyah.blogspot.com 
'By: Asep Hibban 
'---------------------------------------------------------------------------------- 
Option Explicit 

Public Sub SetChromeHomepage(URL As String) 
     
    Dim strPath As String, strProfile As String 
    Dim strContent As String, strReplace As String 
    Dim regex As RegExp, strSystemDrive As String 
     
    strPath = Environ("SystemDrive") & Environ("HOMEPATH") 
    strPath = strPath & "\Local Settings\Application Data\Google\Chrome\User Data\Default" 
    strProfile = Dir(strPath, vbDirectory) 
    Debug.Print strPath 
    If Len(strPath) Then 
        strPath = strPath & "\Preferences" 
        strReplace = Chr(34) & "homepage" & Chr(34) & ": " & Chr(34) & URL & Chr(34) & "," 
        strContent = fGetFileContents(strPath) 
        Set regex = New RegExp 
        If InStr(1, strContent, Chr(34) & "homepage" & Chr(34)) = 0 Then 
            strContent = strContent & vbCrLf & Chr(34) & "homepage" & Chr(34) & ": " & Chr(34) & URL & Chr(34) & "," 
            sPutStringToFile strContent, strPath 
            Exit Sub 
        ElseIf InStr(1, strContent, strReplace) Then 
            Exit Sub 
        End If 
        'tidak bisa direplace menggunakan replace biasa 
        'maka kita gunakan regular expressions untuk keperluan ini 
        regex.Pattern = Chr(34) & "homepage" & Chr(34) & ": .*)" 
         
        strContent = regex.Replace(strContent, strReplace) 
        strContent = Replace(strContent, Chr(34) & "homepage_is_newtabpage" & Chr(34) & ": true,", vbCrLf & Chr(34) & "homepage_is_newtabpage" & Chr(34) & ": false,") 
        sPutStringToFile strContent, strPath 
         
    End If 
End Sub 

Public Function fGetFileContents(strPath As String) As String 
    Dim hFile As Integer 
    Dim strFileContent As String 
     
     
    If Len(Dir(strPath)) = 0 Then Exit Function 
     
    On Error GoTo ErrGetFile 
    hFile = FreeFile 
     
    Open strPath For Binary As #hFile 
        strFileContent = Space(LOF(hFile)) 
        Get #hFile, , strFileContent 
    Close #hFile 
     
    fGetFileContents = strFileContent 
    Exit Function 
     
ErrGetFile: 

    Close 
    MsgBox Err.Description, vbCritical, "GetFileContents" 
     
End Function 

Public Sub sPutStringToFile(strContent As String, strPath As String) 
    Dim hFile As Integer 
     
    'If file exists delete it. 
    On Error Resume Next 
    Kill strPath 
    On Error GoTo ErrPutString 
     
    'Write file 
    hFile = FreeFile 
    Open strPath For Binary As #hFile 
        Put #hFile, , strContent 
    Close #hFile 
     
    Exit Sub 
     
ErrPutString: 

    Close #hFile 
    MsgBox Err.Description, vbCritical, "PutStringToFile" 

End Sub 

Contoh pemanggilan prosedure di atas:

Private Sub Command1_Click() 
    SetChromeHomepage "http://khoiriyyah.blogspot.com" 
End Sub 

READ MORE - VB6.0 - Set Google Chrome Default Home Site Programmatically

Menghilangkan Virus Copy of Shortcut to (1) to (4) secara Manual

Pernahkah PC/flasdisc Anda terinfeksi virus seperti di bawah ini:

Sementara disaat yang bersamaan PC Anda telah terpasang misalnya 2 Antivirus (lokal maupun luar) dengan update terbaru. Jika keduanya mampu menghapus secara tuntas virusnya, tentu tidak ada masalah dan Anda disarankan untuk tidak melanjutkan membaca artikel ini. Tapi Jika keduanya tidak mampu mengatasi masalah diatas dan komputer Anda terasa sangat lambat sekali, koneksi internet sangat lambat sekali, maka terpaksa Anda harus menghapusnya secara manual. Bagaimana caranya:
Langkah pertama:

1. Hapus/pindahkan seluruh file aplikasi browser, misalnya: Chrome.exe, firefox.exe, IExplorer.exe, dan sebagainya ke sebuah folder tertentu.
2. Putuskan koneksi internet, cabut seluruh flashdisc.
3. Restar komputer.
4. Hapus file-file virusnya.
5. Selesai.

Penjelasan:

• Chrome.exe terdapat pada: C:\Documents and Settings\.....\Local Settings\Application Data\Google\Chrome\Application\chrome.exe
• firefox.exe terdapat pada: C:\Program Files\Mozilla Firefox\firefox.exe
• IExplorer.exe terdapat pada: C:\Program Files\Internet Explorer\IExplorer.exe
• dan file-file browsing lainnya dengan menggunakan search. Pastikan file browser tersebut tidak dalam keadaan berjalan dengan melihatnya melalui Windows Task Manager.
• Setelah direstart. kini giliran menghapus file-file virusnya, caranya:
  Pertama: Buka folder C:\Program Files maka perhatikan disana akan terdapat folder dengan nama acak, di dalamnya ada satu file exe, itulah yang menjadi file virusnya (karena acak, nama virus tidak harus sama dengan yang terdapat dalam gambar). Perhatikan gambar di bawah ini:

Kedua: Buka folder C:\Documents and Settings\Ibnu Surur\Start Menu\Programs\Startup. Di dalam folder ini Anda akan menemukan satu file virus lagi (karena acak, nama virus tidak harus sama dengan yang terdapat dalam gambar). Hapus saja secara manual. Sekarang Anda aman.


Jika Anda mau Anda dapat melakukan pembersihan terhadap key-key registry yang telah dirubah, juga menghapus seluruh file-file yang telah ditambahkan pada flashdisc. Hapus pula file dmlconf.dat (cari melalui search), mengaktifkan safemode kembali, mendisable autorun seluruh disc. Tapi jika tidak pun tidak apa-apa, hanya berpotensi terinfeksi virus kembali.

Terakhir: tiba saatnya mengucapkan selamat jalan pada virus tersebut.

Jika dilihat dari tingkah lakunya, virus tersebut tidak merubah/merusak file, hanya membuat komputer lambat, dan kemungkinan (hanya kemungkinan saja, mudah-mudahan tidak) mengintai (spy) aktifitas Anda berinternet serta mengkoleksi password-password Anda.

Update (12-2012):
Cara di atas sudah tidak bisa digunakan lagi, dikarenakan virus copy of shortcut sudah bisa melakukan infeksi terhadap file-file yang berektensi *.exe, *.dll, *.html. Untuk solusinya silakan klik link di samping Cara mudah mengatasi virus shortcut

READ MORE - Menghilangkan Virus Copy of Shortcut to (1) to (4) secara Manual

Cetak Ke Printer Via LPT Port Menggunakan VB6

Di bawah ini merupakan contoh cara mencetak ke printer via LPT Port menggunakan Visual Basic 6 - Adapun kodenya adalah sebagai berikut:

Public Function PrintToLPTPort(ByVal port As String, ByVal text As String) As Boolean 
On Error GoTo ErrHandler 
     Dim l As Long 
     l = FreeFile
     Open port For Output As #l
         Print #F, text 
     Close #l 
     PrintToLPTPort = True 
    Exit Function 
ErrHandler: 
     PrintToLPTPort = False 
End Function 

Contoh penggunaan cetak ke printer via LPT Port:

Private Sub Command1_Click() 
    PrintToLPTPort "LPT1", "Test Print" 
End Sub 

READ MORE - Cetak Ke Printer Via LPT Port Menggunakan VB6

Web Color Spy - Mendeteksi Warna Standar Web

Di bawah ini merupakan project VB6 sederhana untuk mendeteksi warna standar web. Bagaimana kode project web color spy untuk mendeteksi warna standar web, bisa lihat di bawah ini:

'simpan kode di bawah pada module 
Option Explicit 
 
Public Declare Function CreateDC& Lib "gdi32" Alias "CreateDCA" (ByVal lpDriverName As String, ByVal lpDeviceName As String, ByVal lpOutput As String, lpInitData As Any) 
Public Declare Function DeleteDC& Lib "gdi32" (ByVal hdc As Long) 
Public Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long) As Long 
 
Type POINTAPI 
    X As Long 
    Y As Long
End Type 
 
Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long 

'simpan kode di bawah pada form 
'Timer.Interval = 1 
'Picture1.AutoRedraw = True 
 
Option Explicit 
 
Dim pt As POINTAPI

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = True 
    Picture1.MousePointer = vbCrosshair
End Sub 
 
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) 
    Timer1.Enabled = False 
    Picture1.MousePointer = vbDefault
End Sub 
 
Private Sub Timer1_Timer() 
    Dim screendc As Long 
    GetCursorPos pt
    screendc = CreateDC("DISPLAY", "", "", 0&)
    Picture1.BackColor = GetPixel(screendc, pt.X, pt.Y) 
    Text1.Text = "#" & Hex(GetPixel(screendc, pt.X, pt.Y)) 
    DeleteDC (screendc) 
End Sub 

READ MORE - Web Color Spy - Mendeteksi Warna Standar Web