Google
オフコン練習帳内を検索
インターネット全体を検索

NECオフコン関連
オフコン一般
情報

[掲示板に戻る]


「ジョブ起動ユーティリティ」のUWS... 江須扇 2006-8-19 23:22

1 「ジョブ起動ユーティリティ」のUWSCでの代替方法
江須扇 2006-8-19 23:22  [返信] [編集]

パソコン側でデータを作った後に、自動的に、オフコン側での処理を
する場合は、通常は「ジョブ起動ユーティリティ」を使いますが、
パソコン側の自動実行を含めて実行する場合はフリーソフトの、
UWSCを使うと便利です。

http://www.h7.dion.ne.jp/~umiumi/

具体的にはWeb-EDIのデータを自動的にオフコンに取り込む処理で
使っております。


そのエミュレータの起動のサンプルスクリプトです。
参考になればとアップロードしました。
SAMPLEというAPを実行して終わるサンプルです。
WindowsXPでは巧くいきますがなぜかMeでは画面が読み取れません、
従ってXPのみの対応です。



但し
SGは WSモード WSM=25R
でエミュレータのフォントサイズは24にしてあります。

-----------------------------------------------------------

public fontsize
public xx1
public yy1
fontsize=24
disp=getid("WSエミュレータ","EmlMainWnd")
ifb disp < 0 then
 exec("c:\ws-eml\pcws32.exe")
 sleep (3)    
 repeat
  sleep (1)
  disp=getid("WSエミュレータ","EmlMainWnd")
 until disp<>0
 repeat
  sleep (1)
  posxy(2,1)
  acep=POSACC(disp,xx1,yy1)
  print acep
 until acep="CO"
 sckey(disp,VK_ALT,C,L)
 repeat
  sleep (1)
  posxy(1,11)
  acep=POSACC(disp,xx1,yy1)
  print acep
 until acep="識"
 sckey(disp,0,0,0,VK_RETURN)
 repeat
  sleep (1)
  posxy(4,1)
  acep=POSACC(disp,xx1,yy1)
  print acep
 until acep="RU"
else
 repeat
  sleep (1)
  posxy(2,5)
  acep=POSACC(disp,xx1,yy1)
  print acep
 until acep="^^"
endif

sckey(disp,S,A,M,P,L,E,VK_OEM_PLUS,VK_RETURN)
repeat
  sleep (10)
  posxy(2,5)
  acep=POSACC(disp,xx1,yy1)
  print acep
until acep="^^"
sckey(disp,VK_ALT,C,O)

procedure posxy (lin,col)
  xx1 = fontsize / 2 - 1 + ( col - 1 ) * fontsize / 2
  yy1 = fontsize + 1 + ( lin - 1 ) * ( fontsize + 2 )
fend

BluesBB ©Sting_Band