التعامل مع البرامج والتطبيقات الخارجية

نحمده ونصلي على رسوله الكريم

قد نحتاج في بعض الأحيان التعامل مع تطبيق أو برنامج خارجي، لعمل ذلك:

Shell:

كود :

Dim procID As Integer = Shell("CALC.EXE", AppWinStyle.NormalFocus)

AppActivate(ProcID)

My.Computer.Keyboard.SendKeys("22", True)

My.Computer.Keyboard.SendKeys("*", True)

My.Computer.Keyboard.SendKeys("44", True)

My.Computer.Keyboard.SendKeys("=", True)

Process:

كود :

Dim procId As System.Diagnostics.Process = System.Diagnostics.Process.Start _

("notepad.exe")

procId.WaitForInputIdle(1000)

AppActivate(procId.Id) 'Or AppActivate("Untitled - Notepad")

My.Computer.Keyboard.SendKeys("http://", True)

My.Computer.Keyboard.SendKeys("www.", True)

My.Computer.Keyboard.SendKeys("vb4arab.", True)

My.Computer.Keyboard.SendKeys("com/", True)

My.Computer.Keyboard.SendKeys("vc", True)

My.Computer.Keyboard.SendKeys("{bs}", True)

My.Computer.Keyboard.SendKeys("b", True)

My.Computer.Keyboard.SendKeys("~", True)

الأوامر التي يمكن إرسالها كالآتي:

كود :

[color=red]Key[/color] [color=blue]Code[/color]

[color=red]BACKSPACE[/color] [color=blue]{BACKSPACE} or {BS}[/color]

[color=red]BREAK[/color] [color=blue]{BREAK}[/color]

[color=red]CAPS LOCK[/color] [color=blue]{CAPSLOCK}[/color]

[color=red]CLEAR[/color] [color=blue]{CLEAR}[/color]

[color=red]DELETE[/color] [color=blue]{DELETE} or {DEL}[/color]

[color=red]DOWN ARROW[/color] [color=blue]{DOWN}[/color]

[color=red]END[/color] [color=blue]{END}[/color]

[color=red]ENTER (numeric keypad) [/color][color=blue]{ENTER}[/color]

[color=red]ENTER[/color] ~

[color=red]ESC[/color] [color=blue]{ESCAPE} or {ESC}[/color]

[color=red]HELP[/color] [color=blue]{HELP}[/color]

[color=red]HOME[/color] [color=blue]{HOME}[/color]

[color=red]INS[/color] [color=blue]{INSERT}[/color]

[color=red]LEFT ARROW [/color][color=blue]{LEFT}[/color]

[color=red]NUM LOCK[/color] [color=blue]{NUMLOCK}[/color]

[color=red]PAGE DOWN [/color][color=blue]{PGDN}[/color]

[color=red]PAGE UP[/color] [color=blue]{PGUP}[/color]

[color=red]RETURN[/color] [color=blue]{RETURN}[/color]

[color=red]RIGHT ARROW[/color] [color=blue]{RIGHT}[/color]

[color=red]SCROLL LOCK[/color] [color=blue]{SCROLLLOCK}[/color]

[color=red]TAB[/color] [color=blue]{TAB}[/color]

[color=red]UP ARROW[/color] [color=blue]{UP}[/color]

[color=red]F1 through F15[/color] [color=blue]{F1} through {F15}[/color]

قبل أي سؤال، قم بعمل مشروع لتطبيق الكودات أعلاه، حتى تتضح الفكرة.

بالتوفيق....