\r
Private Sub btn_queue_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_queue.Click\r
Dim query As String\r
- 'Dim ApplicationPath As String = Application.StartupPath\r
- 'If (QueryEditorText.Text = "") Then\r
query = GenerateTheQuery()\r
frmQueue.list_queue.Items.Add(query)\r
- ' Else\r
- ' query = QueryEditorText.Text\r
- ' frmQueue.list_queue.Items.Add(query)\r
- ' End If\r
-\r
frmQueue.Show()\r
End Sub\r
\r
query = QueryEditorText.Text\r
Shell("""" + ApplicationPath + "\hbcli.exe""" + query)\r
MessageBox.Show("The Handbrake encoder (CLI) will now start and should be encoding your video.", "ALERT", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)\r
+\r
+ 'Lets start the process monitor to keep an eye on things.\r
+ hbcliMonitor = New ProcessMonitor()\r
+ Dim t = New Thread(AddressOf hbcliMonitor.tmrProcCheck)\r
+ t.Start()\r
End If\r
Catch ex As Exception\r
MessageBox.Show("Unable to Launch the Encoder.")\r
Me.Label2 = New System.Windows.Forms.Label\r
Me.Label3 = New System.Windows.Forms.Label\r
Me.btn_ok = New System.Windows.Forms.Button\r
+ Me.Label4 = New System.Windows.Forms.Label\r
Me.SuspendLayout()\r
'\r
'Label1\r
'\r
Me.Label1.AutoSize = True\r
- Me.Label1.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
- Me.Label1.Location = New System.Drawing.Point(81, 42)\r
+ Me.Label1.Font = New System.Drawing.Font("Verdana", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
+ Me.Label1.Location = New System.Drawing.Point(6, 94)\r
Me.Label1.Name = "Label1"\r
- Me.Label1.Size = New System.Drawing.Size(364, 13)\r
+ Me.Label1.Size = New System.Drawing.Size(457, 12)\r
Me.Label1.TabIndex = 20\r
- Me.Label1.Text = "Please click OK to continue, This process may take a moment."\r
+ Me.Label1.Text = "Note: After pressing OK the window will remain open until the CLI has completed t" & _\r
+ "he scan."\r
'\r
'Label2\r
'\r
Me.Label3.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
Me.Label3.Location = New System.Drawing.Point(81, 21)\r
Me.Label3.Name = "Label3"\r
- Me.Label3.Size = New System.Drawing.Size(124, 13)\r
+ Me.Label3.Size = New System.Drawing.Size(231, 13)\r
Me.Label3.TabIndex = 22\r
- Me.Label3.Text = "Reading Disc Data..."\r
+ Me.Label3.Text = "The CLI is currently reading the DVD..."\r
'\r
'btn_ok\r
'\r
Me.btn_ok.FlatStyle = System.Windows.Forms.FlatStyle.Flat\r
Me.btn_ok.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
Me.btn_ok.ForeColor = System.Drawing.Color.FromArgb(CType(CType(255, Byte), Integer), CType(CType(128, Byte), Integer), CType(CType(0, Byte), Integer))\r
- Me.btn_ok.Location = New System.Drawing.Point(454, 69)\r
+ Me.btn_ok.Location = New System.Drawing.Point(406, 64)\r
Me.btn_ok.Name = "btn_ok"\r
Me.btn_ok.Size = New System.Drawing.Size(56, 22)\r
Me.btn_ok.TabIndex = 23\r
Me.btn_ok.Text = "Ok"\r
Me.btn_ok.UseVisualStyleBackColor = False\r
'\r
+ 'Label4\r
+ '\r
+ Me.Label4.AutoSize = True\r
+ Me.Label4.Font = New System.Drawing.Font("Verdana", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))\r
+ Me.Label4.Location = New System.Drawing.Point(81, 43)\r
+ Me.Label4.Name = "Label4"\r
+ Me.Label4.Size = New System.Drawing.Size(130, 13)\r
+ Me.Label4.TabIndex = 24\r
+ Me.Label4.Text = "Press OK to continue."\r
+ '\r
'frmReadDVD\r
'\r
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)\r
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font\r
Me.BackColor = System.Drawing.SystemColors.Control\r
- Me.ClientSize = New System.Drawing.Size(518, 98)\r
+ Me.ClientSize = New System.Drawing.Size(473, 116)\r
Me.ControlBox = False\r
+ Me.Controls.Add(Me.Label4)\r
Me.Controls.Add(Me.btn_ok)\r
Me.Controls.Add(Me.Label3)\r
Me.Controls.Add(Me.Label2)\r
Friend WithEvents Label2 As System.Windows.Forms.Label\r
Friend WithEvents Label3 As System.Windows.Forms.Label\r
Friend WithEvents btn_ok As System.Windows.Forms.Button\r
+ Friend WithEvents Label4 As System.Windows.Forms.Label\r
End Class\r