Support from the University of Birmingham for Legal Council
Peguam-Peguam Malaysia
ENGINEERING AND COMPUTER WORKS
Block 738, #12-373, Woodlands Circle, Singapore 730738;
Level 28, PJ Exchange, No. 16A, Persiaran Barat, 46050 Petaling Jaya, Selangor Darul Ehsan, Kuala Lumpur, Malaysia
ph: +65 9173 7839(Singapore) ; +6017 396 7471(Malaysia)
fax: +65 63680320 (Singapore) ;
alt: +1 (971)285 4914 ;
chanjunt
Public Class Form1
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim ProcID As Integer
' Dim a As Integer
Dim c As Integer
'Dim d1 As String
' Dim e1a As Integer
' Start the Calculator application, and store the process id.
' On Error GoTo errorhandler
'ProcID = Shell("C:\Program Files\Voxox\Vovox.EXE", AppWinStyle.NormalFocus)
'ProcID = Shell("C:\Program Files\Skype\Phone\Skype.EXE", AppWinStyle.NormalFocus)
' ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
' Activate the Calculator application.
'MsgBox(ProcID)
'TextBox4.Text = ProcID
ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
' Activate the Calculator application.
'MsgBox(ProcID)
c = ProcID
TextBox4.Text = c
End Sub
Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim ProcID As Integer
Dim a As Integer
Dim c As Integer
'Dim d1 As String
Dim e1a As Integer
' Start the Calculator application, and store the process id.
On Error GoTo errorhandler
'ProcID = Shell("CALC.EXE", AppWinStyle.NormalFocus)
' Activate the Calculator application.
'MsgBox(ProcID)
'c = ProcID
' TextBox4.Text = c
start:
' Dim ProcID As Integer
' Dim c As Integer
Dim d As Integer
' TextBox4.Text = ProcID
TextBox5.Text = TextBox4.Text
c = TextBox5.Text
AppActivate(c)
'c = TextBox1.Text
'd = TextBox2.Text
'c = TextBox1.Text
' d1 = TextBox2.text
' e1a = TextBox3.Text
'22 SendALT-NALT-F123456789= the keystrokes to the Calculator application.
''My.Computer.Keyboard.SendKeys("%fnf", True)
'My.Computer.Keyboard.SendKeys("%al", True)
' My.Computer.Keyboard.SendKeys("%F", True)
My.Computer.Keyboard.SendKeys(TextBox1.Text, True)
My.Computer.Keyboard.SendKeys("+=", True)
My.Computer.Keyboard.SendKeys(TextBox3.Text, True)
My.Computer.Keyboard.SendKeys("=", True)
''My.Computer.Keyboard.SendKeys("~", True)
''My.Computer.Keyboard.SendKeys("%f", True)
''My.Computer.Keyboard.SendKeys("%s", True)
''My.Computer.Keyboard.SendKeys("~", True)
'My.Computer.Keyboard.SendKeys("%", True)
'' My.Computer.Keyboard.SendKeys("+", True)
'' My.Computer.Keyboard.SendKeys("123456789", True)
'' My.Computer.Keyboard.SendKeys("Call", True)
' The result is 22 * 44 = 968.
'GoTo start
'TextBox5.Text = TextBox4.Text
errorhandler:
Exit Sub
End Sub
Private Sub TextBox4_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox4.TextChanged
End Sub
Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
End Sub
End Class
This is a sample of the notes from VB.NET. There would be additional software codes which would be added.
The above code shows a calling function for a calculator Form. This function is placed into a Form and placed into the Source Code for VB.NET.
Copyright 2012 ENGINEERING AND COMPUTER WORKS. All rights reserved.
ENGINEERING AND COMPUTER WORKS
Block 738, #12-373, Woodlands Circle, Singapore 730738;
Level 28, PJ Exchange, No. 16A, Persiaran Barat, 46050 Petaling Jaya, Selangor Darul Ehsan, Kuala Lumpur, Malaysia
ph: +65 9173 7839(Singapore) ; +6017 396 7471(Malaysia)
fax: +65 63680320 (Singapore) ;
alt: +1 (971)285 4914 ;
chanjunt