Mas ERIS RISO terima kasih atas informasinya, setelah
saya coba variabel Dim sec AS SECURITY_ATTRIBUTES
error!! SECURITY_ATTRIBUTES tidak dikenal. Mohon
bantuanya lagi mas
> Bikin Modul, ketikan ini:
> Public Function COMTersedia(COMNum As Integer) As
> Boolean
> Dim hCOM As Long
> Dim ret As Long
> Dim sec As SECURITY_ATTRIBUTES
>
> '// mencoba membuka COM port
> hCOM = CreateFile("\.\COM" & COMNum & "", 0,
> FILE_SHARE_READ + _
> FILE_SHARE_WRITE, sec, OPEN_EXISTING,
> FILE_ATTRIBUTE_NORMAL, 0)
> If hCOM = -1 Then
> COMTersedia = False
> Else
> COMTersedia = True
> '// tutup COM port
> ret = CloseHandle(hCOM)
> End If
> End Function
>
> Buat form, tambahkan combobox, pada saat form
> diload, panggil modul tadi
> Ketikan kode dibawah ini pada form, dan panggil paad
> saat form diload juga
> Private Sub DaftarComPorts()
> Dim i As Integer
>
> ComboBox.Clear
> For i = 1 To 16
> If COMTersedia(i) Then
> ComboBox.AddItem "Com" & i
> End If
> Next
> ComboBox.ListIndex = 0
> End Sub
____________________________________________________________________________________
Cheap talk?
Check out Yahoo! Messenger's low PC-to-Phone call rates.
http://voice.yahoo.com
