Beiträge von BugFix

  • HTML Quelltext vom IE holen

    Wenn du die Daten möchtest, hol dir doch diese und nicht den Quelltext.
    Du kannst aus den verschiedenen Formen die Daten separieren ( Funktionen aus der IE.au3 ).
    Was allerdings problematisch werden kann, ist die Verwendung des IE7.
    Damit treten teilweise unerklärliche Fehler auf.

    So bekommst du z.B. Quelltext.

    [autoit]

    Dim $oIE = _IECreate($url, 0, 0)
    Dim $html = _IEDocReadHTML($oIE)
    ;~ $html enthält den Quelltext
    _IEQuit($oIE)

    [/autoit]

  • Email senden.

    Warum willst du Outlook verwenden?
    Mit der Funktion _INetSmtpMailCom() kannst du doch direkt mailen.

    Und wenn es unbedingt Outlook sein soll, dann verwende es nicht mit Send() sondern als Objekt. Findest du was Passendes in der Suche unter Outlook.
    Zu den verfügbareb Methoden google mal nach 'Outlook Object Model'.

  • Neue Funktionen und ToDo-List

    Problem ist, ich bekomme das MozLab-Plugin nicht installiert.
    K-Meleon arbeitet nicht mit XML-Dateien (PlugIns alle auf DLL-Basis). Also habe ich die XML entpackt und in die entsprechenden Verzeichnisse kopiert.
    Fehlt aber noch irgendwo die "zentrale Anmeldung", in der PlugIn-Liste taucht es nicht auf.

  • Zeichensuche mit _ArraySearch()

    Stichwort: Partialsearch
    Flag setzen und dann klappt das auch.

    [autoit]

    Dim $array[4]
    $array[0] = "A023456"
    $array[1] = "3B4"
    $array[2] = "0D"
    $array[3] = "/S0"

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

    ;~ Wie finde ich den String mit "/" ... ?

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

    MsgBox(0,"index", _ArraySearch($array,"/",0,UBOUND($array)-1, 0, True) )

    [/autoit]

  • _FileWriteFromArray

    So sollte das auch mit INI-Eintrag klappen.
    Wenn alles abgearbeitet wird, wird 0 in die INI geschrieben, sonst die zuletzt bearbeitete Gallery-Nr.
    Beim Start wird geprüft ob anderer Wert als 0 vorhanden. Wenn ja wird dieser +1 der neue Startwert.

    Spoiler anzeigen
    [autoit]

    ;--- AutoIt ImageBeaver Download Script ---
    #include <INET.au3>
    #include <String.au3>
    #include <File.au3>
    #include <Array.au3>
    #include <_INetGetImage.au3>
    Dim $ic_url, $c_url, $gallery = 0, $dir, $c_file, $sStart, $sStop, $bilder, $source; Deklaration der Variablen
    Dim $IniFile = 'Pfad der INI-Datei' ; ###### Pfad setzen

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

    If FileExists($IniFile) Then
    If IniRead($IniFile, 'gallery', 'last') <> 0 Then _
    $gallery = IniRead($IniFile, 'gallery', 'last') +1
    EndIf
    If $gallery = 0 Then $gallery = "44000" ; Gallery Nr. Startwert, wenn kein Eintrag in INI
    $ic_url = "http://www.imagebeaver.com/view.php?mode=gallery&g=" ;Anfangsurl ohne Gallery Nr.

    While $gallery <= 44444 ; Abbruchbedingung der While-Schleife
    $dir= "c:\imagebeaver2\"& "gallery_"&$gallery &"\"
    $c_url = $ic_url&$gallery ; Zusammenfügen der URL
    $source = _INetGetSource( $c_url ) ; Holen des Quellcodes
    $c_file = $dir & "gallery_"& $gallery &".html" ; Datei + Pfad in die der Quelltext gespeichert werden soll
    $sStart= '<img src="' ; Startbedingung für Ausschneiden
    $sStop = '" border="0"></a> ' ; Abbruchbedingung für ausschneiden
    $bilder = _StringBetween($source, $sStart, $sStop) ;Füllen des Arrays mit dem gesuchten Wert
    For $i = 0 To UBound($bilder)-1
    $bilder[$i] = StringReplace($bilder[$i],"/t/","/i/",1,1) ; Tauschen von Thumbnail to image
    Next
    For $i = 0 To UBound($bilder)-1
    $bilder[$i] = StringReplace($bilder[$i],"/images/thumb/","/images/",1,1) ; Tauschen von Thumbnail to image
    Next
    If Not @error Then
    DirCreate("c:\imagebeaver2\"& "gallery_"&$gallery) ; Erstellt Ordner mit Gallerynummer
    For $i = 0 To UBound($bilder)-1
    InetGet ($bilder[$i],$dir & $i &'.jpg') ; Downloaden der Bilder
    Next
    InetGet($c_url, $c_file) ; Schreibt Sourcecode in Datei
    IniWrite($IniFile, 'gallery', 'last', $gallery)
    EndIf
    $gallery = $gallery + 1 ; Schritt zur nächsten Gallery
    WEnd
    IniWrite($IniFile, 'gallery', 'last', 0) ; alles abgearbeitet

    [/autoit]

  • _FileWriteFromArray

    Zitat

    Neues Problem aufgetaucht: Wie kann ich verhindern, dass wenn ein Array nicht gefüllt wird, da eine Gallery keine Bilder enthält, dass er keinen Fehler bringt, sondern zur nächsten Gallery springt?

    Wenn nichts da ist, bringt die Funktion _StringBetween einen Fehler.

    Also den Folgecode nur ausführen wenn kein Fehler: If Not @error Then ...

  • Neue Funktionen und ToDo-List

    Auch wenn der Fuchs nicht der Browser meiner Wahl ist (zu langsam), finde ich die Idee mit separaten Tab-Funktionen am besten.
    Vielleicht läßt sich das ja auch für K-Meleon umsetzen - arbeitet ebenfalls mit der Gecko-Engine, nur 3-mal so schnell.

  • [Download] Notes - Kleine Notizverwaltung

    Nimm das nicht so schwer. ;)
    Die Resonz ist vielleicht auch deshalb gering, weil der Code nur als Download eingestellt ist.
    Wenn ich erst eine Datei runterladen muß, lasse ich es auch meist bleiben.
    Und da es gerade in diesem Bereich schon viele gute Tools gibt ist vielleicht auch das Interesse nicht so riesig. Da will man eher mal 'nen Blick auf die Umsetzung werfen (aber ohne Download).

  • n00b != Newbie

    Ja, sich selbst so abzuqualifizieren ist schon ziemlich dumm.
    Selbst wenn es am Anfang zutreffen sollte: wenn dann der 'Noob'-Zustand ein Ende hat, ist es doch ziemlich peinlich mit solch einem Nick rumzurennen.

  • Nach 10 Mausklick eine Taste drücken

    Na siehste, Lesen bildet ;)

    Aber die Abfrage
    If $n = 10 ist sinnlos, da die Do-Until-Schleife ja erst verlassen wird, wenn $n = 10 ist.
    Und warum läuft das alles in einer While-Schleife? - Damit ist es endlos.

    Edit: Habe den Eindruck, dass das ein Bot werden soll. Überzeug mich vom Gegenteil ansonsten ist hiermit Ende der Hilfestellung.