Beiträge von XovoxKingdom

Nehmen wir an du gibst "a" ein..., dann hast du innerhalb der Cryptfunktion den String:
"$50765&"
(Da du "a" damit ja ersetzt hast)
Nun ersetzt deine Funktion weiterhin die (beiden) Zahl(en) "5" mit : "$73835&"
dann hast du schon den String:
"$$73835&076$73835&&"
dann wird er als nächstes die "6", dann die "7" etc. ersetzen.
Am Ende wird er sogar noch ALLE "&" ersetzen und die kommen bei deiner
Funktion in jeder Substitution vor!

Du musst also die Replace Funktionen anders anordnen und vorher den bereits verschlüsselten Teil isolieren!
\\Edit: Natoll da bin ich wieder der Letzte

Obwohl das Problem ja eigentlich schon durch das entfernen der Zeile geklärt seien müsste,
würde ich doch gerne die Ursache nennen:
Es liegt an der Funktion:

Func _CleanUp($sString)
Return StringRegExpReplace($sString, "\[(\w+?)\]", "\1"); einfach mal das \w durch ein . ersetzen
EndFunc ;==>_CleanUp

Das \w+ sucht Buchstaben und Zahlen, aber nicht Sonderzeichen wie "&" und deshalb wird [&] nicht zu &!
PS: "123" wird nicht zu "a" zurückverwandelt!

Zitat

Das Pattern jetzt is doch genau das selbe.

:wacko: ich weiss leider nicht was du meinst...
Mein Pattern gibt bei string 1 (ohne "test") das folgende aus:

[0]|anfang##123##ende
[1]|anfang##456##ende
[2]|anfang##789##ende

(jeweils ohne den index "[0]|" - das kommt aus dem Arrayview)

und bei string2 (mit "test zwischen "anfang##" und "##ende"):

[0]|anfang##123test##ende
[1]|anfang##456test##ende
[2]|anfang##789test##ende

soll er "anfang##ende" auch ausgeben?
oder nur "anfang####ende"
oder wie es mir so schien auf diese Art und Weise:
"anfang##" HIER ALLES MITNEHMEN "##ende"

Probier mal diesen hier:

StringRegExp($string,"anfang[^A-z0-9]{2}[A-z0-9]+[^A-z0-9]{2}ende",3)

Bei mir hats geklappt!
(Ob es das ist, was du willst weiss ich jedoch nicht^^)
\\Edit: Sofern es nach dem string zwischen JEDEM "anfang##" und "##ende" gesucht werden muss,
dann kannst du "[^A-z0-9]{2}" mit "##" ersetzen!

Zitat

aus der hilfe zu winapiloadimage:

"Lädt ein Icon, Cursor oder Bitmap"

icon hat .ico
cursor hat .cur
bitmap hat .bmp
(Es gibt HIER einige Tools mit denen du aus Bildern (PNG, JPG etc.) icons machen kannst!

Stürzt es ab oder hängt es sich nur auf?
Das aufhängen liegt dadran, dass er in der Funktion TEST()
ist und auf ein Schließen-Event wartet. Da zu dem Zeitpunkt jedoch die GUI
gelöscht ist, aber die Schleife NICHT verlassen wurde, reagiert das GUIGETMSG
aus der GUI1 nicht.
D.h. du musst erst die Schleife/Funktion TEST() verlassen, damit du Eventnachrichten
von GUI1 emfangen kannst.
Überarbeiteter Code (Achtung: Ich habe die Breite der GUIS um 100pxl erweitert):

Ich kann mir kaum vorstellen, dass DAS die Lösung zu deiner Frage war...
(da ich den Zweck nicht ganz durchschaue - außer vielleicht für einen Obfuscator oder sowas ähnliches ^^)
Wie dem auch sei, vielleicht hilft es dir trotzdem:

IniWrite("Test.ini","Stifte","Buntstift","Rot")

$Read=IniReadSectionNames("Test.ini")
If @error Then
MsgBox(4096,"ERROR!","Datei konnte nicht gelesen werden!")
Else
$Sektion1 = $read[1]
$Read=IniReadSection("Test.ini",$Sektion1)
If @error Then
MsgBox(4096,"ERROR!","Sektion wurde nicht gefunden!")
Else
$Schluessel1 = $read[1][0]
$Wert1 = $read[1][1]
Assign($Schluessel1,$Wert1)
$Erg=Eval($Schluessel1)
MsgBox(0,0,"Ergebnis: "&@TAB&@TAB&@TAB&$Erg&@CRLF&"gelesen aus der Variable: "&@TAB&$Schluessel1)
EndIf
EndIf

Stilgar hatte dafür mal eine "Testversion" gemacht. Vielleicht hilft sie dir ja:
LINK

Also die "Lösung" von button421 funktioniert leider nicht...
Beispiel:

Run("notepad.exe")
WinWait("[CLASS:Notepad]")
WinWaitClose("[CLASS:Notepad]")
MsgBox(0,"Sind Sie sich sicher?","Tja.. ist wohl doch schon zu spät!")

Du musst vorher noch feststellen, ob du auch wirklich MOZREPL installiert hast!
Anschließend musst du vielleicht das Script mit #RequireAdmin ausführen.

Manchmal ist es einfacher die SUFU zu benutzen, als sich den Kopf zu zerbrechen !
Dieser Fall ist sogar besonders, da die Aufklärung des SELBEN "Problems" vor weniger
als 2 STD bereits geklärt wurde !
Er steht sogar noch in der Übersicht der AutoIt.de Startseite!
Falls du sie nicht findest: HIER ist die Lösung bereits !

Das hier ist ein kleines Beispiel (muss natürlich noch angepasst werden):

Obwohl es schon "gelöst" ist, ist die Lösung wohl noch nicht gefunden.
Ich würde mal behaupten, dass ein #RequireAdmin zu Beginn des Scripts fehlt!

Ich war mal so frei und habe ein Screenshot von der (wahrscheinlich noch unbekannten) Hilfedatei gemacht :
Die Hilfedatei gibt es HIER in Deutsch!
Sonst kannst du auch die Englisch nehmen (Achtung: Englischkenntnisse sollte man dafür haben )
In Scite (dein Scripteditor) F1 drücken und den Funktionsnamen suchen.
Am besten das Beispiel angucken und die Beschreibung!!
Screenshot: DIREKTLINK
PS: Versuche dich erstmal an kleinen grundlegenden sachen und mach am besten erstmal ein paar Tutorials (guck z.b. mal bei Youtube)

Zu den Desktopkoordinaten:
Frisch aus der HILFEDATEI:
@DesktopWidth
@DesktopHeight

Nun als kleine Tüftelaufgabe:
1.Besorge dir die deutsche Hilfe
2.Gib die beiden Makros ein (@DesktopWidth und @DesktopHeight)
3.Finde heraus was sie machen und teste das Beispielscript
Viel glück!!
//EDIT: Da war ich wohl etwas zu fix (Ich habe beim Screenshot ein "i" unterschlagen )
Ich hoffe doch trotzdem, dass die Nachricht (recht) verständlich ist !

3fach post... Was soll das?
Ich denke, dass es notwendig sich die Scripte mal anzugucken z.b. in der Hilfedatei
für den Anfang ist das Zeichnen auf eine GUI möglicherweise interessant:
(Zitat aus der deuschen Hilfedatei Stichwort _GDIPlus_GraphicsCreateFromHWND):

Anschließend kannst du dich mit den einzelnen Formen auseinandersetzen:
_GDIPlus_GraphicsDrawRect
_GDIPlus_GraphicsDrawPie
etc.
dann mit Brushes, Pens (um Farbe ins Spiel zu bringen) und danach Doublebuffer etc.

Bei der "normalen" Threadansicht fehlt bei deinem Script ein Anführungszeichen VOR und NACH iexplore.exe
Jetzt ist es sichtbar .. O.o

#RequireAdmin;Vielleicht lags auch mit dadran, dass du kein admin bist
While 1
$prozess = ProcessExists("iexplore.exe")
If $prozess > 0 Then
ProcessClose("iexplore.exe")
EndIf
WEnd

(Bei der Antworterstellung sind sie jedoch vorhanden! .. komisch)

Du kannst vorher überprüfen, ob bereits dein Script läuft (also eine andere Instanz).
Wenn dies der fall ist, dann musst du nurnoch das Listview erweitern (mit dem Eintrag der via
Parameter übertragen wurde) und das Hauptscript (das ja bereits lief) updaten, sodass es auch
auf die neuen Elemente zugreifen kann.

Nimm das folgende Script als Ausgansmaterial, das du natürlich noch erweitern kannst:

#include <array.au3>
$Zahl = InputBox("Zahl eingeben","Zahlen nur von 1 bis 9")
If IsInt(Execute($Zahl)) And Execute($Zahl) < 10 And Execute($Zahl) > 0 Then
Dim $aArray[$Zahl]
For $i=1 To $Zahl
$aArray[$i-1] = $i
Next
$New=_ArrayPermute($aArray)
_ArrayDisplay($New)
EndIf

Das Beispiel aus der Hilfe mal als Grundgerüst genommen und (nach deinen Wünschen) erweitert:

#include <Date.au3>
$Day=22
$Mon=3
$Year=2010
Func _MY_WeekNumberISO($iYear = @YEAR, $iMonth = @MON, $iDay = @MDAY)
Local $iWeek
$iWeek=_WeekNumberISO($iYear, $iMonth, $iDay)
If _DateToDayOfWeekISO($iYear,$iMonth,$Day) = 7 Then $iWeek+=1
Return $iWeek
EndFunc
MsgBox(0,"Todays weeknumber","Todays weeknumber is " & _MY_WeekNumberISO($Year,$Mon,$Day))

Es gibt dazu bereits eine Formel:

#include <Array.au3>

Dim $aArray[3] = [1, 2, 3]
$aNewArray = _ArrayPermute($aArray, ",")
_ArrayDisplay($aNewArray, "Permutationen von 3")