如何用Mscomm控件检测(联接、挂断)_VB.net_黑客防线网安服务器维护基地--Powered by WWW.RONGSEN.COM.CN

如何用Mscomm控件检测(联接、挂断)

作者:黑客防线网安VB教程基地 来源:黑客防线网安VB教程基地 浏览次数:0

本篇关键词:检测控件如何Function
黑客防线网安网讯:1、怎么用mscomm控件检测modem是否与计算机联接正确? 2、如何用mscomm挂断modem与别的电话机间的连接?(已接通) 3、怎么用mscomm控件检测modem是否与计算机联接正确? 4、如何用mscomm挂...

1、怎么用mscomm控件检测modem是否与计算机联接正确?

2、如何用mscomm挂断modem与别的电话机间的连接?(已接通)

3、怎么用mscomm控件检测modem是否与计算机联接正确?

4、如何用mscomm挂断modem与别的电话机间的连接?(已接通)

连接

我记得MODEN连接好了可以接受串口的信号比如你发送AT,应该返回OK,有的时候则返回AT,说明是连上了的

Function ModenSeach(com As Integer, Default As String) As String
Dim a As String
On Error GoTo aa:
MSComm.CommPort = com
MSComm.InputMode = comInputModeBinary
MSComm.Settings = "9600,n,8,1"
If MSComm.PortOpen = True Then
MSComm.PortOpen = False
End If
MSComm.DTREnable = True
MSComm.EOFEnable = True
MSComm.RTSEnable = True
MSComm.PortOpen = True
MSComm.Output = "at"
a = EcrReadOne(2): a = LCase(a)
If InStr(a, "at") <> 0 Or InStr(a, "ok") <> 0 Then
ModenSeach = "Moden"
Else
ModenSeach = Default
End If
Exit Function
aa:
ModenSeach = Default
'EndTransmit
End Function

Function EcrReadOne(number As Integer) As String
Dim out() As Byte, i As Integer, data As String

data = "": i = 1
Do
DoEvents: i = i + 1
Debug.Print MSComm.InBufferCount
Loop Until (MSComm.InBufferCount >= number Or i >= 800) ' one plu item read
If i >= 800 Then
EcrReadOne = ""
Exit Function
End If
out() = MSComm.Input
For i = 1 To number
data = data + Chr(out(i))
Next
EcrReadOne = Trim(data)
End Function

    黑客防线网安服务器维护方案本篇连接:http://www.rongsen.com.cn/show-14755-1.html
网站维护教程更新时间:2012-04-03 01:13:49  【打印此页】  【关闭
我要申请本站N点 | 黑客防线官网 |  
专业服务器维护及网站维护手工安全搭建环境,网站安全加固服务。黑客防线网安服务器维护基地招商进行中!QQ:29769479

footer  footer  footer  footer