Source Code Menampilkan Nama Komputer dan Resolusi VB6

Posted by PintuSamping on

Monday, 7 September 2015

Source Code Menampilkan Nama Komputer dan Resolusi - Berikut Saya akan share Source Code Menampilkan Nama Komputer dan Resolusi menggunakan Visual Basic 6. Ini juga menjadi tugas kuliah pemrograman komputer di kampus Saya.

1. Buat Sebuah Project baru dan tambahkan Form Standar
2. Tambah 1 buah Module
3. Tambah 2 buah Command Button

Code:

Isikan code berikut di Module1

Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

 Isikan code berikut di Form1

'Membaca User PC
Public Function sGetComputerName() As String
    Dim sBuffer As String
    Dim lBufSize As Long
    Dim lStatus As Long
    lBufSize = 255
    sBuffer = String$(lBufSize, " ")
    lStatus = GetComputerName(sBuffer, lBufSize)
    sGetComputerName = ""
    If lStatus <> 0 Then
        sGetComputerName = Left(sBuffer, lBufSize)
End If
End Function
Private Sub Command1_Click()
MsgBox sGetComputerName, vbInformation, "INFO"
End Sub
'Membaca Resolusi
Private Sub Command2_Click()
ResWidth = Screen.Width \ Screen.TwipsPerPixelX
ResHeight = Screen.Height \ Screen.TwipsPerPixelY
ScreenRes = ResWidth & "x" & ResHeight
MsgBox (ScreenRes), vbInformation, "INFO"
End Sub

Download program yang sudah jadi Disini
Perhatian: Jika halaman error saat membuka Adf.ly, coba ubah DNS Kamu ke DNS google Kumpulan DNS di settingan network.

Labels: Tutorial, VB6

Thanks for reading Source Code Menampilkan Nama Komputer dan Resolusi VB6. Please share...!