[VBA EXCEL] PW3270 - USANDO A LIBHLLAPI.DLL | PARTE 02

[VBA EXCEL] PW3270 - USANDO A LIBHLLAPI.DLL

"PW3270 é um emulador de terminal 3270 totalmente livre, com recursos avançados e uma interface amigável (elaborada em GTK), comparável às melhores ferramentas do mercado."

Exemplo de classe para automação do terminal PW3270 usando a libhllapi.dll

Option Explicit

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

*Conteúdo retirado do portal https://softwarepublico.gov.br/

Download Exemplo

Download DLL

Gostou!? Deixe seu comentário! Convido você a seguir meu blog.【ツ】