Beiträge von autoBert

  • Anzeige Fehler

    Hier ein Beispiel:

    [autoit]

    $Source = "äÄöÖüÜßyYzZ" ;hier ist dein Eingabestring
    $Dest = StringReplace($Source,"ä","'")
    $Dest = StringReplace($Dest,"Ä",'"')
    $Dest = StringReplace($Dest,"ö",";")
    $Dest = StringReplace($Dest,"Ö",":")
    $Dest = StringReplace($Dest,"ü","[")
    $Dest = StringReplace($Dest,"Ü","{")
    $Dest = StringReplace($Dest,"ß","-")
    $Dest = StringReplace($Dest,"y","z")
    $Dest = StringReplace($Dest,"Y","Z")
    $Dest = StringReplace($Dest,"z","y")
    $Dest = StringReplace($Dest,"Z","Y")
    consolewrite($Source & " wird " & $Dest & @crlf)

    [/autoit]

    dies muss du vor ClipPut machen, wenn es nicht klappt
    dann folgende StringRepace Aufrufe testen

    [autoit]

    $Dest = StringReplace($Source,"ä","ae")
    $Dest = StringReplace($Dest,"Ä",'Ae')
    $Dest = StringReplace($Dest,"ö","oe")
    $Dest = StringReplace($Dest,"Ö","Oe")
    $Dest = StringReplace($Dest,"ü","ue")
    $Dest = StringReplace($Dest,"Ü","Ue")
    $Dest = StringReplace($Dest,"ß","ss")

    [/autoit]

    wenn es dann immer noch nicht klappt musst du damit leben,

    mfg autoBert

  • Skript zu einem bestimmten Zeitpunkt starten und dannach dauerhaft aktiv ausführbar sein

    @Sortoc,

    ist doch bereits gelöst.

    und das schöne an der amerikanischen DatumZeit-Notation ist das man direkt vergleichen kann. _DateDiff ist also überflüssig da die Differenz nicht interessiert sondern nur ob es später ist.

    mfg autoBert

  • Oscars POP-Show

    Zitat von Oscar

    Also ein EMail-Client wird es nicht werden.

    schade,
    Die Idee mit den Blacklists finde ich sehr gut. Dadurch das aber ein erneutes Einlogen statfindet kommt bei Web.de (nach umstellen in der _pop3.au3: Global $POP3_TRACE = TRUE) folgender Fehler

    Code
    <: -ERR Zeitabstand zwischen zwei Logins unterschritten (FreeMail: 15 min, Club:  kein)/minimum poll time not reached

    beim Versuch die SPAM-Mails zu löschen. Beim Versuch eine Nachricht zu lesen leider genauso, hatte ich vorher nicht probiert.
    Meinst du kannst Stilgar überreden SSL-Unterstützung einzubauen, wäre für mich ideal denn auf HofMail kommen bei mir selten aber immer sehr interessante Mails von MS und anderen Softwareunternehmen,

    mfg autoBert

  • Anzeige Fehler

    du hast mich falsch verstanden: du musst eine Nachricht (äÄöÖüÜß etc.) in deinem zu steuernden Programm dirket eingeben, diese kopieren und in Scite einfügen. Oder du replaced in deinem AutoIt-Skript a zu ae usw.

    mfg autoBert

  • Skript zu einem bestimmten Zeitpunkt starten und dannach dauerhaft aktiv ausführbar sein

    dann mach es so,

    [autoit]

    #include <Date.au3>

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

    ;achtng Zeitangaben alle im amerikanischen Format yyyy/mm/dd hh:mm
    $dtFrom = "2010/08/19 17:10"
    While Sleep(100)
    If _NowCalc() >= $dtFrom Then ExitLoop
    WEnd
    MsgBox(0, "", "Ich bin Aktiv wenn das Datum und die Zeit existiert und auch wenn das Datum und die Zeit in der Vergangenheit ist")

    [/autoit]

    mfg autoBert

  • Problem mit GameLauncher

    schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    Was gibt es nicht zu verstehen:

    [autoit]

    if FileExists ("Launcher.ini") Then
    _Launcher () ;IniFile existiert also zum Lancher
    Else
    _configure () ;IniFile existiert noch nicht also konfiguren
    EndIf

    [/autoit]

    mfg autoBert

  • Skript zu einem bestimmten Zeitpunkt starten und dannach dauerhaft aktiv ausführbar sein

    Hallo Baron1977,

    hier ein Beispiel:

    [autoit]

    #include <Date.au3>

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

    ;Achtung Zeitangaben alle im amerikanischen Format yyyy/mm/dd hh:mm
    $dtFrom = "2010/08/19 17:10"
    $dtTo = "2010/10/19 17:10"
    _checkTimeBetween($dtFrom, $dtTo)
    $dtFrom = "2010/08/23 17:10"
    $dtTo = "2010/10/19 17:10"
    _checkTimeBetween($dtFrom, $dtTo)
    $dtFrom = "2010/06/21 17:10"
    $dtTo = "2010/08/19 17:10"
    _checkTimeBetween($dtFrom, $dtTo)

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

    Func _checkTimeBetween($dtFrom, $dtTo)
    If $dtFrom <= _NowCalc() And $dtTo >= _NowCalc() Then
    MsgBox(0, _NowCalc() & " Innerhalb Zeitfenster", $dtFrom & " " & $dtTo)
    Else
    MsgBox(0, _NowCalc() & " ausserhalb Zeitfenster", $dtFrom & " " & $dtTo)
    EndIf
    EndFunc ;==>checkTimeBetween

    [/autoit]

    Edit: Skript ausgetauscht (einfachere Lösung)

    mfg (Auto)Bert

  • Themed ownerdrawn controls

    Hallo Greenhorn,

    ich wollte gerade dein Skipt unter WinXP SP3 Winodws-XP - Style testen. Klappte leider nicht, Ausgabe Scite-Konsole;

    Code
    >Running:(3.3.6.1):C:\Programme\AutoIt3\autoit3.exe "C:\Programme\AutoIt3\Downloads\Greenhorn\Themed_Ownerdraw.au3"    
C:\Programme\AutoIt3\Downloads\Greenhorn\Themed_Ownerdraw.au3 (558) : ==> Subscript used with non-Array variable.:
Return $aRes[0]
Return $aRes^ ERROR
->03:53:04 AutoIT3.exe ended.rc:1
>Exit code: 1    Time: 4.194

    mfg autoBert

  • Apple lässt Eierbecher "eiPott" verbieten

    Zitat

    Wie das Hanseatische Oberlandesgericht am Freitag in Hamburg entschied, muss der Hersteller von Haushaltswaren seinen Eierbecher «eiPott» umbenennen, da dessen Name mit dem des MP3-Players «iPod» von Apple verwechselt werde könne

    Quelle Welt Online
    naja die Ählichkeit ist ja auch verblüffend, siehe Bilder bei Amazon. Nicht dass dann ein verschlafener IPod-Benutzer versucht sein Frühstücksei auf den IPod zu stellen,

    mfg (Auto)Bert

  • Ich brauch dringend schnell hilfe pls

    Zitat von elias

    Func _start()
    While 1
    $B = PixelSearch(390, 403, 494, 466, 0xD49E35)
    If IsArray($B) = True Then

    Send ( "meinen neuen text ^^" )

    EndIf
    WEnd
    EndFunc

    also wenn jetzt das pixel braune Farbe erscheint in meinem feld was ich hier definiert habe glaub ich dann soll der exact in dem moment den text einfügen.

    klingt nach BOT, daher bis zur Klärung durch Admin/Mod deaktiviert,

    mfg autoBert

  • Hallo

    Hezlich wilkommen und viel Spass im Forum

    Zitat von TAFFY

    Mit Bots und dergleichen habe ich nichts am Hut,

    schön dann gibts ja keine Probleme

    Zitat von TAFFY

    und ich entschuldige schon mal im Voraus für diverse Logikaussetzer und Rechtschreibfehler in meinen Hilfsgesuchen.

    na ja bis auf den unverzeihlichen Rechtschreibfehler bei AutoIt (kommt von automatisiere es) ist mir nichts aufgefallen,

    mfg autoBert

  • überlangen Text in Label scrollen

    Hallo TAFFY,

    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

    So und jetzt zu deiner Frage: natürlich machbar z.B. so

    Spoiler anzeigen
    [autoit]

    #include <WindowsConstants.au3>
    #include <File.au3>
    #include <GUIConstantsEx.au3>
    #Include <Array.au3>

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

    ;#include "_FilePathListToArray.au3"
    #include <file.au3>

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

    Global $aLines[1]=[0] ;Zeilen der aktuelen Datei
    Const $iMaxLines = 16 ;max. anzuzeigende Zeilen
    Global $iLine = 0 ;akt. Zeile die als 1. angezeigt wird
    ;$datei = _FilePathListToArray(@ScriptDir & "..\MDemos", ".au3", 1)
    $datei = _FileListToArray(@ScriptDir, "*.au3", 1)
    $zufall = Random(1, $datei[0], 1)
    $text = FileRead(@ScriptDir & "\" & $datei[$zufall])
    $1 = GUICreate("", @DesktopWidth, @DesktopHeight, 0, 0, $WS_POPUP)
    Global $2 = GUICtrlCreateLabel($text, 10, 10, @DesktopWidth, @DesktopHeight)
    GUICtrlSetColor(-1, 0xffffff)
    GUICtrlSetFont(-1, 24, 400, 0, "Consolas")
    GUISetBkColor(0x0000ff)
    Global $sek1 = TimerInit()
    Global $Sek2 = $sek1
    GUISetState(@SW_SHOW)
    _nextFile()

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

    While 1
    If TimerDiff($sek1) > int(($aLines[0]*2-1)/$iMaxLines*2000) Then _nextFile()
    If TimerDiff($sek2) > 2000 Then _scroll()
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_MOUSEMOVE
    ExitLoop
    EndSwitch
    WEnd

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

    Func _nextFile()
    $iLine = 0
    $aLines[0] = 0
    while $aLines[0] = 0
    $zufall = Random(1, $datei[0], 1)
    _FileReadToArray(@ScriptDir & "\" & $datei[$zufall],$aLines)
    WEnd
    _scroll()
    $sek1 = TimerInit()
    $sek2 = $sek1
    EndFunc ;==>_nextFile

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

    Func _scroll()
    if $iLine > $aLines[0]-$iMaxLines Then return
    $text = $datei[$zufall] & " Zeilen: " & $aLines[0] & @CR
    for $i = 1 to $iMaxLines
    $text &= $aLines[$i+$iLine] & @CRLF
    Next
    $iLine += 1
    if $iLine > $iMaxLines Then $iLine = 0
    GUICtrlSetData($2, $text)
    $sek2 = TimerInit()
    EndFunc

    [/autoit]

    mit GDI+ (kannst du ja wenn du mehr Erfahrung hast ausprobieren) sind noch viel schönere Effekte möglich siehe Star Wars Intro NEU von eukalyptus. Das kannst duu ja später mal probieren, wenn du mehr Erfahrung hast,

    mfg autoBert