Beiträge von Icynator

oh sry bin weng durcheinander gekommen weil in der hilfe steht 16 steht für binär
so klappts
thx

nein, ich les es nicht im UTF16 aus, sondern im binär modus, da sonst einige zeichen nicht richtig übernommen werden.
So werden nämlich aus ner datei mit über 1000 kb ne datei mit 566 kb

und wenn ich das mit 16 austausch schreibt er auch nix mehr in die datei..

Hallo,
ich hab mal wieder ein Problem und zwar möchte ich etwas aus einer Datei übersetzen. In der Datei stehen Chinesische Schriftzeichen deshalb das Binär.

Wenn ich das ganze so mache:

$textuisystem_handle = FileOpen("textuisystem2.txt", 16 )
$textuisystem_contents = FileRead($textuisystem_handle)
$textuisystem_contents = StringReplace($textuisystem_contents, "31095549435F5354545F464F4E544E414D45093F3F3F","32095549435F5354545F464F4E544E414D45093F3F3F")
FileWrite("test.txt", $textuisystem_contents)

dann schreibt der das als binär wieder in die test.txt

Wenn ich das StringReplace raus lass schreibt ers ganz nomal in die Datei so das daraus wieder n String wird.

Ich hoffe Ihr versteht was ich mein.

Zitat von name22

Icynator:
So könnte man es auch machen, allerdings wäre eine Abfrage ob das Passwort nun stimmt nicht mehr möglich.
(Das kann man jetzt als Vorteil oder als Nachteil sehen).

is ja nich nötig man sieht ja am schluss des ergebnis wenn alles richtig wiederhergestellt wurde war des pw richtig sonst nich

man kann auch einfach das pw durch n input feld abfragen und damit dann entcrypten?!
somit stehts nich im quellcode und ist "sicher"

Okay so hat ichs schon nur ich dachte das geht ohne das ich das label disablen und enablen muss

Zitat von AutoBert

Hallo Icynator,

lies dir die Hilfe zu GUICtrlSetState durch,

mfg (Auto)Bert

hab ich allerdings weiß ich nich wirklich welches ich auf was anwenden muss damit das gleich funktioniert ohne das ich i-was wieder enablen muss

Zitat von qixx

[autoit]

Func _ButtonPressed()
GUICtrlSetState(@GUI_CtrlID-100,$GUI_ENABLE)
GUICtrlDelete(@GUI_CtrlID)
EndFunc

[/autoit]

Die 100 Durch die Anzahl der Felder ersetzen.
Dann wird es funkrionieren.

Zur Erklärung:
Die CTRL-ID von den Labels beginnt bei 14 und endet
bei 113. Die CTRL-ID der Bilder beginnt ab 114.
Wenn du jetzt also auf 114 klickst, und das - 100
nimmst, kommst du auf 14.
Du hattest also vor den Labels schon 13 andere ID's
erstellt.

MfG
qixx

Alles anzeigen

danke

Dann sag mir mal bitte wie ich das nach dem Klick wieder aktivieren kann
Mein komplettes Script:

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <String.au3>
#include <Array.au3>

Opt("GUIOnEventMode", 1)

Dim $GUI

_GUI_Create()
_CreateField()

While 1
Sleep(250)
WEnd

Func _GUI_Create()
$GUI = GUICreate("Minesweep", 509, 629, 279, 226)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
$Spiel_Menu = GUICtrlCreateMenu("Spiel")
$Neues_Spiel_Menu = GUICtrlCreateMenuItem("Neues Spiel (F1)", $Spiel_Menu)
GUICtrlSetOnEvent(-1, "_CreateGame")
GUICtrlCreateMenuItem("", $Spiel_Menu)
$Anfaenger_Menu = GUICtrlCreateMenuItem("Anfänger", $Spiel_Menu, -1 , 1)
GUICtrlSetState(-1, $GUI_CHECKED)
$Fort_Menu = GUICtrlCreateMenuItem("Fortgeschritten", $Spiel_Menu, -1 , 1)
$Profi_Menu = GUICtrlCreateMenuItem("Profi", $Spiel_Menu, -1 , 1)
$Self_Menu = GUICtrlCreateMenuItem("Benutzerdefiniert", $Spiel_Menu, -1 , 1)
GUICtrlCreateMenuItem("", $Spiel_Menu)
$Bestzeiten_Menu = GUICtrlCreateMenuItem("Bestzeiten (F2)", $Spiel_Menu)
GUICtrlCreateMenuItem("", $Spiel_Menu)
$Beenden_Menu = GUICtrlCreateMenuItem("Beenden (ESC)", $Spiel_Menu)
GUICtrlSetOnEvent(-1,"_exit")
GUISetState(@SW_SHOW)
EndFunc

Func _CreateGame()
GUIDelete($GUI)
_GUI_Create()
_CreateField()
EndFunc

Func _exit()
Exit
EndFunc

Func _CreateField($Slots = 10, $Rows = 10, $Mines = 10)
Dim $Fields_Label[$Rows][$Slots], $Fields_Picture[$Rows][$Slots]
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Label[$i1][$i2] = 0
Next
Next
$x = 0
$y = 100
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Label[$i1][$i2] = GUICtrlCreateLabel("hi", $x, $y,50,50)
GUICtrlSetState(-1,$GUI_DISABLE)
$x += 51
Next
$x = 0
$y += 51
Next
$x = 0
$y = 100
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Picture[$i1][$i2] = GUICtrlCreatePic("Test.JPG", $x, $y,50,50)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetOnEvent(-1,"_ButtonPressed")
GUICtrlSetState(-1,$GUI_ENABLE)
$x += 51
Next
$x = 0
$y += 51
Next
EndFunc

Func _ButtonPressed()
MsgBox("","","")
GUICtrlDelete(@GUI_CtrlID)
EndFunc

Ich weiß das ich des da Abgeschaltet hab
Allerdings wenn ichs weglass lässt sich des Bild darüber nicht mehr als Button benutzen

Hi,
ich hätte mal wieder eine Frage,
und zwar versuch ich Minesweeper nachzubauen.

Eine Funktion im Script sieht im Moment so aus:

Func _CreateField($Slots = 10, $Rows = 10, $Mines = 10)
Dim $Fields_Label[$Rows][$Slots], $Fields_Picture[$Rows][$Slots]
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Label[$i1][$i2] = 0
Next
Next
$x = 0
$y = 100
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Label[$i1][$i2] = GUICtrlCreateLabel("hi", $x, $y,50,50)
GUICtrlSetState(-1,$GUI_DISABLE)
$x += 51
Next
$x = 0
$y += 51
Next
$x = 0
$y = 100
For $i1 = 0 To $Rows -1 Step 1
For $i2 = 0 To $Slots -1 Step 1
$Fields_Picture[$i1][$i2] = GUICtrlCreatePic("Test.JPG", $x, $y,50,50)
GUICtrlSetState(-1,$GUI_DISABLE)
GUICtrlSetOnEvent(-1,"_ButtonPressed")
GUICtrlSetState(-1,$GUI_ENABLE)
$x += 51
Next
$x = 0
$y += 51
Next
EndFunc

Ergebnis:

- Das Bild liegt über dem Label
- Das Bild lässt sich anklicken und verschwindet dann (in ner anderen Funktion)
- Man sieht nichts mehr vom Label darunter

Allerdings ist jetzt das Label das darunter liegt deaktiviert, also so gräulich geschrieben

Keiner nen Tipp für mich?

Okay hab jetzt noch ein Problem mit dem scheiß java

Edit im ersten Post unter Problem 2

EDIT: keiner ne hilfe für mein zweites problem?

ey so einfach
wenn ich des gewusst hät hät ich mir viel zeit und ärger erspart

dickes thx an dich SEuBo

Hallo,
Also ich hab folgendes Problem:

Problem 1: GELÖST

<div id="zone1"><div><div class="bm1 link" style="position: absolute;" onclick="specialZoneFieldHandler(1);" ;="" onmouseover="showDiv('buildinginfo1');" onmouseout="hideDiv('buildinginfo1');"></div></div>

Problem 2:

mfg
Icynator

Wobei ich allerdings die Lösung von AutoBert besser finde da bei der lösung die position nicht in der mitte des bildes genommen wird

perfekt danke

Hallo,
nach einiger Zeit hab ich mal wieder eine Frage und zwar sieht meine Situation so aus:

Ich habe eine GUI auf der ein Bild liegt, jetzt soll wenn ich mit der gedrückten Maustaste auf dem Bild bleib das Bild dem Mauszeiger folgen... Lass ich die Maustaste los soll das Bild nicht mehr folgen und mir die aktuelle Position auf der GUI verraten. Also x und y werte.

Hoffe ich habe mich verständlich ausgedrückt, wenn nicht fragt einfach nochmal nach

mfg
Icynator

EDIT: also so wie im Koda Form Designer wenn man n bild i-wo hin verschiebt...

Bekommste aber danach wird festgestellt das alle Lieder nur geklaut waren und nun musst du Milliarden Schadensersatz zahlen

Ich wünsche mir ein sorgenfreies Leben

supi spiel
design is eig. recht gut und besonders die kartensets sin geil

hieß das spiel nich früher einfach mal memory?

nächstes mal sortier mal dein script weng dann kennst dich vill. auch besser aus

Global $Paused
HotKeySet("{END}", "TogglePause")
HotKeySet("s", "Start")

$GUI= GUICreate("Fragger", 240, 40, 10, 10)
$Combo1= GUICtrlCreateCombo("Level", 10, 10, 100)
$Combo2= GUICtrlCreateCombo("Throw", 130, 10, 100)
GUISetState()

While 1
Sleep(100)
WEnd

For $l=1 To 30 Step 1
GUICtrlSetData($Combo1, $l)
Next

For $t=1 To 10 Step 1
GUICtrlSetData($Combo2, $t)
Next

Func TogglePause()
$Paused = NOT $Paused
While $Paused
Sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("")
EndFunc

Func Start()
While 1
Select
Case $l=1
Select
Case $t=1
ControlClick("Play Fragger","","","left",1,219,791)
Sleep(15000)
Case $t>1
MsgBox(0,"More Throws later!","Not yet!",10000)
EndSelect
Case $l>1
MsgBox(0,"More Levels later!","Not #!&@ing yet!!!",10000)
EndSelect
WEnd
EndFunc

für was allerdings die zwei for schleifen sin kP da die zu keinem zeitpunkt aufgerufen werden also kannst sie genauso gut weglassen...