VB6 Code - Fungsi Untuk Menjadikan Blank Layar Komputer

Di bawah ini merupakan fungsi VB6 untuk mematikan layar monitor.

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

Public Function TurnOnMonitor(hwnd As Long, bFlag As Boolean) As Boolean
  If bFlag Then
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)
  Else
      Call SendMessage(hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)
  End If
End Function

Contoh penggunaan kode di atas:

Option Explicit

Private Sub Command1_Click()
  TurnOnMonitor Me.hwnd, False
End Sub

READ MORE - VB6 Code - Fungsi Untuk Menjadikan Blank Layar Komputer

VB6 Code - Informasi Mengenai Printer Yang Terinstall

Di bawah ini merupakan cara memperoleh/mengetahui informasi mengenai printer yang terinstall.

Option Explicit

Public Function ListAllPrinters(lst As Control)
 Dim oPrint As Object
 For Each oPrint In Printers
   List1.AddItem oPrint.DeviceName
 Next
End Function

Contoh penggunaan mengenai printer yang terinstall

Private Sub Form_Load()
 ListAllPrinters List1
End Sub

READ MORE - VB6 Code - Informasi Mengenai Printer Yang Terinstall

VB6 Code - Fungsi Untuk Mengetahui Default Printer

Di bawah ini merupakan fungsi untuk mengetahui default printer yang sedang digunakan menggunakan kode VB6:

Option Explicit

Function DefPrintName() As String
  DefPrintName = Printer.DeviceName
End Function

Contoh penggunaan kode di atas

Private Sub Command1_Click()
  MsgBox DefPrintName, vbInformation, "Default Printer"
End Sub

READ MORE - VB6 Code - Fungsi Untuk Mengetahui Default Printer

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