none
Fechar e abrir porta serial RRS feed

  • Pergunta

  • Boa tarde a todos.

    Gostaria de saber se é possivel criar um script para abrir e fechar uma porta serial?

     

    Atenciosamente,

    Ranisses

     

     

    quinta-feira, 13 de março de 2008 19:43

Respostas

  • Boa Tarde,

    Segue Script de exemplo, para abrir e fechar porta COM (VBScript).
    Initialize a modem using a direct COM port
    
    Set objComport = CreateObject( "ActiveXperts.Comport" )    ' Create a new Comport instance
    
    objComport.Device              = "COM1"                    ' Use a COM port directly  
    objComport.BaudRate            = 56000                     ' Set baudrate (default value: 9600)
    objComport.HardwareFlowControl = True                      ' Set Hardware Flow Control
    objComport.SoftwareFlowControl = False                     ' Set Software Flow Control
    objComport.Open                                            ' Open the port
    Wscript.Echo "Open, result: " & objComport.LastError
    If( objComport.LastError <> 0 ) Then
      WScript.Quit
    End If
    
    objComport.WriteString( "at&f" )                           ' Write command
    str = objComport.ReadString
    WScript.Echo "Received: [" & str & "]"                     ' Read the response
    
    objComport.Close  

    Abs

    * Ajude a organizar melhor o Fórum, dando Feedback sobre a dúvida solicitada, e marcando como Útil e como Resposta, a postagem dos colaboradores que resolveram o seu caso, ou foram úteis *

    domingo, 3 de junho de 2012 16:30
    Moderador