小弟写了个程序,利用AT指令实现手机拨号,但是运行时候没有拨号,希望有高手指点一点。
请留言或者发邮件到[email protected],谢谢
主要源码如下:Private Sub DialButton_Click()
MSComm1.CommPort = 4 '小弟用的是com4口
If MSComm1.PortOpen = False Then
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True
End If
MSComm1.OutBufferCount = 0
MSComm1.InBufferCount = 0
MSComm1.Output = "ATDT12121" + Chr(13) 
End SubPrivate Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
Dim Buffer As Variant
MSComm1.InputLen = 0
MSComm1.InputMode = comInputModeBinary
Buffer = MSComm1.Input
MSComm1.InputMode = comInputModeText
Buffer = MSComm1.Input
Case Else
End Select
End Sub