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

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

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

READ MORE - VB6 Code - Menjalankan File .wav Menggunakan Visual Basic

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.

READ MORE - VB6 Code - Mendapatkan Source Html Dari URLTertentu

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

READ MORE - VB Code - Menghapus Seluruh Komentar Visual Basic 6.0