Beiträge von BugFix

[Verschoben]

In Marokko kannst du genauso wie hier die BL live verfolgen. (wie übrigens in über 200 Ländern, die ständig Streams zur BL anbieten)
Mit ein bischen Google findest du auch die Angebotsseiten. Da sich das zwischen Grauzone und illegal bewegt, gibt es aber keine näheren Hinweise.

Zitat von AutoMit

Wenn man mit mehreren eigenen UDFs arbeitet, wie soll man zuordnen, aus welcher Programmzeile und welcher au3 die Debug-Info stammt?

Indem man diese Info in die Debugzeile mit einfügt?! ConsoleWrite('Dateiname ' & 'was-du-willst' & @LF)

Zitat von AutoMit

Nebenziel - warum wird die Zeilennummer richtig angezeigt, aber der Dateiname nicht?

Weil es für Zeilennummer ein Makro gibt. Das Makro @Scriptname gibt den Namen deines Skriptes wieder. Evtl. eingebundene andere Skripte sind während der Laufzeit in dieses eingebunden. Es gibt also nur 1 Datei und deren Name gibt @Scriptname wieder.

Habe es gerade gebraucht, vielleicht auch für euch nützlich. Z.B. beim Download mit InetGet zum Formatieren der übermittelten Anzahl gelesener Bytes.

Local Const $1TB = 0x10000000000
Local Const $1GB = 0x40000000
Local Const $1MB = 0x100000
Local Const $1KB = 0x400
Local $iByte = 2*$1TB + 355*$1GB + 1019*$1MB + 468*$1KB + 13
ConsoleWrite(_FormatByte($iByte) & @CRLF)
Local $tRet = _FormatByte($iByte, '', True)
ConsoleWrite( $iByte & ' Byte: ' & @LF & _
$tRet.TB   & ' TB' & @LF & _
$tRet.GB   & ' GB' & @LF & _
$tRet.MB   & ' MB' & @LF & _
$tRet.KB   & ' KB' & @LF & _
$tRet.Byte & ' Byte' & @LF)
; #FUNCTION# ====================================================================================================================
; Name ..........: _FormatByte
; Description ...: Formats a given value of bytes with highest or given unit, optional as structure with all units
; Parameters ....: $_iByte    The value of bytes to format
; ...............: $_sUnit    (Default = '', unit of highest value) or count of given unit (TB, GB, MB, KB, Byte)
; ...............: $_fStruct  Returns a structure with .TB .GB .MB .KB .Byte (Default = False)
; Return values .: The formatted string or the structure.
; Author ........: BugFix
; ===============================================================================================================================
Func _FormatByte($_iByte, $_sUnit='', $_fStruct=False)
	Local Static $aByte[5][2] = [[0x10000000000],[0x40000000],[0x100000],[0x400],[0x1]]
	Local Static $tBytes = DllStructCreate('int TB;int GB;int MB;int KB;int Byte;')
	Local Static $aUnit[5] = ['TB','GB','MB','KB','Byte']
	Local $iModulo = $_iByte, $iHighest = 4
	For $i = 0 To 3
		$aByte[$i][1] = $iModulo >= $aByte[$i][0] ? Floor($iModulo/$aByte[$i][0]) : 0
		$iModulo = $aByte[$i][1] > 0 ? Mod($iModulo,$aByte[$i][0]) : $iModulo
		$iHighest = $aByte[$i][1] > 0 ? ($i < $iHighest ? $i : $iHighest) : $iHighest
	Next
	$aByte[4][1] = $iModulo
	$tBytes.TB   = $aByte[0][1]
	$tBytes.GB   = $aByte[1][1]
	$tBytes.MB   = $aByte[2][1]
	$tBytes.KB   = $aByte[3][1]
	$tBytes.Byte = $aByte[4][1]
	If $_fStruct Then Return $tBytes
	$_sUnit = StringInStr('TB GB MB KB Byte', $_sUnit) ? $_sUnit : ''
	$_sUnit = $_sUnit = '' ? $aUnit[$iHighest] : $_sUnit
	Local $iUserUnit = Floor(StringInStr('TB GB MB KB Byte', $_sUnit)/3)
	Return StringFormat('%.3f %s', $_iByte/$aByte[$iUserUnit][0], $aUnit[$iUserUnit])
EndFunc  ;==>_FormatByte

Edit: So, war ein Fehler in einem Statement. Nun sollte es wie gewünscht funktionieren.

Wenn du die Feldnamen alle brauchst mußt du sie mindestens 1-mal aufschreiben.
Wenn du diese in der Reihenfolge öfter verwendest, speichere sie in einem String. Das kannst du natürlich auch bei einmaliger Verwendung machen um die Lesbarkeit zu verbessern:

$sFields = "Feld1,Feld2,Feld3,......."
; ebenso die Value Angaben:
$sValues = StringFormat("%s,%s,%s,......", $Value1,$Value2,$Value3,......)
; Und dann  
$sInsert = StringFormat("insert into tablename (%s) values (%s) where condition", $sFields, $sValues)

Zu 1)
Vergiss die Forensuche - die ist leider suboptimal, wie man richtig mit Google sucht hatte ich dir letztens erst gezeigt.

Zu 2)
????? - Wozu willst du den Pfad einer Datei abfragen, die du selbst einbindest? - Öffnen kannst du sie in SciTE mit: Cursor auf #include und dann Alt+I

Mal ein paar Infos, um dich von der sinnfreien Suche nach "NomadMemory" abzubringen.
- Nomad ist ein User im EN-Forum
- vor langer, langer Zeit bastelte er die NomadMemory.au3
- da auch AutoIt-Versionen sich weiterentwickeln, entstand daraus später die verbesserte Memory.au3 (derselbe Autor)

Und deshalb gibt es keinen Grund mehr einer UDF nachzujagen, die schon lange von der Entwicklung überrollt wurde.

• ALLE Einträge unterhalb von HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers\ in ein Array lesen
• Aus dem Array jene Einträge löschen, die nicht mit MyPrint anfangen (StringLeft($string), 7) <> 'MyPrint')
• Was übriggeblieben ist, kannst du in der Registry löschen.

Zitat von AutoMit

$Open = _memoryopen(ProcessExists("LCore.exe"))

Das kann ja nur ERROR bringen, mal geschaut, was ProcessExists zurückliefert?!

Nochmal ein Nachtrag:
Habe gerade einen PC frisch aufgesetzt mit: Win 7 Pro - 32 bit SP1. Die Installation erledigt sich ja in weniger als 15 min. Da es bisher kein neues SP gibt (und sicher auch nie geben wird), wollte ich dann doch alle Updates aktuell haben.
Neue Platte, frische Installation - dem Update sollte nun nix im Wege stehen. WinUpdater hat auch gleich 154 Updates gefunden (nach ca. 4 h rumsuchen) und machte sich dann ans Laden und Installieren (nochmal ca. 2 h). Nach Neustart sah ich im Updateverlauf viele fehlgeschlagene Installationen. Also Update nochmal gestartet, diesmal sagte mir Win, es muss erst ein neuer Updater installiert werden - und tat dieses. Mit dem neuen habe ich dann weiter munter Updates gezogen, die immer nacheinander erkannt wurden. Und als der letzte Block mit ca. 60 Updates installiert war und ich nach dem Neustart in den Updater schaute:
Windows Update Fehler: Es kann nicht nach Updates gesucht werden.

Daraufhin habe ich etliche Foren durchstöbert und zig Anleitungen zum evtl. Beheben des Fehlers gefunden. Aus alledem habe ich nun eine Vorgehensweise gefunden, mit der man eine recht große Wahrscheinlichkeit hat, den Fehler zu beheben und Windows Update wieder zur Mitarbeit zu bewegen.

• System auf Viren/Malware prüfen, Scandisc, DNS-Settings prüfen
• Systemdatei-Überprüfungsprogramm (SFC.exe) ausführen (bei frisch installiertem System kann man sich das schenken)
• Windows Update Komponenten zurücksetzen und unbedingt, wie auf der Seite auch angegeben:
• Den neuesten Windows Update-Agent installieren. Der kommt erstaunlicherweise nicht mit höchster Priorität mit den Updates und das war bei mir die Ursache für die Fehlfunktion.

Ich denke, es ist empfehlenswert VOR JEDEM Windows-Update manuell auf einen neuen Windows Update-Agent zu prüfen und diesen ggf. zu installieren. Vermutlich geht man damit einer Menge Fehlern aus dem Weg.

Meines Wissens gibt es dafür keine Property oder ich habe diese noch nicht entdeckt.
Du müsstest eine eigene Routine schreiben, die die Visible-Position speichert, dann ersetzt und zurück zur Visible Position kehrt.

Zitat von Andy

Um die Keyloggerfunktion muss/sollte man sich selbst kümmern

Ja, lustigerweise bietet so ziemlich jede Sprache eine Funktion GetKey/GetVirtualKey oder ähnlich um Tastatureingaben direkt abfragen zu können. Nur in AutoIt haben wir uns den Keuchheitsgürtel umgeschnallt und aufgrund der bösen Dinge, die sich damit anstellen lassen, wird dieser Punkt nicht supported.
Aber wer kein C&P-Skripter ist, und sich mit der Materie beschäftigt, findet dann auch das Bsp. in der Hilfe, wie man das Problem löst.

[OT]
Ich war früher viel rigider in meinen Ansichten. Inzwischen sehe ich das aber entspannter, da wir mit jeder Reglementierung ein Stück unserer eigenen Freiheit aufgeben. Bsp.: Du kaufst eine größere Menge Salpeterdünger, weil du deinen (großen) Garten im Frühjahr mal richtig in Schwung bringen willst. Da kannst du fast sicher sein, dass irgendein besorgter "Gutmensch" an der Kasse sofort die Polizei benachrichtigt und diese dann wegen "Gefahr in Verzug" (wer Dünger kauft will Bomben bauen!!) mit der vollen Rückendeckung unseres Rechtsstaates?! deine Bude auf den Kopf stellt und dich erst mal einlocht.
[/OT]

Zitat von thewanderer

Problem war das _Arraydelete

Das ist die Problematik der UDF. Die Funktionen sind für einen einzelnen Vorgang konzipiert. Bei mehrfachem Aufruf werden dann unnützerweise immer wieder dieselben (zeitintensiven) Vorgänge gestartet. ReDim als native Funktion ist ebenfalls eine dieser Spaßbremsen. Oft ist es besser auf die UDF zu verzichten, bzw. zeitintensive Funktionen nur ganz gezielt einzusetzen.

Zitat von autoiter

Kommt das jemandem bekannt vor?

Ich habe mir Hotkeys für 3 Suchvorgänge erstellt. Markierter Text wird dabei als Suchbegriff übernommen.
MSDN - Suche
www.google.de/search?q=site%3Amsdn.microsoft.com+SUCHBEGRIFF

AutoIt.de - Suche
www.google.de/search?q=site%3Aautoit.de+SUCHBEGRIFF

Autoitscript.com - Suche
www.google.de/search?q=site%3Aautoitscript.com+SUCHBEGRIFF

Am Anfang wollte ich eigentlich nur das Splashtext-Ctrl aufhübschen. Aber dann störte mich z.B., dass es nur in einer Instanz laufen kann. Es ist aber ganz nützlich die Möglichkeit zu haben, Werte aus verschachtelten Schleifen unabhängig parallel anzuzeigen.
Und so bastelte ich dann ein neues Control, GuiControlBusy. Mit den folgenden Eigenschaften:
- mehrere Control gleichzeitig
- das Control besteht bis zum Beenden per Skript oder Ablauf des Timeouts (wenn gesetzt) oder Ablauf des Sicherheitstimeouts
- Titelleiste (Titel und optional Countdown oder Zeitanzeige), Countdownanzeige erfordert gesetzten Timeout (in Sekunden, Anzeige wird formatiert "1 d / 23:59:59 h")
- Trennlinie in derselben Farbe wie Titelleiste
- Text in eigener Farbe. Wenn Timeout gesetzt, kann Countdown im Text mit Platzhalter %C% angezeigt werden. Zeilenumbruch kann mit \n im Text dargestellt werden
- Font und Größe sind fix
- Größe des Controls passt sich dem Titel/Text an
- Hintergrund wird mit Farbverlauf von oben nach unten (Standard) oder von links nach rechts gefärbt
- alle Ctrl-Parameter können zur Laufzeit verändert werden (Titel, Text, Timeout, Countdown, Farben, Position, OnTop)
- Wenn das Ctrl geschlossen wird, wird WM_NOTIFY mit eigenem iCode gesendet (nicht wenn alle Ctrl geschlossen werden z.B. bei Skriptende)

Eigentlich bin ich mit dem Ergebnis recht zufrieden. Aber ein Wermutstropfen:
Ich kann es nich gewollt reproduzieren, aber ab und an werden offene Ctrl plötzlich nicht weiter gezeichnet und sind nur noch weiße Rechtecke.
Da es nur sporadisch auftritt, habe ich bisher keine echte Möglichkeit gefunden nach der Ursache zu suchen. Vielleicht findet ihr beim Probieren des Übels Wurzel.
Bis dahin gilt für dieses Ctrl leider nur: bedingt tauglich - aber vorenthalten will ich es euch trotzdem nicht.

So sieht es aus:
control-busy.png

Hier mal die zur Verfügung stehenden Funktionen:

; Name ..........: _GuiCtrlBusy_Create
; Description ...: Erstellt ein Busy-Ctrl mit den minimal Maßen 250 x 120. Die Größe wird aus dem Platzbedarf
;                  des Textes ermittelt. Während das Ctrl angezeigt wird, läuft das Skript weiter.
;                  Es können zeitgleich mehrere Ctrl erstellt werden. Standardmäßig wird alle 100 ms geprüft, ob ein Neuzeichnen des Ctrl
;                  notwendig ist (Counter hat neuen Wert, User hat Parameter neu gesetzt).
;                  Ein Ctrl existiert bis zum manuellen Löschen, bis Erreichen des Timeout oder Erreichen des Sicherheitstimeout.
;                  ALLE Parameter des Ctrl lassen sich zur Laufzeit ändern.
;                  Wenn ein Control geschlossen wird, wird WM_NOTIFY mit dem Code $GCB_CLOSED gesendet (ausgenommen das gleichzeitige Schließen aller offenen Ctrl).


; Name ..........: _GuiCtrlBusy_Close
; Description ...: Beendet ein/alle Busy-Ctrl


; Name ..........: _GuiCtrlBusy_SetTitle
; Description ...: Für ein existierendes Ctrl Ändern von Titel, Countdown, Timeout, Titelfarbe


; Name ..........: _GuiCtrlBusy_SetText
; Description ...: Für ein existierendes Ctrl Ändern von Text, Textfarbe


; Name ..........: _GuiCtrlBusy_SetColors
; Description ...: Für ein existierendes Ctrl Ändern aller Farbwerte


; Name ..........: _GuiCtrlBusy_SetPos
; Description ...: Für ein existierendes Ctrl Ändern der Position (X, Y)


; Name ..........: _GuiCtrlBusy_SetTimeout
; Description ...: Für ein existierendes Ctrl Setzen des Timeout


; Name ..........: _GuiCtrlBusy_SetOnTop
; Description ...: Setzt ein existierendes Ctrl OnTop


; Name ..........: _GuiCtrlBusy_SetGradient
; Description ...: Für ein existierendes Ctrl Ändern der Farbverlaufeinstellungen


; Name ..........: _GuiCtrlBusy_UserDefaults
; Description ...: Setzen von benutzerdefinierten Standardwerten oder Zurücksetzen auf Programmstandards


; Name ..........: _GuiCtrlBusy_SetReceiver
; Description ...: Legt fest, welches Fenster die WM_NOTIFY Message empfängt, wenn ein BusyCtrl geschlossen wird.
;                  Ist kein Fenster festgelegt, wird an das aktive (zum Zeitpunkt, wenn das Control schließt) Fenster gesendet.

Und hier ein Mini-Testskript.

#include 'GuiCtrlBusy.au3'




$hWnd = GUICreate('Test', 300, 250, -1, 400)
GUICtrlCreateLabel('Mit Schliessen des Fensters' & @LF &  @LF & 'werden alle BusyCtrl beendet.', 30, 30)
GUISetState()




; $_sTitle, $_sText, $_iX, $_iY, $_iTimeout, $_iTimeCounter, $_BGRtitle, $_BGRtext, $_RGBtopleft, $_RGBbottomright, $_fRotate
$hBusy1 = _GuiCtrlBusy_Create('Nr 1', 'Titel && Countdown\nScheme: Clouds',   100,  50, 15)  ; the default color scheme
$hBusy2 = _GuiCtrlBusy_Create('Nr 2', 'Titel && Countdown\nScheme: Coffee',   480,  50, 10, -1, 0xE9F1FF, 0xE9F1FF, 0x000000, 0xFDEADF)
$hBusy3 = _GuiCtrlBusy_Create('Nr 3', 'Nur Titel\nScheme: Darkness', 860,  50,  0,  1, 0xD4D4DE, 0xD4D4DE, 0x000000, 0x666666, True)
$hBusy4 = _GuiCtrlBusy_Create('Nr 4', 'Nur Titel\nScheme: Silver',  1240,  50,  0,  1, 0xF6F6F6, 0x0A0A0B, 0x666666, 0xDDDDDD, True)
$hBusy5 = _GuiCtrlBusy_Create('Nr 5', 'Titel && Zeit\nScheme: Cacao',    100, 200,  0,  2, 0xE6E6FF, 0x0092FF, 0x460000, 0xC06565)
$hBusy6 = _GuiCtrlBusy_Create('Nr 6', 'Titel && Zeit\nScheme: Midnight', 480, 200,  0,  2, 0xF6DCE1, 0x180508, 0x1C0E5D, 0xDFD8FE)
$hBusy7 = _GuiCtrlBusy_Create('Nr 7', 'Titel && Zeit\nScheme: Forest',   860, 200,  0,  2, 0xEFFBE8, 0x0C1F01, 0x005C1F, 0xC5E0CE)
$hBusy8 = _GuiCtrlBusy_Create('Nr 8', 'Titel && Zeit\nScheme: Orange',  1240, 200,  0,  2, 0xDCEEFA, 0x000F80, 0xE28304, 0xFFDBAB)




GuiRegisterMsg($WM_NOTIFY, '_WM_NOTIFY')


While 1
	Switch GUIGetMsg()
		Case -3
			Exit
	EndSwitch
WEnd


Func _WM_NOTIFY($hWnd, $iMsg, $iwParam, $ilParam)
	Local $tNMHDR = DllStructCreate($tagNMHDR, $ilParam)
	Local $hWndFrom = DllStructGetData($tNMHDR, "hWndFrom")
	Local $iCode = DllStructGetData($tNMHDR, "Code")
	If $iCode = $GCB_CLOSED Then
		Switch $hWndFrom
			Case $hBusy1
				ConsoleWrite('$hBusy1 - CLOSED' & @CRLF)
			Case $hBusy2
				ConsoleWrite('$hBusy2 - CLOSED' & @CRLF)
		EndSwitch
	EndIf
EndFunc

Mir ist gerade aufgefallen, dass ich da etwas zu schnell geschossen habe. Einige Dinge habe ich nicht berücksichtigt.
- Markierung mehrerer Zeilen und dann Tab zum gemeinsamen Einrücken
- dasselbe bei Blockmarkierung
- Verwendung von Shift+Tab zum Ausrücken
- Tab setzen vor existierendem Text, Cursor muss vor Text bleiben

Insofern ist das Tool z.Zt. nicht wirklich einsatzbereit. Da muss ich erst mal schauen, wie sich das alles integrieren läßt. Und Tab bei Auto-Indent muß ja auch abgefangen werden.
Also vorerst: Baustelle.

Probiere doch mal den Weg über Word. Lade im Hintergrund die Html-Seite in Word, wechsle den Standarddrucker, drucke und wechsle zurück.

OnAutoItExitRegister ("_close")
#include <Word.au3>


Local $sPathHtml = "C:\Users\BugFix\Documents\Fritz.Repeater.htm"
Local $sTargetPrinter = "PDFCreator auf pdfcmon"                               ; "Druckername" & " auf " & "Anschlußname"


; Word-Objekt im Hintergrund erstellen
Local $oWord = _Word_Create(False)


; Html-Seite in Word laden
Local $oDocHtml = _Word_DocOpen($oWord, $sPathHtml)


; Drucker wechseln, bisherigen Standarddrucker speichern
Local $sActivePrinter = $oWord.Application.ActivePrinter
$oWord.Application.ActivePrinter = $sTargetPrinter


; Drucken
; .PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, _
;              ActivePrinterMacGX, ManualDuplexPrint, PrintZoomColumn, PrintZoomRow, PrintZoomPaperWidth, PrintZoomPaperHeight)
$oWord.Application.PrintOut(False, False, $wdPrintAllDocument, "", Default, Default, $wdPrintDocumentContent, 1, _
                                           "", $wdPrintAllPages, False, True, "", Default, Default, 0, 0, 0, 0)


; Drucker zurücksetzen
$oWord.Application.ActivePrinter = $sActivePrinter




Func _Close()
    ; Word beenden
    _Word_Quit($oWord, $wdDoNotSaveChanges, $wdOriginalDocumentFormat)
EndFunc

Ist dir das Excel-Objektmodell bekannt? Zumindest im Groben sollte man wissen, wie es funktioniert.
Hier mal mit nativem AutoIt-Code ein Bsp., wie man ein neues Excel-Objekt erstellt oder auf ein geöffnetes Excel referenziert. Ich bin der Meinung, wenn man auf der Basis des VBA-Codes (den man im Office-VBA-Editor nachvollziehen kann) erst mal beginnt mit Excel zu arbeiten, versteht man auch besser, was hinter den Funktionen der UDF steckt.
Aber du wirst nicht umhin kommen, deine Englischkenntnisse zu verbessern, wenn du im Netz nach Programmierhinweisen suchst. Deutsch ist da eher die Ausnahme.

Local $oExcel = ObjCreate("Excel.Application")                                 ; Excel-Objekt neu erstellen
; oder bei bereits geöffnetem Excel
$oExcel = ObjGet('', "Excel.Application")                                      ; Excel-Objekt bei bereits geöffnetem Excel erstellen (zusätzlich steuerbar über Parameter 'Datei' und 'Instanz')


Local $oBook = $oExcel.Workbooks.Open($sFilePath)                              ; bestimmte Datei öffnen und darauf Referenz erhalten
Local $oSheet = $oBook.Sheets(1)                                               ; Referenz auf Tabellenblatt 1 (alternativ kann der Name verwendet werden)

Zitat von Ice-Tee

Ich bekomme die ExcelTabelle nicht hochgeladen.

Wenn du anhängen willst, werden doch die erlaubten Formate angezeigt. Pack die Datei und lade die zip hoch.

Zitat von AutoMit

Ist die Frage nicht erlaubt, ob jemand sowas als Beispiel vorzuliegen hat?
Muss denn das Rad xmal neu erfunden werden?

Doch, die Frage ist erlaubt und das Rad muss nicht neu erfunden werden, wenn das jemand vorher getan hat.
Der Punkt ist eher, dass das Arbeiten mit der Zwischenablage weder häufig noch trivial ist und somit kaum jemand ein "Gerüst" rumstehen hat. Ich würde jetzt erst mal genau das tun, was ich dir empfohlen habe, ein bischen mit den Formatparametern experimentieren und schauen was geht. Es gibt nicht nur ein Format, wie du ja selbst gesehen hast. Du musst also herausfiltern, welche dieser Formate erforderlich sind, um dein Excelzelle wieder genau wie im Original darstellen zu können.

Mit einer Funktion wirst du da nicht alles abdecken. Darum LIES bitte alle Funktionen der Clipboard-UDF durch! Fast jede enthält einen Bezug auf Format. Es ist jetzt an dir herauszufinden, was für dich funktioniert. Es sind genug Bsp. enthalten, an denen du die Wirkungsweise der Funktionen nachvollziehen kannst und dann weißt, was für dein Problem nützlich ist.
Programmieren heißt auch Try & Error. Das ist ein Lernprozeß. Wenn wir dir hier eine fertige Auswahl der "Zutaten" auf den Tisch packen und das "Rezept" dazu, wird nie ein echter "Koch" aus dir.