Macro Excel - VB para captura no pw3270
-
Marcel Tojevich
24 de Janeiro de 2016 às 14:34Boa 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 -
25 de Janeiro de 2016 às 21:04Olá,
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
> -
29 de Abril de 2016 às 18:22Boa tarde,Perry, vc poderia explicar resumidamente o que faz cada função?
Obrigado. -
6 de Maio de 2016 às 02:26Olá,Sim. Vou incluir como comentários no snippet
Em seg, 2 de mai de 2016 às 09:10, Carlos Castroescreveu:
> 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
> -
15 de Junho de 2016 às 16:18Perry,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
Ordenar por:
Estatísticas:
-
iniciada em
9 anos atrás
-
vizualizada
7151 vezes
-
respondida
5 vezes
-
votada
0 vezes