SendKeys-sample1

Send Keys sample1 VBScript

 

スクリプト名:[Set_vbscript]"VBScript"を指定し、ScriptContorol作成。

フィールド設定 [VBS_SendKeys::er; iiil_Create( "vbscript" )]

スクリプト名:[AppActivate]

スクリプト実行 [「Set_vbscript」]

フィールド設定 [VBS_SendKeys::Visible; -1]

フィールド設定 [VBS_SendKeys::er; iiil_Exe(  Substitute (VBS_SendKeys::g_AppActivate ; "%WindowTitle%" ; VBS_SendKeys::WindowTitle ) )]

#ウインドウの有無を取得

フィールド設定 [VBS_SendKeys::Visible; iiil_eval( "result" )]

スクリプト名:[SendKeys]

If [VBS_SendKeys::Visible = "true"]

ポータル内の行へ移動 [選択; 最初の]

Loop

スクリプト一時停止/続行 [間隔(秒): KEYs::time]

フィールド設定 [VBS_SendKeys::er; iiil_Exe(  Substitute (  VBS_SendKeys::g_KEY ; "%KEY%" ;     Substitute ( KEYs::KEY ; ["\"" ; "\"\""] ; [ "¶" ; "\" & vbCr & \"" ])   ) )]

ポータル内の行へ移動 [選択; 次の; 最後まできたら終了]

End Loop

End If

フィールド設定 [VBS_SendKeys::Visible; -1]

フィールド設定 [VBS_SendKeys::er; iiil_Create( "" )]

sample[VBS_SendKeys.fp7]