VB6 Code - Save As MHTML

Mengenai cara menyimpan halaman dengan format MHTML menggunakan Visual Basic 6.0 - Menyimpan file dalam format MHTML tentunya memiliki banyak keuntungan, salah satu dari banyak keuntungan tersebut ialah terintegrasinya seluruh gambar dan file dengan baik, sehingga kita bisa mendownload halaman situs/blog yang kita kunjungi utuh dengan seluruh gambarnya.

Option Explicit  

Public Function SaveWebPageToMHTFile(url As String, filepath As String)  
      
On Error GoTo ErrHandler  

    Dim msg As New CDO.Message  
    Dim stm As New ADODB.Stream  
      
    msg.MimeFormatted = True  
    msg.CreateMHTMLBody url, CDO.CdoMHTMLFlags.cdoSuppressNone, "", ""  
    '//Pilih charset yang sesuai 
    stm.Charset = "utf-8"  
    Set stm = msg.GetStream()  
    stm.SaveToFile filepath, ADODB.SaveOptionsEnum.adSaveCreateOverWrite  
    Set msg = Nothing  
    stm.Close  
      
    Exit Function  

ErrHandler:  

    MsgBox Err.Description  
      
End Function  

Contoh pemanggilan prosedur fungsi di atas:

Private Sub Command1_Click()  
    '//Coba menyimpan file dalam bentuk MHTML </i> 
    SaveWebPageToMHTFile "http://www.planet-source-code.com/vb/default.asp?lngWId=1", "c:\psc.MHTML"  
End Sub  

Catatan: Sebelum Anda menggunakan fungsi di atas, tambahkan referensi Microsoft ActiveX Data Objects 2.8 Liblary dan Microsoft CDO for Windows 2000 Liblary

READ MORE - VB6 Code - Save As MHTML

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