'Code Samples taken from Host Access Class Library V12.pdf manual
Sub cmdStartConnection_Click()
Set Mgr = CreateObject("PCOMM.autECLConnMgr")
Mgr.StartConnection ("profile=iseriesd connname=A")
Mgr.StartConnection ("profile=iseriesd connname=B")
End Sub
Private Sub cmdMinimized_Click()
Dim autECLWinObj As Object
Set autECLWinObj = CreateObject("PCOMM.autECLWinMetrics")
' Initialize the connection
autECLWinObj.SetConnectionByName ("A")
' For example, set the host window to minimized
autECLWinObj.Minimized = True
End Sub
Private Sub cmdSetCursorPos_Click()
Dim autECLPSObj As Object
Dim autECLConnList As Object
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
' Initialize the connection with the first in the list
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
autECLPSObj.SetCursorPos 9, 53
End Sub
Private Sub cmdSendKeys_Click()
Dim autECLPSObj As Object
Dim autECLConnList As Object
Dim Row, Col As LongPtr
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
' Initialize the connection
autECLConnList.Refresh
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
Row = autECLPSObj.CursorPosRow
Col = autECLPSObj.CursorPosCol
autECLPSObj.SendKeys "IBM", Row, Col
End Sub
Private Sub cmdGetText_Click()
Dim autECLPSObj As Object
Dim PSText As String
' Initialize the connection
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName ("A")
PSText = autECLPSObj.GetText(19, 1, 50)
'I added message box
MsgBox "Text at location R2,C1-C50:" & vbCrLf & PSText, vbInformation
End Sub
Private Sub cmdKeyStroke_Click()
Dim NumFields As Long
Dim autECLPSObj As Object
Dim autECLConnList As Object
Dim autECLOIAObj As Object
Dim teststr As String
' Initialize the connection
Set autECLConnList = CreateObject("PCOMM.autECLConnList")
autECLConnList.Refresh
Set autECLOIAObj = CreateObject("PCOMM.autECLOIA")
autECLOIAObj.SetConnectionByHandle (autECLConnList(1).Handle)
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
autECLPSObj.SetConnectionByHandle (autECLConnList(1).Handle)
autECLPSObj.SendKeys "[Enter]"
autECLOIAObj.WaitForInputReady (1000)
End Sub
Private Sub cmdSetText_Click()
Dim autECLPSObj As Object
'Initialize the connection
Set autECLPSObj = CreateObject("PCOMM.autECLPS")
autECLPSObj.SetConnectionByName ("A")
autECLPSObj.SetText "IBM", 6, 53
End Sub
