Set haWin321 = CreateObject("HAWin32")
Set haWin322 = CreateObject("HAWin32")
Set haWin323 = CreateObject("HAWin32")
Set haScript1 = haWin321.haInitialize("test1")
Set haScript2 = haWin322.haInitialize("test2")
Set haScript3 = haWin323.haInitialize("test3")
cr = Chr(13)
dim datastr

haScript1.haSizeHyperACCESS 3
haScript2.haSizeHyperACCESS 3
haScript3.haSizeHyperACCESS 3
haScript1.haOpenSession "1.HAW"
haScript2.haOpenSession "2.HAW"
haScript3.haOpenSession "3.HAW"
haScript1.haConnectSession 0
haScript2.haConnectSession 0
haScript3.haConnectSession 0
haScript1.haWaitForConnection 1, 100000
haScript2.haWaitForConnection 1, 100000
haScript3.haWaitForConnection 1, 100000

while haScript1.haGetConnectionStatus = 1
datastr = haScript1.haGetInput (0, -1, 10000, 10000)
haScript2.haTypeText datastr
haScript3.haTypeText datastr
wend

haScript1.haTerminate
haScript2.haTerminate
haScript3.haTerminate

To execute this sample save the above code as .vbs file. Double click the saved file to execute. Multiple instances of HyperACCESS will be opened by the script.

Return to sample script index

Hilgraeve