MSCOMM no VB.NET
05/08/2011
0
Tenho uma aplicação feita em VB.NET, onde na estação preciso acessar a porta "comm" da estação , porém ele está acessando a porta comm do servidor , como faço isso. É possível ? Segue abaixo o código fonte que estou usando. Sempre lembrando no servidor web roda normal, na estação do usuário é que ele acessa a porta comm do servidor .
Imports System.DataImports System.Data.OleDbImports System.IOImports System.IO.PortsImports System.IO.FileSystemInfoImports MSCommLibImports System.Runtime.InteropServicesImports System.TextImports Microsoft.VisualBasic.DevicesImports System.Threading
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click mscomm1 = New MSComm mscomm1.CommPort = 3 mscomm1.Settings = "9600,N,8,1" If mscomm1.PortOpen = False Then mscomm1.PortOpen = True Else mscomm1.PortOpen = False End If wnumtel = "ATDT" & " 21210101" mscomm1.Output = wnumtel & Chr(13) End Sub
Imports System.DataImports System.Data.OleDbImports System.IOImports System.IO.PortsImports System.IO.FileSystemInfoImports MSCommLibImports System.Runtime.InteropServicesImports System.TextImports Microsoft.VisualBasic.DevicesImports System.Threading
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click mscomm1 = New MSComm mscomm1.CommPort = 3 mscomm1.Settings = "9600,N,8,1" If mscomm1.PortOpen = False Then mscomm1.PortOpen = True Else mscomm1.PortOpen = False End If wnumtel = "ATDT" & " 21210101" mscomm1.Output = wnumtel & Chr(13) End Sub
Aguinaldo Filho
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)