Nein, das geht nicht.
Beiträge von Oscar
-
-
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. -
Ganz einfach:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$hGui = GUICreate('test', 600, 400)
$hEdit = GUICtrlCreateEdit('', 5, 5, 590, 390)
GUISetState()$sText = FileRead(@ScriptDir & '\notice.txt') ; Datei lesen
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($hEdit, $sText) ; und in Edit-Control einfügenDo
[/autoit]
Until GUIGetMsg() = -3 -
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.
-
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.
-
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...
-
Man kann auch Bild und Text haben. Progandy hatte dazu mal ein Beispiel geschrieben.
[autoit]
Benötigt werden (mittlerweile) diese Includes:
[/autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3> -
Bei mir: Win7, 64 Bit = funktioniert.
yxyx: "geht nicht" ist eine schlechte Fehlerbeschreibung (DAU-ähnlich). Was geht nicht? Welche Fehlermeldung gibt SciTE aus?
-
Cooles Spiel!

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. -
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).
-
So:
[autoit]
[/autoit]
$ordner = StringSplit("1ordner,2ordner,3ordner", ",")
For $i = 1 To $ordner[0]
DirCreate(@ScriptDir & '\' & $ordner[$i])
Next -
Und wo ist jetzt der Vorteil gegenüber _Iif() aus dem Misc-Include?
-
[verschoben nach OffTopic]
-
Der Wert entspricht den Nanosekunden seit: 1601/01/01 00:00:00
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <Date.au3>$hex = '01cb448214cfa1a0'
[/autoit][autoit][/autoit][autoit]
$dec = _Dec64($hex)
ConsoleWrite($dec & @CR)
ConsoleWrite(_DateAdd('s', Int($dec / 10 ^ 7), '1601/01/01 00:00:00') & @CR)Func _Dec64($sHex)
[/autoit]
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 -
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]
[/autoit][autoit][/autoit][autoit]
$hex = '01cb418221f6afc0'
ConsoleWrite(_Dec64($hex) & @CR)Func _Dec64($sHex)
[/autoit]
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 -
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.
-
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.
-
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.

-
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. -
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]
[/autoit] [autoit][/autoit] [autoit]
Func _POP3List($iMsg = -1)
If $POP3_ISAUTH Then
Local $aRet[1][2], $aTMP2
Local $sAddMsg = ""If $iMsg <> -1 Then
[/autoit] [autoit][/autoit] [autoit]
$sAddMsg = " " & $iMsg
EndIf; Send List
[/autoit] [autoit][/autoit] [autoit]
Local $sRet = __POP3Cmd("LIST" & $sAddMsg)
If @error Then Return SetError(@error, 0, 0)$sRet = StringRegExpReplace($sRet, '.+?message.+\(.+\)\r\n', @LF) ; Yahoo-Support
[/autoit] [autoit][/autoit] [autoit]While $iMsg = -1 And Not StringRegExp($sRet, "\r\n\.\r\n")
[/autoit] [autoit][/autoit] [autoit]
$sRet = $sRet & __POP3WaitTcpResponse()
If @error Then Return SetError($POP3_ERROR_NO_TCP_RESPONSE, 0, 0)
WEnd; Stripping useless infos for complete listing
[/autoit] [autoit][/autoit] [autoit]
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)Local $iE = UBound($aTMP)
[/autoit] [autoit][/autoit] [autoit]
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]
NextReturn $aRet
[/autoit]
EndIf
EndFunc ;==>_POP3ListNeu 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.