100分求助，用mscomm空件打传呼！！急！！

Question

输出 ATDT自动台号码＋呼机号 即可

Answer 1

我手头上没有modem ，无法测试我的code.我不能确定我的code正确性、
我现在写出我的code,如果有问题指出后给分。
我用的是mscomm控件，却省设定，manbp为传呼号/
private sub OnCallBp() 
Dim L As Integer
If bconnect Then Exit Sub
bconnect = True
MSComm1.CommPort = 2
MSComm1.PortOpen = True
'//MODEM初始化
MSComm1.Output = "ATS0=1V1M1" & vbCr
T = Timer
Do
DoEvents
combuf = combuf + MSComm1.Input
L = InStr(1, combuf, "OK")
Loop Until L <> 0 Or Timer - T > 1
If L = 0 Then
    MsgBox "MODEM未联机", vbOKOnly + vbCritical, "测试MODEM"
    MSComm1.PortOpen = False
    bconnect = False
    Exit Sub
End If
m = Timer
Do
DoEvents
Loop Until Timer > m + 3
MSComm1.Output = "ADDT" & manbp & vbCr
m = Timer
Do
DoEvents
Loop Until Timer > m + 1
MSComm1.PortOpen = False
bconnect = False
End sub

Answer 2

做个Dos批处理：bp.batEcho ATDT127,,1234567 > Com1ATDT---按照音频拨号
127---自动传呼台号码
,,---等待一会儿
1234567---呼机号码
> Com1 ---Dos重定向到Com1(假设Modem在Com1)然后在VB里面Shell一下，保证有效，你也可以简单的改写成VB代码。

Answer 3

to  回复人： fuxc(Michael) (  ) 信誉：83  
但是我要在2000下运行啊

Answer 4

就是MSComm1.Output = "ADDT" & manbp & vbCr
错了
应该是
就是MSComm1.Output = "ATDT" & manbp & vbCr

Answer 5

Private Sub mnuDial_Click()'可能对你有点用
    On Local Error Resume Next
    Static Num As String
    
    Num = "1-206-936-6735" ' This is the MSDN phone number
    
    ' Get a number from the user.
    Num = InputBox$("Enter Phone Number:", "Dial Number", Num)
    If Num = "" Then Exit Sub
    
    ' Open the port if it isn't already open.
    If Not MSComm1.PortOpen Then
       mnuOpen_Click
       If Err Then Exit Sub
    End If
      
    ' Enable hang up button and menu item
    mnuHangUp.Enabled = True
    tbrToolBar.Buttons("HangUpPhone").Enabled = True
              
    ' Dial the number.
    MSComm1.Output = "ATDT" & Num & vbCrLf
    
    ' Start the port timer
    StartTiming
End Sub