Beiträge von nuts

nuts

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
#include <EditConstants.au3>
Global $hnebenGUI = GUICreate("",200,200)
Global $Input = GUICtrlCreateInput("Gibt hier deine Stundenzahl ein!",20,50,160,20)
Global $button = GUICtrlCreateButton("test", 50, 150)

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

global $counter =0
GUISetState()
GUIRegisterMsg($WM_Command, "WM_Command")
While 1
$msg2 = GUIGetMsg(1)
Select
Case $msg2[0] = $GUI_EVENT_CLOSE
ExitLoop
EndSelect

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

WEnd
func WM_Command($hWnd, $Msg, $wParam, $lParam)
local $hwndinput
If not IsHWnd($Input) then $hwndinput = GUICtrlGetHandle($input)
$iCode = BitShift($wParam, 16)
switch $lParam
case $Input, $hwndinput
switch $iCode
case $EN_Setfocus
ConsoleWrite($counter & " | " & $iCode & @CRLF)
EndSwitch
EndSwitch
$counter +=1
Return $GUI_RUNDEFMSG
EndFunc

[/autoit]

So müsste es hinhauen.

nuts

Theoretisch so ca:

Spoiler anzeigen

[autoit]

#include <WindowsConstants.au3>
#include <GuiConstantsEx.au3>
Global $hnebenGUI = GUICreate("",200,200)
Global $Input = GUICtrlCreateInput("Gibt hier deine Stundenzahl ein!",20,50,160,20)
Global $button = GUICtrlCreateButton("test", 50, 150)

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

global $counter =0
GUISetState()
GUIRegisterMsg($WM_Command, "WM_Command")
While 1
$msg2 = GUIGetMsg(1)
Select
Case $msg2[0] = $GUI_EVENT_CLOSE
ExitLoop
EndSelect

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

WEnd
func WM_Command($hWnd, $Msg, $wParam, $lParam)
$iCode = BitShift($wParam, 16)
$nID = BitAND($wParam, 0x0000FFFF)
switch $nID
case $Input
ConsoleWrite($counter & " | " & $iCode & @CRLF)
EndSwitch
$counter +=1
EndFunc

[/autoit]

Bin aber selbst noch am testen, ganz so stimmts noch nicht.

nuts

1. Ein eigener, geheimer Obfuscator
2. Ein Cyrpter (die "sicheren" sind wohl kostenpflichtig?)

3. Man verschwendet gar keine Gedanken daran

nuts

Hallo opaed,

ob der Vertrag wirksam zustande gekommen ist hängt doch keineswegs mit deiner Bankverbindung zusammen.
Ist Supreme Auction jetzt eine typsiche Abzockmasche? Abo-Klauseln die nur in den AGB's "versteckt" sind halte ich für unwirksam - das ist jetzt eine (meine) Rechtsmeinung die im Einzelfall so vielleicht nicht haltbar ist.

Grundsätzlich musst du auch auf nichts reagieren bis ein gerichtlicher Mahnbescheid ankommt. Diesem kannst du dann widersprechen (oder zahlen), ggf. wird das Unternehmen dann die Klage vorbereiten.
Soweit ich das jetzt im Netz erkennen konnte ist Supreme Auction jedoch keine reine Abzockseite oder? Demnach könnte das Vorgehen auch rechtlich einwandfrei sein, dann kommt auch bestimmt ein gerichtlicher Mahnbescheid!

nuts

Nagut diese Masche klingt zwar nicht so nett, allerdings wäre doch eine Kündigung außerhalb des Programms wirksam gewesen?
Beim Surfen muss man sich eben vor den Haien in Acht nehmen!

nuts

Für Windows gibt es auch tolle DVB Software: http://www.dvbviewer.com/de/index.php
Kostet zwar 15€ wird dich aber überzeugen

nuts

Zitat von PokerFace

@EpoX:
Ein richtig dickes Soundsystem.
Ich hab nicht mal 5.000 Euro dafür rumliegen.

Ob das reicht? Guter Kinosound ist zuhause nur sehr schwer realisierbar
Allerdings ist die Bildqualität im Kino meist echt gruselig (3D ka) und da ich eher der Bildquali-Freak bin bleibe ich meist zuhause.

nuts

Es geht doch darum;
1. INR als Standardprogramm für bestimmte Dateien (.mp3) zu registrieren
2. 1 bis x Dateien zu öffnen
3. Diese Dateien zur Playliste hinzuzufügen und die Playliste zu starten oder?

Wo sind denn die entsprechenden Zeilen? imho wird da doch nur mit der cmdline rumgemurkst oder?

nuts

Also nachdem es jetzt mal läuft:
Bei mir startet sich INR X-mal bei der Übergabe der Songs - d.h. man markiert 5 mp3's, öffnet diese mit INR und das Prog. startet sich 5 mal und spielt alle gleichzeitig.

nuts

Außerdem ist das überhaupt nicht lauffähig

edit \ Die lange Version ist auch nicht lauffähig? :wacko:

nuts

Dann häng mal noch bitte die thumbbar.au3 an.

nuts

Vermutlich alle die nicht im Standardpaket enthalten sind.

nuts

Kannst du kein Beispiel auf das Problem reduziert machen? Ich hab da nicht alle includes ...

Vermutung: im Array sind nur die übergebenen Dateien per cmdlinie, $titelnummer enthält die Anzahl der Titel in der Playliste?

nuts

Naja der Fehler ist, dass du auf einen Arrayindex zugreifen willst, der außerhalb der Arraygröße liegt.
Wahrscheinlich geht schon etwas beim Befüllen des Array über den cmdline-Aufruf schief - schau dir dazu das Array doch mal mit _Arraysdisplay an.
Wo im Skript kommt das jetzt genau vor? Hab ehrlich gesagt wenig Lust den ganzen INR zu debuggen

nuts

Ah jetzt hab ichs auch geschnallt.
So dann:

Spoiler anzeigen

[autoit]

$hGUI = GUICreate("", 120, 60)
$hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
EndSwitch
WEnd

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

Func _Crypt($sString)
; Ja ich weiß, mit einem 2D-Array und einer For-Next Schleife wäre es 200 mal kürzer. Aber ich wollte es nicht unnötig kompliziert machen.
$sString = _StringReplace($sString,"a","123")
$sString = _StringReplace($sString, "b", "y")
$sString = _StringReplace($sString, "c", "x")
$sString = _StringReplace($sString, "d", "w")
$sString = _StringReplace($sString, "e", "v")
$sString = _StringReplace($sString, "f", "u")
$sString = _StringReplace($sString, "g", "t")
$sString = _StringReplace($sString, "h", "s")
$sString = _StringReplace($sString, "i", "r")
$sString = _StringReplace($sString, "j", "q")
$sString = _StringReplace($sString, "k", "p")
$sString = _StringReplace($sString, "l", "o")
$sString = _StringReplace($sString, "m", "n")
$sString = _StringReplace($sString, "n", "m")
$sString = _StringReplace($sString, "o", "l")
$sString = _StringReplace($sString, "p", "k")
$sString = _StringReplace($sString, "q", "j")
$sString = _StringReplace($sString, "r", "i")
$sString = _StringReplace($sString, "s", "h")
$sString = _StringReplace($sString, "t", "g")
$sString = _StringReplace($sString, "u", "f")
$sString = _StringReplace($sString, "v", "e")
$sString = _StringReplace($sString, "w", "d")
$sString = _StringReplace($sString, "x", "c")
$sString = _StringReplace($sString, "y", "b")
$sString = _StringReplace($sString, "z", "a")
$sString = _StringReplace($sString, "&", "&")

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

Return _CleanUp($sString)
EndFunc ;==>_Crypt

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

Func _StringReplace($sString, $sSearch, $sReplace)
Return StringRegExpReplace($sString, "(?<!\[)" & $sSearch & "(?!\])", "[" & $sReplace & "]")
EndFunc ;==>_StringReplace

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

Func _CleanUp($sString)
Return StringRegExpReplace($sString, "\[(.+?)\]", "\1")
EndFunc ;==>_CleanUp

[/autoit]

nuts

Wobei das etwas seltsam ist
Zuerst werden die Klammern [] in Zeile 50 hinzugefügt und anschließend wieder entfernt?

So gehts auch:

Spoiler anzeigen

[autoit]

$hGUI = GUICreate("", 120, 60)
$hInput = GUICtrlCreateInput("", 10, 10, 100, 20)
$hButton = GUICtrlCreateButton("OK", 10, 35, 100, 20)
GUISetState()

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case -3
Exit
Case $hButton
GUICtrlSetData($hInput, _Crypt(GUICtrlRead($hInput)))
EndSwitch
WEnd

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

Func _Crypt($sString)
; Ja ich weiß, mit einem 2D-Array und einer For-Next Schleife wäre es 200 mal kürzer. Aber ich wollte es nicht unnötig kompliziert machen.
$sString = _StringReplace($sString,"a","123")
$sString = _StringReplace($sString, "b", "y")
$sString = _StringReplace($sString, "c", "x")
$sString = _StringReplace($sString, "d", "w")
$sString = _StringReplace($sString, "e", "v")
$sString = _StringReplace($sString, "f", "u")
$sString = _StringReplace($sString, "g", "t")
$sString = _StringReplace($sString, "h", "s")
$sString = _StringReplace($sString, "i", "r")
$sString = _StringReplace($sString, "j", "q")
$sString = _StringReplace($sString, "k", "p")
$sString = _StringReplace($sString, "l", "o")
$sString = _StringReplace($sString, "m", "n")
$sString = _StringReplace($sString, "n", "m")
$sString = _StringReplace($sString, "o", "l")
$sString = _StringReplace($sString, "p", "k")
$sString = _StringReplace($sString, "q", "j")
$sString = _StringReplace($sString, "r", "i")
$sString = _StringReplace($sString, "s", "h")
$sString = _StringReplace($sString, "t", "g")
$sString = _StringReplace($sString, "u", "f")
$sString = _StringReplace($sString, "v", "e")
$sString = _StringReplace($sString, "w", "d")
$sString = _StringReplace($sString, "x", "c")
$sString = _StringReplace($sString, "y", "b")
$sString = _StringReplace($sString, "z", "a")
$sString = _StringReplace($sString, "&", "&")

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

Return $sString
EndFunc ;==>_Crypt

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

Func _StringReplace($sString, $sSearch, $sReplace)
Return StringRegExpReplace($sString, "(?<!\[)" & $sSearch & "(?!\])", $sReplace )
EndFunc ;==>_StringReplace

[/autoit]

nuts

Also quasi so (mal mit Klammern zum Verständnis):

((1*1) +(1*2)-(1*3))

Ergebnis:
((1*1) +(1*2)-(1*3))
(1*1)
(1*2)
(1*3)
?

edit \ Ah wieder falsch verstanden? nagut Hauptsache gelöst.

nuts

Hm ich weiss leider nicht wie du es haben willst sorry

$string = 'anfang fdsafdsaf anfang##ende djsafhjdsafhdkjsa anfang##123test##ende dasfdafdsafdsaa anfang anfang##456test##ende ende ende anfang##789test##ende

Mit meinem Pattern wird alles zwischen rot markierten Punkten gefunden, aber so solls nicht sein?

edit \ Grün markiert die Treffer, diese werden auch im Array angezeigt.

nuts

Naja das ist ein anderer Satzaufbau. Was ist das Musterergebnis davon?

Mein Pattern sucht "anfang##" "beliebiges zeichen beliebig oft" "##ende" (wie im ersten Post verlangt)

nuts

[autoit]

$string = StringRegExp($string, '(anfang##.*?##ende)', 3)

[/autoit]

So dann oder?

Beiträge von nuts

GUI input bei klick text löschen

GUI input bei klick text löschen

Decompiler - Wie kann man sich schützen?

Supreme Auction

Supreme Auction

Wie neue Hardware zur VM hinzufügen ?

Geht ihr noch oft ins Kino?

Array fehler

Array fehler

Array fehler

Array fehler

Array fehler

Array fehler

Array fehler

Warum wird & in [] dargestelle?

Warum wird & in [] dargestelle?

StringRegExp Problem

StringRegExp Problem

StringRegExp Problem

StringRegExp Problem