---

Hvorfor virker denne kode ikke når port er sat til 1 men virker fint hvis
port er sat til 2

Problemet er bare at jeg skal kunne detekte modem også hvis det sidder på
com1.

Er der nogen der har en smart måde at detekte modem på således at man får
returneret den port som modem er tilsluttet.

Koden her er en jeg fandt på Planet Source Code. men den virker ikke hos mig
uanset hvad jeg gør med mindre jeg sætter port =2

Hvorfor kan jeg ikke detekte port 1


Private Sub Command1_Click()
On Error GoTo errr:
Port = 1
PortinG:
MSComm1.CommPort = Port
MSComm1.PortOpen = True


Form1.MSComm1.Settings = "9600,N,8,1"
' MSComm1.Output = "AT" + Chr$(13)
x = 1


Do: DoEvents
x = x + 1
If x = 1000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 2000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 3000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 4000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 5000 Then MSComm1.Output = "AT" + Chr$(13)
If x = 6000 Then MSComm1.Output = "AT" + Chr$(13)


If x = 7000 Then
MSComm1.PortOpen = False
Port = Port + 1
GoTo PortinG:


If MSComm1.CommPort >= 5 Then
errr:
MsgBox "Can't Find Modem!"
GoTo done:
End If
End If
Loop Until MSComm1.InBufferCount >= 2
instring = MSComm1.Input
MSComm1.PortOpen = False
Text1.Text = MSComm1.CommPort & instring
MsgBox "Modem Found On Comm" & Port


done:

End Sub

Med venlig hilsen
Bjarne