请教:用MsComm控件接通后又能通用挂断所有型号Modem的方法

Question

所有型号Modem:主要是外猫.特别是"U.S. Robotics 33.6K FAX EXT"这个型号的...

Answer 1

本贴将放分,请有意帮忙者进:
http://www.csdn.net/expert/topic/497/497597.shtm
另外有分. 

Answer 2

本问题的标分已达238分,分五贴,有好意见的热心人可以进入各贴领分...
   
    http://www.csdn.net/expert/topic/495/495039.shtm
    http://www.csdn.net/expert/topic/497/497597.shtm
    http://www.csdn.net/expert/topic/490/490318.shtm
    http://www.csdn.net/expert/topic/487/487090.shtm
    http://www.csdn.net/expert/topic/497/497640.shtm

Answer 3

该问题还有3块没有放分,因为分数较散,所以Amoon(阿木) Flowerz(祖国的花朵)　wgku(云霄)  的均合并在一贴拿了, sxmzmxh(深巷)  的则分为三处拿,请sxmzmxh(深巷) 登陆其他两个贴子拿分.
'-------------------------------------------------------
http://www.csdn.net/expert/topic/497/497597.shtm
点数:69
liangsiyuan(叶)     3      　cocoboy79(iThink.net)  5         Amoon(阿木)    0   
TBBT(谁能读懂我的心)　10      bluesky35(蓝天)　　   4          Bardo(巴顿)    10
wgku(云霄)　         4       Flowerz(祖国的花朵)　  15         sxmzmxh(深巷)  8
vcbug(今夜最后一次陪你而醉)　 10http://www.csdn.net/expert/topic/487/487090.shtm
点数:47
wgku(云霄)   0          　Flowerz(祖国的花朵)　0    sxmzmxh(深巷)  47http://www.csdn.net/expert/topic/490/490318.shtm
点数:47
wjying(葡萄)  3       　 langzhi(方舟)  23          　Amoon(阿木) 8
　brian_zhuang(不长进的阿庄)　3                       sxmzmxh(深巷) 10'-----------------------------------------------------------------------------
最后两贴请sxmzmxh(深巷)赶快登陆分分..

Answer 4

我的问题主要出在初始化MODEM部分,另外在有的情况下,挂断部分也有可能存在问题,所以我都改装了一下,目前这两段代码基本可以对付大部分MODEM(最起码可以对付我目前见过的所有MODEM了),至于其他的MODEM会有什么问题,还希望大家帮忙测试,,(可以帮忙测试的朋友请留下E-MAIL,我将测试程序发给你)
'---打开端口段-----------------------------------------------
            MSComm1.RThreshold = 0
            '---------初始化Modem-------------
            With Modem
                .Att MSComm1, "Z"
                Pause (1)
                .Att MSComm1, "Q0"
                Pause (1)
                .Att MSComm1, "E0"
                Pause (2)
                .Att MSComm1, "&D1"   '我的问题出在此句,原来不知道.设为&D1,&D2,&D3都可以,就是不能设为&D或&D0
                Pause (1)
                .Att MSComm1, "&F"
                Pause (1)
                .Att MSComm1, "E0"
                Pause (1)
                .Att MSComm1, "V0"
                Pause (1)
                .Att MSComm1, "V0"                                
            End With
            MSComm1.RThreshold = 1
            '----------------
注:MODEM.ATT MSComm1,Str 是类,等同于 MSComm1.OUTPUT="AT"+Str+VBCRLF
'--------------------------------------------------------------------------
sxmzmxh(深巷)的挂断的代码有一小点语句先后的问题,我改了一下就可以了,Public Sub HangUpPhone(Comm As MSComm)
    If Comm.PortOpen Then
        Screen.MousePointer = vbHourglass        
        Comm.OutBufferCount = 0
        Comm.InBufferCount = 0
        Comm.RThreshold = 0
        '*************************************
        Dim Ret As Boolean
        Ret = Comm.DTREnable
        Comm.DTREnable = True
        Pause (1)
        Comm.DTREnable = False       
        Comm.Output = "+++" + vbCrLf      '*    这三句必须插在Comm.DTREnable = False  
        Pause (1)                         '*    和Comm.DTREnable = Ret之间,否则"AT"  
        Comm.Output = "ATH0" + vbCrLf     '*    指令不能控制MODEM...... sxmzmxh(深巷)原来的Comm.DTREnable = False,Comm.DTREnable = Ret 两句是在一起的....所以有可能不能控制MODEM,(初始化成&D2,&D3时例外)
                                            
        '------------------------------        
        Pause (1)                        
        Comm.DTREnable = Ret
        '*************************************
        Comm.RThreshold = 1       
        Pause (1)
        Comm.PortOpen = False        
        Screen.MousePointer = vbNormal
    End If
End Sub
'------------------------------------------------------------------      到此,我的"用MSCOMM通用挂断 计算机-MODEM-MODEM-单片机 连接的方法"一疑基本得到了圆满的答复.加上我的改装,目前测试程序也可以发布了,可以帮忙测试的朋友请留下E-MAIL,我将测试程序发给你.
      最后,感谢大家对本问题的关注.特此解贴放分...............

Answer 5

看了http://www.csdn.net/Expert/topic/504/504918.shtm！
给我点分行吗？

Answer 6

zyl910(910：分儿，我来了！)　别急嘛，你的分在http://www.csdn.net/expert/topic/495/495039.shtm里面的。。，当然了我还要多加一点给你们。

Answer 7

最后两贴请sxmzmxh(深巷)赶快登陆分分..  

Answer 8

最后两贴请sxmzmxh(深巷)赶快登陆分分..  

Answer 9

最后两贴请sxmzmxh(深巷)赶快登陆分分..