You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
482 lines
15 KiB
482 lines
15 KiB
VERSION 5.00
|
|
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
|
|
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
|
|
Begin VB.Form frmVoice
|
|
BorderStyle = 0 'None
|
|
Caption = "Voice Profile"
|
|
ClientHeight = 5730
|
|
ClientLeft = 0
|
|
ClientTop = 0
|
|
ClientWidth = 9480
|
|
LinkTopic = "Form1"
|
|
MaxButton = 0 'False
|
|
MDIChild = -1 'True
|
|
MinButton = 0 'False
|
|
NegotiateMenus = 0 'False
|
|
ScaleHeight = 5730
|
|
ScaleWidth = 9480
|
|
ShowInTaskbar = 0 'False
|
|
Visible = 0 'False
|
|
Begin VB.CommandButton cmdAddValue
|
|
Caption = "&Add Value"
|
|
Enabled = 0 'False
|
|
BeginProperty Font
|
|
Name = "Small Fonts"
|
|
Size = 6
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
Height = 220
|
|
Left = 6465
|
|
Style = 1 'Graphical
|
|
TabIndex = 2
|
|
Top = 5520
|
|
Visible = 0 'False
|
|
Width = 930
|
|
End
|
|
Begin TabDlg.SSTab SSTab1
|
|
Height = 5055
|
|
Left = 0
|
|
TabIndex = 3
|
|
TabStop = 0 'False
|
|
Top = 360
|
|
Width = 9405
|
|
_ExtentX = 16589
|
|
_ExtentY = 8916
|
|
_Version = 327681
|
|
Tabs = 1
|
|
TabsPerRow = 8
|
|
TabHeight = 794
|
|
ShowFocusRect = 0 'False
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 400
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
TabCaption(0) = " Voice Profile"
|
|
TabPicture(0) = "frmVoice.frx":0000
|
|
Tab(0).ControlEnabled= -1 'True
|
|
Tab(0).Control(0)= "List"
|
|
Tab(0).Control(0).Enabled= 0 'False
|
|
Tab(0).ControlCount= 1
|
|
Begin VB.ListBox List
|
|
Columns = 2
|
|
Height = 4110
|
|
ItemData = "frmVoice.frx":001C
|
|
Left = 120
|
|
List = "frmVoice.frx":00C1
|
|
Style = 1 'Checkbox
|
|
TabIndex = 1
|
|
Top = 600
|
|
Width = 9135
|
|
End
|
|
End
|
|
Begin VB.TextBox Text1
|
|
Height = 285
|
|
Left = 0
|
|
TabIndex = 0
|
|
Top = 0
|
|
Width = 9375
|
|
End
|
|
Begin ComctlLib.StatusBar StatusBar1
|
|
Align = 2 'Align Bottom
|
|
Height = 300
|
|
Left = 0
|
|
TabIndex = 4
|
|
Top = 5430
|
|
Width = 9480
|
|
_ExtentX = 16722
|
|
_ExtentY = 529
|
|
SimpleText = ""
|
|
_Version = 327682
|
|
BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}
|
|
NumPanels = 3
|
|
BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}
|
|
AutoSize = 1
|
|
Object.Width = 13070
|
|
Key = ""
|
|
Object.Tag = ""
|
|
EndProperty
|
|
BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}
|
|
Style = 6
|
|
AutoSize = 2
|
|
Object.Width = 1773
|
|
MinWidth = 1764
|
|
TextSave = "5/12/98"
|
|
Key = ""
|
|
Object.Tag = ""
|
|
EndProperty
|
|
BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}
|
|
Style = 5
|
|
AutoSize = 2
|
|
Object.Width = 1773
|
|
MinWidth = 1764
|
|
TextSave = "4:40 PM"
|
|
Key = ""
|
|
Object.Tag = ""
|
|
EndProperty
|
|
EndProperty
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
Name = "MS Sans Serif"
|
|
Size = 8.25
|
|
Charset = 0
|
|
Weight = 700
|
|
Underline = 0 'False
|
|
Italic = 0 'False
|
|
Strikethrough = 0 'False
|
|
EndProperty
|
|
End
|
|
Begin VB.Label Label1
|
|
Caption = "Voice"
|
|
Height = 495
|
|
Left = 3840
|
|
TabIndex = 5
|
|
Top = 1920
|
|
Width = 1215
|
|
End
|
|
End
|
|
Attribute VB_Name = "frmVoice"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = True
|
|
Attribute VB_Exposed = False
|
|
Dim One()
|
|
Dim Filename$
|
|
Dim Comment(31) As String
|
|
Dim First(7)
|
|
Const Delim As String = ","
|
|
Const HKR As String = "HKR,, VoiceProfile, 1, "
|
|
Const Q As String = """"
|
|
Const H As String = "&H"
|
|
Dim i As Integer
|
|
Dim Number As String
|
|
Dim Num As Integer
|
|
Dim Length As Integer
|
|
Dim FirstDword4, FirstDword3, FirstDword2, FirstDword1 As Variant
|
|
Dim Which As Integer
|
|
|
|
Public Sub ClearControl()
|
|
ReDim One(List.ListCount - 1)
|
|
Dim c As Integer
|
|
For c = 0 To List.ListCount - 1
|
|
List.Selected(c) = False
|
|
One(c) = "0"
|
|
Next c
|
|
Dim X As Integer
|
|
For X = 0 To 7
|
|
First(X) = "0"
|
|
Next X
|
|
Update
|
|
Dim strFirst As String
|
|
strFirst = Len(HKR)
|
|
Text1.SelStart = strFirst
|
|
Text1.SelLength = 11
|
|
If frmVoice.Visible = False Then
|
|
frmVoice.Visible = True
|
|
End If
|
|
Text1.SetFocus
|
|
End Sub
|
|
|
|
Private Sub cmdAddValue_Click()
|
|
frmAddValue.Show
|
|
End Sub
|
|
|
|
Private Sub Form_Load()
|
|
ClearControl
|
|
ClearControl
|
|
' Dim NewString As String
|
|
' Dim NewValue As String
|
|
' Dim Num As String
|
|
' Dim i As Integer
|
|
'
|
|
' Filename$ = App.Path
|
|
' If Right$(Filename$, 1) <> "\" Then Filename$ = Filename$ & "\"
|
|
' Filename$ = Filename$ & "Voice.avf"
|
|
' Open Filename$ For Input As #1
|
|
' Do While Not EOF(1)
|
|
' Input #1, NewString, NewValue
|
|
' Num = Right$(NewValue, 8)
|
|
' While Left$(Num, 1) = "0"
|
|
' Num = Mid(Num, 2)
|
|
' Wend
|
|
' i = Len(Num) - 1
|
|
' Num = Left$(Num, 1)
|
|
' Select Case Num
|
|
' Case "1"
|
|
' frmVoice.List.RemoveItem (i * 4)
|
|
' frmVoice.List.AddItem NewString, (i * 4)
|
|
' frmVoice.List.ItemData((i * 4)) = Right(NewValue, 8)
|
|
' Case "2"
|
|
' frmVoice.List.RemoveItem ((i * 4) + 1)
|
|
' frmVoice.List.AddItem NewString, ((i * 4) + 1)
|
|
' frmVoice.List.ItemData(((i * 4) + 1)) = Right(NewValue, 8)
|
|
' Case "4"
|
|
' frmVoice.List.RemoveItem ((i * 4) + 2)
|
|
' frmVoice.List.AddItem NewString, ((i * 4) + 2)
|
|
' frmVoice.List.ItemData(((i * 4) + 2)) = Right(NewValue, 8)
|
|
' Case "8"
|
|
' frmVoice.List.RemoveItem ((i * 4) + 3)
|
|
' frmVoice.List.AddItem NewString, ((i * 4) + 3)
|
|
' frmVoice.List.ItemData(((i * 4) + 3)) = Right(NewValue, 8)
|
|
' End Select
|
|
' Loop
|
|
' Close #1
|
|
|
|
|
|
Comment(0) = "Set for all voice modems."
|
|
Comment(1) = "Modem can play audio to handset and/or report handset hookswitch events."
|
|
Comment(2) = "Modem has a speakerphone."
|
|
Comment(3) = ""
|
|
Comment(4) = ""
|
|
Comment(5) = "Wave output uses serial driver."
|
|
Comment(6) = "Set if dial string must always end with DialSuffix in voice mode."
|
|
Comment(7) = "Modem does not support caller ID."
|
|
Comment(8) = "Modem speaker volume can be changed with a multimedia mixer."
|
|
Comment(9) = "Force blind dialing after dialtone detection."
|
|
Comment(10) = "Speakerphone state must be reset after recording from line."
|
|
Comment(11) = "Speakerphone state must be reset after playing to line."
|
|
Comment(12) = "Modem does not support distinctive ring."
|
|
Comment(13) = "Modem supports distinctive ringing with ring duration (DRON and DROF)."
|
|
Comment(14) = "If distinctive ringing is on. Unimodem will not report the first ring."
|
|
Comment(15) = "Modem does not report first ring when distinctive ringing is enabled."
|
|
Comment(16) = "Modem monitors silence."
|
|
Comment(17) = "Modem does not generate DTMF digits in voice mode."
|
|
Comment(18) = "Modem does not monitor DTMF digits in voice mode."
|
|
Comment(19) = "If set, the UART baud rate will be set before issuing StartPlay or StartRecord commands."
|
|
Comment(20) = "If set, the UART baudrate will be reset after StopPlay or StopRecord is issued."
|
|
Comment(21) = "Indicates that modem keeps handset disconnected from modem while in voice mode."
|
|
Comment(22) = "Indicates the speakerphone cannot be muted."
|
|
Comment(23) = "Sierra chipset Voice Modem."
|
|
Comment(24) = ""
|
|
Comment(25) = "NT5 Voice Bit."
|
|
Comment(26) = ""
|
|
Comment(27) = ""
|
|
Comment(28) = ""
|
|
Comment(29) = ""
|
|
Comment(30) = ""
|
|
Comment(31) = ""
|
|
StatusBar1.Panels.Item(1).Text = "Set for all voice modems."
|
|
End Sub
|
|
|
|
Private Sub Update()
|
|
Text1.Text = HKR & First(1) & First(0) & Delim & First(3) & First(2) _
|
|
& Delim & First(5) & First(4) & Delim & First(7) & First(6)
|
|
End Sub
|
|
|
|
Private Sub Form_Resize()
|
|
Text1.Width = frmVoice.Width
|
|
SSTab1.Width = frmVoice.Width - 75
|
|
SSTab1.Height = frmVoice.Height - 675
|
|
List.Height = SSTab1.Height - 645
|
|
List.Width = SSTab1.Width - 270
|
|
cmdAddValue.Top = frmVoice.Height - 245
|
|
cmdAddValue.Left = frmVoice.Width - 3015
|
|
End Sub
|
|
|
|
Private Sub List_Click()
|
|
List.Refresh
|
|
StatusBar1.Panels.Item(1).Text = Comment(List.ListIndex)
|
|
Dim strFirst As String
|
|
strFirst = Len(HKR)
|
|
Text1.SelStart = strFirst
|
|
Text1.SelLength = 11
|
|
Text1.SetFocus
|
|
End Sub
|
|
|
|
Private Sub List_ItemCheck(i As Integer)
|
|
Number = List.ItemData(i)
|
|
Num = Left(Number, 1)
|
|
Length = Len(Number) - 1
|
|
If List.Selected(i) = True Then
|
|
One(Length) = One(Length) + Num
|
|
Else
|
|
One(Length) = One(Length) - Num
|
|
End If
|
|
First(Length) = Hex(One(Length))
|
|
Update
|
|
End Sub
|
|
|
|
Private Function PasteCheck(i As Integer)
|
|
Dim Num As Integer
|
|
Dim Mult As Integer
|
|
Dim Incoming As String
|
|
Select Case i
|
|
Case "1"
|
|
Incoming = First(0)
|
|
Mult = 0
|
|
Case "2"
|
|
Incoming = First(1)
|
|
Mult = 4
|
|
Case "3"
|
|
Incoming = First(2)
|
|
Mult = 8
|
|
Case "4"
|
|
Incoming = First(3)
|
|
Mult = 12
|
|
Case "5"
|
|
Incoming = First(4)
|
|
Mult = 16
|
|
Case "6"
|
|
Incoming = First(5)
|
|
Mult = 20
|
|
Case "7"
|
|
Incoming = First(6)
|
|
Mult = 24
|
|
Case "8"
|
|
Incoming = First(7)
|
|
Mult = 28
|
|
End Select
|
|
|
|
Num = CDec(H & Incoming)
|
|
If Num >= 8 Then
|
|
Num = Num - 8
|
|
List.Selected(3 + Mult) = True
|
|
End If
|
|
If Num >= 4 Then
|
|
Num = Num - 4
|
|
List.Selected(2 + Mult) = True
|
|
End If
|
|
If Num >= 2 Then
|
|
Num = Num - 2
|
|
List.Selected(1 + Mult) = True
|
|
End If
|
|
If Num = 1 Then
|
|
List.Selected(Mult) = True
|
|
End If
|
|
End Function
|
|
|
|
Private Sub GetWord(strString As String)
|
|
Dim strSubString As String
|
|
Dim lStart As Long
|
|
Dim lStop As Long
|
|
|
|
lStart = 1
|
|
lStop = Len(strString)
|
|
While lStart < lStop And "1" <> Mid$(strString, lStart, 1) ' Loop until first 1 found
|
|
lStart = lStart + 1
|
|
Wend
|
|
lStop = lStart
|
|
While Delim <> Mid$(strString, lStop + 1, 1) And lStop <= Len(strString) ' Loop until next , found
|
|
lStop = lStop + 1
|
|
Wend
|
|
strSubString = Mid$(strString, lStop + 1)
|
|
|
|
lStart = 1
|
|
lStop = Len(strSubString)
|
|
While lStart < lStop And "," <> Mid$(strSubString, lStart, 1) ' Loop until first , found
|
|
lStart = lStart + 1
|
|
Wend
|
|
lStop = lStart
|
|
While "," <> Mid$(strSubString, lStop + 1, 1) And lStop <= Len(strSubString) ' Loop until last , found
|
|
lStop = lStop + 1
|
|
Wend
|
|
FirstDword1 = Mid$(strSubString, lStart + 1, lStop - 1) ' Grab word found between ,'s
|
|
strSubString = Mid$(strSubString, lStop + 1)
|
|
Clean (FirstDword1)
|
|
FirstDword1 = CleanNum
|
|
First(1) = Left(FirstDword1, 1)
|
|
First(0) = Right(FirstDword1, 1)
|
|
|
|
lStart = 1
|
|
lStop = Len(strSubString)
|
|
While lStart < lStop And "," <> Mid$(strSubString, lStart, 1) ' Loop until first , found
|
|
lStart = lStart + 1
|
|
Wend
|
|
lStop = lStart
|
|
While "," <> Mid$(strSubString, lStop + 1, 1) And lStop <= Len(strSubString) ' Loop until last , found
|
|
lStop = lStop + 1
|
|
Wend
|
|
FirstDword2 = Mid$(strSubString, lStart + 1, lStop - 1) ' Grab word found between ,'s
|
|
strSubString = Mid$(strSubString, lStop + 1)
|
|
Clean (FirstDword2)
|
|
FirstDword2 = CleanNum
|
|
First(3) = Left(FirstDword2, 1)
|
|
First(2) = Right(FirstDword2, 1)
|
|
|
|
lStart = 1
|
|
lStop = Len(strSubString)
|
|
While lStart < lStop And "," <> Mid$(strSubString, lStart, 1) ' Loop until first , found
|
|
lStart = lStart + 1
|
|
Wend
|
|
lStop = lStart
|
|
While "," <> Mid$(strSubString, lStop + 1, 1) And lStop <= Len(strSubString) ' Loop until last , found
|
|
lStop = lStop + 1
|
|
Wend
|
|
FirstDword3 = Mid$(strSubString, lStart + 1, lStop - 1) ' Grab word found between ,'s
|
|
strSubString = Mid$(strSubString, lStop + 1)
|
|
Clean (FirstDword3)
|
|
FirstDword3 = CleanNum
|
|
First(5) = Left(FirstDword3, 1)
|
|
First(4) = Right(FirstDword3, 1)
|
|
|
|
lStart = 1
|
|
lStop = Len(strSubString)
|
|
While lStart < lStop And "," <> Mid$(strSubString, lStart, 1) ' Loop until first , found
|
|
lStart = lStart + 1
|
|
Wend
|
|
lStop = lStart
|
|
While "," <> Mid$(strSubString, lStop + 1, 1) And lStop <= Len(strSubString) ' Loop until last , found
|
|
lStop = lStop + 1
|
|
Wend
|
|
FirstDword4 = Mid$(strSubString, lStart + 1, lStop - 1) ' Grab word found between ,'s
|
|
strSubString = Mid$(strSubString, lStop + 1)
|
|
Clean (FirstDword4)
|
|
FirstDword4 = CleanNum
|
|
First(7) = Left(FirstDword4, 1)
|
|
First(6) = Right(FirstDword4, 1)
|
|
End Sub
|
|
|
|
Public Sub Paste(Incoming As String)
|
|
Dim i As Integer
|
|
ClearControl
|
|
ClearControl
|
|
GetWord (Incoming)
|
|
If FirstDword4 = "" Then
|
|
Message = MsgBox(Q & Incoming & Q & " is not a valid input")
|
|
Else
|
|
Update
|
|
For i = 1 To 8
|
|
PasteCheck (i)
|
|
Next i
|
|
End If
|
|
End Sub
|
|
|
|
Public Sub EditCopy()
|
|
Text1.SelStart = 0
|
|
Text1.SelLength = Len(Text1.Text)
|
|
Text1.SetFocus
|
|
Clipboard.Clear
|
|
Clipboard.SetText Text1.Text
|
|
End Sub
|
|
|
|
Public Sub EditPaste()
|
|
Paste (Clipboard.GetText)
|
|
End Sub
|
|
|
|
Private Sub Text1_KeyPress(KeyAscii As Integer)
|
|
If KeyAscii = 13 Then
|
|
Paste (Text1.Text)
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub Text1_Click()
|
|
Dim Start As Integer
|
|
Start = Text1.SelStart
|
|
If 21 < Start And Start < 35 Then
|
|
If Which = 1 Then Exit Sub
|
|
Text1.SelStart = 23
|
|
Text1.SelLength = 11
|
|
Text1.SetFocus
|
|
Which = 1
|
|
Else
|
|
Which = 0
|
|
End If
|
|
'MsgBox Start
|
|
End Sub
|