冰峰雪晴

This sub move the cursor to the specified position for Pcom session[VBS]

时间：2015-09-18 ┊ 阅读：3,542 次 ┊ 标签: 开发 , 编程 , 分享

write this script just want to simplify our daily work, you can just copy and change it for your using, it can help you to move the cursor to anywhere you want when you use a pcom to access the as/400, do many thing for you. please share with all ones need it. thanks.

[PCOMM SCRIPT HEADER]
LANGUAGE=VBSCRIPT
DESCRIPTION=Your Script Name
[PCOMM SCRIPT SOURCE]
OPTION EXPLICIT
autECLSession.SetConnectionByName(ThisSessionName)


Sub MovCsr(Row, Col)
    Dim i
    If Row > 0 Then
        For i = 1 To Row
            autECLSession.autECLPS.Wait 100
            autECLSession.autECLOIA.WaitForAppAvailable
            autECLSession.autECLPS.SendKeys "[up]"
        Next
    End If
    If Row < 0 Then
        For i = 1 to Abs(Row)
            autECLSession.autECLPS.Wait 100
            autECLSession.autECLOIA.WaitForAppAvailable
            autECLSession.autECLPS.SendKeys "[down]"
        Next
    End If
    If Col > 0 Then
        For i = 1 to Col
            autECLSession.autECLPS.Wait 100
            autECLSession.autECLOIA.WaitForAppAvailable
            autECLSession.autECLPS.SendKeys "[left]"
        Next
    End If
    If Col < 0 Then
        For i = 1 to Abs(Col)
            autECLSession.autECLPS.Wait 100
            autECLSession.autECLOIA.WaitForAppAvailable
            autECLSession.autECLPS.SendKeys "[right]"
        Next
    End If
End Sub

美图奉上，赏心悦目：

本文固定链接: https://www.amkevin.com/20.html｜冰峰雪晴｜转载请注明出处,谢谢