1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Oscar

Beiträge von Oscar

  • Func in einer schleife erstellen geht das?

    • Oscar
    • 30. August 2010 um 14:52

    Nein, das geht nicht.

  • .h Datei öffnen, in Array lade, alle Zeilen zählen, sortieren...

    • Oscar
    • 30. August 2010 um 14:49

    Willkommen hier im Forum!

    Kannst Du mal so eine Datei posten?
    Falls da persönliche/vertrauliche Daten drinstehen, dann eine entsprechend angepasste Datei.
    Und dann dazuschreiben, was Du von den Daten brauchst.
    Meist ist der Einsatz von StringRegExp viel effektiver, statt alles in ein Array einzulesen und daraus dann wieder zu löschen.

  • .txt file auslesen und anzeigen.

    • Oscar
    • 30. August 2010 um 04:22

    Ganz einfach:

    Spoiler anzeigen
    [autoit]


    $hGui = GUICreate('test', 600, 400)
    $hEdit = GUICtrlCreateEdit('', 5, 5, 590, 390)
    GUISetState()

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

    $sText = FileRead(@ScriptDir & '\notice.txt') ; Datei lesen
    GUICtrlSetData($hEdit, $sText) ; und in Edit-Control einfügen

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

    Do
    Until GUIGetMsg() = -3

    [/autoit]
  • Proxy, wie soll das gehen?

    • Oscar
    • 29. August 2010 um 12:57
    Zitat

    Wozu es gut sein soll ist im moment völlig unwichtig.


    Das sehe ich nicht so! Wenn Du hier eine "Man-in-the-middle"-Attacke vorhast, dann wird das hier ganz schnell geschlossen. :thumbdown:

  • Kipp oder Wippschalter?

    • Oscar
    • 28. August 2010 um 16:48

    Ja, bis auf die 150 Ohm Widerstände. Die erscheinen mir zu gering.
    Die LEDs in dem Display brauchen meist so ca. 2 Volt bei 20 mA (musst Du mal im Datenblatt nachsehen). Wenn Du 9 Volt als Quelle wählst, sieht die Vorwiderstandsberechnung in etwa so aus:

    (9 - 2) / 0.02 = 350 Ohm

    Also lieber 330 Ohm Widerstände nehmen und wenn das ein Netzteil ist (keine Batterie/Akku), dann sogar lieber 390 Ohm.

  • Schnee im August?

    • Oscar
    • 28. August 2010 um 04:51

    Ich geh' gerade an den Rechner und schaue nach der Wettervorhersage:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Ich reisse die Gardine zur Seite...PUH!...Glück gehabt!...kein Schnee. ^^

    Das hätte mich auch gewundert: 12 Grad plus und Schnee? Im August?
    Nee, Minianwendung von MS... :D

    Bilder

    • !Schnee im August.png
      • 48,7 kB
      • 264 × 194
  • Button aus INI laden

    • Oscar
    • 28. August 2010 um 04:19

    Man kann auch Bild und Text haben. Progandy hatte dazu mal ein Beispiel geschrieben.
    Benötigt werden (mittlerweile) diese Includes:

    [autoit]


    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>

    [/autoit]
  • kleines Color-Code-Game

    • Oscar
    • 28. August 2010 um 04:06

    Bei mir: Win7, 64 Bit = funktioniert.

    yxyx: "geht nicht" ist eine schlechte Fehlerbeschreibung (DAU-ähnlich). Was geht nicht? Welche Fehlermeldung gibt SciTE aus?

  • kleines Color-Code-Game

    • Oscar
    • 27. August 2010 um 20:27

    Cooles Spiel! :thumbup:

    Könntest Du vielleicht grafisch noch etwas "aufhübschen" und vielleicht noch einen zusätzlichen Schwierigkeitsgrad, weil im Moment weiß man ja gleich welche Farbe richtig/falsch war.
    Oder das Ganze noch mit 5 oder 6 Quadraten.

  • Kipp oder Wippschalter?

    • Oscar
    • 27. August 2010 um 17:20

    Ich nehme mal an bei der zweiten Zusammenstellung meinst Du den 700862 (mit zwei Nullen)?

    Dann sind das schonmal zwei unterschiedliche Schalter: der Erste ist ein Umschalter (ein/ein) und der Zweite ein Ein-/Ausschalter (ein/aus).
    Außerdem besitzen sie eine unterschiedliche Schaltleistung. Nun ist es natürlich schwer zu sagen, welche man nehmen würde, weil das davon abhängt, was Du damit machen willst.

    Bei einem Einbau in ein Gehäuse hätten die Kippschalter den Vorteil nur ein rundes Loch für die Montage zu benötigen (lässt sich leichter gerade ausrichten).

  • stringsplit-ordner problem

    • Oscar
    • 27. August 2010 um 13:42

    So:

    [autoit]


    $ordner = StringSplit("1ordner,2ordner,3ordner", ",")
    For $i = 1 To $ordner[0]
    DirCreate(@ScriptDir & '\' & $ordner[$i])
    Next

    [/autoit]
  • Eine VBScript IIf ()-Funktion in AutoIT

    • Oscar
    • 27. August 2010 um 13:36

    Und wo ist jetzt der Vorteil gegenüber _Iif() aus dem Misc-Include?

  • Icon im System- Kontext- Menue anzeigen

    • Oscar
    • 27. August 2010 um 10:30

    [verschoben nach OffTopic]

  • Hex zu dez. wandeln

    • Oscar
    • 26. August 2010 um 23:45

    Der Wert entspricht den Nanosekunden seit: 1601/01/01 00:00:00

    [autoit]


    #include <Date.au3>

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

    $hex = '01cb448214cfa1a0'
    $dec = _Dec64($hex)
    ConsoleWrite($dec & @CR)
    ConsoleWrite(_DateAdd('s', Int($dec / 10 ^ 7), '1601/01/01 00:00:00') & @CR)

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

    Func _Dec64($sHex)
    Local $sDec1, $sDec2, $iLen = StringLen($sHex)
    If Not StringIsXDigit($sHex) Then Return SetError(1, 0, 0)
    $sDec2 = Dec(StringRight($sHex, 8))
    If $sDec2 = -1 Then $sDec2 = 2 ^ 32 - 1
    $sDec1 = Dec(StringLeft($sHex, $iLen - 8))
    Return $sDec1 * 2 ^ 32 + $sDec2
    EndFunc ;==>_Dec64

    [/autoit]
  • Hex zu dez. wandeln

    • Oscar
    • 26. August 2010 um 21:34

    Das ist ein 64 Bit Wert. Hex und Dec können aber nur 32 Bit.
    Du musst also erstmal in zwei 32 Bit Werte aufteilen und anschließend das höherwertige LongWord mit 2^32 malnehmen:

    [entfernt]

    lieber so:

    [autoit]


    $hex = '01cb418221f6afc0'
    ConsoleWrite(_Dec64($hex) & @CR)

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

    Func _Dec64($sHex)
    Local $sDec1, $sDec2, $iLen = StringLen($sHex)
    If Not StringIsXDigit($sHex) Then Return SetError(1, 0, 0)
    $sDec2 = Dec(StringRight($sHex, 8))
    If $sDec2 = -1 Then $sDec2 = 2 ^ 32 - 1
    $sDec1 = Dec(StringLeft($sHex, $iLen - 8))
    Return $sDec1 * 2 ^ 32 + $sDec2
    EndFunc

    [/autoit]
  • IE.au3 - GMX eMailPostfach auslesen

    • Oscar
    • 25. August 2010 um 04:08

    Ja, mit Hilfe der POP3-UDF kannst Du problemlos auf ein GMX-Konto zugreifen (Header, EMails auslesen kein Problem, habe selbst einen GMX-Account). Da musst Du Dich nicht mit dem fernsteuern des IE rumschlagen.

  • Oscars POP-Show

    • Oscar
    • 24. August 2010 um 17:40

    Ich musste noch ein kleines Update rausbringen. Die Spammer sind aber auch so erfinderisch (ein Date-Header mit solchen Daten: "Tue, 24 Aug 2010 01.48.38 +0200"). Für den Fall, dass die sich noch andere Formate einfallen lassen, habe ich gleich noch eine Abfrage eingebaut, sodass die Funktion nicht mehr zu einem Absturz führt.

    Die Yahoo-Unterstützung habe ich auch noch in die UDF ausgelagert, damit man beim EMail-Konto auch die Server-IP eingeben kann.

    Neue Version in Post#1.

  • MsgBox mit Hilfe-Button

    • Oscar
    • 24. August 2010 um 09:51

    Jo, funktioniert!
    Eigenartig, dass das in der Hilfe gar nicht erwähnt wird!?

    Andererseits habe ich bei einer MsgBox noch nie eine Hilfe benötigt. ;)

  • Pizzatimer

    • Oscar
    • 24. August 2010 um 09:22

    InputBoxen, MsgBoxen, TrayMenüs und auch ein GUIMenü halten die Skriptausführung an, während sie geöffnet sind.
    Es gibt aber die Timer-UDF. Damit kann man zeitgesteuert Funktionen aufrufen, die auch dann noch aufgerufen werden, wenn das Skript eigentlich angehalten wurde (Menü und co.).
    Du müssest also statt AdlibRegister die Timer-UDF "_Timer_SetTimer()" benutzen.

  • _Pop3-Udf (V1.03)

    • Oscar
    • 23. August 2010 um 18:33

    Hallo Stilgar!

    Für mein Projekt "POP-Show" benutze ich ja Deine UDF. Beim Befehl _POP3List() gibt es allerdings ein Problem mit Yahoo-Konten. Der Yahoo-Server liefert eine etwas abweichende Antwort zurück.

    Hier mal die Ausgabe bei meinem 1und1-Account (Passwörter unkenntlich gemacht und Ausgabe auf das Wesentliche reduziert):

    Code
    [...]
    >: PASS **********************
    <: +OK mailbox "***********" has 1 messages (965 octets) H mibap0
    >: LIST
    <: +OK
    1 965
    .


    Das resultierende Array sieht dann so aus:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.
    Alles ok, soweit!

    Das Gleiche bei meinem Yahoo-Account:

    Code
    [...]
    >: PASS **********************
    <: +OK maildrop ready, 1 message (5085 octets) (6418)
    >: LIST
    <: +OK 1 message (5085 octets)
    1 5085
    .


    Hier folgt nach dem "+OK" noch "1 message (5085 octets)", was dann zu diesem Array führt:
    Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

    Es gibt also einen Eintrag zuviel und die Anzahl [0] ist falsch. Das betrifft nur die _POP3List() Funktion. _POP3Info() arbeitet korrekt.
    Ich habe die Funktion nun so angepasst:

    Spoiler anzeigen
    [autoit]


    Func _POP3List($iMsg = -1)
    If $POP3_ISAUTH Then
    Local $aRet[1][2], $aTMP2
    Local $sAddMsg = ""

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

    If $iMsg <> -1 Then
    $sAddMsg = " " & $iMsg
    EndIf

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

    ; Send List
    Local $sRet = __POP3Cmd("LIST" & $sAddMsg)
    If @error Then Return SetError(@error, 0, 0)

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

    $sRet = StringRegExpReplace($sRet, '.+?message.+\(.+\)\r\n', @LF) ; Yahoo-Support

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

    While $iMsg = -1 And Not StringRegExp($sRet, "\r\n\.\r\n")
    $sRet = $sRet & __POP3WaitTcpResponse()
    If @error Then Return SetError($POP3_ERROR_NO_TCP_RESPONSE, 0, 0)
    WEnd

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

    ; Stripping useless infos for complete listing
    If $iMsg = -1 Then
    $sRet = StringMid($sRet, 2, StringLen($sRet) - 6)
    Else
    $sRet = StringMid($sRet, 1, StringLen($sRet) - 2)
    EndIf
    Local $aTMP = StringSplit(StringStripCR($sRet), @LF)

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

    Local $iE = UBound($aTMP)
    ReDim $aRet[$iE][2]
    $aRet[0][0] = $iE - 1
    For $i = 1 To $iE - 1
    $aTMP2 = StringSplit($aTMP[$i], " ", 2)
    $aRet[$i][0] = $aTMP2[0]
    $aRet[$i][1] = $aTMP2[1]
    Next

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

    Return $aRet
    EndIf
    EndFunc ;==>_POP3List

    [/autoit]

    Neu ist nur diese Zeile:

    [autoit]

    $sRet = StringRegExpReplace($sRet, '.+?message.+\(.+\)\r\n', @LF) ; Yahoo-Support

    [/autoit]


    Damit ist die Rückgabe bei meinem Yahoo-Account genauso wie bei meinem 1und1-Account.
    Vielleicht möchtest Du die UDF entsprechend anpassen. :)

    Bilder

    • !out1.png
      • 12,8 kB
      • 301 × 296

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™