| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 813 人关注过本帖
标题:[原创]一个拨打电话的程序
只看楼主 加入收藏
lees0122
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2006-4-4
收藏
 问题点数:0 回复次数:1 
[原创]一个拨打电话的程序

Private Sub Command1_Click()
'haoma = Val(Text1.Text)

MSComm1.Output = "AT&F" & vbCr
Timer2.Interval = 500
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
MSComm1.Output = "ath" & vbCr '挂电话

End Sub


Private Sub Command3_Click()
MSComm1.Output = "ath" & vbCr '挂电话
Form1.Hide

End Sub


Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "115200,n,8,1"
MSComm1.InputMode = comInputModeBinary

MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()
If MSComm1.InBufferCount > 0 Then
Text2.Text = Hex(Val(MSComm1.Input))
End If
End Sub

Private Sub Timer1_Timer()
MSComm1.Output = "AT+VLS=7" & vbCr
Timer1.Enabled = False

End Sub

Private Sub Timer2_Timer()
MSComm1.Output = "AT+FCLASS=8" & vbCr
Timer3.Interval = 500
Timer2.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
MSComm1.Output = "AT#VSPS=0" & vbCr
Timer4.Interval = 500
Timer3.Enabled = False
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
MSComm1.Output = "AT+VSP=1" & vbCr
Timer5.Interval = 500
Timer4.Enabled = False
Timer5.Enabled = True
End Sub

Private Sub Timer5_Timer()
haoma = Val(Text1.Text)
MSComm1.Output = "atd" & haoma & ";" & vbCr '拨打电话
Timer1.Interval = 5000
Timer5.Enabled = False
Timer1.Enabled = True
End Sub
Private Sub Command1_Click()
'haoma = Val(Text1.Text)

MSComm1.Output = "AT&F" & vbCr
Timer2.Interval = 500
Timer2.Enabled = True
End Sub
Private Sub Command2_Click()
MSComm1.Output = "ath" & vbCr '挂电话

End Sub


Private Sub Command3_Click()
MSComm1.Output = "ath" & vbCr '挂电话
Form1.Hide

End Sub


Private Sub Form_Load()
MSComm1.CommPort = 1
MSComm1.Settings = "115200,n,8,1"
MSComm1.InputMode = comInputModeBinary

MSComm1.PortOpen = True

End Sub

Private Sub MSComm1_OnComm()
If MSComm1.InBufferCount > 0 Then
Text2.Text = Hex(Val(MSComm1.Input))
End If
End Sub

Private Sub Timer1_Timer()
MSComm1.Output = "AT+VLS=7" & vbCr
Timer1.Enabled = False

End Sub

Private Sub Timer2_Timer()
MSComm1.Output = "AT+FCLASS=8" & vbCr
Timer3.Interval = 500
Timer2.Enabled = False
Timer3.Enabled = True
End Sub

Private Sub Timer3_Timer()
MSComm1.Output = "AT#VSPS=0" & vbCr
Timer4.Interval = 500
Timer3.Enabled = False
Timer4.Enabled = True
End Sub

Private Sub Timer4_Timer()
MSComm1.Output = "AT+VSP=1" & vbCr
Timer5.Interval = 500
Timer4.Enabled = False
Timer5.Enabled = True
End Sub

Private Sub Timer5_Timer()
haoma = Val(Text1.Text)
MSComm1.Output = "atd" & haoma & ";" & vbCr '拨打电话
Timer1.Interval = 5000
Timer5.Enabled = False
Timer1.Enabled = True
End Sub
这是一个利用川口拨打电话的程序,硬件上需要个位置的猫。

搜索更多相关主题的帖子: 拨打 电话 
2006-04-19 09:03
hyz_zsu
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2006-7-29
收藏
得分:0 

都没有具体的注释。。。。。。

2006-07-29 14:23
快速回复:[原创]一个拨打电话的程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.043640 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved