Meng-Capture Screen .bmp atau .jpg Menggunakan ezCapture.dll

Di bawah ini merupakan fungsi 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 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 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 

READ MORE - Meng-Capture Screen .bmp atau .jpg Menggunakan ezCapture.dll

Fungsi Untuk Menjalankan File .wav Menggunakan Visual Basic 6.0

Di bawah ini merupakan fungsi 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 

READ MORE - Fungsi Untuk Menjalankan File .wav Menggunakan Visual Basic 6.0

Fungsi Untuk Mendapatkan Source HTML dari URL Tertentu

Di bawah ini merupakan fungsi 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 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.

READ MORE - Fungsi Untuk Mendapatkan Source HTML dari URL Tertentu

Fungsi Untuk Menghapus Seluruh Komentar Visual Basic 6.0

Di bawah ini merupakan fungsi 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 

READ MORE - Fungsi Untuk Menghapus Seluruh Komentar Visual Basic 6.0