銅雀台の画面で5人の相談相手に相談を5回行なうマクロです。

『銅雀台.uws』

// グローバル変数

Public IEID

Public IEobj

Public DisplayWidth

Public DisplayHeight

// 画面基準点１（画面の左上座標を記入してください）

const x_pos1 = 108

const y_pos1 = 77

// 画面基準点２（画面の右下座標を記入してください）

const x_pos2 = 1108

const y_pos2 = 677

// ウェイト設定(適宜調整)

const wait1 = 0.5

const wait2 = 0.2

// IEのハンドルを取得

//IEID = GETID("Windows Internet Explorer")

IEID = GETID("Internet Explorer")

if IEID < 0 then

  FUKIDASI("IE not found.")

  Sleep(1)

  FUKIDASI("")

else

  // IEのオブジェクトを取得

  IEobj = GETACTIVEOLEOBJ("InternetExplorer.Application")

endif

DisplayWidth  = x_pos2 - x_pos1

DisplayHeight = y_pos2 - y_pos1

// main処理の開始

// ここから「銅雀台」処理

// 5人の相談相手分ループ

for ConsulNum = 1 to 5

  // 相談相手をクリック

  MMV_XY( 55,25+95*ConsulNum )

  BTN(LEFT, CLICK)

  BusyWait(wait1)

  // 「相談」を5回

  MMV_XY( 505, 550 )

  for count = 1 to 5

    fukidasi(ConsulNum+"("+count+"/5)",G_MOUSE_X+10,G_MOUSE_Y-10)

    BTN(LEFT, CLICK)

    BusyWait(wait1)

    // 途中でEscキーが押された場合は処理をストップ

    if keyboard_enter() = 2 then

      fukidasi("キャンセルされました。",G_MOUSE_X+10,G_MOUSE_Y-10)

      sleep(2)

      exit

    endif

  next

next

// main処理の終了

// サブルーチン

//------

// 座標を再計算して、その位置に移動

Procedure MMV_XY(x,y)

  x_pos = x_pos1 + (x*DisplayWidth)/1000

  y_pos = y_pos1 + (y*DisplayHeight)/600

  MMV(x_pos,y_pos)

  sleep(wait2)

Fend

//------

Procedure BusyWait(count)

  if IEID < 0 then

    // IEのハンドルが取得できなかった場合は

    // 指定の秒数をスリープ

    Sleep(count)

  else

    Sleep(0.5)

    // busyフラグが落ちるまでリピート

    repeat

      Sleep(0.2)

//    until (! IEobj.busy) and (IEobj.readyState=4)

    until (IEobj.readyState=4)

//    until (! IEobj.busy)

    Sleep(0.5)

  endif

Fend

// Shiftキーで "1"、Escキーで "2" が返る

Function keyboard_enter()

  Result = 0

  sleep(0.2)

  while 1

    if GETKEYSTATE(VK_SHIFT)

      Result = 1

      Exit

    elseif GETKEYSTATE(VK_ESC)

      Result = 2

      Exit

    else

      Result = 0

      Exit

    endif

    sleep(0.2)

  wend

Fend

まず、上記の枠内を『銅雀台.uws』のような名前でファイルにセーブした後、
位置あわせのために、下記のパラメータを①と②の (x,y) 座標で書き換えてください。

// 画面基準点１（画面の左上座標を記入してください）

const x_pos1 = 108

const y_pos1 = 77

// 画面基準点２（画面の右下座標を記入してください）

const x_pos2 = 1108

const y_pos2 = 677

次に、銅雀台の画面を開いてからマクロを起動してください。
マクロの途中で止めたい時は Esc キーを押し続けてください（１秒くらいで止まります。）
パソコンのマシンスペックによっては wait1 の値を 0.2秒ぐらいにしても動作します。（5x5の相談時間が若干早く終わるようになります。）

銅雀台マクロ