Neste exercício, vamos criar um script para alterar os simuladores acessados através da porta TCP/IP configurada.

1.Na Tela inicial, insira um Botão de Comando.

2.Selecione a aba Scripts e crie um novo script no evento Click.

3.Insira o código a seguir.

Set driver = Application.GetObject("Driver1")
Set porta = Application.GetObject("Driver1.[IO.Ethernet.MainPort]")
' Coloca o Driver em modo Offline
driver.Write -1, 0, 0, 4, 0
' Muda a porta TCP/IP
If porta.value  = 502 Then
  porta.WriteEx 503
Else
  porta.WriteEx 502
End If
' Coloca o Driver em modo Online
driver.Write -1, 0, 0, 4, 1

4.Execute a aplicação e teste as novas funcionalidades.