September Morn Update

Task/Simulate-input-Keyboard/00DESCRIPTION

@@ -8,6 +8,7 @@
 {{omit from|PostScript}}
 {{omit from|R}}
 {{omit from|Retro}}
+{{omit from|SmileBASIC}}
 {{omit from|TI-83 BASIC}} {{omit from|TI-89 BASIC}}
 {{omit from|zkl}}
 

Task/Simulate-input-Keyboard/Go/simulate-input-keyboard.go

@@ -0,0 +1,29 @@
+package main
+
+import (
+    "github.com/micmonay/keybd_event"
+    "log"
+    "runtime"
+    "time"
+)
+
+func main() {
+    kb, err := keybd_event.NewKeyBonding()
+    if err != nil {
+        log.Fatal(err)
+    }
+
+    // For linux, need to wait 2 seconds
+    if runtime.GOOS == "linux" {
+        time.Sleep(2 * time.Second)
+    }
+
+    //set keys
+    kb.SetKeys(keybd_event.VK_D, keybd_event.VK_I, keybd_event.VK_R, keybd_event.VK_ENTER)
+
+    //launch
+    err = kb.Launching()
+    if err != nil {
+        log.Fatal(err)
+    }
+}

Task/Simulate-input-Keyboard/Perl-6/simulate-input-keyboard.pl6

@@ -0,0 +1,31 @@
+use X11::libxdo;
+
+my $xdo = Xdo.new;
+
+my $active = $xdo.get-active-window;
+
+my $command = $*VM.config<os> eq 'darwin' ?? 'open' !! 'xdg-open';
+
+shell "$command https://www.google.com";
+
+sleep 1;
+
+my $match = rx[^'Google -'];
+
+say my $w = $xdo.search(:name($match))<ID>;
+
+sleep .25;
+
+if $w {
+    $xdo.activate-window($w);
+    say "Window name: ", $xdo.get-window-name( $w );
+    $xdo.type($w, 'Perl 6');
+    sleep .25;
+    $xdo.send-sequence($w, 'Tab');
+    sleep .5;
+    $xdo.send-sequence($w, 'Tab');
+    sleep .5;
+    $xdo.send-sequence($w, 'Tab');
+    sleep .5;
+    $xdo.send-sequence($w, 'Return');
+}