久々の投稿です。

以前、やんちゃボーイさんの投稿でご教授いただいたAS400の文字列を送信するスクリプトですが、

稀に、送信に失敗しエラーを吐いちゃいます。

※エラースクショするの忘れました。。。

そこで、AS400に爆速で文字列を送信するスクリプトを開発した方は居ないか質問させていただきました。

操作性とかの質問ではないのですが、そこは申し訳ありません。

コピペ＆文字列送信ノードは、不安定とスピードで採用を見送っています。特にコピペの動作・・・

現スクリプトは下記に記載します。

myGYO = !行!
myRETU = !列!
myMOJI = !文字列!

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 '指定した場所にカーソル移動
oPSOBJ.SendKeys myMOJI '文字列の送信

Set oPSOBJ = Nothing
Set oCONL = Nothing

何か情報をお持ちでしたらよろしくお願いします！