form1.vb

三汇CTI示例程序源码

Imports System.Runtime.InteropServices

Public Structure FAX_FILE_SCT
    <MarshalAs(UnmanagedType.ByValTStr, SizeConst:=256)> Dim szFileName As String
    Public nStartPage As Int32
    Public nEndPage As Int32
    Public nReserve1 As Int32
    Public nReserve2 As Int32
End Structure

Public Structure EVENT_SET_INFO
    Public dwWorkMode As Int32
    Public lpHandlerParam As IntPtr
    Public dwOutCondition As Int32
    Public dwOutParamVal As Int32
    Public dwUser As Int32
End Structure

Public Structure FAX_STRUCT
    Public bUseful As Boolean 'channel seizure flag: FALSE- not seized  TRUE-seized
    Public szChErrMsg As String 'error message
    Public szPage As String 'number of fax pages
    Public szGetID As String ' ID of the receiver's fax machine
    Public nDirection As Int32 'fax direction : 0-send  1-receive 
    Public nStep As Int32 'user-defined fax channel state
    Public nAnswered As Int32 'check whether press start-up button : 0-no  1-yes
    Public szRcvPathFile As String 'file name received(include path)
    Public szSendFile As String  'file name to be sent
    Public szSendPath As String 'path for sending fax file
    Public nStartPage As Int32     'start page
    Public nEndPage As Int32    'end page
    Public nCheckEnd As Int32    'test execution result of faxing task
    Public nTrunkCh As Int32    'trunk channel ID linked to fax channel
    Public nHowFile As Int32    'modes of sending fax file: 0-single file  1-multi-file  2- multi-file with page number
    Public nSCTNumber As Int32    'number of files in ffSCT format 
    Public pffSCT() As FAX_FILE_SCT
    Public nAllBytes As Int32    'total number of bytes to be sent
    Public nSendBytes As Int32    'number of bytes sent
    Public nRcvBytes As Int32    'number of bytes received
End Structure

Public Structure FAX_TASK

    Public nTrkCh As Int32         'trunk channel
    Public nFaxCh As Int32         'fax channel
    Public szCallNo As String      '[20]		'called party number
    Public nStartPage As Int32        'start page
    Public nEndPage As Int32         'end page
    ' multi-file structure-see 'shpa3api.h' for detailed information
    Public ffSCT() As FAX_FILE_SCT    '[50]		
    ' modes of sending fax file:
    '		   0-single file  1-multi-file  2- multi-file with page number 
    Public nHowFile As Int32
    ' number of files in ffSCT format
    Public nSCTNumber As Int32
    Public szSendFile As String      '[100]	'file name sending
    Public szSendPath As String      '[100]	'path for sending file
End Structure

Public Structure TRUNK_STRUCT

    Public bEnCalled As Boolean     ' enable or disenable calling: TRUE-enable  FALSE-forbid 
    Public bRecord As Boolean    ' recording or not : TRUE-record   FALSE-not record
    Public nCallFlag As Int32      'inbound or outbound call : 0-inbound  1-call outbound
    Public nLineState As Int32      'channel state
    Public szChErrMsg As String   'error message
    Public szCallNo As String  'called party number
    Public szCallerId As String  'calling party number
    Public szDtmf As String    ' DTMF received
    Public nToFaxCh As Int32      ' fax channel connected with trunk channel by bus
    Public nStep As Int32       ' user-defined trunk channel state
    Public nAutoOrNot As Int32     'faxing mode: 0- automatic   1- manual
    Public bUseful As Boolean     'channel seizure flag: FALSE- not seized  TRUE-seized
    Public nIndex As Int32      'Which number is the received DTMF? 
    Public szDtmfChose As Char    'stored the first received DTMF of "1" or "2" 
    Public nFirstDtmf As Int32     ' check if it is the first received DTMF "1" or "2" 
    Public nTimer As Int32       'timer ID
    Public bLinked As Boolean
End Structure





Public Class Form1
    Inherits System.Windows.Forms.Form

#Region " Windows 窗体设计器生成的代码 "

    Public Sub New()
        MyBase.New()

        '该调用是 Windows 窗体设计器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 调用之后添加任何初始化

    End Sub

    '窗体重写 dispose 以清理组件列表。
    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
        If disposing Then
            If Not (components Is Nothing) Then
                components.Dispose()
            End If
        End If
        MyBase.Dispose(disposing)
    End Sub

    'Windows 窗体设计器所必需的
    Private components As System.ComponentModel.IContainer

    '注意: 以下过程是 Windows 窗体设计器所必需的
    '可以使用 Windows 窗体设计器修改此过程。
    '不要使用代码编辑器修改它。
    Friend WithEvents groupBox2 As System.Windows.Forms.GroupBox
    Friend WithEvents button3 As System.Windows.Forms.Button
    Friend WithEvents m_strAppendFile As System.Windows.Forms.TextBox
    Friend WithEvents button2 As System.Windows.Forms.Button
    Friend WithEvents button1 As System.Windows.Forms.Button
    Friend WithEvents m_cmbFaxChNo As System.Windows.Forms.ComboBox
    Friend WithEvents label1 As System.Windows.Forms.Label
    Private WithEvents radioButton4 As System.Windows.Forms.RadioButton
    Friend WithEvents groupBox5 As System.Windows.Forms.GroupBox
    Friend WithEvents button4 As System.Windows.Forms.Button
    Friend WithEvents m_txtSetFaxID As System.Windows.Forms.TextBox
    Friend WithEvents m_cmbFaxCh As System.Windows.Forms.ComboBox
    Friend WithEvents label5 As System.Windows.Forms.Label
    Friend WithEvents label4 As System.Windows.Forms.Label
    Friend WithEvents groupBox3 As System.Windows.Forms.GroupBox
    Friend WithEvents radioButton5 As System.Windows.Forms.RadioButton
    Friend WithEvents m_cmbTrkChNo As System.Windows.Forms.ComboBox
    Friend WithEvents label2 As System.Windows.Forms.Label
    Friend WithEvents groupBox4 As System.Windows.Forms.GroupBox
    Friend WithEvents checkBox1 As System.Windows.Forms.CheckBox
    Friend WithEvents m_cmbTrkCh As System.Windows.Forms.ComboBox
    Friend WithEvents label3 As System.Windows.Forms.Label
    Friend WithEvents m_TabCtrl As System.Windows.Forms.TabControl
    Friend WithEvents tabPage1 As System.Windows.Forms.TabPage
    Friend WithEvents m_txtRcvFile As System.Windows.Forms.TextBox
    Friend WithEvents m_txtRcvFile0 As System.Windows.Forms.TextBox
    Friend WithEvents label7 As System.Windows.Forms.Label
    Friend WithEvents label6 As System.Windows.Forms.Label
    Friend WithEvents button5 As System.Windows.Forms.Button
    Friend WithEvents tabPage2 As System.Windows.Forms.TabPage
    Friend WithEvents button10 As System.Windows.Forms.Button
    Friend WithEvents m_BtnDel As System.Windows.Forms.Button
    Friend WithEvents m_BtnAdd As System.Windows.Forms.Button
    Friend WithEvents m_ListBox As System.Windows.Forms.ListBox
    Friend WithEvents m_txtEndPage As System.Windows.Forms.TextBox
    Friend WithEvents label14 As System.Windows.Forms.Label
    Friend WithEvents m_txtStartPage As System.Windows.Forms.TextBox
    Friend WithEvents label13 As System.Windows.Forms.Label
    Friend WithEvents m_btnSendPath As System.Windows.Forms.Button
    Friend WithEvents m_txtSendPath As System.Windows.Forms.TextBox
    Friend WithEvents label12 As System.Windows.Forms.Label
    Friend WithEvents m_btnSendFile As System.Windows.Forms.Button
    Friend WithEvents m_txtSendFile As System.Windows.Forms.TextBox
    Friend WithEvents label11 As System.Windows.Forms.Label
    Friend WithEvents radioButton8 As System.Windows.Forms.RadioButton
    Friend WithEvents radioButton7 As System.Windows.Forms.RadioButton
    Friend WithEvents RadioButton9 As System.Windows.Forms.RadioButton
    Friend WithEvents m_txtCallNo As System.Windows.Forms.TextBox
    Friend WithEvents label10 As System.Windows.Forms.Label
    Friend WithEvents m_cmbFaxCh1 As System.Windows.Forms.ComboBox
    Friend WithEvents label9 As System.Windows.Forms.Label
    Friend WithEvents m_cmbTrkCh1 As System.Windows.Forms.ComboBox
    Friend WithEvents label8 As System.Windows.Forms.Label
    Friend WithEvents tabPage3 As System.Windows.Forms.TabPage
    Friend WithEvents button14 As System.Windows.Forms.Button
    Friend WithEvents button13 As System.Windows.Forms.Button
    Friend WithEvents button12 As System.Windows.Forms.Button
    Friend WithEvents FileShow As System.Windows.Forms.Button
    Friend WithEvents m_txtTargetFile As System.Windows.Forms.TextBox
    Friend WithEvents m_txtDataTime As System.Windows.Forms.TextBox
    Friend WithEvents m_txtFaxSubject As System.Windows.Forms.TextBox
    Friend WithEvents m_txtFaxTo As System.Windows.Forms.TextBox
    Friend WithEvents m_txtFaxFrom As System.Windows.Forms.TextBox
    Friend WithEvents m_txtTifName As System.Windows.Forms.TextBox
    Friend WithEvents label20 As System.Windows.Forms.Label
    Friend WithEvents label19 As System.Windows.Forms.Label
    Friend WithEvents label18 As System.Windows.Forms.Label
    Friend WithEvents label17 As System.Windows.Forms.Label
    Friend WithEvents label16 As System.Windows.Forms.Label
    Friend WithEvents label15 As System.Windows.Forms.Label
    Friend WithEvents tabPage4 As System.Windows.Forms.TabPage
    Friend WithEvents button17 As System.Windows.Forms.Button
    Friend WithEvents button16 As System.Windows.Forms.Button
    Friend WithEvents button15 As System.Windows.Forms.Button
    Friend WithEvents m_txtPageNo As System.Windows.Forms.TextBox
    Friend WithEvents m_txtHeight As System.Windows.Forms.TextBox
    Friend WithEvents m_txtTargetFile1 As System.Windows.Forms.TextBox
    Friend WithEvents m_txtSourceFile As System.Windows.Forms.TextBox
    Friend WithEvents label24 As System.Windows.Forms.Label
    Friend WithEvents label23 As System.Windows.Forms.Label
    Friend WithEvents label22 As System.Windows.Forms.Label
    Friend WithEvents label21 As System.Windows.Forms.Label
    Private WithEvents groupBox1 As System.Windows.Forms.GroupBox
    Private WithEvents radioButton3 As System.Windows.Forms.RadioButton
    Private WithEvents radioButton2 As System.Windows.Forms.RadioButton
    Private WithEvents radioButton1 As System.Windows.Forms.RadioButton
    Friend WithEvents m_TrkChList As AxMSFlexGridLib.AxMSFlexGrid
    Friend WithEvents m_FaxChList As AxMSFlexGridLib.AxMSFlexGrid
    Friend WithEvents RadioButton6 As System.Windows.Forms.RadioButton
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager(GetType(Form1))
        Me.groupBox2 = New System.Windows.Forms.GroupBox
        Me.button3 = New System.Windows.Forms.Button
        Me.m_strAppendFile = New System.Windows.Forms.TextBox
        Me.button2 = New System.Windows.Forms.Button
        Me.button1 = New System.Windows.Forms.Button
        Me.m_cmbFaxChNo = New System.Windows.Forms.ComboBox
        Me.label1 = New System.Windows.Forms.Label
        Me.radioButton4 = New System.Windows.Forms.RadioButton
        Me.groupBox1 = New System.Windows.Forms.GroupBox
        Me.radioButton3 = New System.Windows.Forms.RadioButton
        Me.radioButton2 = New System.Windows.Forms.RadioButton
        Me.radioButton1 = New System.Windows.Forms.RadioButton
        Me.groupBox5 = New System.Windows.Forms.GroupBox
        Me.button4 = New System.Windows.Forms.Button
        Me.m_txtSetFaxID = New System.Windows.Forms.TextBox
        Me.m_cmbFaxCh = New System.Windows.Forms.ComboBox
        Me.label5 = New System.Windows.Forms.Label
        Me.label4 = New System.Windows.Forms.Label
        Me.groupBox3 = New System.Windows.Forms.GroupBox
        Me.radioButton5 = New System.Windows.Forms.RadioButton
        Me.RadioButton6 = New System.Windows.Forms.RadioButton
        Me.m_cmbTrkChNo = New System.Windows.Forms.ComboBox
        Me.label2 = New System.Windows.Forms.Label
        Me.groupBox4 = New System.Windows.Forms.GroupBox
        Me.checkBox1 = New System.Windows.Forms.CheckBox
        Me.m_cmbTrkCh = New System.Windows.Forms.ComboBox
        Me.label3 = New System.Windows.Forms.Label
        Me.m_TabCtrl = New System.Windows.Forms.TabControl
        Me.tabPage1 = New System.Windows.Forms.TabPage
        Me.m_txtRcvFile = New System.Windows.Forms.TextBox
        Me.m_txtRcvFile0 = New System.Windows.Forms.TextBox
        Me.label7 = New System.Windows.Forms.Label
        Me.label6 = New System.Windows.Forms.Label
        Me.button5 = New System.Windows.Forms.Button
        Me.tabPage2 = New System.Windows.Forms.TabPage
        Me.button10 = New System.Windows.Forms.Button
        Me.m_BtnDel = New System.Windows.Forms.Button
        Me.m_BtnAdd = New System.Windows.Forms.Button
        Me.m_ListBox = New System.Windows.Forms.ListBox
        Me.m_txtEndPage = New System.Windows.Forms.TextBox
        Me.label14 = New System.Windows.Forms.Label
        Me.m_txtStartPage = New System.Windows.Forms.TextBox
        Me.label13 = New System.Windows.Forms.Label
        Me.m_btnSendPath = New System.Windows.Forms.Button
        Me.m_txtSendPath = New System.Windows.Forms.TextBox
        Me.label12 = New System.Windows.Forms.Label
        Me.m_btnSendFile = New System.Windows.Forms.Button
        Me.m_txtSendFile = New System.Windows.Forms.TextBox
        Me.label11 = New System.Windows.Forms.Label
        Me.radioButton8 = New System.Windows.Forms.RadioButton
        Me.radioButton7 = New System.Windows.Forms.RadioButton
        Me.RadioButton9 = New System.Windows.Forms.RadioButton
        Me.m_txtCallNo = New System.Windows.Forms.TextBox
        Me.label10 = New System.Windows.Forms.Label
        Me.m_cmbFaxCh1 = New System.Windows.Forms.ComboBox
        Me.label9 = New System.Windows.Forms.Label
        Me.m_cmbTrkCh1 = New System.Windows.Forms.ComboBox
        Me.label8 = New System.Windows.Forms.Label
        Me.tabPage3 = New System.Windows.Forms.TabPage
        Me.button14 = New System.Windows.Forms.Button
        Me.button13 = New System.Windows.Forms.Button
        Me.button12 = New System.Windows.Forms.Button
        Me.FileShow = New System.Windows.Forms.Button
        Me.m_txtTargetFile = New System.Windows.Forms.TextBox
        Me.m_txtDataTime = New System.Windows.Forms.TextBox
        Me.m_txtFaxSubject = New System.Windows.Forms.TextBox
        Me.m_txtFaxTo = New System.Windows.Forms.TextBox
        Me.m_txtFaxFrom = New System.Windows.Forms.TextBox
        Me.m_txtTifName = New System.Windows.Forms.TextBox
        Me.label20 = New System.Windows.Forms.Label
        Me.label19 = New System.Windows.Forms.Label
        Me.label18 = New System.Windows.Forms.Label
        Me.label17 = New System.Windows.Forms.Label
        Me.label16 = New System.Windows.Forms.Label
        Me.label15 = New System.Windows.Forms.Label
        Me.tabPage4 = New System.Windows.Forms.TabPage
        Me.button17 = New System.Windows.Forms.Button
        Me.button16 = New System.Windows.Forms.Button
        Me.button15 = New System.Windows.Forms.Button
        Me.m_txtPageNo = New System.Windows.Forms.TextBox
        Me.m_txtHeight = New System.Windows.Forms.TextBox
        Me.m_txtTargetFile1 = New System.Windows.Forms.TextBox
        Me.m_txtSourceFile = New System.Windows.Forms.TextBox
        Me.label24 = New System.Windows.Forms.Label
        Me.label23 = New System.Windows.Forms.Label
        Me.label22 = New System.Windows.Forms.Label
        Me.label21 = New System.Windows.Forms.Label
        Me.m_TrkChList = New AxMSFlexGridLib.AxMSFlexGrid
        Me.m_FaxChList = New AxMSFlexGridLib.AxMSFlexGrid
        Me.groupBox2.SuspendLayout()
        Me.groupBox1.SuspendLayout()
        Me.groupBox5.SuspendLayout()
        Me.groupBox3.SuspendLayout()
        Me.groupBox4.SuspendLayout()
        Me.m_TabCtrl.SuspendLayout()
        Me.tabPage1.SuspendLayout()
        Me.tabPage2.SuspendLayout()
        Me.tabPage3.SuspendLayout()
        Me.tabPage4.SuspendLayout()
        CType(Me.m_TrkChList, System.ComponentModel.ISupportInitialize).BeginInit()
        CType(Me.m_FaxChList, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
        'groupBox2
        '
        Me.groupBox2.Controls.Add(Me.button3)
        Me.groupBox2.Controls.Add(Me.m_strAppendFile)
        Me.groupBox2.Controls.Add(Me.button2)
        Me.groupBox2.Controls.Add(Me.button1)
        Me.groupBox2.Controls.Add(Me.m_cmbFaxChNo)
        Me.groupBox2.Controls.Add(Me.label1)
        Me.groupBox2.Location = New System.Drawing.Point(8, 304)
        Me.groupBox2.Name = "groupBox2"