LPT von pc ausgeben ( 8 kanäke -- 0-255 bit)

;funktioniert nur, wenn skript mit Auto It V3.1 in exe konvertiert wird... keiner weis warum ...
;ansonsten schwerer Ausnahmefehler

$pfad = @WorkingDir&"\"

If FileExists( $pfad&"LPT1_von_PC_ausgeben.ini") Then
iniexists()
Else
MsgBox (4,"LPT1_von_PC_ausgeben","kann "& $pfad&"LPT1_von_PC_ausgeben.ini"&" nicht finden -- wird erstellt")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "255 ;hier den anzusteuernden Port eintragen")
iniWrite( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1 ; 1 für Ja -- 0 für NEIN")

exit
EndIf

Exit

;-------------

Func iniexists()

$schleife = IniRead( $pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "schleife", "1")

If $schleife = 1 Then
schleife()
ElseIf $schleife = 0 Then
nur_ein_mal()
Else
MsgBox(4,"LPT1_von_PC_ausgeben","Bitte in " & $pfad&"LPT1_von_PC_ausgeben.ini "&" schleife eintragen")
Exit
EndIf

Exit

EndFunc

;---------------------

Func nur_ein_mal()

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

EXIT

EndFunc

;----------------------

Func schleife()
While 1

$port = IniRead($pfad&"LPT1_von_PC_ausgeben.ini", "LPT1_0x378_out", "port", "0")

DllCall("InpOut32.dll","short","Out32","short",0x378,"short",$port,"short",0)

WEnd
EndFunc
Exit

in wie fern ... ???

ist ja dann n ganz anderer Befehl...

aber ok :: ich werd's mal testen.

aber so wie's oben abgebildet ist, funktioniert 's mit V3.1 ab V3.2 kommt ne Auto it Fehlermeldung.