installerdialog.vb

以前做NOKIA手机与PC通信时所参考的源代码,里面包括两个程序,一个是手机文件夹浏览源码,另一个手机SIS安装程序.

        Me.ComboPhone.Cursor = System.Windows.Forms.Cursors.Default
        Me.ComboPhone.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.ComboPhone.ForeColor = System.Drawing.SystemColors.WindowText
        Me.ComboPhone.Location = New System.Drawing.Point(96, 8)
        Me.ComboPhone.Name = "ComboPhone"
        Me.ComboPhone.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.ComboPhone.Size = New System.Drawing.Size(209, 22)
        Me.ComboPhone.TabIndex = 0
        '
        'LabelSis
        '
        Me.LabelSis.BackColor = System.Drawing.SystemColors.Control
        Me.LabelSis.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelSis.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelSis.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelSis.Location = New System.Drawing.Point(8, 148)
        Me.LabelSis.Name = "LabelSis"
        Me.LabelSis.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelSis.Size = New System.Drawing.Size(81, 17)
        Me.LabelSis.TabIndex = 14
        Me.LabelSis.Text = "SIS File:"
        Me.LabelSis.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'LabelJad
        '
        Me.LabelJad.BackColor = System.Drawing.SystemColors.Control
        Me.LabelJad.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelJad.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelJad.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelJad.Location = New System.Drawing.Point(8, 116)
        Me.LabelJad.Name = "LabelJad"
        Me.LabelJad.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelJad.Size = New System.Drawing.Size(81, 17)
        Me.LabelJad.TabIndex = 12
        Me.LabelJad.Text = "JAD File:"
        Me.LabelJad.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'LabelJar
        '
        Me.LabelJar.BackColor = System.Drawing.SystemColors.Control
        Me.LabelJar.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelJar.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelJar.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelJar.Location = New System.Drawing.Point(8, 84)
        Me.LabelJar.Name = "LabelJar"
        Me.LabelJar.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelJar.Size = New System.Drawing.Size(81, 17)
        Me.LabelJar.TabIndex = 10
        Me.LabelJar.Text = "JAR File:"
        Me.LabelJar.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'LabelType
        '
        Me.LabelType.BackColor = System.Drawing.SystemColors.Control
        Me.LabelType.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelType.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelType.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelType.Location = New System.Drawing.Point(1, 44)
        Me.LabelType.Name = "LabelType"
        Me.LabelType.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelType.Size = New System.Drawing.Size(88, 17)
        Me.LabelType.TabIndex = 3
        Me.LabelType.Text = "Installation type:"
        Me.LabelType.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'LabelPhone
        '
        Me.LabelPhone.BackColor = System.Drawing.SystemColors.Control
        Me.LabelPhone.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelPhone.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelPhone.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelPhone.Location = New System.Drawing.Point(48, 12)
        Me.LabelPhone.Name = "LabelPhone"
        Me.LabelPhone.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelPhone.Size = New System.Drawing.Size(41, 17)
        Me.LabelPhone.TabIndex = 1
        Me.LabelPhone.Text = "Phone:"
        Me.LabelPhone.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'ProgressBar1
        '
        Me.ProgressBar1.Location = New System.Drawing.Point(9, 245)
        Me.ProgressBar1.Name = "ProgressBar1"
        Me.ProgressBar1.Size = New System.Drawing.Size(488, 19)
        Me.ProgressBar1.TabIndex = 16
        Me.ProgressBar1.Visible = False
        '
        'labelWait
        '
        Me.labelWait.Location = New System.Drawing.Point(11, 239)
        Me.labelWait.Name = "labelWait"
        Me.labelWait.Size = New System.Drawing.Size(486, 22)
        Me.labelWait.TabIndex = 17
        Me.labelWait.Text = "Waiting for user actions on the device side"
        Me.labelWait.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
        Me.labelWait.Visible = False
        '
        'TextNth
        '
        Me.TextNth.AcceptsReturn = True
        Me.TextNth.BackColor = System.Drawing.SystemColors.Window
        Me.TextNth.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextNth.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TextNth.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextNth.Location = New System.Drawing.Point(96, 176)
        Me.TextNth.MaxLength = 0
        Me.TextNth.Name = "TextNth"
        Me.TextNth.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextNth.Size = New System.Drawing.Size(313, 20)
        Me.TextNth.TabIndex = 19
        '
        'CommandNth
        '
        Me.CommandNth.BackColor = System.Drawing.SystemColors.Control
        Me.CommandNth.Cursor = System.Windows.Forms.Cursors.Default
        Me.CommandNth.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CommandNth.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CommandNth.Location = New System.Drawing.Point(424, 176)
        Me.CommandNth.Name = "CommandNth"
        Me.CommandNth.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CommandNth.Size = New System.Drawing.Size(73, 25)
        Me.CommandNth.TabIndex = 18
        Me.CommandNth.Text = "Browse..."
        Me.CommandNth.UseVisualStyleBackColor = False
        '
        'LabelNth
        '
        Me.LabelNth.BackColor = System.Drawing.SystemColors.Control
        Me.LabelNth.Cursor = System.Windows.Forms.Cursors.Default
        Me.LabelNth.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.LabelNth.ForeColor = System.Drawing.SystemColors.ControlText
        Me.LabelNth.Location = New System.Drawing.Point(8, 180)
        Me.LabelNth.Name = "LabelNth"
        Me.LabelNth.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.LabelNth.Size = New System.Drawing.Size(81, 17)
        Me.LabelNth.TabIndex = 20
        Me.LabelNth.Text = "NTH File:"
        Me.LabelNth.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'TextNGage
        '
        Me.TextNGage.AcceptsReturn = True
        Me.TextNGage.BackColor = System.Drawing.SystemColors.Window
        Me.TextNGage.Cursor = System.Windows.Forms.Cursors.IBeam
        Me.TextNGage.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.TextNGage.ForeColor = System.Drawing.SystemColors.WindowText
        Me.TextNGage.Location = New System.Drawing.Point(96, 206)
        Me.TextNGage.MaxLength = 0
        Me.TextNGage.Name = "TextNGage"
        Me.TextNGage.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.TextNGage.Size = New System.Drawing.Size(313, 20)
        Me.TextNGage.TabIndex = 26
        '
        'CommandNGage
        '
        Me.CommandNGage.BackColor = System.Drawing.SystemColors.Control
        Me.CommandNGage.Cursor = System.Windows.Forms.Cursors.Default
        Me.CommandNGage.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.CommandNGage.ForeColor = System.Drawing.SystemColors.ControlText
        Me.CommandNGage.Location = New System.Drawing.Point(424, 206)
        Me.CommandNGage.Name = "CommandNGage"
        Me.CommandNGage.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.CommandNGage.Size = New System.Drawing.Size(73, 25)
        Me.CommandNGage.TabIndex = 25
        Me.CommandNGage.Text = "Browse..."
        Me.CommandNGage.UseVisualStyleBackColor = False
        '
        'NGageLabel
        '
        Me.NGageLabel.BackColor = System.Drawing.SystemColors.Control
        Me.NGageLabel.Cursor = System.Windows.Forms.Cursors.Default
        Me.NGageLabel.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.NGageLabel.ForeColor = System.Drawing.SystemColors.ControlText
        Me.NGageLabel.Location = New System.Drawing.Point(8, 210)
        Me.NGageLabel.Name = "NGageLabel"
        Me.NGageLabel.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.NGageLabel.Size = New System.Drawing.Size(81, 17)
        Me.NGageLabel.TabIndex = 27
        Me.NGageLabel.Text = "N-Gage File:"
        Me.NGageLabel.TextAlign = System.Drawing.ContentAlignment.TopRight
        '
        'Timer1
        '
        '
        'InstallerDialog
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.SystemColors.Control
        Me.CancelButton = Me.CommandCancel
        Me.ClientSize = New System.Drawing.Size(506, 272)
        Me.Controls.Add(Me.TextNGage)
        Me.Controls.Add(Me.CommandNGage)
        Me.Controls.Add(Me.NGageLabel)
        Me.Controls.Add(Me.CommandList)
        Me.Controls.Add(Me.TextNth)
        Me.Controls.Add(Me.CommandNth)
        Me.Controls.Add(Me.LabelNth)
        Me.Controls.Add(Me.labelWait)
        Me.Controls.Add(Me.ProgressBar1)
        Me.Controls.Add(Me.TextSis)
        Me.Controls.Add(Me.TextJad)
        Me.Controls.Add(Me.TextJar)
        Me.Controls.Add(Me.CommandJad)
        Me.Controls.Add(Me.CommandSis)
        Me.Controls.Add(Me.CommandJar)
        Me.Controls.Add(Me.CommandCancel)
        Me.Controls.Add(Me.CommandInstall)
        Me.Controls.Add(Me.ComboType)
        Me.Controls.Add(Me.ComboPhone)
        Me.Controls.Add(Me.LabelSis)
        Me.Controls.Add(Me.LabelJad)
        Me.Controls.Add(Me.LabelJar)
        Me.Controls.Add(Me.LabelType)
        Me.Controls.Add(Me.LabelPhone)
        Me.Cursor = System.Windows.Forms.Cursors.Default
        Me.Font = New System.Drawing.Font("Arial", 8.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
        Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
        Me.Location = New System.Drawing.Point(4, 30)
        Me.MaximizeBox = False
        Me.MinimizeBox = False
        Me.Name = "InstallerDialog"
        Me.RightToLeft = System.Windows.Forms.RightToLeft.No
        Me.Text = "Application Installer"
        Me.ResumeLayout(False)
        Me.PerformLayout()

    End Sub
#End Region
#Region "Upgrade Support "
    Private Shared m_vb6FormDefInstance As InstallerDialog
    Private Shared m_InitializingDefInstance As Boolean
    Public Shared Property DefInstance() As InstallerDialog
        Get
            If m_vb6FormDefInstance Is Nothing OrElse m_vb6FormDefInstance.IsDisposed Then
                m_InitializingDefInstance = True
                m_vb6FormDefInstance = New InstallerDialog
                m_InitializingDefInstance = False
            End If
            DefInstance = m_vb6FormDefInstance
        End Get
        Set(ByVal Value As InstallerDialog)
            m_vb6FormDefInstance = Value
        End Set
    End Property
#End Region

    ' Definitions for installation types, NOTE order is significant
    Const INSTALL_TYPE_JAVA As Integer = 0
    Const INSTALL_TYPE_NGAGE As Integer = 1
    Const INSTALL_TYPE_SYMBIAN As Integer = 2
    Const INSTALL_TYPE_THEMES As Integer = 3
    Const strJavaItem As String = "Java"
    Const strSymbianItem As String = "Symbian"
    Const strThemesItem As String = "Themes"
    Const strNGageItem As String = "N-Gage"
    Dim bPhoneSupportsSisX As Boolean = False
    Public bRefreshPhonecombo As Boolean = False

    Public bCancelled As Boolean
    Dim iInstallationType As Integer
    Dim strSerialNumbers() As String
    Dim pDeviceCallBack As DeviceNotifyCallbackDelegate
    Dim pFSCallBack As FSNotifyCallbackDelegate

    <STAThread()> _
    Shared Sub Main()
        ' Starts the application.
        Application.Run(New InstallerDialog)