Software Público Brasileiro

Boa tarde,
Gostaria de saber se poderiam disponibilizar um exemplo de código para conexão e captura de dados do pw3270 via macro excel - VB. E se a libhllapi está disponível para download separadamente ou somente com o instalador do pw3270, poderiam disponibilizar para instalação separadamente?

Atenciosamente,Marcel

Olá,

A dll hllapi é parte da instalação, porém, não é selecionada por default.
Instalá-la separadamente não é tão simples já que precisaria aplicar o
plugin que habilita o acesso. Não é mais fácil apenas selecionar um
checkbox na instalação?


Você também pode encontrar um exemplo em:
https://softwarepublico.gov.br/gitlab/pw3270/principal/snippets/7




Em seg, 25 de jan de 2016 às 18:59, Marcel Tojevich
escreveu:

> Boa tarde,
>
> Gostaria de saber se poderiam disponibilizar um exemplo de código para
> conexão e captura de dados do pw3270 via macro excel - VB. E se a libhllapi
> está disponível para download separadamente ou somente com o instalador do
> pw3270, poderiam disponibilizar para instalação separadamente?
>
>
> Atenciosamente,
> Marcel
>
> _______________________________________________
> Pw3270 mailing list
> Pw3270@listas.softwarepublico.gov.br
>https://listas.softwarepublico.gov.br/mailman/cgi-bin/listinfo/pw3270
>

Boa tarde,

Perry, vc poderia explicar resumidamente o que faz cada função?
Obrigado.

Olá,

Sim. Vou incluir como comentários no snippet


Em seg, 2 de mai de 2016 às 09:10, Carlos Castro

escreveu:

> Boa tarde,
>
> Perry, vc poderia explicar resumidamente o que faz cada função?
> Obrigado.
> _______________________________________________
> Pw3270 mailing list
> Pw3270@listas.softwarepublico.gov.br
>https://listas.softwarepublico.gov.br/mailman/cgi-bin/listinfo/pw3270
>

Perry,

Estou tentando executar um Script em VBS na ferramenta UFT -HP, porém esta sendo retornado código 5, segue abaixo parte do código, lembrando que a função exportada não consta na lista de funções que você citou, gostaria de saber se os parâmetros estão corretos e se possível explica-se o que significa esse retorno 5:

Obs. Sou iniciante na conexão com módulo HLLAPI, e estou tentando executar o script abaixo, porém esta retornando código 5 e infelizmente não é possível fazer contato com o desenvolvedor do Script para melhores detalhes.

'Import DLL -> libhllapi.dll
Extern.Declare micInteger, "hllapi", "libhllapi.dll", "", micByRef + micWord, micByRef + micString, micByRef + micWord, micByRef + micWord

Dim sessionName
Dim IP = ipservidor 'Aqui é declarado o host da empresa
sessionName = "Session"
windowTitle = sessionName & ":A"

' ===Título da janela terminal (emulador) ===
Private windowTitle
' === Objeto - correspendente ao emulador do terminal ===
Public Property Get TerminalWindow

' ===Este trecho abaixo retorna 5, consigo avançar nas outras telas do terminal.
'Set TerminalWindow = Window("regexpwndtitle:="& IP, "regexpwndclass:=gdkWindowToplevel", _
' "is owned window:=False", "is child window:=False")

' ===Este trecho abaixo retorna 0, porém não consigo avançar com as telas seguintes pois é retornado códigos <>0
Set TerminalWindow = Window("RegExpWndTitle:=" & windowTitle, "RegExpWndClass:=gdkWindowToplevel", _
"is owned window:=False", "is child window:=False")
End Property


' Função que retornara os valores acima
' Gostaria de entender esses parâmetros dessa função
Function Sync(timeout)
Dim p1, p2, p3, p4, ret, i
p1 = 4
p2 = ""
p3 = 0
p4 = 0
For i = 1 To timeout
ret = Extern.hllapi(p1,p2,p3,p4)
Select Case CLng(ret)
Case 5
Wait 1
Case 0
Sync = True
Exit Function
Case Else
Sync = False
Exit Function
End Select
Next
Sync = False
End Function