Modem Comm
this code finds what comm port your modem is on. the modem must be on for it to work you need mscomm and a textbox thats it
AI
AI 요약: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
소스 코드
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:
원본 댓글 (3)
Wayback Machine에서 복구됨