voila jais réussi a allumer une diode avec un programme Autoit j'explique:
PS :télécharger mon shema en bas du message avant le fichier inpout32.dll requis par le script.
ATTENTION ! : essayer avent sur un vieux PC et connecter la prise au dernier moment (je ne voudrait pas que votre PC ne fonctionne plus par ma faute)
1- démonter la prise mal d'une rallonge pour port parallèle, et repérer les fils.(ne pas utiliser de prise mouler)
lien :numéro et correspondance des broche
http://www.aurel32.net/elec/port_parallele.php
2- démonter une diode (voyant vert ou rouge d'un vieux PC)
3- connecter le moins de la diode (souvent repérer d'une couleur blanche ou noir) sur la broche 18,19,20,21,22,23,24 ou 25 du port parallèle.
4- puis le plus de la diode (souvent repérer d'une couleur verte ou rouge pour la diode HDD) sur la broche 2 du port parallèle.
5- lancer le script ci dessous en laissent les valeurs sur 0 et terminer par OK
6- brancher maintenant la prise derrière votre PC
7- relancer le script mais cette fois changer la première valeurs par 1 (correspondant a la broche deux du port parallèle.)
et voila la diode doit normalement s'allumer
Code : Tout sélectionner
#Include <Constants.au3>
Opt("TrayMenuMode", 1)
$DLLFileAndPath = @ScriptDir & "/inpout32.dll"; remove the @ScriptDir & leading backslash if you prefer to keep the DLL in your system directory
$PortAddress = "0x378"
$CustomSettings = InputBox("Custom Bit Settings", "Enter data bit settings required" & @CRLF & @CRLF & "Bits are in order, Bit0 -> Bit 7" & @CRLF & @CRLF & "Enter values as 0 (Low) or 1 (High)", "0,0,0,0,0,0,0,0")
$BitArray = StringSplit($CustomSettings, ",")
SetLPTPortPins($PortAddress, $BitArray[1], $BitArray[2], $BitArray[3], $BitArray[4], $BitArray[5], $BitArray[6], $BitArray[7], $BitArray[8])
Func SetLPTPortPins($WriteAddress, $Bit0, $Bit1, $Bit2, $Bit3, $Bit4, $Bit5, $Bit6, $Bit7)
$BCD = 0
If $Bit0 = 1 Then $BCD = $BCD + 1
If $Bit1 = 1 Then $BCD = $BCD + 2
If $Bit2 = 1 Then $BCD = $BCD + 4
If $Bit3 = 1 Then $BCD = $BCD + 8
If $Bit4 = 1 Then $BCD = $BCD + 16
If $Bit5 = 1 Then $BCD = $BCD + 32
If $Bit6 = 1 Then $BCD = $BCD + 64
If $Bit7 = 1 Then $BCD = $BCD + 128
DllCall( $DLLFileAndPath, "int", "Out32", "int", $WriteAddress, "int", $BCD)
EndFunc
[/horsujet]
