0

いつもお世話になっております。

パーソナル・コミュニケーションズ(PCOMM) と WinActor の相性は◎です。 | ユーザーフォーラム

以前拝見したやんちゃボーイさんの上記投稿を参考にAS400に関する各種機能は実行できたのですが

自分でスクリプトを変更したものがエラーは出ないのにうまく発動しません。

解決方法をご存じの方がいらっしゃいましたらお知恵をお貸しください。

WinActorバージョン: 7.4.2

AS400: DISP5250

実行用のキーは下記Webサイト参照しています。

付録A. Sendkeys 略号キーワード - IBM Documentation

・カーソルを移動させた後 検索キー(F9) 送信

実行キーの部分を oPSOBJ.SendKeys ("[PF9]") に変換

※("[F9]")にすると実行エラーになります。

※参照スクリプトの文字設定 myMOJI = !文字列! の『!文字列!』を『("[PF9]")』に変更し

下のスクリプト上から3行目 myRETU = !列! の下に書き込んで oPSOBJ.SendKeys myMOJI としたものも不発となりました。

・カーソルを移動させた後 一覧上選択キー(Ctrl) 送信

実行キーの部分を oPSOBJ.SendKeys ("[ENTER]") に変換

※弊社の選択、送信はCtrl(R)なのですが該当する略キーが見つけられなかったため ("[ENTER]") としています。

 カーソル移動させずにこのキー単体で実行する場合は発動します。

ー【実行できないスクリプト】実行キーの部分は上記方法ごとに変更していますーー

myGYO = !行!
myRETU = !列!

Dim oCONL, oPSOBJ

Set oPSOBJ = CreateObject("PCOMM.autECLPS")
Set oCONL = CreateObject("PCOMM.autECLConnList")

oCONL.Refresh
' PCOMMのハンドルを取得
For i = 1 To oCONL.Count
If oCONL(i).ConnType = "DISP5250" Then
oPSOBJ.SetConnectionByHandle (oCONL(i).Handle)
Exit For
End If
Next

oPSOBJ.SetCursorPos myGYO, myRETU '指定した場所にカーソル移動

WScript.Sleep 1000 'カーソル移動後に1秒待機

'下の行で実行キー送信 PFキーは、[PF1]..[PF24] を送信

oPSOBJ.SendKeys ("[実行キー]")

Set oPSOBJ = Nothing
Set oCONL = Nothing

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

何か不明な点や不足している情報などございましたらご指摘いただけますと幸いです。

以上、よろしくお願い申し上げます。

この質問は解決済みのためクローズされています。
餃子 質問の編集
回答とコメントは、会員登録(無料)で閲覧できるようになります。