[VB.NET] Problema porta parallela

[Ricky_85]

Salve ragazzi,

sto provando a comunicare con la parallela ma mi sono intoppato.
Ho trovato un codice di esempio in giro per la rete ma ho qualche problema a farlo funzionare

Option Strict Off
Option Explicit On
Module InpOut32_Declarations
    Public Declare Function Inp Lib "inpout32.dll" Alias "Inp32" (ByVal PortAddress As Short) As Short
    Public Declare Sub Out Lib "inpout32.dll" Alias "Out32" (ByVal PortAddress As Short, ByVal Value As Short)
End Module


Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Out(&H378, &HFFS)           'Print '1' to D7-D0 or 255 in Decimal
        Dim Value1 As String           'String named Value1
        Value1 = Inp(&H378S)         'Now Value1 has the values in 'data port'
        MessageBox.Show(Value1)   'A popup will indicate the current value written
    End Sub
End Class

Premettendo che l'indirizzo della LPT sembra giusto quando cerco di spedire qualsiasi messaggio sulla porta si blocca il debug con un bel "Eccezione lanciata da un componente esterno." sulla linea di scrittura

 Out(&H378, &HFFS)           'Print '1' to D7-D0 or 255 in Decimal

Sembra che se ne freghi della presenza della DLL (che ovviamente è presente)

[Stoicenko]

Devi comunicare tramite porta COM seriale? perchè usare vecchie dll di win utilissime in vb6 ma totalmente estranee al mondo .net?

guarda il namespace System.IO.Ports e l'oggetto serialport

[Ricky_85]

Veramente sto provando la parallela