VBA Scripting on BlueZone Emulator

6. RE: VBA Scripting on BlueZone Emulator

Like

ROCKETEER

Mike Jones

Posted 11-02-2021 10:10

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands
------------------------------

Original Message

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

7. RE: VBA Scripting on BlueZone Emulator

Like

David Hatcher

Posted 11-02-2021 12:07
Edited by David Hatcher 11-05-2021 14:15

I can easily get Wait for String to work using the IDE inside of the VT or with excel.

When referencing BZWHLLLib in Visual Studio I don't see any mention of ProcessDatacomm in the Object Browser.

I've added a test for WaitCursor but it stops the script during the wait. Even if its 'True' it doesn't immediately return but waits out the time.
Also, we have a couple of screens that don't reveal cursor location.

Do you have any suggestions on getting WaitForString to work in Visual Studio? Your documentation shows VB .Net as an option.

------------------------------
David Hatcher
Rocket Forum Shared Account
------------------------------

Original Message

Original Message:
Sent: 11-02-2021 10:09
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

8. RE: VBA Scripting on BlueZone Emulator

Like

ROCKETEER

Mike Jones

Posted 11-02-2021 12:32

David,

OK my example was assuming you were connecting to a 3270 session, not VT. Can you pull the version info from the bzwhll.dll? There were a lot of changes/fixes in 6.2.X versions in regards to WaitForString/ProcessDatacomm.

BZWHLLLib.IWhllObj.ProcessDatacomm As Boolean

Property ProcessDatacomm As Boolean
Member of BZWHLLLib.IWhllObj

------------------------------
Mike Jones
Rocket Internal - All Brands
------------------------------

Original Message

Original Message:
Sent: 11-02-2021 12:06
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. the System2.zmd was erroneous and has been removed. That wasn't needed with excel and was copied from a peer when I switched to Visual Studio last week.

This is a BlueZone 6.2 connection with .zvt
Preferred Connection Type VT.

I can easily get Wait for String to work using the IDE inside of the VT or with excel.

When referencing BZWHLLLib in Visual Studio I don't see any mention of ProcessDatacomm in the Object Browser.

I've added a test for WaitCursor but it stops the script during the wait. Even if its 'True' it doesn't immediately return but waits out the time.
Also, we have a couple of screens that don't reveal cursor location.

Do you have any suggestions on getting WaitForString to work in Visual Studio? Your documentation shows VB .Net as an option.

Edit: Please note the original code is one of those screens that wont show the real location. I switched screens for this test code and it returns true, but only after 8 seconds of nothing.

Function TestCode()        Dim Test As Boolean = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        'Host.ProcessDataComm = False        'Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        'Timeout, Row, Column, Extrawait        Test = Host.WaitCursor(8, 23, 1, 0)        'Console.WriteLine(Test)        Console.WriteLine("Completed")        'Host.ProcessDataComm = True    End Function

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 10:09
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

9. RE: VBA Scripting on BlueZone Emulator

Like

David Hatcher

Posted 11-02-2021 16:20
Edited by David Hatcher 11-02-2021 18:03

Hi Mike. 6.2.3.2483 (Edited)
Do you have a working version of applying ProcessDatacomm to VB .Net
and it functioning with the data stream.

I have noticed even with get cursor it doesn't update the cursor position if the screen isn't clicked.
Manual movement shows instant cursor position changes at the bottom. But automated send keys move it but don't update the position.

------------------------------
David Hatcher
Rocket Forum Shared Account
------------------------------

Original Message

Original Message:
Sent: 11-02-2021 12:32
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

OK my example was assuming you were connecting to a 3270 session, not VT. Can you pull the version info from the bzwhll.dll? There were a lot of changes/fixes in 6.2.X versions in regards to WaitForString/ProcessDatacomm.

BZWHLLLib.IWhllObj.ProcessDatacomm As Boolean

Property ProcessDatacomm As Boolean
Member of BZWHLLLib.IWhllObj

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-02-2021 12:06
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. the System2.zmd was erroneous and has been removed. That wasn't needed with excel and was copied from a peer when I switched to Visual Studio last week.

This is a BlueZone 6.2 connection with .zvt
Preferred Connection Type VT.

I can easily get Wait for String to work using the IDE inside of the VT or with excel.

When referencing BZWHLLLib in Visual Studio I don't see any mention of ProcessDatacomm in the Object Browser.

I've added a test for WaitCursor but it stops the script during the wait. Even if its 'True' it doesn't immediately return but waits out the time.
Also, we have a couple of screens that don't reveal cursor location.

Do you have any suggestions on getting WaitForString to work in Visual Studio? Your documentation shows VB .Net as an option.

Edit: Please note the original code is one of those screens that wont show the real location. I switched screens for this test code and it returns true, but only after 8 seconds of nothing.

Function TestCode()        Dim Test As Boolean = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        'Host.ProcessDataComm = False        'Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        'Timeout, Row, Column, Extrawait        Test = Host.WaitCursor(8, 23, 1, 0)        'Console.WriteLine(Test)        Console.WriteLine("Completed")        'Host.ProcessDataComm = True    End Function

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 10:09
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

10. RE: VBA Scripting on BlueZone Emulator

Like

ROCKETEER

Mike Jones

Posted 11-04-2021 09:59

I had to research ProcessDatacomm, it was added to the bzwhll COM object in 7.1.5.2803, which would explain why VB.NET says it doesnt exist for you. I suggest you sign into the Customer Support portal to see about getting a newer version of BZ (now RTE), which is up to v10.1.1

------------------------------
Mike Jones
Rocket Internal - All Brands
------------------------------

Original Message

Original Message:
Sent: 11-02-2021 16:20
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. 6.2.3.2483 (Edited)
Do you have a working version of applying ProcessDatacomm to VB .Net
and it functioning with the data stream.

I have noticed even with get cursor it doesn't update the cursor position if the screen isn't clicked.
Manual movement shows instant cursor position changes at the bottom. But automated send keys move it but don't update the position.

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 12:32
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

OK my example was assuming you were connecting to a 3270 session, not VT. Can you pull the version info from the bzwhll.dll? There were a lot of changes/fixes in 6.2.X versions in regards to WaitForString/ProcessDatacomm.

BZWHLLLib.IWhllObj.ProcessDatacomm As Boolean

Property ProcessDatacomm As Boolean
Member of BZWHLLLib.IWhllObj

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-02-2021 12:06
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. the System2.zmd was erroneous and has been removed. That wasn't needed with excel and was copied from a peer when I switched to Visual Studio last week.

This is a BlueZone 6.2 connection with .zvt
Preferred Connection Type VT.

I can easily get Wait for String to work using the IDE inside of the VT or with excel.

When referencing BZWHLLLib in Visual Studio I don't see any mention of ProcessDatacomm in the Object Browser.

I've added a test for WaitCursor but it stops the script during the wait. Even if its 'True' it doesn't immediately return but waits out the time.
Also, we have a couple of screens that don't reveal cursor location.

Do you have any suggestions on getting WaitForString to work in Visual Studio? Your documentation shows VB .Net as an option.

Edit: Please note the original code is one of those screens that wont show the real location. I switched screens for this test code and it returns true, but only after 8 seconds of nothing.

Function TestCode()        Dim Test As Boolean = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        'Host.ProcessDataComm = False        'Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        'Timeout, Row, Column, Extrawait        Test = Host.WaitCursor(8, 23, 1, 0)        'Console.WriteLine(Test)        Console.WriteLine("Completed")        'Host.ProcessDataComm = True    End Function

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 10:09
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

11. RE: VBA Scripting on BlueZone Emulator

Like

David Hatcher

Posted 11-05-2021 14:11

Hey Mike. Thank you for the help. I am not sure upgrading is an option.
Sent you two private messages. Thanks.

------------------------------
David Hatcher
Rocket Forum Shared Account
------------------------------

Original Message

Original Message:
Sent: 11-04-2021 09:58
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

I had to research ProcessDatacomm, it was added to the bzwhll COM object in 7.1.5.2803, which would explain why VB.NET says it doesnt exist for you. I suggest you sign into the Customer Support portal to see about getting a newer version of BZ (now RTE), which is up to v10.1.1

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-02-2021 16:20
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. 6.2.3.2483 (Edited)
Do you have a working version of applying ProcessDatacomm to VB .Net
and it functioning with the data stream.

I have noticed even with get cursor it doesn't update the cursor position if the screen isn't clicked.
Manual movement shows instant cursor position changes at the bottom. But automated send keys move it but don't update the position.

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 12:32
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

OK my example was assuming you were connecting to a 3270 session, not VT. Can you pull the version info from the bzwhll.dll? There were a lot of changes/fixes in 6.2.X versions in regards to WaitForString/ProcessDatacomm.

BZWHLLLib.IWhllObj.ProcessDatacomm As Boolean

Property ProcessDatacomm As Boolean
Member of BZWHLLLib.IWhllObj

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-02-2021 12:06
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike. the System2.zmd was erroneous and has been removed. That wasn't needed with excel and was copied from a peer when I switched to Visual Studio last week.

This is a BlueZone 6.2 connection with .zvt
Preferred Connection Type VT.

I can easily get Wait for String to work using the IDE inside of the VT or with excel.

When referencing BZWHLLLib in Visual Studio I don't see any mention of ProcessDatacomm in the Object Browser.

I've added a test for WaitCursor but it stops the script during the wait. Even if its 'True' it doesn't immediately return but waits out the time.
Also, we have a couple of screens that don't reveal cursor location.

Do you have any suggestions on getting WaitForString to work in Visual Studio? Your documentation shows VB .Net as an option.

Edit: Please note the original code is one of those screens that wont show the real location. I switched screens for this test code and it returns true, but only after 8 seconds of nothing.

Function TestCode()        Dim Test As Boolean = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        'Host.ProcessDataComm = False        'Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        'Timeout, Row, Column, Extrawait        Test = Host.WaitCursor(8, 23, 1, 0)        'Console.WriteLine(Test)        Console.WriteLine("Completed")        'Host.ProcessDataComm = True    End Function

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-02-2021 10:09
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

As Michael mentioned earlier, WaitForString (as well as ProcessDatacomm) is for the VT/6530 emulators (.ZVT/.Z65) not for Mainframe (.ZMD).

In this case you could use WaitCursor since you are looking for the <Esc>[22;1H sequence which moves the cursor to 22,1.

//Timeout, Row, Column, Extrawait
Host.WaitCursor(5, 22,1, 0)

btw, WaitForText will only scan for visible text on the screen. The MF emulator does not support scanning the datastream in any of the methods.

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 11-01-2021 18:42
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Mike.

This is a very basic script. It connects and presses cursor down once. Just waiting to verify it happened before proceeding.
I've attempted to add processdatacomm.
It throws an error as follows.

Exception thrown: 'System.MissingMemberException' in Microsoft.VisualBasic.dll
An unhandled exception of type 'System.MissingMemberException' occurred in Microsoft.VisualBasic.dll
Public member 'ProcessDataComm' on type 'IWhllObj' not found.

Doesn't look like its part of the dll file. Any examples?

       'ConnectSessionID = Form1.TxtSessionID.Text        If SessionID = "" Then            Throw New ArgumentException("Invalid Session ID")        End If        Host = CreateObject("BZWHLL.WhllObj")        Host.OpenSession(0, 2, "System2.Zmd", 30, 1)        ResultCode = Host.Connect(UCase(SessionID))        If ResultCode <> 0 Then            Throw New ArgumentException("Unable to Connect")        End If'Actual code        Dim Test As String = Nothing        Console.WriteLine("Started")        Host.SendKey("<CursorDown>")        Host.ProcessDataComm = False        Test = Host.WaitForString("[K" & Chr(27) & "[22;1H", "5")        Console.WriteLine(Test)        Host.ProcessDataComm = True'Disconnect        Host.Disconnect        Host.CloseSession(0, 1)

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 11-01-2021 09:28
From: Mike Jones
Subject: VBA Scripting on BlueZone Emulator

David,

If I remember correctly there is a property called ProcessDatacomm that needs to be set to false or 0 before using WaitForString from VS projects (not BZ/RTE VBA or BBS scripts). This stops the emulator from processing data from the host unless driven by a COM call like WaitForString, Wait(s), SendKeys, etc...

------------------------------
Mike Jones
Rocket Internal - All Brands

Original Message:
Sent: 10-29-2021 17:12
From: David Hatcher
Subject: VBA Scripting on BlueZone Emulator

Hi Leslie,
I am also having the same issue with Visual Studio. I can easily get excel VBA to work though. Its like the parameters change when using Visual Basic .Net.
Where are you coding from?

------------------------------
David Hatcher
Rocket Forum Shared Account

Original Message:
Sent: 10-29-2021 02:10
From: Leslie Lau
Subject: VBA Scripting on BlueZone Emulator

Hi All,

I'm scripting with VBA for BlueZone and realised that WaitForString function isn't working.
Does anyone have met the same issue and found a solution to it?

Thanks

------------------------------
Leslie Lau
Payment Officer
Skandinaviska Enskilda Banken AB (publ)
Singapore Singapore
------------------------------

15. RE: VBA Scripting on BlueZone Emulator

Like

ROCKETEER

Zhi Li

Posted 12-01-2021 03:42
Edited by Zhi Li 12-01-2021 04:07

Hello Leslie,

As RTE display caches the internal window handle when the script uses the Screen object, WaitForString method would be able to work at the first call but not work in next calls (hang there) since the window handle would be created each time System object is created. We will fix this in next release. In particular, for VT session, this method of Screen object will ignore row and column parameter and use TimeoutValue property of root object as timeout that is 30 seconds by default.

To address this, there are two choices for you at this point.

a.don't call CreateObject method each call. Instead use one global object (only create once). But this way is not very scalable depending on your scenario, and this would not work if you rerun your application but keep VT display open due to above reason.
b. use WaitForString method of the root object, which is the preferred wait method for VT session. Here is an example.

Set System = CreateObject("BlueZone.System")
System.Connect()
System.WaitForString("Queue", 10)
System.SendKey("done")

Does it work?

Thanks

------------------------------
Zhi Li
Rocket Software Inc
------------------------------

Original Message

Rocket Terminal Emulator

Leslie Lau10-29-2021 07:25

David Hatcher10-29-2021 17:32

Mike Jones11-01-2021 09:22

Mike Jones11-01-2021 09:29

David Hatcher11-01-2021 18:43

Mike Jones11-02-2021 10:10

David Hatcher11-02-2021 12:07

Mike Jones11-02-2021 12:32

David Hatcher11-02-2021 16:20

Mike Jones11-04-2021 09:59

David Hatcher11-05-2021 14:11

Michael Hlusak11-01-2021 15:32

Michael Hlusak11-01-2021 15:37

Leslie Lau11-16-2021 04:40

Zhi Li12-01-2021 03:42

1. VBA Scripting on BlueZone Emulator

2. RE: VBA Scripting on BlueZone Emulator

3. RE: VBA Scripting on BlueZone Emulator

4. RE: VBA Scripting on BlueZone Emulator

5. RE: VBA Scripting on BlueZone Emulator

6. RE: VBA Scripting on BlueZone Emulator

7. RE: VBA Scripting on BlueZone Emulator

8. RE: VBA Scripting on BlueZone Emulator

9. RE: VBA Scripting on BlueZone Emulator

10. RE: VBA Scripting on BlueZone Emulator

11. RE: VBA Scripting on BlueZone Emulator

12. RE: VBA Scripting on BlueZone Emulator

13. RE: VBA Scripting on BlueZone Emulator

14. RE: VBA Scripting on BlueZone Emulator

15. RE: VBA Scripting on BlueZone Emulator

Contact Us

Quick Links