PW3270 - Exemplo - Macro Excel
Add new snippet

#23 by 7caf4932d47836dcd7dccd85065686b8?s=40&d=identicon ERICK SOUZA
← project snippets
exemplo.vbs
raw
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 
Public Sub Exemplo()

    Dim someTxt As String

    'Cria um novo objeto da classe
    Dim pw As New clsLibHllapi 'SUBSTITUA PELO NOME DA CLASSE QUE VOCÊ CRIOU, Classe1, por exemplo :)


    'Necessario para iniciar
    'O parâmetro "pw3270:A" é opcional, poderia ser só pw.Connect
    pw.Connect "pw3270:A"

    'Pega texto na tela
    someTxt = pw.GetString(1, 2, 26)

    'Mostra o texto
    MsgBox someTxt

    'Envia o texto AOF na posicao desejada
    pw.PutString 21, 22, "AOF   "

    'Enter
    pw.Enter

    'Enviando a tecla TAB
    pw.SendEspKey "TAB"

    'Pesquisando texto
    If pw.FindText("5697") <> 0 Then
        MsgBox "Texto Existe!"
    End If

    'Envia pressionamento de F3
    pw.SendPFKey 3

    'Desconecta o terminal
    pw.Disconnect


End Sub