オフコン練習帳

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

1 「ジョブ起動ユーティリティ」のＵＷＳＣでの代替方法

江須扇 2006-8-19 23:22 [返信] [編集]

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

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

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

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

但し
ＳＧは　ＷＳモード　WSM=25R
でエミュレータのフォントサイズは２４にしてあります。

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

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