Beiträge von Alina

  • Must Have Programme auf dem Rechner

    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

  • Alarmmeldung (LPT-1 = 0x378; PIN13/25)

    ohforf

    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 = leer

    1-2 = Kabel verbunden
    2-3 0 Kabel sind getrennt

  • Alarmmeldung (LPT-1 = 0x378; PIN13/25)

    Moin Moin zusammen.

    Ich habe folgendes Script und die Pin's 13 & 25 wie auf Bild-1"verdrahtet:

    Spoiler anzeigen
    [autoit]


    ; Domain anpassen !!!
    ; zugesendet von Pico (ehem. Forum aktiv)

    [/autoit] [autoit][/autoit] [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #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 & ":::::::::")

    [/autoit] [autoit][/autoit] [autoit]

    Global Enum $GUI_EN_TITLE_SLIDE, $GUI_EN_TITLE_DROP
    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

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    $GUI = GUICreate("", 294, 112)
    $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)

    [/autoit] [autoit][/autoit] [autoit]

    GUICtrlSetResizing(-1, $GUI_DOCKALL)

    [/autoit] [autoit][/autoit] [autoit]

    _GUIEnhanceAnimateWin ($GUI, 500, $GUI_EN_ANI_EXPLODE)
    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)

    [/autoit] [autoit][/autoit] [autoit]

    #cs ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    Aqui empiezan las funciones internas del scipt

    [/autoit] [autoit][/autoit] [autoit]

    #ce ----------------------------------------------------------------------------

    [/autoit] [autoit][/autoit] [autoit]

    ;Establecemos las variables
    $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)

    [/autoit] [autoit][/autoit] [autoit]

    ;prueba si existe la DLL requerida
    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

    [/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

    ;se crean los menues en la badeja del sistema
    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()

    [/autoit] [autoit][/autoit] [autoit]

    While 1
    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
    EndSelect

    [/autoit] [autoit][/autoit] [autoit]

    WEnd

    [/autoit] [autoit][/autoit] [autoit]

    Exit

    [/autoit] [autoit][/autoit] [autoit]

    ;Funciones del puerto paralelo -> XD donde ocurre la acción!
    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 ;==>LeerEstadoDelPuerto

    [/autoit] [autoit][/autoit] [autoit]

    Func CalcularRegistroDeDirecciones($DireccionBase)
    ;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 ;==>CalcularRegistroDedirecciones

    [/autoit] [autoit][/autoit] [autoit]

    Func ClientToScreen($hwnd, ByRef $x, ByRef $y)
    Local $stPoint = DllStructCreate("int;int")

    [/autoit] [autoit][/autoit] [autoit]

    DllStructSetData($stPoint, 1, $x)
    DllStructSetData($stPoint, 2, $y)

    [/autoit] [autoit][/autoit] [autoit]

    DllCall("user32.dll", "int", "ClientToScreen", "hwnd", $hwnd, "ptr", DllStructGetPtr($stPoint))

    [/autoit] [autoit][/autoit] [autoit]

    $x = DllStructGetData($stPoint, 1)
    $y = DllStructGetData($stPoint, 2)
    $stPoint = 0
    EndFunc

    [/autoit]


    Bild-1:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Egal ob ich Pin 13 und 25 überbrücke oder nicht (On/Off Schalter verwendet) es kommt folgende Meldung:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Und wenn ich dann auf "klicken Sie hier." klicke kommt folgende Meldung:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    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)
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist. Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    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.

  • Random Text

    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]


    $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

    [/autoit]

  • auf 2 Optionen prüfen mit WinWait

    Ermitteln den Titel vom Fenster, wenn dieser bereits unterschiedlich ist und reagiere dementsprechend.
    Bsp. aus der Hilfe:

    Spoiler anzeigen
    [autoit]


    $title = WinGetTitle("[CLASS:Notepad]", "")
    MsgBox(0, "Der komplette Titel lautet:", $title)

    [/autoit]


    Ansonsten:
    Ermittel den Text des Fensters und reagiere dementsprechend.
    Bsp. aus der Hilfe:

    Spoiler anzeigen
    [autoit]


    $text = WinGetText("[CLASS:Notepad]", "")
    MsgBox(0, "Der gelesene Text lautet:", $text)

    [/autoit]

    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 steht ;)

    CLASS 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)

  • Msgbox Ja Nei Ja,alle

    Moin.

    Sicherlich ausbaufähig, aber kannst ja erst einmal schauen:

    Spoiler anzeigen
    [autoit]


    ; Script startet

    [/autoit] [autoit][/autoit] [autoit]

    #include <Misc.au3>
    $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
    EndFunc

    [/autoit]

    Das ganze mit drei Buttons:

    Spoiler anzeigen
    [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')

    [/autoit] [autoit][/autoit] [autoit]

    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
    EndFunc

    [/autoit] [autoit][/autoit] [autoit]

    ;MsgBox

    [/autoit]

  • Festplatten ausblenden / Einblenden ?

    Also folgende Zeilen sollten selbsterklärend sein:

    Spoiler anzeigen
    [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")

    [/autoit] [autoit][/autoit] [autoit]

    ; auslesen des Registryeintrag
    $var_32 = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "nodrives")

    [/autoit] [autoit][/autoit] [autoit]

    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
    RegDelete("HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "nodrives")

    [/autoit]

  • Festplatten ausblenden / Einblenden ?

    Hallo Eistee.

    Hier mal wie man in die "Reg" schreiben, ändern und/oder lesen kann:

    Spoiler anzeigen
    [autoit]


    ; schreiben eines Registryeintrag
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test", "REG_SZ", "alt")

    [/autoit] [autoit][/autoit] [autoit]

    ; auslesen eines Registryeintrag
    $var_alt = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test")

    [/autoit] [autoit][/autoit] [autoit]

    ; Hier ändere ich den oben eingetragenen Registryeintrag von "alt" auf "neu"
    RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test", "REG_SZ", "neu")

    [/autoit] [autoit][/autoit] [autoit]

    ; auslesen des geänderten Registryeintrag
    $var_neu = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "Test")

    [/autoit]

  • Festplatten ausblenden / Einblenden ?

    Folgende Info könnte helfen, wenn Du zum Beispiel zwei Laufwerke ausblenden möchtest.

    Spoiler anzeigen
    [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).

    [/autoit] [autoit][/autoit] [autoit]

    Relevanter Eintrag:
    "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.

    [/autoit] [autoit][/autoit] [autoit]

    Werte der einzelnen Laufwerks Buchstaben:
    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: 67108863

    [/autoit] [autoit][/autoit] [autoit]

    Die Kombination der Laufwerke A:, C:, F:, G: und M: ergeben 4.198 als dezimnaler Wert eines der beiden REG_DWORDS.
    4.198 = 1 (A) + 4 (C) + 32 (F) + 64 (G) + 4096 (M)

    [/autoit] [autoit][/autoit] [autoit]

    Alle Laufwerke ausblenden, außer dem Basisverzeichnis (Homelaufwerk) z.B.: H: gerade bei TerminalServer häufig verwendet.
    67.108.735 = 67.108.863 (Alle) - 128 (H)

    [/autoit] [autoit][/autoit] [autoit][/autoit]