Beiträge von Runa

Zitat von x0r

@Bioshade freu dich n Keks, ich kann kein "RegExp". Für größere "Dinge" war die Funktion auch nicht gedacht, ich finde nur den "Weg" ziemlich cool, bisher hab ich immer alles einzeln replaced.

Es geht hier nicht um Dich, oder für wie große Projekte Du Deine Funktion gedacht hattest. Du hast diese Funktion im Scripte-Bereich gepostet. "So bekommst du Feedback und Lob." heißt es in der Kategoriebeschreibung. Auch ist das mehr oder minder DIE Anlaufstelle, wenn man eben mal ein Snippet braucht, was man eben nicht selbst zur Hand hat. Warum also potentiellen anderen Nutzern die schnellere Funktion vorenthalten? Es sind aggressive Reaktionen wie Deine, die mich immer zwei Mal überlegen lassen, bevor ich potentielle Snippets oder Hilfestellungen hier im Forum poste.

chip: Bin ich auch schon drüber gestolpert. Das wäre allenfalls ein "Workaround", da es ein Anpassen der Gruppenrichtlinien erfordert. Es muss aber auch den "offiziellen" Weg geben. Immerhin muss ich zur Installation von anderen Standardprogrammen nicht meine Gruppenrichtlinien anpassen...

Func _ClearString($strWert, $strChars = "-.,:;#+ß'*?=)(/&%$§!~\}][{`´_""")
	$strChars = StringRegExpReplace($strChars, "(.)", "\\$1")
	$sReturn = StringRegExpReplace($strWert, "[" & $strChars & "]", "")
	Return StringRegExpReplace($sReturn, "[" & StringRegExpReplace($strChars, "[" & $strChars & "]", "") & "]", "") ;// Fängt Fehlfunktion bei Zeichen ab, die nicht mehr gematched werden, wenn sie escaped werden. BSP: d
EndFunc

Kommt zu exakt dem selben Ergebnis ... nur schneller Getestet über 100.000 Läufe auf der Möhre hier:

Meins: 0.084690981088042
Deins: 0.290721040534951

Meine Funktion war in 99,930% der Fälle schneller - und das bei gleicher Flexibilität

Ist leider noch offen...

Die Frage ist grundsätzlich erst einmal, welches SQL-System verwendet wird. Denn SQL heißt nicht gleich SQL. Schon das Erstellen deiner Tabelle funktioniert zum Beispiel nicht in MySQL. Dort müssen nämlich bereits bei der Erstellung schon die erwarteten Werte der Spalte übergeben werden. Einen "Variant"-Typ gibt es bei MySQL nicht.

Was aber immer gleich ist, sind die Keywörter. So ist zum Anzeigen immer ein SELECT von nöten - zum Beispiel:

SELECT * FROM ADR WHERE `Geburtstag`='29.02.2014';

Um einen Datensatz zu ändern brauchst du immer ein Update - und um den sinnvoll zu nutzen brauchst du eine einmalige Spalte. Für gewöhnlich wird dazu in SQL die ID verwendet. Praktisch eine Spalte, die automatisch immer eins hochgezählt wird, und die immer eindeutig ist. Nehmen wir an, die hättest du in deiner Tabelle gehabt ...

UPDATE ADR SET `PLZ` = '98765' WHERE `ID` = 1;

Um deine Tabellenstruktur zu verändern brauchst du das Keyword ALTER. Hier auch wieder die Frage: Wie macht SQLite das? MySQL würde es beispielsweise so machen:

ALTER TABLE ADR ADD `SpalteNachNachname` INT NOT NULL AFTER `Nachname`;

Und zuletzt das löschen:

DELETE FROM ADR WHERE `ID` = 1;

Ziemlich analog dazu ist es auch in SQLite.

Das glaube ich kaum. Mein Musikgeschmack ist keineswegs zu beschreiben...

BugFix : Ich glaube die werden alle an die Shutdown.exe geschickt - bloß mit unterschiedlichen Parametern?

AutoTim: Ja, 64.

Wo gehobelt wird und so... *fg*

Auf OnEvent musst du nicht umbauen:

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


Global $hGUI = GUICreate('Test', 600, 600, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_POPUP, $WS_SYSMENU, $WS_SIZEBOX))
GUISetState(@SW_SHOW, $hGUI)


Global $aWinPos = WinGetPos($hGUI)
GUIRegisterMsg($WM_GETMINMAXINFO, "MY_WM_GETMINMAXINFO")


While True
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd


Func _End()
	Exit
EndFunc   ;==>_End


Func MY_WM_GETMINMAXINFO($hWnd, $msg, $wParam, $lParam)
	If $hWnd = $hGUI Then
		Local $minmaxinfo = DllStructCreate("int;int;int;int;int;int;int;int;int;int", $lParam)
		DllStructSetData($minmaxinfo, 7, $aWinPos[2]) ; min X
		DllStructSetData($minmaxinfo, 8, 100) ; min Y
		DllStructSetData($minmaxinfo, 9, $aWinPos[2]) ; max X
		DllStructSetData($minmaxinfo, 10, @DesktopHeight) ; max Y
	EndIf
EndFunc   ;==>MY_WM_GETMINMAXINFO

Oscar : Bei dir hat sich ein Fehler eingeschlichen:

WinGetPos gibt einen Array zurück, in dem 0 die X-Position, 1 die Y-Position, 2 die Breite und 3 die Höhe ist - in deinem Beispiel oben verwendest du 0 als Breite.

Bekommst du denn irgendeine Fehlermeldung?

Die Feldbezeichnungen sind identisch.

Auch in einem noch so sorgfältig geprüften und geschriebenem Programm können Fehler auftreten. Das ist einer der Gründe warum professionelle Programme eine Update-Routine haben - neben der Beseitigung von Sicherheitslücken.

Es spricht nichts gegen eine abschliessende Prüfung der Daten aus dem Programm - bloßdafür. Ich werde so ein Programm wie hier gefordert nicht schreiben. Alleine schon weil ich die Verantwortung für Fehler die aufgrund einer solch fahrlässigen Vorgehensweise verursacht wurden nicht übernehmen möchte.

#include <OutlookEX.au3>


Global $oOutlook = _OL_Open()
$aItems = _OL_ItemFind($oOutlook, "*\Kontakte", $olContact, '[LastName] = "Schmitt"')
If @error = 0 Then
	_ArrayDisplay($aItems, "OutlookEX UDF:  - Find contacts by lastname")
Else
	MsgBox(48, "OutlookEX UDF - Kontakte", "Error finding a contact. @error = " & @error & ", @extended: " & @extended)
EndIf


; Dein Part ... wie kommst du nun an das Kontakt-Element? :) Speichere das in die Variable $oItem und du bist fertig - hier dann simple Nachnamenänderung
;~ $oItem = _OL_ItemModify($oOutlook, $oItem, "*\Kontakte", '[LastName] = "Schmidt"')

Einen Schritt hab ich ausgelassen

Du willst nicht ernsthaft, dass ein vollautomatisiertes Programm in deinem Namen kostenpflichtig Dinge bestellen kann, oder? Denn das wäre alles andere als eine gute Idee.

Es kann immer mal ein Fehler auftreten - auch im besten Programm, kann dieser zu schwerwiegenden Problemen führen. Beispiel: Die Artikelnr. hat nen kleinen Dreher drin oder so etwas. Ist zwar nur eine Kleinigkeit, kann aber durchaus einen Preisunterschied von 10.000 € ausmachen - und das ohne den Businessbereich zu betrachten. Ich empfehle daher: Niemals - und das wiederhole und betone ich mit Nachdruck: NIEMALS - ein Programm vollautomatisiert bestellen lassen. Die bessere Alternative wäre, das Programm diese Dinge alle eingeben zu lassen und sie in den Warenkorb zu "werfen", und dann den Warenkorb - so wie er ist - anzeigen zu lassen, damit etwas menschliches drüber gucken kann, und dann - wenn alles korrekt ist - selbst diesen einen Klick macht.

Dein Radiosender sendet keine Tags mit, die der Media-Player auslesen kann. Ansonsten ginge es im übrigen so:

$WMP = ObjCreate("WMPlayer.OCX")
$WMP.URL = "http://www.jumpradio.de/static/webchannel/jump_live_channel_low.m3u"
$WMP.Controls.Play()
HotKeySet ( "{F5}", "stop")


While Sleep(1000)
   $sTitle = "'" & $WMP.currentMedia.GetItemInfo("Title") & "'"
   ConsoleWrite($sTitle & @CR)
WEnd


Func stop()
   Exit
EndFunc

WinWait wartet auf ein Fenster. WinActive fragt ab, ob ein Fenster aktiv ist. WinActivate aktiviert ein Fenster.

Oder anders formuliert:

Die Prüfung, ob dein Fenster überhaupt existiert, findet erst nach dem Aktivieren des möglicherweise nicht existenten Fensters statt.. und warten tut die Funktion WinWait auch nicht lange, da der Timeout mit 10 Sekunden recht kurz angelegt ist... spielt aber auch kaum eine Rolle: Denn du fragst das möglicherweise nicht existierende Fenster vorher bereits ab, und speicherst das möglicherweise leere Handle ab und wartest auf dieses.

Oder anders formuliert: Du kannst oben - statt WinExists - WinWait mit der gleichen Syntax verwenden, und unten, wo du derzeit "WinWait" hast, solltest du eher - wie Gandalf bereits schrieb - WinWaitActive verwenden. Denn das wartet, bis das angegebene Fenster das Aktive Fenster ist.

Das Problem ist, dass die Edits CRLF mitspeichern - nicht Enter. Und das Dokument behandelt CRLF nicht wie Enter:

Func startf4 ()
	$text = StringReplace($text, @CR, "")
	$text = StringReplace($text, @LF, "{Enter}")
   Send ($text)
EndFunc

Da IT-Sicherheit ein Stützpfeiler unseres IT-Unternehmens ist hier mal ein paar grundlegende Fragen die alle durchaus ernst gemeint sind:

1. Warum verwendet ein Sicherheitsunternehmen überhaupt Kaspersky? Nahezu jedes bekanntere Unternehmen in diesem Bereich nutzt professionellere AV-Systeme die eben nicht bloß Heimanwenderversion + Kannst du Zentral verwalten ist. Denn mehr ist die Businessreihe von Kapersky nicht.

2. Welches unterirdische System läuft den Dort dass das zu merklichen Leistungseinbußen führt? Intern sind Übertrsgungsraten von bis zu 1GB/s mittlerweile Business-Standard. Extern ist die langsamste Leitung bei unseren Kunden bei einem Download von 100MB/s. Entweder habt ihr also dort eine extrem schlechte Hardware vorliegen, verdrehte Adern in der hoffentlich strukturierten Verkabellung oder aber der Kaspersky ist schlecht was und zu Frage 1 zurückführt oder aber falsch konfiguriert was zu Frage 3 führt.

3. Was für ein IT-Sicherheitsunternehmen wollt ihr bitte sein? Ihr - vielmehr Du - versuchst AutoIt-Scripts klare Malware-Funktionalitäten zu verpassen. Jedes halbwegs brauchbare Antivirenprogramm listet AutoIt grundsätzlich Schonmal als potentiellen Virus - nicht nur wenn per UPX gepackt - und gerade wenn solche Dinge anfangen wie Prozess verstecken … Klarer Fall von Malware für jeden brauchbaren AntiVirus.

Für mich ist klar: Du hast weder Ahnung von IT-Sicherheit, noch Ahnung davon welche Auswirkungen deine Änderungen haben würden. Und schließlich - und das ist der Hauptgrund warum ich jedem Rate dieses Thema zu ignorieren: Ist Kaspersky Business so dermaßen weit hinter den Wettbewerbern dass dieses zum einen kein Idle-Scan, Shadowscan und schon gar keinen geplanten Scan kann? Das bezweifle ich doch stark. Ebenso wie die Tatsache das Kaspersky nicht aus ihrer Dummheit lernt und im Gegensatz zu allen anderen Business - Antivirenprogramme überhaupt die Möglichkeit für den Normaluser lässt einen Scan zu stoppen. Und mal ab davon: Es ist ein mehr als lächerlicher Witz einen AV zu betreiben, der aus der Businessreihe stammt und dann dem Endnutzer der nicht ohne Grund dafür zahlt dass die IT-Systeme sicherheitstechnische überwacht werden ein Tool in die Hand zu drücken mit den Worten dass das Programm ja zu Performance-Verlust führt. Das ist nicht nur extrem grob fahrlässig und somit ein Armutszeugnis eines IT-Sicherheitsunternehmens das vertraglich die VOLLE Haftung übernehmen muss sondern schlicht schlecht informiert und offensichtlich kein Stück erfahren im Bereich der IT-Sicherheit.

Gerne kannst du die it-sa besuchen und dich dort gehörig zu den Themen informieren. Dort findest du jede Menge Experten die dir schon zu der Toolidee einfach nur mit einem Facepalm antworten - sofern sie nicht zwischen Lachen und Heulen pendeln. Für mich hast du dir die Story nur ausgedacht um die Forenregeln umgehen zu können - denn selbst nach nur einem einzigen Workshop in dem Bereich weißt du, dass schon der Grundgedanke absurd ist. Wenn es wahr sein sollte dann sitzt du bloß in der Telefonzentrale und hast mit der It-Sicherheit nix zu tun.