SendKeys Function?

KusaNoKaito

Beginner

Posts: 7

Date of registration: Sep 15th 2009

Location: Waxahachie TX USA

Occupation: Student

Hobbies: Computer Programming, Computer Hacking.

Wednesday, September 16th 2009, 1:45pm

Hello complete n00b here, ( love the VB6 like syntax ) sorry if this sounds stupid.

I am making trying to make an auto typer in jabaco, and was wondering how i can use the "SendKeys" function like in VB.

Jabaco Source

Public Sub Command1_Click()
 	Timer1.Enabled = True
 	Timer1.Interval = Text2.Text 
	End Sub
Public Sub Command2_Click()
Close
End Sub
 	Public Sub Command3_Click()
 	Timer1.Enabled = False
 	End Sub
Public Sub Timer1_Timer()
SendKeys.Send(Text1.Text)
SendKeys.Send "{enter}"
End Sub

Your help would be appreciated.

This post has been edited 1 times, last edit by "KusaNoKaito" (Sep 17th 2009, 2:43pm)

Go to the top of the page

A1880

Intermediate

Posts: 500

Date of registration: Jan 1st 2009

Location: Hanover, Germany

Occupation: Software Engineer

Hobbies: Hilbert Curves

Wednesday, September 16th 2009, 3:02pm

Hi,
in Java there is a "Robot" class to tackle automation tasks like sendkeys.

The following sample code might inspire you to come up with a Jabaco version:

Source code

import java.awt.Robot;
import java.awt.event.KeyEvent;

/**
 * @author imran
 * Description : Used to toggle the multimonitor display in Win XP.
 */
public class MultiMon {
	public static void main(String[] args) {
		try {
			//Invoke the desktop setting applet, the 3rd tab should be selected
			Runtime.getRuntime().exec("control.exe desk.cpl,@0,3");

			//Pause for a second.... 
			try {
				Thread.sleep(1000);
			}catch (InterruptedException ex){
			}
			//Create a new robot that can do the system interaction for us...
			Robot robot = new Robot();
			//Activate the "Display" field...
			robot.keyPress(KeyEvent.VK_D + KeyEvent.ALT_MASK);
			//Choose the second monitor
			robot.keyPress(KeyEvent.VK_2);
			//goto the "Extend my windows desktop" checkbox...
			robot.keyPress(KeyEvent.VK_TAB);robot.keyPress(KeyEvent.VK_TAB);
			robot.keyPress(KeyEvent.VK_TAB);robot.keyPress(KeyEvent.VK_TAB);
			robot.keyPress(KeyEvent.ALT_MASK);
			robot.keyPress(KeyEvent.VK_E );
			//toggle the check box...
			robot.keyPress(KeyEvent.VK_ENTER);
			//clear references...
			robot = null;
			//exit the application
			System.exit(0);
		} catch (Exception e) {
			// Things did'nt work out....
			e.printStackTrace();
		}
	}
}

Greetings!

A1880

Go to the top of the page

OlimilO

Intermediate

Posts: 277

Date of registration: Jan 18th 2009

Location: Germany

Occupation: software engineer

Wednesday, September 16th 2009, 3:29pm

Hi,

yes we could implement it in this way:

Source code

java.awt.Robot SendKeysRob;
public void SendKeys(String skey) {
   SendKeys(skey, 0);
}
public void SendKeys(String skey, int wait) {
   If (SendKeysRob = null) SendKeysRob = new Robot;
   int a = Asc(skey);
   SendKeysRob.keyPress(a);
   If (wait > 0) SendKeysRob.delay(wait);
}

Jabaco Source

Dim SendKeysRob As java#awt#Robot
Public Sub SendKeys(skey As String, Optional wait)
   If SendKeysRob Is Nothing Then SendKeysRob = New Robot
   Dim a As Integer = Asc(skey)
   SendKeysRob.keyPress(a)
   If wait > 0 Then SendKeysRob.delay(wait)   
End Sub

example:

Jabaco Source

Option Explicit
Dim keyInput() As String = ( _
                 " ", "W", "E", "L", "C", "O", "M", "E", " ", _
                 "T", "O", " ", "J", "A", "B", "A", "C", "O")
Public Sub Command1_Click()
   Call Shell("notepad.exe", vbNormalFocus)
End Sub
Public Sub Command2_Click()
   Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
   Static i As Integer
   If i <= UBound(keyInput) Then
      Call SendKeys(keyInput(i))
      i = i + 1
   Else
      Timer1.Enabled = False
      i = 0
   End If
End Sub