📄 dial.frm
字号:
VERSION 5.00
Begin VB.Form form_dial
Caption = "拨号"
ClientHeight = 5730
ClientLeft = 60
ClientTop = 345
ClientWidth = 8025
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 5730
ScaleWidth = 8025
StartUpPosition = 1 '所有者中心
Begin VB.Timer Timer1
Left = 7080
Top = 1800
End
Begin VB.CommandButton Command3
Caption = "清除"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 5640
TabIndex = 16
Top = 4080
Width = 975
End
Begin VB.CommandButton Command2
Caption = "#"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 11
Left = 2760
TabIndex = 15
Top = 4320
Width = 615
End
Begin VB.CommandButton Command2
Caption = "*"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 10
Left = 1560
TabIndex = 14
Top = 4320
Width = 615
End
Begin VB.CommandButton Command2
Caption = "0"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 9
Left = 2160
TabIndex = 13
Top = 4320
Width = 615
End
Begin VB.CommandButton Command2
Caption = "9"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 8
Left = 2760
TabIndex = 12
Top = 3720
Width = 615
End
Begin VB.CommandButton Command2
Caption = "8"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 7
Left = 2160
TabIndex = 11
Top = 3720
Width = 615
End
Begin VB.CommandButton Command2
Caption = "7"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 6
Left = 1560
TabIndex = 10
Top = 3720
Width = 615
End
Begin VB.CommandButton Command2
Caption = "6"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 5
Left = 2760
TabIndex = 9
Top = 3120
Width = 615
End
Begin VB.CommandButton Command2
Caption = "5"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 4
Left = 2160
TabIndex = 8
Top = 3120
Width = 615
End
Begin VB.CommandButton Command2
Caption = "4"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 3
Left = 1560
TabIndex = 7
Top = 3120
Width = 615
End
Begin VB.CommandButton Command2
Caption = "3"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 2
Left = 2760
TabIndex = 6
Top = 2520
Width = 615
End
Begin VB.CommandButton Command2
Caption = "2"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 1
Left = 2160
TabIndex = 5
Top = 2520
Width = 615
End
Begin VB.CommandButton Command2
Caption = "1"
BeginProperty Font
Name = "宋体"
Size = 18
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Index = 0
Left = 1560
TabIndex = 4
Top = 2520
Width = 615
End
Begin VB.CommandButton Command1
Caption = "拨号"
BeginProperty Font
Name = "宋体"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 495
Left = 4320
TabIndex = 3
Top = 4080
Width = 975
End
Begin VB.TextBox Text2
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 1440
TabIndex = 2
Top = 1680
Width = 1815
End
Begin VB.TextBox Text1
Height = 270
Left = 1440
TabIndex = 1
Text = "选择通道:"
Top = 960
Width = 1215
End
Begin VB.ComboBox Combo1
Height = 300
ItemData = "dial.frx":0000
Left = 3000
List = "dial.frx":0002
TabIndex = 0
Text = "Combo1"
Top = 960
Width = 3495
End
End
Attribute VB_Name = "form_dial"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Combo1_Change()
Text2.Text = CStr(Combo1.ListIndex + 1)
End Sub
Private Sub Command1_Click()
' Text2.Text = CStr(Combo1.ListIndex + 1)
Dim DateAndTime As String
Dim TelephoneNumber As Long
Dim ThisChannel
ThisChannel = Combo1.ListIndex
TV_OffHookCtrl ThisChannel
TV_StartDial ThisChannel, Text2.Text
DateAndTime = mGettime()
TelephoneNumber = Text2.Text
RunStatus = "摘机"
'DisplayStatus
OutputChannels(ThisChannel) = "摘机"
'Command5(ThisChannel) = "通道: " + CStr(ThisChannel) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
LogleText = LogleText + DateAndTime + " 通道: " + CStr(Channel) + " 来自:"
LogleText = LogleText + CStr(TelephoneNumber) + " " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
'SendKeys ("^{end}")
'idbuf = Space(60)
'Label2.Caption = Trim(idbuf)
Channels(ThisChannel).CStatus = WS_OFFHOOK
Filename = App.Path + "\tw\1" + DateAndTime + CStr(ThisChannel) + "o" + CStr(TelephoneNumber) + ".tw" 'CStr(TelephoneNumber) + ".tw"
'"d:\yygl\sound\" + CStr(Channel) + "\" + CStr(tt) + CStr(Date) + CStr(Time())
If TV_StartRecordFile(ThisChannel, Filename, 0, 1000000) = -1 Then
MsgBox ("录音错误！")
End If
RunStatus = "录音"
'DisplayStatus
OutputChannels(ThisChannel) = "录音"
' Vbterm.Textbox1.Text = Vbterm.Textbox1.Text + DateAndTime + " 通道: " + CStr(Channel) + " 来自:"
' Vbterm.Textbox1.Text = Vbterm.Textbox1.Text + CStr(TelephoneNumber) + " " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
' Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(Channel) + ": 来自"
' Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) '+ Chr(13)'
' SendKeys ("^{end}")
'
'End If
'Next Channel
End Sub
Private Sub Command2_Click(Index As Integer)
Dim NumberString As String
NumberString = CStr(Index + 1)
If Index = 9 Then NumberString = "0"
If Index = 10 Then NumberString = "*"
If Index = 11 Then NumberString = "#"
Text2.Text = Text2.Text + NumberString
End Sub
Private Sub Command3_Click()
Text2.Text = ""
TV_StopRecordFile (Combo1.ListIndex)
TV_HangUpCtrl Combo1.ListIndex
Channels(Combo1.ListIndex).CStatus = WS_HANGUP
RunStatus = "录音结束，挂机"
'DisplayStatus
OutputChannels(Combo1.ListIndex) = "录音结束，挂机"
LogleText = LogleText + DateAndTime + " 通道: " + CStr(Combo1.ListIndex) + "挂机"
'Command5(Combo1.ListIndex) = "通道: " + CStr(Combo1.ListIndex) + Chr(13) + Chr(10) + Chr(13) + Chr(10) + OutputChannels(ThisChannel)
End Sub
Private Sub Form_Load()
Dim ChannelName(100) As String
Dim i, c As Integer
LogleText = ""
For i = 0 To 7
ChannelName(i) = "通道" + CStr(i)
Combo1.AddItem ChannelName(i)
Combo1.ListIndex = 0
Next
Text2.Text = ""
End Sub
Private Sub Timer1_Timer()
Dim i As Integer
'For i = 0 To 7
If OutputChannels(i) = "录音" Then 'begin1
If TV_MonitorBusy(i, SIG_BUSY1, 5) <> 0 Or TV_MonitorBusy(i, SIG_BUSY2, 5) <> 0 Then
' ChannelFlag = 0
TV_StopRecordFile (i)
TV_HangUpCtrl Channel
Channels(Channel).CStatus = WS_HANGUP
RunStatus = "录音结束，挂机"
'DisplayStatus
OutputChannels(Channel) = "录音结束，挂机"
'LogleText = LogleText + DateAndTime + " 通道: " + CStr(Channel) + " 来自:"
'Textbox1.Text = Vbterm.Textbox1.Text + CStr(TelephoneNumber) + " " + RunStatus + Chr(13) + Chr(10) '+ Chr(13)
'Textbox1.Text = Textbox1.Text + DateAndTime + " 通道" + CStr(Channel) + ": 来自"
'Textbox1.Text = Textbox1.Text + CStr(tt) + RunStatus + Chr(13) + Chr(10) + Chr(13) ' + "剩余:" + CStr(TV_RecordFileRest(0))
'SendKeys ("^{end}")
End If
End If 'for begin1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -