Tudo Sobre Eletronica: [java-br] Converter código VBA para JAVA

sexta-feira, 18 de dezembro de 2009

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

às 08:17 ·

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]