アプリケーションの遠隔操作

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
-
|
|
|
|
!
!
 
 
 
 

;for HSP3
#include "hspext.as"
 
;操作対象のウィンドウ
screen 1, 300,100
title "操作対象のウィンドウ"
a = "" : b = ""
input a, 300 : input b, 300
w1 = 1
 
;メッセージを送る側のウィンドウ
screen 0, 300
objsize 300
button "メッセージ送信", *aplcaptest
button "タイトル変更", *kaihei
stop
 
 
*kaihei
    w1 ^= 1
    gsel 1
    if w1 = 0 : title "操作できない"
    if w1 = 1 : title "操作対象のウィンドウ"
    gsel 0
    stop
 
;操作対象のウィンドウのインプットボックスに値を入力する
*aplcaptest
    repeat 2
        oid = cnt
        ;ウィンドウの捕獲
        aplsel "操作対象のウィンドウ", 0
        if stat : mes "ウィンドウの検索失敗" : else {
            mes "ウィンドウ捕獲に成功。"
    
            ;オブジェクトの捕獲
            aplobj "Edit", oid
            if stat : mes "オブジェクト" + oid + "の捕獲に失敗" : else {
                mes "オブジェクト" + oid + "捕獲に成功。"
    
                ;文字列を送信
                aplstr "テスト" + oid
            }
        }
    loop
    mes "---"
    gsel 0, 1
    stop