-

来自「检查串口是否联有modem」· 代码 · 共 31 行

检测计算机Com1-Com4串口是否连有Modem

=============================SelfDial说明=============================


 本实例检测计算机Com1-Com4串口是否连有Modem：

     '使用MSCOMM控件
      
      MSComm1.Settings = "9600,n,8,1"    '设置Modem速度，奇偶校验
      MSComm1.CommPort = 1               '设置串口
      MSComm1.PortOpen = True            '打开串口

      MSComm1.InputLen = 0               '设置进入字符
      MSComm1.Output = "AT" + Chr$(13)   '发送AT字符到Modem
 
      Do
        DoEvents()    '空出CPU
      Loop Until InStr(MSComm1.Input, "OK")  '循环直至返回OK字符，通过

     '保存正确设置:ModemSpeed为上面设置的速度,PortName为串口号
 
      SaveSetting App.EXEName, "Config", "BaudRate", ModemSpeed
      SaveSetting App.EXEName, "Config", "PortName", PortName


VB编程乐园
http://www.vbeden.com （主力站）
http://vbeden.126.com （镜像 速度快）
http://grwy.online.ha.cn/gzlzd/index_main.htm （镜像）
http://go8.163.com/~vbboshi/index_main.htm （镜像）