VB6 Code - Mendownload Sebuah URL

Di bawah ini merupakan fungsi VB6 untuk mendownload sebuah URL. Adapun kode VB6 untuk mendownload sebuah URL adalah sebagai berikut:

Option Explicit

Private Function DownloadFile(ByVal sFileSource As String, ByVal sDestFile As String) As Boolean
   Dim bytes() As Byte
   Dim fnum As Integer
   bytes() = Inet1.OpenUrl(sFileSource, icByteArray)
   fnum = FreeFile
  
   Open sDestFile For Binary Access Write As #fnum
       Put #fnum, , bytes()
   Close #fnum
  
   DownloadFile = True
End Function

Contoh penggunaan fungsi di atas:

Private Sub Command1_Click()
   Call DownloadFile("http://4basic-vb.blogspot.com", "C:\download.html")
End Sub

Demikian kode VB6 untuk mendownload sebuah URL. Semoga bermanfaat.

READ MORE - VB6 Code - Mendownload Sebuah URL

VB6 Code - Memeriksa Apakah Komputer Terhubung Ke Internet

Di bawah ini merupakan fungsi VB6 untuk memeriksa sebuah komputer terhubung ke internet atau tidak?. Adapun kode VB6 untuk memeriksa sebuah komputer apakah terhubung ke internet adalah sebagai berikut:

Option Explicit

Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long
Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long
'
Const RAS95_MaxEntryName = 256
Const RAS95_MaxDeviceType = 16
Const RAS95_MaxDeviceName = 32
'
Private Type RASCONN95
   dwSize As Long
   hRasCon As Long
   szEntryName(RAS95_MaxEntryName) As Byte
   szDeviceType(RAS95_MaxDeviceType) As Byte
   szDeviceName(RAS95_MaxDeviceName) As Byte
End Type
'
Private Type RASCONNSTATUS95
   dwSize As Long
   RasConnState As Long
   dwError As Long
   szDeviceType(RAS95_MaxDeviceType) As Byte
   szDeviceName(RAS95_MaxDeviceName) As Byte
End  Type

Private Function IsConnected() As Boolean
'
   Dim TRasCon(255) As RASCONN95
   Dim lg As Long
   Dim lpcon As Long
   Dim RetVal As Long
   Dim Tstatus As RASCONNSTATUS95
   '
   TRasCon(0).dwSize = 412
   lg = 256 * TRasCon(0).dwSize
   '
   RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)
   If RetVal <> 0 Then
       MsgBox "ERROR "
       Exit Function
   End If
   '
       Tstatus.dwSize = 160
       RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)
   If Tstatus.RasConnState = &H2000 Then
       IsConnected = True
   Else
       IsConnected = False
   End If
End Function

Contoh penggunaan fungsi VB6 di atas:

Private Sub Command1_Click()
   MsgBox IsConnected
End Sub

Demikian mengenai fungsi VB6 untuk memeriksa apakah sebuah komputer terhubung ke internet?

READ MORE - VB6 Code - Memeriksa Apakah Komputer Terhubung Ke Internet

VB6 Code - Membuat Label Yang Berkedip-kedip

Bagaimana cara membuat label yang berkedip-kedip, simak kodenya di bawah ini:

Private Sub Form_Load()
   Label1.Caption = "http://4basic-vb.blogspot.com"
   Timer1.Interval = 300
End Sub

Private Sub Timer1_Timer()
   Label1.Visible = Not Label1.Visible
End Sub

READ MORE - VB6 Code - Membuat Label Yang Berkedip-kedip

VB6 Code - Baca Tulis INI File

Di bawah ini merupakan fungsi untuk baca tulis file .INI. menggunakan Visual Basic 6:

Option Explicit

Private Declare Function WriteProfileString Lib "kernel32" Alias "WriteProfileStringA" (ByVal lpszSection As String, ByVal lpszKeyName As String, ByVal lpszString As String) As Long
Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As  String) As Long

Public Function ReadIni(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFileName As String) As String
    Dim intRes As Integer, strRet As String
    strRet = Space$(32400)
    intRes = GetPrivateProfileString(strSection, strKey, strDefault, strRet, Len(strRet), strFileName)
    ReadIni = Left$(strRet, intRes)
End Function

Public Sub WriteIni(ByVal strSection As String, ByVal strKey As String, ByVal strSetting As Variant, ByVal strFileName As String)
    WritePrivateProfileString strSection, strKey, CStr(strSetting), strFileName
End Sub

Public Function ReadWinIni(strSection As String, strKey As String) As String
    Dim Result As String * 128
    Dim Temp As Integer
    Temp = GetProfileString(strSection, strKey, "", Result, Len(Result))
    ReadWinIni = Left$(Result, Temp)
End Function

Public Sub WriteWinIni(strSection As String, strKey As String, strSetting As  String)
    WriteProfileString strSection, strKey, strSetting
End Sub

READ MORE - VB6 Code - Baca Tulis INI File