Re: [java-br] Converter código VBA para JAVA

Kra, esse código tá usando um objeto COM.
Acho que nativamente Java não suporta COM.

Já vi algum produto na web que faz comunicação Java-COM, mas não era free.
Se não resolver isso, acho que nem adianta converter o código.

2009/12/18 Marcelo dos Santos Quaglioz <marceloquaglioz@tcpguide.net>

>
>
> Pessoal, me ajuda a converter o código abaixo.
> Já pesquisei na internet, mas não cheguei a uma conclusão.
>
> ' Declarações de variáveis globais
> Global g_HostSettleTime%
> Global g_szPassword$
>
> Sub Main()
> '----------------------------------------------------------
> ' Obtém o objeto principal do sistema.
> Dim Sessions As Object
> Dim System As Object
> Set System = CreateObject("EXTRA.System") ' Obtém o objeto do
> sistema.
> If (System is Nothing) Then
> Msgbox "Não foi possível criar o objeto EXTRA System. Anulando a
> reprodução da macro."
> STOP
> End If
> Set Sessions = System.Sessions
>
> If (Sessions is Nothing) Then
> Msgbox "Não foi possível criar o objeto de coleção Sessions.
> Anulando a reprodução da macro."
> STOP
> End If
> '----------------------------------------------------------
> ' Define o valor do tempo de espera padrão.
> g_HostSettleTime = 3000 ' milissegundos
>
> OldSystemTimeout& = System.TimeoutValue
> If (g_HostSettleTime > OldSystemTimeout) Then
> System.TimeoutValue = g_HostSettleTime
> End If
>
> ' Obtém o objeto Session necessário.
> Dim Sess0 As Object
> Set Sess0 = System.ActiveSession
> If (Sess0 is Nothing) Then
> Msgbox "Não foi possível criar o objeto Session. Anulando a
> reprodução da macro."
> STOP
> End If
> If Not Sess0.Visible Then Sess0.Visible = TRUE
> Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
>
> ' Essa seção de código contém os eventos registrados
> Sess0.Screen.Sendkeys("a<Enter>")
> Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
> Sess0.Screen.Sendkeys("a<Enter>")
> Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
> Sess0.Screen.Sendkeys("<Pf10>")
> Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
> Sess0.Screen.Sendkeys("<Pf12>")
> Sess0.Screen.WaitHostQuiet(g_HostSettleTime)
>
> System.TimeoutValue = OldSystemTimeout
> End Sub
>
> --
> http://chat.tcpguide.net
> http://blog.tcpguide.net
> http://forum.tcpguide.net
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>

[As partes desta mensagem que não continham texto foram removidas]

------------------------------------

Para sair da lista, envie email para: java-br-unsubscribe@yahoogroups.com
Para upload/download de arquivos: http://www.yahoogroups.com/files/java-brLinks do Yahoo! Grupos

<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/java-br/

<*> Para sair deste grupo, envie um e-mail para:
java-br-unsubscribe@yahoogrupos.com.br

<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html