HostExplorerメインフレームエミュレータ画面のフィールドにExcelテキストを入力

Question

私はHostExplorerメインフレームターミナルエミュレータで作業しています。私のVBAの知識は、私が他のマクロを作るためにオンラインで見つけた情報の断片をつなぎ合わせることに基づいています。

メインフレームに請求書を入力し、いくつかの画面間を移動し、リンクを生成する情報を入力し、そのリンクを使用してコンピュータの所定のフォルダにファイルを保存するマクロを作成しています。

入力情報部分に固執しています。最後の画面に移動した後、メインフレームの特定のフィールドにテキストを入力する必要があります。

私は画面上の場所を特定し、それを変数の作成に使用する方法を知っています。

どうすればいいですか？変数を保持している文字列（またはランダムな文字）を画面の特定の場所に入力するにはどうすればよいですか？

Sub MiscFileDownload() 

Dim HostExplorer As Object 
Dim MyHost As Object 
Dim Rc As Integer 

On Error GoTo GenericErrorHandler 

Set HostExplorer = CreateObject("HostExplorer") ' Initialize HostExplorer Object 
Set MyHost = HostExplorer.HostFromProfile("*****") ' Set object for the desired session 
If MyHost Is Nothing Then GoTo NoSession 

Dim ColALastRow As Long 
ColALastRow = Worksheets(1).Columns("A:A").End(xlDown).Row 
Dim Pro As String 
Dim MiscTest As String 
Dim iPSUpdateTimeout 

'enter pro then F2 and F9 

For i = 2 To ColALastRow 

    Pro = Worksheets(1).Cells(i, 1).Value 
    Rc = MyHost.Keys(Pro) 
    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("Enter") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("PF2") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    iPSUpdateTimeout = 60 
    MyHost.RunCmd ("PF9") 
    Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

    If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    MiscTest = Mid(MyHost.Text, 1466, [3])   

    If MiscTest = "YES" Then 'test for Misc if true move to next screen 
     Rc = MyHost.Keys("v") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("Tab") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     Rc = MyHost.Keys("v") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("Tab") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

    Else 

     MyHost.RunCmd ("PF1") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 

     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     MyHost.RunCmd ("PF1") 
     Rc = MyHost.WaitPSUpdated(iPSUpdateTimeout, True) 
     If Rc <> 0 Then GoTo OnWaitPSUpdatedTimeout 

     GoTo NextIteration 
    End If 

NextIteration: 
Next i 

Exit Sub 

Answer 1

あなたはハミングバードアプリケーションを使用して上記のコードを記録していることを考えると：

あなたは画面内の位置を見つけたら、あなたは例えばのために、_________________特定に変数を渡すことができます。 myHost.area(4,2,4,10)あなたは、HostExplorerに 後藤イミディエイトウィンドウ（プレスCTRL + G）のエリアを検索する場合、種類?MyHost.area(7,2,7,70)と入力し、Enterキーを押しますあなたが入力何か、

MyHost.Area(4,2,4,10) = "desired_text"

にしたい位置であり、 => 2が開始位置、70が終了位置です。

7行目のテキストまたは値は、2文字目から70文字目になります。

Answer 2

あなたのコードでは、myHostに時計を入れ、.item.fields prorietyを確認してください。 そうすれば、各フィールドの品目番号がわかります。 この項目を使用して入力することができます。

私の前にコードはありませんが、それは MyHost.fields.item（78）= yourVariableまたは "30s"のようなものです。