webarenaでubuntu その4

概要

webarenaでubuntu18.04やってみた。
コンソールに、コピペできないので、sendkyeしてみた。

サンプルコード

Dim sh
Set sh = WScript.CreateObject("WScript.Shell")
Dim b
b = false
b = sh.AppActivate("WebARENA", True)
If b Then
	sh.SendKeys "pwd"
Else
	MsgBox "ウィンドウが見つかりません。" 
End If
Set sh = Nothing

以上。