Beiträge von autoBert

  • PHP Login Sicherheitstheorie

    Falls deine Theorie in die Praxis umgesetzt wird und auch öfters angewandt ist es noch einfacher als mit Captcha:

    Zitat von chip

    Captcha ist kein wirklicher Schutz sonder lediglich eine Erschwernis für automatisiertes Login


    denn einen Account bei ICQ/MSN zu erstellen kann man ja auch automatisieren,

    mfg autoBert

  • Frage zu Autoit

    Hallo Shyrai,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    Vielleicht solltest du etwas genauer beschreiben, was du eigentlich erreichen willst.

    Für EMails sieh dir

    [autoit]

    _INetMail

    [/autoit]

    an.

    Nachtrag: benutze doch bitte auch die AutoIt-Tags für Skripte die du postest,
    mfg autoBert

  • campweb | Oflline Deutsch<>English Übersetzter | Mit versch. Ü-Möglichkeiten

    Hallo campweb,

    hier das angepasste Skript:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $datei = @ScriptDir & "\dic.dic"
    Global $aSearch[1]
    _FileReadToArray($datei,$aSearch)

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

    #Region ### START Koda GUI section ### Form=
    $Translato = GUICreate("Translator by campweb | DE<>BE/AE", 322, 291, 391, 158)
    $Label1 = GUICtrlCreateLabel("Von Deutsch zu Englisch:", 8, 8, 126, 17)
    $deutsch = GUICtrlCreateInput("Deutsch...", 8, 32, 305, 21)
    $Input2 = GUICtrlCreateInput("Englisch...", 8, 56, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Button1 = GUICtrlCreateButton("Übersetzen", 8, 80, 305, 25, 0)
    $Label2 = GUICtrlCreateLabel("From English to German:", 8, 112, 119, 17)
    $engl = GUICtrlCreateInput("English...", 8, 136, 305, 21)
    $Input4 = GUICtrlCreateInput("Deutsch...", 8, 160, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Button2 = GUICtrlCreateButton("Translate", 8, 184, 305, 25, 0)
    $Edit1 = GUICtrlCreateEdit("", 8, 216, 305, 65)
    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    ; GUICtrlSetData($Edit1, "Initialisiere...")
    ; Sleep(1000)
    GUICtrlSetData($Edit1, 'Beginne Suche nach: "'&GUICtrlRead($deutsch)&'" Bitte warten...')
    $time = TimerInit()
    $suche = GUICtrlRead($deutsch)
    $aRes = _ArrayFindAll($aSearch,$suche)
    $sFound = ""
    $j = UBound($aRes)
    if IsArray($aRes) Then
    for $i = 0 to $j-1
    if $aRes[$i] > 0 and $aRes[$i] < $aSearch[0]-1 Then
    $sFound &= $aSearch[$aRes[$i]-1]
    if $i <> $j-1 Then $sFound &= ", "
    EndIf
    Next
    EndIf
    GUICtrlSetData($Input2,$sFound)
    #cs
    For $i = 1 To _FileCountLines($datei)
    If FileReadLine($datei, $i) = $suche Then
    ExitLoop
    EndIf
    Next
    GUICtrlSetData($Input2, ""&FileReadLine($datei, $i-1))
    #ce
    GUICtrlSetData($Edit1, 'Suche nach "'&GUICtrlRead($deutsch)&'" erfolgreich! Zeit: '&Round(TimerDiff($time)/1000, 3)&"s")
    Case $Button2
    ; GUICtrlSetData($Edit1, "Initialisiere...")
    ; Sleep(1000)
    GUICtrlSetData($Edit1, 'Beginne Suche nach: "'&GUICtrlRead($engl)&'" Bitte warten...')
    $time = TimerInit()
    $suche = GUICtrlRead($engl)
    $aRes = _ArrayFindAll($aSearch,$suche)
    $sFound = ""
    $j = UBound($aRes)
    if $j > -1 Then
    for $i = 0 to UBound($aRes) -1
    if $aRes[$i] > 0 and $aRes[$i] < $aSearch[0] Then
    $sFound &= $aSearch[$aRes[$i]+1]
    if $i <> $j-1 Then $sFound &= ", "
    EndIf
    Next
    EndIf
    GUICtrlSetData($Input4,$sFound)
    #cs
    For $i = 1 To _FileCountLines($datei)
    If FileReadLine($datei, $i) = $suche Then
    ExitLoop
    EndIf
    Next
    GUICtrlSetData($Input4, ""&FileReadLine($datei, $i+1))
    #ce
    GUICtrlSetData($Edit1, 'Suche nach "'&GUICtrlRead($engl)&'" erfolgreich! Zeit: '&Round(TimerDiff($time)/1000, 3)&"s")

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

    EndSwitch
    WEnd

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

    ob der Platz in der Ausgabe wirklich überall reicht musst du selbst austesten,

    Edit: man sollte den FF öfter refreshen, chip war schneller

    mfg autoBert

  • campweb | Oflline Deutsch<>English Übersetzter | Mit versch. Ü-Möglichkeiten

    Zitat von campweb

    Noch ist er sehr langsam.


    Das lässt sich leicht beheben, einfach auf Array umstellen:

    Spoiler anzeigen
    [autoit]

    #include <File.au3>
    #include <Array.au3>
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    $datei = @ScriptDir & "\dic.dic"
    Global $aSearch[1]
    _FileReadToArray($datei,$aSearch)

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

    #Region ### START Koda GUI section ### Form=
    $Translato = GUICreate("Translator by campweb | DE<>BE/AE", 322, 291, 391, 158)
    $Label1 = GUICtrlCreateLabel("Von Deutsch zu Englisch:", 8, 8, 126, 17)
    $deutsch = GUICtrlCreateInput("Deutsch...", 8, 32, 305, 21)
    $Input2 = GUICtrlCreateInput("Englisch...", 8, 56, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Button1 = GUICtrlCreateButton("Übersetzen", 8, 80, 305, 25, 0)
    $Label2 = GUICtrlCreateLabel("From English to German:", 8, 112, 119, 17)
    $engl = GUICtrlCreateInput("English...", 8, 136, 305, 21)
    $Input4 = GUICtrlCreateInput("Deutsch...", 8, 160, 305, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
    $Button2 = GUICtrlCreateButton("Translate", 8, 184, 305, 25, 0)
    $Edit1 = GUICtrlCreateEdit("", 8, 216, 305, 65)
    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Button1
    GUICtrlSetData($Edit1, "Initialisiere...")
    Sleep(1000)
    GUICtrlSetData($Edit1, 'Beginne Suche nach: "'&GUICtrlRead($deutsch)&'" Bitte warten...')
    $time = TimerInit()
    $suche = GUICtrlRead($deutsch)
    $iRes = _ArraySearch($aSearch,$suche)
    GUICtrlSetData($Input2, "" & $aSearch[$iRes-1])
    #cs
    For $i = 1 To _FileCountLines($datei)
    If FileReadLine($datei, $i) = $suche Then
    ExitLoop
    EndIf
    Next
    GUICtrlSetData($Input2, ""&FileReadLine($datei, $i-1))
    #ce
    GUICtrlSetData($Edit1, 'Suche nach "'&GUICtrlRead($deutsch)&'" erfolgreich! Zeit: '&Round(TimerDiff($time)/1000, 3)&"s")
    Case $Button2
    GUICtrlSetData($Edit1, "Initialisiere...")
    Sleep(1000)
    GUICtrlSetData($Edit1, 'Beginne Suche nach: "'&GUICtrlRead($engl)&'" Bitte warten...')
    $time = TimerInit()
    $suche = GUICtrlRead($engl)
    $iRes = _ArraySearch($aSearch,$suche)
    GUICtrlSetData($Input4, "" & $aSearch[$iRes+1])
    #cs
    For $i = 1 To _FileCountLines($datei)
    If FileReadLine($datei, $i) = $suche Then
    ExitLoop
    EndIf
    Next
    GUICtrlSetData($Input4, ""&FileReadLine($datei, $i+1))
    #ce
    GUICtrlSetData($Edit1, 'Suche nach "'&GUICtrlRead($engl)&'" erfolgreich! Zeit: '&Round(TimerDiff($time)/1000, 3)&"s")

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

    EndSwitch
    WEnd

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

    dann sind solche Antwortzeiten normal:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Und wenn du dann noch af _ArrayFindAll umstellst, kannst du auch alle entsprechenden Wörter anzeigen, bedingt aber evtl. Umbau der GUI also überlasse ich es dir,

    mfg autoBert

  • OSD (Schriftzug auf Transparenten Hintergrund)

    Hallo DasOmen,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und nun zu deinem Problem: da du eh eine GUI hast, nimm doch einfach einen ToolTip oder schau dir
    "Schwebende" Button - Skriptbeispiel an, dass sollte sich auch auf Labels übertragen lassen,

    mfg autoBert

  • Lieblings Spiel der 80. Jahre

    Zitat von progandy

    Und du hast dich auch wirklich nicht vertippt bei deinem TurboBasic? Kaum zu glauben :D


    ja, da war Greenhorn fleissig am tippen, denn

    Zitat von Wikipedia

    Mit einer Länge von 18108 Byte ist Turbo-BASIC XL eines der längsten Programme, das jemals von der Zeitschrift Happy Computer zum Abtippen veröffentlicht wurde, normalerweise gab es eine Größenbeschränkung auf ca. 10 KB. Da die Programme Hexadezimal abgedruckt waren, musste man einschließlich Prüfsummen mehr als 40.000 Zeichen für den Interpreter eingeben. Compiler und Runtime waren zusammen fast ebenso umfangreich.

    Ich hatte damals einen C64, aber meine abgetippten Listings waren nie so lang,

    mfg autoBert

  • FF.au3/FFex.au3 Href aus Link???

    Hallo suernoep,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem:

    [autoit]

    #Include <String.au3>
    Opt('MustDeclareVars', 1) ;Variablen müssen deklariert sein

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

    Local $sUrl= '<a target="_blank" class="externalURL" href="http://www.google.de">»</a>'
    Local $aUrl = _StringBetween($sUrl,'href="','">»</a>')
    If IsArray($aUrl) Then MsgBox(0,"",$aUrl[0])

    [/autoit]

    mfg autoBert

  • GUICtrlSetData

    Zitat von raydok

    €: aber jetzt liest er alle 3 aus und nicht das was gewählt wurde oder? liege ich da falsch?


    Jein:

    • Ja, weil deine 3 Code-Zeilen so nicht funktionieren
    • nein, weil beim korrekten benutzen von GuiCtrlRead, nämlich innerhalb der MsgLoop-Schleife bzw. im OnEventModus innerhalb einer func die mir GuiCtrlSetOnEvent gesetzt wurde es funktioniert

    Hier das leicht modifizierte Beispiel aus der Hilfe zu GuiCtrlCreateCombo:

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>

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

    Opt('MustDeclareVars', 1)

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

    Example()

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

    Func Example()
    Local $msg
    GUICreate("Meine GUI combo") ; Erstellt ein GUI-Fenster welches mittig ausgerichtet wird

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

    Local $Combo = GUICtrlCreateCombo("item1", 10, 10) ; Erstellt das erste Item
    GUICtrlSetData(-1, "item2|item3", "item3") ; Fügt andere Items hinzu und setzt einen neuen Standard
    GUISetState()

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

    ; Die Schleife wiederholt sich, bis der Benutzer eine Beenden-Aktion auslöst
    While 1
    $msg = GUIGetMsg()
    Switch $msg
    Case $GUI_EVENT_CLOSE
    ExitLoop
    Case $Combo
    MsgBox(0,"",GUICtrlRead($Combo))
    EndSwitch
    WEnd
    EndFunc ;==>Example

    [/autoit]

    Edit: so wie du GuiCtrlSetData benutzt hat $Test den Wert 1 weil es geklappt hat,

    mfg autoBert

  • Automatische Auflistung und Addition.

    Zitat von Kajabuschka

    ist das viel arbeit? weil ich würde mich sehr freuen wenn mir das jmd machen kann... weil bis ich dahinter gestiegen bin dauert das warscheinlich einfach zu lang... :(


    dann bist du hier im falschen Forum, setze den Thread auf gelöst. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden).
    Danach eröffnest du einen neuen entweder [list][*] http://www.autoit.de/index.php?page=Board&boardID=35[*] http://www.autoit.de/index.php?page=Board&boardID=52

    mfg autoBert

  • Ich habe ein kleines problem

    Hallo jeyjey,

    Hallo ,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu deinem Problem: wie StayAwayKnight schon postete, eine Datei Kann von A nur einamal nach B verschoben werden, danach ist ja nicht mehr in Order A. Du kannst sie dann zwar von B nach C verschieben, ich denke aber auch dass ist nicht dass was du willst.lies dir also die Hilfe z FileCopy durch.

    mfg autoBert

  • AVI startet nicht

    Hallo Ilse,

    GuiCreateAvi ist wirklich sehr wählerisch und führt selten zu einem befriedigendem Ergebnis. Du nkannst aber mit _IECreateEmbedded eine von dir selbst erstellte HTML-Seite einbinden,

    mfg autoBert

  • @error 13 in _InetGetSource()

    Hallo LilProgger208,

    dies solltest du beachten:

    Zitat von Hilfe zu _InetGetSource

    Bemerkungen
    Bei $s_URL muß am Anfang unbedingt "http://" stehen, sonst ist der Rückgabewert leer.

    poste doch einmal einige Adressen bei denen der Fehler auftritt,

    mfg autoBert