Deteksi Modem Otomatis Dengan Visual Basic 2005

Langkah - langkah agar program  aplikasi kita, dapat medeteksi sebuah modem yang terpasang di komputer kita. Secara otomatis

I.   Buka atau buat proyek  baru, Klik menu Project kemudian Add Reference
II. Pilih Tab atau bagian .Net cari dan pilih System.Management, kemudian klik OK



III. Tulis Kode program

Imports System.Management

Public Class frmInduk

    Private Sub frmInduk_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

 Dim po As String
        Dim modems As String = ""
        Try
            '=>Mencari peranngkat  modem
            Dim searcher As New ManagementObjectSearcher( _
            "root\CIMV2", _
            "SELECT * FROM Win32_POTSModem")

            '=>mengambil informasi tentang modem
            For Each queryObj As ManagementObject In searcher.Get()
                If queryObj("Status") = "OK" Then

 '=>Melihat nama modem 
                    modems = queryObj("Description")

 '=>Melihat Port yg digunakan modem 
                    po = queryObj("AttachedTo")

                End If
            Next
        Catch err As ManagementException
            MessageBox.Show("Modem tidak dikenali " & err.Message)

        End Try

 MsgBox(vbCrLf & "Modem : " & modems & vbCrLf & "  Di Port : " & po)

    End Sub
End Class

IV. Hasilnya tampil dikotak dialoag seperti gambar dibawa ini



DOWNLOAD TULISAN INI