Habe es mit meinen Daten ausprobiert und arbeitet einwandfrei.
Somit gebe ich Oscar mal recht.
Ist der Router und der PC richtig eingestellt?
Beiträge von Alina
-
-
Bitte mal den ganzen Code posten.
-
..wie das machen?
Ein Captcha ist dafür da es auch auszufüllen. Es zu umgehen ist nicht rechtens.
-
GtaSpider
Ich installiere auch immer als erstes den Total Commander. Leichter geht alles weitere nicht zu erledigen.
Kann man dort eigentlich die FTP-Angaben irgendwie sichern?Ansonsten habe ich so viele Programme auf meinem Computer, das ich die hier gar nicht alle aufzählen kann.
Aber hier eine kleine unvollständige Auflistung:
Autoit
Scite
Koda
Adobe Flash Player
Adobe Acrobat Reader and Writer (u. a. PDF-Formularerstellungsprogramm)
Adobe Photoshop
ScanWise
PowerDVD
Acronis True Image
Nero
WinRAR
AIDA32
Firefox
MS Office
BRAGO und BNotO Software
VPN Software -
Rechtsberatung: Ja, findet man doch glatt bei Google ausreichend Seiten mit Links
Ansonsten reicht ein Anruf bei der zuständigen RA-Kammer zu finden hier.Rechtsberatung sollte man grundsätzlich den Menschen überlassen, die es gelernt haben.
-
Du schreibst oben "Pullup zwischen Eingang und +5V ". Aber es gibt doch keine +5V. Da fließt doch kein Strom.
Bin ich wurklich hirnblond? Denke, das man nur dort Widerstände braucht, wo auch Strom fließt.
Also PIN 13 hat kein Strom und die "Brücke" geht gegen Masse. So habe ich das verstanden.Kann das einer mal für "Blondinen" erklären?
Was mir nur aufgefallen ist, das er genau umgekehrt arbeitet. Ist der Schalter auf ON (Kabel sind somit verbunden) ist bildlich das Fenster / die Tür auf. Ist der Schalter auf OFF (Kabel sind somit nicht verbunden) ist bildlich das Fenster / die Tür zu. Aber das sollte man doch hinbekommen. Ich glaube ich drehe die Meldungen / Aktionen um. Mal sehen ob das machbar ist.
Schalter hat unter drei Beinchen: 1-2-3
1 = Kabelende von Pin 20
2 = Kabelende von Pin 13
3 = leer1-2 = Kabel verbunden
2-3 0 Kabel sind getrennt -
@ ohforf
Vielen Dank, das war dann wohl wirklich der Fehler.
Aber ein Widerstand braucht man doch nicht, oder?
-
-
Willkommen und viel Spaß im Forum.
-
Willkommen und viel Spaß im Forum.
-
Moin Moin zusammen.
Ich habe folgendes Script und die Pin's 13 & 25 wie auf Bild-1"verdrahtet:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; Domain anpassen !!!
; zugesendet von Pico (ehem. Forum aktiv)#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include-once
#include <string.au3>
#include <array.au3>
#Include <Constants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#include <GuiConstantsEx.au3>
#include <GUIConstants.au3>
#include <WinAPI.au3>
Opt("TrayMenuMode", 1)
FileWriteLine("AlarmBasic.log", @CRLF & @CRLF & ":::::::::Inicio de Actividades: " & @MDAY & "-" & @MON & "-" & @YEAR & "_" & @HOUR & ":" & @MIN & ":" & @SEC & ":::::::::")Global Enum $GUI_EN_TITLE_SLIDE, $GUI_EN_TITLE_DROP
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global Const $GUI_EN_ANI_EXPLODE = 0x40010
Global Const $GUI_EN_ANI_TO_BOTTOMRIGHT = 0x50005
FileInstall("Logo.bmp",@ScriptDir & "\Logo.bmp",1)
Func _GUIEnhanceAnimateWin($hWnd, $iTimeMs, $iType)
Local $aRet = DllCall("user32.dll", "int", "AnimateWindow", "hwnd", $hWnd, "int", $iTimeMs, "long", $iType)
If $aRet[0] = 0 Then Return SetError(1, 0, 0)
Return 1
EndFunc
Func _GUIEnhanceAnimateTitle($hWnd, $sTitle, $iType = 0, $vParam1 = Default, $vParam2 = Default)
If Not WinExists($hWnd) Then Return SetError(1, 0, 0)
Switch $iType
Case $GUI_EN_TITLE_SLIDE
Local $sStr, $iCounter, $iBuf = $vParam1, $asTitle, $sStartChr = $vParam2
If $vParam1 = Default Then $iBuf = 100
If $vParam2 = Default Then $sStartChr = " "
If Not IsInt($iBuf) Then Return SetError(2, 0, 0)
$asTitle = StringSplit($sTitle, "")
For $iCounter = $iBuf To 0 Step - 1
WinSetTitle($hWnd, "", _StringRepeat($sStartChr, $iCounter) & $asTitle[1])
Next
Local $sStr
For $iCounter = 1 To $asTitle[0]
$sStr &= $asTitle[$iCounter]
WinSetTitle($hWnd, "", $sStr)
Sleep(5)
Next
Return 1
Case $GUI_EN_TITLE_DROP
Local $asTitle = StringSplit($sTitle, ""), $iCounter
Local $aiPlaced[$asTitle[0] + 1], $iCompleteTest = 0
Local $iRand, $sTemp, $sStartChr = $vParam1, $iSleep = $vParam2
If $vParam1 = Default Then $sStartChr = "_"
If $vParam2 = Default Then $iSleep = 50
If StringLen($sStartChr) <> 1 Then Return SetError(2, 0, 0)
WinSetTitle($hWnd, "", _StringRepeat($sStartChr, $asTitle[0]))
Do
Do
$iRand = Random(1, $asTitle[0], 1)
Until $aiPlaced[$iRand] = 0
$sTemp = StringLeft(WinGetTitle($hWnd), $iRand - 1)
$sTemp &= $asTitle[$iRand]
$sTemp &= StringRight(WinGetTitle($hWnd), $asTitle[0] - $iRand)
WinSetTitle($hWnd, "", $sTemp)
$aiPlaced[$iRand] = 1
$iCompleteTest = 0
For $iCounter = 1 To $asTitle[0]
$iCompleteTest += $aiPlaced[$iCounter]
Next
Sleep($iSleep)
Until $iCompleteTest = $asTitle[0]
Return 1
EndSwitch
EndFunc
Func _GUIEnhanceCtrlFade($Ctrl, $iTime, $fColor, $fBkColor, $iStartColor, $iEndColor, $iStep = 25)
If Not $fColor And Not $fBkColor Then Return SetError(1, 0, 0)
If Not IsArray($Ctrl) Then
Local $aCtrl[1] = [$Ctrl]
Else
Local $aCtrl = $Ctrl
EndIf
Local $aiGradient = __ColorGradient($iStartColor, $iEndColor, $iStep)
For $iCounter = 1 To $iStep
For $i = 0 To UBound($aCtrl) - 1
If $fColor Then GUICtrlSetColor($aCtrl[$i], $aiGradient[$iCounter - 1])
If $fBkColor Then GUICtrlSetBkColor($aCtrl[$i], $aiGradient[$iCounter - 1])
Next
Sleep($iTime / $iStep)
Next
Return 1
EndFunc
Func _GUIEnhanceCtrlDrift($hWnd, $Ctrl, $iX, $iY, $iStep = 1)
If Not WinExists($hWnd) Then Return SetError(1, 0, 0)
Local $aOldPos = ControlGetPos($hWnd, "", $Ctrl)
Local $iXOld = $aOldPos[0]
Local $iYOld = $aOldPos[1]
Local $fSteep = Abs($iY - $iYOld) > Abs($iX - $iXOld)
Local $aPoints[1][2]
Local $iOldX = $iX, $iOldY = $iY, $iYVal, $iYStep
Local $iDeltaX, $iDeltaY, $iError, $iDeltaError
If $fSteep Then
__Swap($iXOld, $iYOld)
__Swap($iX, $iY)
EndIf
If $iXOld > $iX Then
__Swap($iXOld, $iX)
__Swap($iYOld, $iY)
EndIf
$iDeltaX = $iX - $iXOld
$iDeltaY = Abs($iY - $iYOld)
$iError = 0
$iDeltaError = $iDeltaY / $iDeltaX
$iYVal = $iYOld
If $iYOld < $iY Then
$iYStep = 1
Else
$iYStep = -1
EndIf
For $iXVal = $iXOld To $iX
If $fSteep Then
ReDim $aPoints[UBound($aPoints) + 1][2]
$aPoints[UBound($aPoints) - 1][0] = $iYVal
$aPoints[UBound($aPoints) - 1][1] = $iXVal
Else
ReDim $aPoints[UBound($aPoints) + 1][2]
$aPoints[UBound($aPoints) - 1][0] = $iXVal
$aPoints[UBound($aPoints) - 1][1] = $iYVal
EndIf
$iError = $iError + $iDeltaError
If $iError >= 0.5 Then
$iYVal = $iYVal + $iYStep
$iError = $iError - 1
EndIf
Next
If $aPoints[1][0] = $iOldX And $aPoints[1][1] = $iOldY Then
For $iPoint = UBound($aPoints) - 1 To 1 Step $iStep * - 1
ControlMove($hWnd, "", $Ctrl, $aPoints[$iPoint][0], $aPoints[$iPoint][1])
Sleep(1)
Next
ControlMove($hWnd, "", $Ctrl, $aPoints[1][0], $aPoints[1][1])
Else
For $iPoint = 1 To UBound($aPoints) - 1 Step $iStep
ControlMove($hWnd, "", $Ctrl, $aPoints[$iPoint][0], $aPoints[$iPoint][1])
Sleep(1)
Next
ControlMove($hWnd, "", $Ctrl, $aPoints[UBound($aPoints) - 1][0], $aPoints[UBound($aPoints) - 1][1])
EndIf
Return 1
EndFunc
Func __Swap(ByRef $va, ByRef $vb)
Local $vTemp
$vTemp = $va
$va = $vb
$vb = $vTemp
EndFunc
Func __ColorGradient($hInitialColor, $hFinalColor, $iReturnSize)
Local $iNowRed, $iNowBlue, $iNowGreen
$hInitialColor = Hex($hInitialColor, 6)
$hFinalColor = Hex($hFinalColor, 6)
Local $iRed1 = Dec(StringLeft($hInitialColor, 2))
Local $iGreen1 = Dec(StringMid($hInitialColor, 3, 2))
Local $iBlue1 = Dec(StringMid($hInitialColor, 5, 2))
Local $iRed2 = Dec(StringLeft($hFinalColor, 2))
Local $iGreen2 = Dec(StringMid($hFinalColor, 3, 2))
Local $iBlue2 = Dec(StringMid($hFinalColor, 5, 2))
Local $iPlusRed = ($iRed2 - $iRed1) / ($iReturnSize - 1)
Local $iPlusBlue = ($iBlue2 - $iBlue1) / ($iReturnSize - 1)
Local $iPlusGreen = ($iGreen2 - $iGreen1) / ($iReturnSize - 1)
Dim $iColorArray[$iReturnSize]
For $i = 0 To $iReturnSize - 1
$iNowRed = Floor($iRed1 + ($iPlusRed * $i))
$iNowBlue = Floor($iBlue1 + ($iPlusBlue * $i))
$iNowGreen = Floor($iGreen1 + ($iPlusGreen * $i))
$iColorArray[$i] = Dec(Hex($iNowRed, 2) & Hex($iNowGreen, 2) & Hex($iNowBlue, 2))
Next
Return $iColorArray
EndFunc$GUI = GUICreate("", 294, 112)
[/autoit] [autoit][/autoit] [autoit]
$label1 = GUICtrlCreateLabel(" Gn7 Soft - 2008", 42, 10)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
$label4 = GUICtrlCreateLabel(" Alarm Basic v0.1 - Iniciando", 17, 46, -1, 16)
GUICtrlSetResizing(-1, $GUI_DOCKALL)
GUICtrlCreatePic("logo.bmp", 170, 0, 124, 112)
$Label2 = GUICtrlCreateLabel("Gn7.com.ar", 17, 30, 137, 39)
GUICtrlSetFont(-1, 18, 800, 0, "Comic Sans MS")
GUICtrlSetState($label2, $GUI_HIDE)GUICtrlSetResizing(-1, $GUI_DOCKALL)
[/autoit] [autoit][/autoit] [autoit]_GUIEnhanceAnimateWin ($GUI, 500, $GUI_EN_ANI_EXPLODE)
[/autoit] [autoit][/autoit] [autoit]
GUISetState()
Local $aiTemp[2] = [0, 0]
ClientToScreen($GUI, $aiTemp[0], $aiTemp[1])
Global $bgcolor = PixelGetColor($aiTemp[0], $aiTemp[1])
ConsoleWrite($bgcolor & @CRLF)
GUICtrlSetColor($label2, $bgcolor)
_GUIEnhanceAnimateTitle ($GUI, "Alarm Basic v0.1 :: _Gn7", $GUI_EN_TITLE_DROP)
Sleep(5)
_GUIEnhanceCtrlFade ($label1, 100, True, False, $bgcolor, 0x000000)
_GUIEnhanceCtrlFade ($label4, 200, False, True, $bgcolor, 0x000000)
_GUIEnhanceCtrlFade ($label4, 200, True, False, 0x000000, 0xFF0000)
_GUIEnhanceCtrlFade ($label4, 200, False, True, 0x000000, $bgcolor)
_GUIEnhanceCtrlFade ($label1, 200, False, True, $bgcolor, 0x000000)
_GUIEnhanceCtrlFade ($label1, 200, True, False, 0x000000, 0xFF0000)
_GUIEnhanceCtrlFade ($label1, 200, False, True, 0x000000, $bgcolor)
_GUIEnhanceCtrlDrift ($GUI, $label4, 17, 79)
GUICtrlSetState($label2, $GUI_SHOW)
_GUIEnhanceCtrlFade ($label2, 100, True, False, $bgcolor, 0x000000)
_GUIEnhanceAnimateTitle ($GUI, "Alarm Basic v0.1 :: 2008", $GUI_EN_TITLE_SLIDE)
Sleep(2000)
_GUIEnhanceAnimateWin ($GUI, 600, $GUI_EN_ANI_TO_BOTTOMRIGHT)
;Aqui acaban ==>
GUIDelete()
;FileDelete("Logo.bmp") ; ----------------------------------------------------------------------------------------------------------------------------
Sleep(50)
TrayTip("Sensor Iniciado - Menu", "Aqui tienes todos los controles del menu disponibles.", 7, 1)#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]Aqui empiezan las funciones internas del scipt
[/autoit] [autoit][/autoit] [autoit]#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];Establecemos las variables
[/autoit] [autoit][/autoit] [autoit]
$DLLyRuta = @ScriptDir & "\inpout32.dll"; eliminar @ScriptDir si queres mantener el archivo DLL en el directorio del sistema para no tener que tenerlo en el mismo directorio donde esta el script
$DireccionDelPuerto = "0x378"; el valor por defecto LPT1 en la mayoría de las máquinas
;calcula el registro de direcciones
Dim $EstadoDelRegistroDeDirecciones, $ControlDeDireccionDelPuerto
CalcularRegistroDeDirecciones($DireccionDelPuerto);prueba si existe la DLL requerida
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
If FileExists($DLLyRuta) = 0 Then
MsgBox(0, "Falta DLL requerida", "Falta la Dll requerida ubicada en '" & $DLLyRuta & "'. No se puede continuar." & @CRLF & @CRLF & "Descargar la DLL desde http://home.arcor.de/crazyalina/inpout32.dll")
Exit
EndIf;se crean los menues en la badeja del sistema
[/autoit] [autoit][/autoit] [autoit]
TrayCreateItem(" ,.-~*'¨¯¨'*·~-.¸-(.·´¯`·«¤°""°¤»·´¯`·.)-,.-~*'¨¯¨'*·~-.¸")
TrayCreateItem("°º¤ø,¸¸,ø¤º°`°º¤ø,¸ ALARM® BASIC PP - Gn7 ¸,ø¤º°`°º¤ø,¸¸,ø¤º°")
TrayCreateItem(" °(*)(_.·´¯`·«¤°""°¤»·´¯`·._)(*)°")
TrayCreateItem("")
$selecciont = TrayCreateItem(" Personalizar el sonido de la alarma")
TrayCreateItem("")
$alarmstop = TrayCreateItem(" Detener sonido (solo el que se esta reproduciendo)")
$test = TrayCreateItem(" Probar sonido")
TrayCreateItem("")
$leer = TrayCreateItem(" Leer info almacenada del Log")
TrayCreateItem("")
$visitar = TrayCreateItem(" Web ")
$about = TrayCreateItem(" Acerca de AlarmBasic PP...")
TrayCreateItem("")
$exititem = TrayCreateItem(" Salir del Programa")
TraySetState()While 1
[/autoit] [autoit][/autoit] [autoit]
Sleep ( 10 )
;Lee el registro de estado
$GamaDeEstadoDelRegistro = LeerEstadoDelPuerto($EstadoDelRegistroDeDirecciones)
$VisorDeCadenasDelRegistro = "Registro de estado @ " & $EstadoDelRegistroDeDirecciones & "Bit4 = " & $GamaDeEstadoDelRegistro[4] & " (Pin 13)"
If $GamaDeEstadoDelRegistro[4] = "0" Then
;Aca se formulan las acciones que realizara cuando sea accionada la alarma
FileWriteLine("AlarmBasic.log", "Hora del intento: " & @HOUR & ":" & @MIN & ":" & @SEC)
$File = IniRead("Settings.ini","Sonido", "Seleccion", "default")
SoundPlay($File)
TrayTip("Intento detectado", "Hora = " & @HOUR & ":" & @MIN & ":" & @SEC, 10, 1)
EndIf
$msg = TrayGetMsg()
Select
Case $msg = $exititem
Exit
Case $msg = $leer
Run("notepad.exe AlarmBasic.log")
Case $msg = $alarmstop ;Detiene el sonido cuando se esta reproduciendo
SoundPlay("")
Case $msg = $test ;Probar sonido
SoundPlay($File)
Case $msg = $visitar
$oIE=ObjCreate("InternetExplorer.Application.1")
With $oIE
.Visible=1
.Top = (@DesktopHeight-400)/2
.Height=400
.Width=600
.Silent=1
$IEWnd=HWnd(.hWnd)
EndWith
$EventObject=ObjEvent($oIE,"IEEvent_","DWebBrowserEvents")
$URL = "http://home.arcor.de/crazyalina/"
$oIE.Navigate( $URL )
sleep(1000)
Case $msg = $about ;informacion sobre el programa
MsgBox(64,"Acerca de","AlarmBasic PP v0.1" & @CRLF & @CRLF & "www.Gn7.com.ar" & @CRLF & "www.autoit.es" & @CRLF & @CRLF & "© 2008 por Gn7")
Case $msg = $selecciont ;variante para la eleccion de un sonido
$seleccion = FileOpenDialog("Puedes seleccionar archivos MP3's y WAV's", @DesktopDir & "\", "Archivos de Audio (*.mp3;*.wav)", 1 + 4 )
$date = FileExists("Settings.ini")
If $date = True Then
FileDelete("Settings.ini")
Sleep(250)
IniWrite("Settings.ini", "Sonido", "Seleccion", $seleccion) ;escribe los datos del sonido elegido
MsgBox(64,"OK","Como tu quieras.")
EndIf
If $date = False Then
IniWrite("Settings.ini", "Sonido", "Seleccion", $seleccion)
MsgBox(64,"Exito","Has seleccionado correctamente el archivo.")
EndIf
EndSelectWEnd
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit] [autoit][/autoit] [autoit];Funciones del puerto paralelo -> XD donde ocurre la acción!
[/autoit] [autoit][/autoit] [autoit]
Func LeerEstadoDelPuerto($LeerDireccion)
;Lee el puerto de registro (devuelve un valor BCD)
$EstadoActualDelPuerto = DllCall($DLLyRuta, "int", "Inp32", "int", $LeerDireccion)
$EstadoParaDecodificar = $EstadoActualDelPuerto[0]
;convierte el estado del bit y registra en serie
Dim $LeerBits[9]; [0] -> [7] los bits decodificados, [8] el valor raw de BCD
$LeerBits[8] = $EstadoActualDelPuerto[0]
$BitActual = 128
For $ContraBit = 7 To 0 Step - 1
If $EstadoParaDecodificar >= $BitActual Then
$LeerBits[$ContraBit] = 1
$EstadoParaDecodificar = $EstadoParaDecodificar - $BitActual
Else
$LeerBits[$ContraBit] = 0
EndIf
$BitActual = $BitActual / 2
Next
;prueba si la decodificacion obtenida es correcta
If $EstadoParaDecodificar <> 0 Then
MsgBox(0, "Error en decodificacion", "Error al decodificar puerto '" & $DireccionDelPuerto & "' registro '" & $LeerDireccion & " estado '" & $EstadoActualDelPuerto[0] & "' bits. No se basan en los resultados.")
EndIf
Return $LeerBits
EndFunc ;==>LeerEstadoDelPuertoFunc CalcularRegistroDeDirecciones($DireccionBase)
[/autoit] [autoit][/autoit] [autoit]
;calcula la condición del registro de la dirección
$RawHex = Hex(Dec(StringTrimLeft($DireccionBase, 2)) + 1)
While 1
If StringLeft($RawHex, 1) = "0" Then
$RawHex = StringTrimLeft($RawHex, 1)
Else
ExitLoop
EndIf
WEnd
$EstadoDelRegistroDeDirecciones = "0x" & $RawHex
EndFunc ;==>CalcularRegistroDedireccionesFunc ClientToScreen($hwnd, ByRef $x, ByRef $y)
[/autoit] [autoit][/autoit] [autoit]
Local $stPoint = DllStructCreate("int;int")DllStructSetData($stPoint, 1, $x)
[/autoit] [autoit][/autoit] [autoit]
DllStructSetData($stPoint, 2, $y)DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hwnd, "ptr", DllStructGetPtr($stPoint))
[/autoit] [autoit][/autoit] [autoit]$x = DllStructGetData($stPoint, 1)
[/autoit]
$y = DllStructGetData($stPoint, 2)
$stPoint = 0
EndFunc
Bild-1:
autoit.de/wcf/attachment/12938/Egal ob ich Pin 13 und 25 überbrücke oder nicht (On/Off Schalter verwendet) es kommt folgende Meldung:
autoit.de/wcf/attachment/12939/Und wenn ich dann auf "klicken Sie hier." klicke kommt folgende Meldung:
autoit.de/wcf/attachment/12940/Wenn ich dort auf das erste "klicken Sie hier." klicke, sieht der "Problembericht wie folgt aus:
Spoiler anzeigen
<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="AlarmBasic_libreriaX_Inluida.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="AlarmBasic_libreriaX_Inluida.exe" SIZE="859944" CHECKSUM="0x79148E05" BIN_FILE_VERSION="3.3.6.1" BIN_PRODUCT_VERSION="3.3.6.1" FILE_DESCRIPTION="" FILE_VERSION="3, 3, 6, 1" VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x0" MODULE_TYPE="WIN32" PE_CHECKSUM="0xA4491" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="3.3.6.1" UPTO_BIN_PRODUCT_VERSION="3.3.6.1" LINK_DATE="04/16/2010 07:47:33" UPTO_LINK_DATE="04/16/2010 07:47:33" VER_LANGUAGE="Englisch (Großbritannien) [0x809]" />
<MATCHING_FILE NAME="INPOUT32.DLL" SIZE="27648" CHECKSUM="0x69FF11E3" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="06/19/1992 22:22:17" UPTO_LINK_DATE="06/19/1992 22:22:17" />
</EXE>
<EXE NAME="inpout32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="INPOUT32.DLL" SIZE="27648" CHECKSUM="0x69FF11E3" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="06/19/1992 22:22:17" UPTO_LINK_DATE="06/19/1992 22:22:17" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="1057280" CHECKSUM="0xD52AA7B7" BIN_FILE_VERSION="5.1.2600.2180" BIN_PRODUCT_VERSION="5.1.2600.2180" PRODUCT_VERSION="5.1.2600.2180" FILE_DESCRIPTION="Client-DLL für Windows NT-Basis-API" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Betriebssystem Microsoft® Windows®" FILE_VERSION="5.1.2600.2180 (xpsp_sp2_rtm.040803-2158)" ORIGINAL_FILENAME="kernel32" INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Microsoft Corporation. Alle Rechte vorbehalten." VERFILEDATEHI="0x0" VERFILEDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x108430" LINKER_VERSION="0x50001" UPTO_BIN_FILE_VERSION="5.1.2600.2180" UPTO_BIN_PRODUCT_VERSION="5.1.2600.2180" LINK_DATE="08/04/2004 07:57:08" UPTO_LINK_DATE="08/04/2004 07:57:08" VER_LANGUAGE="Deutsch (Deutschland) [0x407]" />
</EXE>
</DATABASE>Was ist falsch? Wenn ich den ON/OFF SCHALTER auf ON habe ist alles okay, schalte ich ihn auf OFF (demo: Tür auf), soll ja eine Alarmmeldung kommen. Oder irre ich mich? Neeee, das kann doch gar nicht sein. Bilder sagen doch mehr als ...
Habe nämlich noch folgende Bilder:
(habe nicht in Erfahrung bringen können ob es der weiblich oder männliche Teil ist auf diesem Bild)
autoit.de/wcf/attachment/12941/autoit.de/wcf/attachment/12942/Leider ist der, von dem ich das Script habe nicht mehr aktiv im Forum unterwegs, da er für achtzehn Monate im Entwicklungsdienst (Afrika) ist. Habe das Script eigentlich schon sehr lange, nur erst seit heute den LPT Stecker (männlicher Aufsetztstecker) mit dem ON/OFF Schalter bekommen.
Naja, vielleicht bekommt man das Script ja noch zum laufen.
-
Oder du arbeitest mit einen Zähler in der Registry.
Folgendes Script müßte na klar noch angepaßt werden, aber es soll nur eine Anregung sein.Spoiler anzeigen
[autoit]
[/autoit]
$regread = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler")
If $regread < 4 Then
If $regread = "" Then
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", "1")
Else
$regread += 1
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", $regread)
EndIf
Else
MsgBox(0, "", "Bitte die aktuellen Daten in den Ordner xyz kopieren.")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\zaehler", "zaehler", "REG_SZ", "1")
EndIf -
Bin ich alleine mit dem Gedanken: "Was bzw. wo ist das Problem?".
Ich verstehe es nicht !!!
Aber wenn meine Zellen es richtig verstanden hätten, würden sie sagen, das es was für "WinWait und Konsorten" ist. -
Ermitteln den Titel vom Fenster, wenn dieser bereits unterschiedlich ist und reagiere dementsprechend.
Bsp. aus der Hilfe:Spoiler anzeigen
[autoit]
[/autoit]
$title = WinGetTitle("[CLASS:Notepad]", "")
MsgBox(0, "Der komplette Titel lautet:", $title)
Ansonsten:
Ermittel den Text des Fensters und reagiere dementsprechend.
Bsp. aus der Hilfe:Spoiler anzeigen
[autoit]
[/autoit]
$text = WinGetText("[CLASS:Notepad]", "")
MsgBox(0, "Der gelesene Text lautet:", $text)Und wenn Du eh gerade dabei bist, die Hilfe zu verwenden, kannst Du sie auch links downloaden,
speichern und schauen, was unter den beiden oberen Beispielen als Information steht.
Oder doch lieber was da drüber stehtCLASS kannst Du mit den AU3INFO Tool heraus finden.
Du solltest folgendes in der Hilfe nachlesen:
Autoit --> Allgemeines zu AutoIt --> Fenster-Titel und -texte (Grundlagen)
Autoit --> Allgemeines zu AutoIt --> Fenster-Titel und -texte (erweitert) -
Moin.
Sicherlich ausbaufähig, aber kannst ja erst einmal schauen:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; Script startet#include <Misc.au3>
[/autoit]
$MsgBoxValue = _MsgBoxChangeButtons(4, 'This is my msgbox', 'This' & @CRLF & 'Should' & @CRLF & 'Work', 'ReBoot', 'Continue')
If $MsgBoxValue = 6 Then
MsgBox(0, 'Clicked', 'You clicked the ReBoot Button')
Else
MsgBox(0, 'Clicked', 'You clicked the Continue Button')
EndIf
Func _MsgBoxChangeButtons($iFlag, $sTitle, $sText, $sButton1, $sButton2 = '', $sButton3 = '', $iMBTimeOut = 0)
Local $MBFile = FileOpen(@TempDir & '\MiscMMB.txt', 2)
Local $MBLine1 = 'While Not WinExists("' & $sTitle & '")'
Local $MBLine2 = ' Sleep(10)'
Local $MBLine3 = 'WEnd'
Local $MBLine4 = 'ControlSetText("' & $sTitle & '", "", "Button1", "' & $sButton1 & '")'
Local $MBLine5 = 'ControlSetText("' & $sTitle & '", "", "Button2", "' & $sButton2 & '")'
Local $MBLine6 = 'ControlSetText("' & $sTitle & '", "", "Button3", "' & $sButton3 & '")'
If $sButton2 = '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & @CRLF & $MBLine3 & @CRLF & $MBLine4)
ElseIf $sButton2 <> '' And $sButton3 = '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & _
@CRLF & $MBLine3 & @CRLF & $MBLine4 & @CRLF & $MBLine5)
ElseIf $sButton2 <> '' And $sButton3 <> '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & @CRLF & _
$MBLine3 & @CRLF & $MBLine4 & @CRLF & $MBLine5 & @CRLF & $MBLine6)
EndIf
$MBPID1 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & EnvGet('TEMP') & '\MiscMMB.txt')
$MBBox = MsgBox($iFlag, $sTitle, $sText, $iMBTimeOut)
FileClose($MBFile)
Do
FileDelete(@TempDir & '\MiscMMB.txt')
Until Not FileExists(@TempDir & '\MiscMMB.txt')
Return $MBBox
EndFuncDas ganze mit drei Buttons:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$MsgBoxValue = _MsgBoxChangeButtons(3, 'This is my msgbox', 'This' & @CRLF & 'Should' & @CRLF & 'Work', 'Re-Boot', 'Con-Tinue', 'E-Gal 88 66')
If $MsgBoxValue = 6 Then MsgBox(0, 'Clicked', 'You clicked the ReBoot Button')
If $MsgBoxValue = 1 Then MsgBox(0, 'Clicked', 'You clicked the 1ReBoot Button')
If $MsgBoxValue = 2 Then MsgBox(0, 'Clicked', 'You clicked the E-Gal 88 69 Button')
If $MsgBoxValue = 3 Then MsgBox(0, 'Clicked', 'You clicked the Re3Boot Button')
If $MsgBoxValue = 4 Then MsgBox(0, 'Clicked', 'You clicked the ReB4oot Button')
If $MsgBoxValue = 5 Then MsgBox(0, 'Clicked', 'You clicked the ReBo5ot Button')
If $MsgBoxValue = 7 Then MsgBox(0, 'Clicked', 'You clicked the Con-Tinue Button')Func _MsgBoxChangeButtons($iFlag, $sTitle, $sText, $sButton1, $sButton2 = '', $sButton3 = '', $iMBTimeOut = 0)
[/autoit] [autoit][/autoit] [autoit]
Local $MBFile = FileOpen(@TempDir & '\MiscMMB.txt', 2)
Local $MBLine1 = 'While Not WinExists("' & $sTitle & '")'
Local $MBLine2 = ' Sleep(10)'
Local $MBLine3 = 'WEnd'
Local $MBLine4 = 'ControlSetText("' & $sTitle & '", "", "Button1", "' & $sButton1 & '")'
Local $MBLine5 = 'ControlSetText("' & $sTitle & '", "", "Button2", "' & $sButton2 & '")'
Local $MBLine6 = 'ControlSetText("' & $sTitle & '", "", "Button3", "' & $sButton3 & '")'
If $sButton2 = '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & @CRLF & $MBLine3 & @CRLF & $MBLine4)
ElseIf $sButton2 <> '' And $sButton3 = '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & _
@CRLF & $MBLine3 & @CRLF & $MBLine4 & @CRLF & $MBLine5)
ElseIf $sButton2 <> '' And $sButton3 <> '' Then
FileWrite(@TempDir & '\MiscMMB.txt', $MBLine1 & @CRLF & $MBLine2 & @CRLF & _
$MBLine3 & @CRLF & $MBLine4 & @CRLF & $MBLine5 & @CRLF & $MBLine6)
EndIf
$MBPID1 = Run(@AutoItExe & ' /AutoIt3ExecuteScript ' & EnvGet('TEMP') & '\MiscMMB.txt')
$MBBox = MsgBox($iFlag, $sTitle, $sText, $iMBTimeOut)
FileClose($MBFile)
Do
FileDelete(@TempDir & '\MiscMMB.txt')
Until Not FileExists(@TempDir & '\MiscMMB.txt')
Return $MBBox
EndFunc;MsgBox
[/autoit] -
Willkommen und viel Spaß im Forum.
-
Willkommen und viel Spaß im Forum.
-
Also folgende Zeilen sollten selbsterklärend sein:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
#cs
BITTE LAUFWERKTSBUCHSTABEN ANPASSEN
siehe: http://www.autoit.de/index.php?page…2906#post212906
#ce
; Laufwerk-F "entfernen"
RegWrite("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "nodrives", "REG_DWORD", "32"); auslesen des Registryeintrag
[/autoit] [autoit][/autoit] [autoit]
$var_32 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "nodrives")MsgBox(0,"","Laufwert-F ist nach einem Neustart nicht mehr da")
[/autoit] [autoit][/autoit] [autoit]; Hier alle Laufwerke frei geben; Eintrag löschen und danach Neustart
[/autoit]
RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "nodrives") -
Hallo Eistee.
Hier mal wie man in die "Reg" schreiben, ändern und/oder lesen kann:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
; schreiben eines Registryeintrag
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test", "REG_SZ", "alt"); auslesen eines Registryeintrag
[/autoit] [autoit][/autoit] [autoit]
$var_alt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test"); Hier ändere ich den oben eingetragenen Registryeintrag von "alt" auf "neu"
[/autoit] [autoit][/autoit] [autoit]
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test", "REG_SZ", "neu"); auslesen des geänderten Registryeintrag
[/autoit]
$var_neu = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test") -
Folgende Info könnte helfen, wenn Du zum Beispiel zwei Laufwerke ausblenden möchtest.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
Relevanter Pfad in der Registry:
HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer, bzw. HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer wenn es eine Tattoende Systemrichtlinie ist (NT4 Domäne oder auch möglich in einer Standalone Umgebung).Relevanter Eintrag:
[/autoit] [autoit][/autoit] [autoit]
"nodrives" für "Diese angegebenen Datenträger im Arbeitsplatz ausblenden" und
"noviewondrive" für "Zugriff auf Laufwerke vom Arbeitsplatz nicht zulassen" beides sind Reg_DWords.Werte der einzelnen Laufwerks Buchstaben:
[/autoit] [autoit][/autoit] [autoit]
A: 1
B: 2
C: 4
D: 8
E: 16
F: 32
G: 64
H: 128
I: 256
J: 512
K: 1024
L: 2048
M: 4096
N: 8192
O: 16384
P: 32768
Q: 65536
R: 131072
S: 262144
T: 524288
U: 1048576
V: 2097152
W: 4194304
X: 8388608
Y: 16777216
Z: 33554432
Alle: 67108863Die Kombination der Laufwerke A:, C:, F:, G: und M: ergeben 4.198 als dezimnaler Wert eines der beiden REG_DWORDS.
[/autoit] [autoit][/autoit] [autoit]
4.198 = 1 (A) + 4 (C) + 32 (F) + 64 (G) + 4096 (M)Alle Laufwerke ausblenden, außer dem Basisverzeichnis (Homelaufwerk) z.B.: H: gerade bei TerminalServer häufig verwendet.
[/autoit] [autoit][/autoit] [autoit][/autoit]
67.108.735 = 67.108.863 (Alle) - 128 (H)