Beiträge von muh_kuh

  • weblogon

    hallo
    es geht mit den script nicht
    da das Formular keine Namen hat
    ich glaube mit
    _IEFormGetCollection ( $o_object [, $i_index = -1] )
    geht es

    edit:
    war etwas zu spät
    sorry

  • vb zu autoit

    hallo
    wie kann ich das

    [autoit]

    Set dso = GetObject("LDAP:")
    Set ou = dso.OpenDSObject("LDAP://10.89.1.2:3268/dc=tomtec,dc=org", _
    "UEffinger", "geheim", 1)
    wscript.echo "Hallo"
    'For Each obj In ou
    ' WScript.Echo obj.name
    'Next

    [/autoit]


    Vb script in autoit ändern ?

  • sound aus

    Zitat

    Original von gtaspider
    Hallo!

    Oder SoundsetwaveVolume(0) wobei da nur die wave volume runtergedreht wird. Sonst noch mal im englischen forum suchen (meine lieblingsantwort :D )

    Mfg Spider


    geht leider nur bei SoundPlay ( "filename" [, wait] )

  • Wie Passwörter sicher einbinden?

    hallo
    ihrenwo gefunden
    leider keine quelle gespeichert

    Spoiler anzeigen
    [autoit]


    Func rot13($input)
    $output =
    $alphabet = "abcdefghijklmnopqrstuvwxyzabcdefghijklm"
    $alphabet = $alphabet & StringUpper($alphabet)
    $alphabet = $alphabet & " 0123456789 56789012345 "

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

    For $i = 1 to StringLen($input)
    $pos = StringInStr($alphabet, StringMid($input,$i,1) ,1)
    If $pos <> 0 Then
    $output = $output & StringMid($alphabet, $pos+13, 1)
    Else
    $output = $output & StringMid($input,$i,1)
    EndIf
    Next

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

    Return $output
    EndFunc

    [/autoit]

  • Wie Passwörter sicher einbinden?

    hallo
    die version 3.2.x soll doch garnicht mehr zum entschlüsseln sein
    da mir immer wieder welche beim ändern von programmen zuschauen
    ist es mit rot13 codirt
    so erkennt man es nicht auf den 1. blick
    weiter heisten die Variablen nicht $passwort sonder $zugang oder so was

  • LastChaos und die pixel suche ^^

    Hallo
    welches spiel ist es den ?

    uli

    p.s.
    habe es noch mal schöner angehänt

    Spoiler anzeigen
    [autoit]


    $count = 0
    HotKeySet("x", "MyExit")
    Dim $Coord
    Dim $NewColor
    WinWaitActive("LastChaos (Window 800x600)")

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

    While (1)
    While (1)
    $Coord = PixelSearch(252,196,768,487,0x5B9700,25,1)
    if @error <> 1 Then $NewColor = PixelGetColor($Coord[0]+3,$Coord[1])
    if Hex($NewColor, 6) = "5B9700" Then ExitLoop
    MouseClickDrag("right", 464, 332, 564, 332)
    Sleep(250)
    WEnd

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

    MouseClick("left", $Coord[0]+12, $Coord[1]+45, 7, 3)
    Send("{F1}") ; Der Skill der Benutzt werden soll.
    Sleep(10000)
    Send("{F3}") ;
    Sleep(12000)
    $NewColor = "0";
    WEnd

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

    Func MyExit()
    Exit
    EndFunc

    [/autoit]

  • IE GUI Func

    hallo
    warum geht :

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.0.1
    Author: Uli Effinger
    #ce ----------------------------------------------------------------------------
    $suche ="eis"
    #include <GUIConstants.au3>
    #include <IE.au3>
    $oIE = _IECreateEmbedded ()
    #Region ### START Koda GUI section ### Form=
    $Hauptseite = GUICreate("TomLeo ", 848, 544, 80, 115, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_RIGHT,$WS_EX_WINDOWEDGE))
    $GUIActiveX = GUICtrlCreateObj($oIE, 8, 48, 829, 481)
    $Konfi = GUICtrlCreateButton("Konfiguration", 756, 8, 89, 33, 0)
    $Test = GUICtrlCreateLabel ( "Gesucht wurde: "& $suche, 8, 10, 190, 33, 0)
    GUICtrlSetCursor ($Konfi, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $url = "http://autoit.aufwaerts.de/board.php?boardid=2"
    _IENavigate ($oIE, $url)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Konfi
    MsgBox(0,"Fehler","Ist noch nicht")
    EndSwitch
    WEnd
    GUIDelete()
    _IEQuit ($oIE)

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

    aber

    Spoiler anzeigen
    [autoit]

    #cs ----------------------------------------------------------------------------
    AutoIt Version: 3.2.0.1
    Author: Uli Effinger
    #ce ----------------------------------------------------------------------------
    test("eis")
    Exit
    func test($suche)
    #include <GUIConstants.au3>
    #include <IE.au3>
    $oIE = _IECreateEmbedded ()
    #Region ### START Koda GUI section ### Form=
    $Hauptseite = GUICreate("TomLeo ", 848, 544, 80, 115, BitOR($WS_SYSMENU,$WS_CAPTION,$WS_POPUPWINDOW,$WS_BORDER,$WS_CLIPSIBLINGS), BitOR($WS_EX_RIGHT,$WS_EX_WINDOWEDGE))
    $GUIActiveX = GUICtrlCreateObj($oIE, 8, 48, 829, 481)
    $Konfi = GUICtrlCreateButton("Konfiguration", 756, 8, 89, 33, 0)
    $Test = GUICtrlCreateLabel ( "Gesucht wurde: "& $suche, 8, 10, 190, 33, 0)
    GUICtrlSetCursor ($Konfi, 0)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $url = "http://pda.leo.org/?lp=ende&lang=de&searchLoc=0&cmpType=relaxed&relink=on&sectHdr=on&spellToler=std&search="& $suche
    _IENavigate ($oIE, $url)
    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Konfi
    MsgBox(0,"Fehler","Ist noch nicht")
    EndSwitch
    WEnd
    GUIDelete()
    _IEQuit ($oIE)
    EndFunc

    [/autoit]


    nicht ?
    aus fehler meldung bekomme ich :
    C:\PROGRA~1\AutoIt3\Include\IE.au3(304,1) : ERROR: syntax error
    Func
    ^
    C:\Dokumente und Einstellungen\name\Desktop\lili.au3 - 1 error(s), 0 warning(s)