Beiträge von gem

gem

meinst du so?

Spoiler anzeigen

[autoit]

#include <ComboConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
Dim $checkCN[11]
$Form = GUICreate("Form", 662, 439, -1, -1)
$Auswahl = GUICtrlCreateCombo("Auswahl", 472, 44, 145, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL))
GUICtrlSetData(-1, "Daten")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Auswahl
$read = GUICtrlRead($Auswahl)

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

If $read = "Daten" Then
_Daten()
ElseIf $read = "Auswahl" Then
_Auswahl()
EndIf
EndSwitch
WEnd
Func _Daten()
Dim $Links = 50
Dim $oben = 50

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

For $i = 0 To 10
$checkCN[$i] = GUICtrlCreateCheckbox("CHECKBOX 1", $Links, $oben + $i * 30, 120, 20)
Next
EndFunc ;==>_Daten
Func _Auswahl()
For $i = 0 To 10
GUICtrlDelete($checkCN[$i])
Next
EndFunc ;==>_Auswahl

[/autoit]

gem

das zweite war richtig danke

gem

sollte eigentlich so gehen

Spoiler anzeigen

[autoit]

$Zahl1 = InputBox("","Zahl1")
$Zahl2 = 2
$Ergebnis = $Zahl1 * $Zahl2
GUICtrlSetData($Label,$Ergebnis)

[/autoit]

gem

hallo

wie kann man in einem menuitem die dazugehörige tastenkombination anzeigen z.b.

Öffnen Strg+E
Speichern Strrg+A

gem

@Marsi

richtig geiles spiel habs aber nur bis 635 punkte geschafft

ich versuch ob ich es noch besser hinbekomme

gem

danke für die ganzen antworten

gem

danke

gem

ich weiß nicht wie ich es hinbekommen kann
das wenn ich in einer richeditbox das wort "hallo" schreibe das nur dieses dann rot wird
so ähnlich wie ein skripeditor

geht das überhaupt mir richedit

gem

misterspeed

danke genau das habe ich gebraucht

gem

vieleicht habe ich es falsch formuliert ich möchte das symbol einer exe speichern
ist das in autoit möglich?

gem

gibt es eine möglichkeit mithilfe von autoit aus einer beliebigen exe die ico datei zu speichern

gem

ich bin zwar nicht gut aber ich hätts so gemacht

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <WindowsConstants.au3>
Dim $Input[12]
Dim $Read[12]

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

$Form1_1 = GUICreate("KevKevs Notenrechner", 325, 359, 343, 187)
GUICtrlCreateLabel("Englisch", 32, 40, 68, 17)
GUICtrlCreateLabel("Deutsch", 32, 80, 68, 17)
GUICtrlCreateLabel("ReWe", 32, 120, 59, 17)
GUICtrlCreateLabel("BWL", 32, 160, 60, 17)
GUICtrlCreateLabel("Uefa", 32, 200, 59, 17)
GUICtrlCreateLabel("Sozi", 192, 40, 40, 17)
GUICtrlCreateLabel("PA", 192, 80, 42, 17)
GUICtrlCreateLabel("Sport", 192, 120, 37, 17)
GUICtrlCreateLabel("Reli", 192, 160, 38, 17)
GUICtrlCreateLabel("DV", 192, 200, 35, 17)
GUICtrlCreateLabel("VWL", 32, 240, 60, 17)
GUICtrlCreateLabel("TV", 192, 240, 34, 17)
$Input[0] = GUICtrlCreateInput("", 120, 40, 41, 21)
$Input[1] = GUICtrlCreateInput("", 120, 80, 41, 21)
$Input[2] = GUICtrlCreateInput("", 120, 120, 41, 21)
$Input[3] = GUICtrlCreateInput("", 120, 160, 41, 21)
$Input[4] = GUICtrlCreateInput("", 120, 200, 41, 21)
$Input[5] = GUICtrlCreateInput("", 120, 240, 41, 21)
$Input[6] = GUICtrlCreateInput("", 248, 40, 41, 21)
$Input[7] = GUICtrlCreateInput("", 248, 80, 41, 21)
$Input[8] = GUICtrlCreateInput("", 248, 120, 41, 21)
$Input[9] = GUICtrlCreateInput("", 248, 160, 41, 21)
$Input[10] = GUICtrlCreateInput("", 248, 200, 41, 21)
$Input[11] = GUICtrlCreateInput("", 248, 240, 41, 21)
$ND = GUICtrlCreateButton("Notendurschnitt", 32, 280, 89, 33, 0)
$Speichern = GUICtrlCreateButton("Speichern", 136, 280, 65, 33, 0)
$Copyright = GUICtrlCreateLabel("Copyright", 200, 336, 48, 17)
$Auslesen = GUICtrlCreateButton("Auslesen", 136, 320, 65, 33, 0)
$Kevin = GUICtrlCreateLabel("Kevin", 248, 336, 31, 17)
$Soldner = GUICtrlCreateLabel("Soldner", 280, 336, 40, 17)
GUICtrlCreateLabel("", 224, 288, 4, 4)
GUICtrlCreateLabel("Erg", 216, 280, 73, 33)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Speichern
Speichern()
Case $Auslesen
Einlesen()
EndSwitch
WEnd
Func Einlesen()
For $i = 0 to 11
GUICtrlSetData($Input[$i],IniRead("Noten.ini","Noten",$i,""))
Next
EndFunc
Func Speichern()
For $i = 0 to 11
$Read[$i] = GUICtrlRead($Input[$i])
IniWrite("Noten.ini","Noten",$i,$Read[$i])
Next
EndFunc

[/autoit]

gem

mach ich

gem

Guten Abend

Ich versuche verzweifelt es zu schaffen das die figuren (bis jetzt labels) nicht die mauern berühren wie kann ich das machen

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
$Form = GUICreate("Bomberman", 600, 600)
Global $01 = 0
Global $02 = 0
Global $03 = 0
Global $Blau_Richtung = "rechts"
Global $Rot_Richtung = "rechts"
Global $Rot_Y = 100
Global $Rot_X = 100
Global $Blau_Y = 100
Global $Blau_X = 100
$File = FileOpen("map.txt", 0)
$Read = FileRead($File)
FileClose($File)
$String = StringSplit($Read, ",")
For $i = 1 To 225
If $String[$i] = "1" Then
GUICtrlCreatePic("weg.jpg", $01, $02, 40, 40, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
ElseIf $String[$i] = "0" Then
GUICtrlCreatePic("mauer.jpg", $01, $02, 40, 40, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
EndIf
$01 = $01 + 40
$03 = $03 + 1
If $03 = 15 Then
$02 = $02 + 40
$01 = 0
$03 = 0
EndIf
Next
$Rot = GUICtrlCreateLabel("", $Rot_Y, $Rot_X, 40, 40)
$Blau = GUICtrlCreateLabel("", $Blau_Y, $Blau_X, 40, 40)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If _IsPressed(27) = 1 Then
Global $Rot_Richtung = "rechts"
EndIf
If _IsPressed(25) = 1 Then
Global $Rot_Richtung = "links"
EndIf
If _IsPressed(26) = 1 Then
Global $Rot_Richtung = "oben"
EndIf
If _IsPressed(28) = 1 Then
Global $Rot_Richtung = "unten"
EndIf
If _IsPressed(44) = 1 Then
Global $Blau_Richtung = "rechts"
EndIf
If _IsPressed(41) = 1 Then
Global $Blau_Richtung = "links"
EndIf
If _IsPressed(57) = 1 Then
Global $Blau_Richtung = "oben"
EndIf
If _IsPressed(53) = 1 Then
Global $Blau_Richtung = "unten"
EndIf
Rot()
Blau()
Sleep(100)
WEnd
Func Rot()
If $Rot_Y <> 0 Then
If $Rot_Richtung = "links" Then $Rot_Y = $Rot_Y - 10
EndIf
If $Rot_Y <> 560 Then
If $Rot_Richtung = "rechts" Then $Rot_Y = $Rot_Y + 10
EndIf
If $Rot_X <> 0 Then
If $Rot_Richtung = "oben" Then $Rot_X = $Rot_X - 10
EndIf
If $Rot_X <> 560 Then
If $Rot_Richtung = "unten" Then $Rot_X = $Rot_X + 10
EndIf
GUICtrlSetPos($Rot, $Rot_Y, $Rot_X)
EndFunc ;==>Rot
Func Blau()
If $Blau_Y <> 560 Then
If $Blau_Richtung = "rechts" Then $Blau_Y = $Blau_Y + 10
EndIf
If $Blau_Y <> 0 Then
If $Blau_Richtung = "links" Then $Blau_Y = $Blau_Y - 10
EndIf
If $Blau_X <> 0 Then
If $Blau_Richtung = "oben" Then $Blau_X = $Blau_X - 10
EndIf
If $Blau_X <> 560 Then
If $Blau_Richtung = "unten" Then $Blau_X = $Blau_X + 10
EndIf
GUICtrlSetPos($Blau, $Blau_Y, $Blau_X)
EndFunc ;==>Blau

[/autoit]

gem

danke für die kritik werde die sachen dann mal ändern

gem

Danke

gem

guten morgen

ich habe in meinem skript ein problem immer wenn ich a,w,s oder d drücke gibt der computer ein geräusch das soll der aber nicht machen was muss ich tun

hier mein skript

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Misc.au3>
#include <StaticConstants.au3>
$UserDLL = DllOpen("User32.dll")
Global $Rot_Wert = 100
Global $Blau_Wert = 100
Global $Rot_Richtung = "rechts"
Global $Rot_Y = 250
Global $Rot_X = 250
Global $Blau_Y = 250
Global $Blau_X = 250
Global $Blau_Zaehler = 0
Global $Rot_Zaehler = 0
Global $Blau_Richtung = "rechts"
Global $Blau_Feinde = 0
Global $Rot_Feinde = 0
Global $Rot_Timer = 0
Global $Blau_Timer = 0
Dim $Rot_Label[10000000]
Dim $Blau_Label[10000000]
Dim $Blau_Feind_Label[10000000]
Dim $Blau_Feind_X[10000000]
Dim $Blau_Feind_Y[10000000]
Dim $Rot_Feind_Label[10000000]
Dim $Rot_Feind_X[10000000]
Dim $Rot_Feind_Y[10000000]
Menu()
Func Menu()
$FormMenu = GUICreate("MultiplayerSnake", 510, 269, -1, -1, $WS_POPUP)
GUISetBkColor(0x590000)
$Close = GUICtrlCreateIcon("", -1, 464, 8, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetImage(-1,"dw.ico")
GUICtrlCreatePic("", 8, 56, 500, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"Unbenannt-2 Kopie.jpg")
$Play = GUICtrlCreatePic("", 19, 160, 150, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"play.jpg")
$Quit = GUICtrlCreatePic("", 347, 160, 150, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"quit.jpg")
$Settings = GUICtrlCreatePic("", 183, 160, 150, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetImage(-1,"settings.jpg")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Play
GUIDelete($FormMenu)
Var()
Spiel()
Case $Close
Exit
Case $Settings
Settings()
Case $Quit
Exit
EndSwitch
WEnd
EndFunc
Func Spiel()
Global $Form = GUICreate("MultiplayerSnake", 500, 500)
GUISetBkColor(0x590000)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 0)
$Rot_Prozess = GUICtrlCreateProgress(400,10,90,15)
GUICtrlSetColor(-1,0xff0000)
GUISetBkColor(0x590000)
$Blau_Prozess = GUICtrlCreateProgress(400,35,90,15)
GUICtrlSetColor(-1, 0x0000FF)
GUISetBkColor(0x590000)
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 7)
$Rot_Anzeige = GUICtrlCreateLabel("",10,5,30,30)
GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xff0000)
$Blau_Anzeige = GUICtrlCreateLabel("",10,30,30,30)
GUICtrlSetFont(-1, 14, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x0000FF)
$Rot_Anzeige2 = GUICtrlCreateLabel("",40,5,30,30)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xff0000)
$Blau_Anzeige2 = GUICtrlCreateLabel("",40,30,30,30)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x0000FF)
GUISetState(@SW_SHOW)
GUICtrlSetData($Rot_Prozess,$Rot_Wert)
GUICtrlSetData($Blau_Prozess,$Blau_Wert)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
If _IsPressed(27,$UserDLL) = 1 Then
If $Rot_Richtung = "unten" Or $Rot_Richtung = "oben" Then
Global $Rot_Richtung = "rechts"
EndIf
EndIf
If _IsPressed(25,$UserDLL) = 1 Then
If $Rot_Richtung = "unten" Or $Rot_Richtung = "oben" Then
Global $Rot_Richtung = "links"
EndIf
EndIf
If _IsPressed(26,$UserDLL) = 1 Then
If $Rot_Richtung = "rechts" Or $Rot_Richtung = "links" Then
Global $Rot_Richtung = "oben"
EndIf
EndIf
If _IsPressed(28,$UserDLL) = 1 Then
If $Rot_Richtung = "rechts" Or $Rot_Richtung = "links" Then
Global $Rot_Richtung = "unten"
EndIf
EndIf
If _IsPressed(44,$UserDLL) = 1 Then
If $Blau_Richtung = "unten" Or $Blau_Richtung = "oben" Then
Global $Blau_Richtung = "rechts"
EndIf
EndIf
If _IsPressed(41,$UserDLL) = 1 Then
If $Blau_Richtung = "unten" Or $Blau_Richtung = "oben" Then
Global $Blau_Richtung= "links"
EndIf
EndIf
If _IsPressed(57,$UserDLL) = 1 Then
If $Blau_Richtung = "rechts" Or $Blau_Richtung = "links" Then
Global $Blau_Richtung = "oben"
EndIf
EndIf
If _IsPressed(53,$UserDLL) = 1 Then
If $Blau_Richtung = "rechts" Or $Blau_Richtung = "links" Then
Global $Blau_Richtung = "unten"
EndIf
EndIf
$Sleep = 20
If _IsPressed("A3",$UserDLL) = 1 Then
If $Rot_Wert <= 0 Then
Else
$Rot_Wert = $Rot_Wert - 10
GUICtrlSetData($Rot_Prozess,$Rot_Wert)
$Sleep = 60
EndIf
EndIf
If _IsPressed("A0",$UserDLL) = 1 Then
If $Blau_Wert <= 0 Then
Else
$Blau_Wert = $Blau_Wert - 10
GUICtrlSetData($Blau_Prozess,$Blau_Wert)
$Sleep = 60
EndIf
EndIf
If _IsPressed(20,$UserDLL) = 1 Then
If $Blau_Feinde = 20 Then
Else
$Blau_Feind_Label[$Blau_Feinde] = GUICtrlCreateLabel("",$Blau_Y,$Blau_X,10,10)
$Blau_Feind_X[$Blau_Feinde] = $Blau_X
$Blau_Feind_Y[$Blau_Feinde] = $Blau_Y
GUICtrlSetBkColor(-1,0x000000)
$Blau_Feinde = $Blau_Feinde + 1
EndIf
EndIf
If _IsPressed("A1",$UserDLL) = 1 Then
If $Rot_Feinde = 20 Then
Else
$Rot_Feind_Label[$Rot_Feinde] = GUICtrlCreateLabel("",$Rot_Y,$Rot_X,10,10)
$Rot_Feind_X[$Rot_Feinde] = $Rot_X
$Rot_Feind_Y[$Rot_Feinde] = $Rot_Y
GUICtrlSetBkColor(-1,0x000000)
$Rot_Feinde = $Rot_Feinde + 1
EndIf
EndIf
GUICtrlSetData($Rot_Anzeige,$Rot_Feinde)
GUICtrlSetData($Blau_Anzeige,$Blau_Feinde)
Rot()
Blau()
GUICtrlSetData($Rot_Anzeige2,$Rot_Timer)
GUICtrlSetData($Blau_Anzeige2,$Blau_Timer)
If $Rot_Feinde = 20 Then
$Rot_Timer = $Rot_Timer + 1
If $Rot_Timer = 101 Then
For $Zaehler = 0 To 20
GUICtrlDelete($Rot_Feind_Label[$Zaehler])
Next
Dim $Rot_Feind_Label[10000000]
Dim $Rot_Feind_X[10000000]
Dim $Rot_Feind_Y[10000000]
$Rot_Feinde = 0
$Rot_Timer = 0
EndIf
EndIf
If $Blau_Feinde = 20 Then
$Blau_Timer = $Blau_Timer + 1
If $Blau_Timer = 101 Then
For $Zaehler = 0 To 20
GUICtrlDelete($Blau_Feind_Label[$Zaehler])
Next
Dim $Blau_Feind_Label[10000000]
Dim $Blau_Feind_X[10000000]
Dim $Blau_Feind_Y[10000000]
$Blau_Feinde = 0
$Blau_Timer = 0
EndIf
EndIf
Sleep($Sleep)
If $Blau_Wert >= 100 Then
Else
$Blau_Wert = $Blau_Wert + 0.3
GUICtrlSetData($Blau_Prozess,$Blau_Wert)
EndIf
If $Rot_Wert >= 100 Then
Else
$Rot_Wert = $Rot_Wert + 0.3
GUICtrlSetData($Rot_Prozess,$Rot_Wert)
EndIf
WEnd
EndFunc
Func Rot()
If $Rot_Richtung = "rechts" Then $Rot_Y = $Rot_Y + 10
If $Rot_Richtung = "links" Then $Rot_Y = $Rot_Y - 10
If $Rot_Richtung = "oben" Then $Rot_X = $Rot_X - 10
If $Rot_Richtung = "unten" Then $Rot_X = $Rot_X + 10
$Rot_Label[$Rot_Zaehler] = GUICtrlCreateLabel("",$Rot_Y,$Rot_X,10,10)
GUICtrlSetBkColor(-1,0xff0000)
If $Rot_X >= 500 Then
$Rot_X = -10
ElseIf $Rot_X <= -10 Then
$Rot_X = 500
EndIf
If $Rot_Y >= 500 Then
$Rot_Y = -10
ElseIf $Rot_Y <= -10 Then
$Rot_Y = 500
EndIf
$Rot_Loeschen = $Rot_Zaehler -10
If $Rot_Zaehler >= 10 Then GUICtrlDelete($Rot_Label[$Rot_Loeschen])
$Rot_Zaehler = $Rot_Zaehler + 1
For $Zaehler = 0 To 20
If $Rot_X = $Rot_Feind_X[$Zaehler] Then
If $Rot_Y = $Rot_Feind_Y[$Zaehler] Then
RotVerloren()
EndIf
EndIf
Next
For $Zaehler = 0 To 20
If $Rot_X = $Blau_Feind_X[$Zaehler] Then
If $Rot_Y = $Blau_Feind_Y[$Zaehler] Then
RotVerloren()
EndIf
EndIf
Next
EndFunc
Func Blau()
If $Blau_Richtung = "rechts" Then $Blau_Y = $Blau_Y + 10
If $Blau_Richtung = "links" Then $Blau_Y = $Blau_Y - 10
If $Blau_Richtung = "oben" Then $Blau_X = $Blau_X - 10
If $Blau_Richtung = "unten" Then $Blau_X = $Blau_X + 10
$Blau_Label[$Blau_Zaehler] = GUICtrlCreateLabel("",$Blau_Y,$Blau_X,10,10)
GUICtrlSetBkColor(-1, 0x0000FF)
If $Blau_X >= 500 Then
$Blau_X = -10
ElseIf $Blau_X <= -10 Then
$Blau_X = 500
EndIf
If $Blau_Y >= 500 Then
$Blau_Y = -10
ElseIf $Blau_Y <= -10 Then
$Blau_Y = 500
EndIf
$Blau_Loeschen = $Blau_Zaehler -10
If $Blau_Zaehler >= 10 Then GUICtrlDelete($Blau_Label[$Blau_Loeschen])
$Blau_Zaehler = $Blau_Zaehler + 1
For $Zaehler = 0 To 20
If $Blau_X = $Rot_Feind_X[$Zaehler] Then
If $Blau_Y = $Rot_Feind_Y[$Zaehler] Then
BlauVerloren()
EndIf
EndIf
Next
For $Zaehler = 0 To 20
If $Blau_X = $Blau_Feind_X[$Zaehler] Then
If $Blau_Y = $Blau_Feind_Y[$Zaehler] Then
BlauVerloren()
EndIf
EndIf
Next
EndFunc
Func BlauVerloren()
$Form2 = GUICreate("MultiplayerSnake", 300, 300, -1, -1, $WS_POPUP)
GUISetBkColor(0x590000)
$Close = GUICtrlCreateIcon("", -1, 264, 8, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetImage(-1,"dw.ico")
GUICtrlCreateLabel("Rot hat", 74, 80, 200, 39)
GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xff0000)
GUICtrlCreateLabel("gewonnen", 58, 120, 200, 39)
GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0xff0000)
$Button_Wiederholen = GUICtrlCreatePic("widerholen.jpg", 25, 190, 250, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Wiederholen
GUIDelete($Form2)
GUIDelete($Form)
Var()
Spiel()
Case $Close
Exit
EndSwitch
WEnd
EndFunc
Func RotVerloren()
$Form2 = GUICreate("MultiplayerSnake", 300, 300, -1, -1, $WS_POPUP)
GUISetBkColor(0x590000)
$Close = GUICtrlCreateIcon("", -1, 264, 8, 40, 40, BitOR($SS_NOTIFY,$WS_GROUP))
GUICtrlSetImage(-1,"dw.ico")
GUICtrlCreateLabel("Blau hat", 74, 80, 200, 39)
GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlCreateLabel("gewonnen", 58, 120, 200, 39)
GUICtrlSetFont(-1, 24, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x0000FF)
$Button_Wiederholen = GUICtrlCreatePic("widerholen.jpg", 25, 190, 250, 100, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Wiederholen
GUIDelete($Form2)
GUIDelete($Form)
Var()
Spiel()
Case $Close
Exit
EndSwitch
WEnd
EndFunc
Func Var()
Global $Rot_Wert = 100
Global $Blau_Wert = 100
Global $Rot_Richtung = "rechts"
Global $Rot_Y = 250
Global $Rot_X = 100
Global $Blau_Y = 250
Global $Blau_X = 400
Global $Blau_Zaehler = 0
Global $Rot_Zaehler = 0
Global $Blau_Richtung = "rechts"
Global $Blau_Feinde = 0
Global $Rot_Feinde = 0
Global $Rot_Timer = 0
Global $Blau_Timer = 0
Dim $Rot_Label[10000000]
Dim $Blau_Label[10000000]
Dim $Blau_Feind_Label[10000000]
Dim $Blau_Feind_X[10000000]
Dim $Blau_Feind_Y[10000000]
Dim $Rot_Feind_Label[10000000]
Dim $Rot_Feind_X[10000000]
Dim $Rot_Feind_Y[10000000]
EndFunc
Func Settings()
EndFunc

[/autoit]

gem

hallo leute wollte euch mein programm vorstellen

beschreibung:
mit dem programm kann man eine txt datei zu eine sec datei speichern die man mit diesem programm wieder öffnen und lesen kann. die datei wird mit einem passwort geschützt das man zum entpacken braucht. wenn man ein falsches passwort eingibt öffnet er die datei zeigt aber nicht den richtigen inhalt an

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_icon=Symbol.ico
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <ProgressConstants.au3>
#include <Misc.au3>
Global $ProgramIni = @ProgramFilesDir&"\WinSec\WinSec.ini"
Global $ProgramDir = @ProgramFilesDir&"\WinSec"
If Not FileExists($ProgramDir) Then
DirCreate($ProgramDir)
_IniWrite()
EndIf
Global $FontColor=IniRead($ProgramIni,"Allgemein","FontColor","")
Global $FontSize=IniRead($ProgramIni,"Allgemein","FontSize","")
Global $FontType=IniRead($ProgramIni,"Allgemein","FontType","")
Global $BgColor=IniRead($ProgramIni,"Allgemein","BgColor","")
DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 4)
$Form = GUICreate("WinSec", 338, 385)
GUISetBkColor(0x008080)
$Menu_WinSec = GUICtrlCreateMenu("WinSec")
$Menu_DateiVerpacken = GUICtrlCreateMenuItem("Datei Verpacken", $Menu_WinSec)
$Menu_DateiEntpacken = GUICtrlCreateMenuItem("Datei Entpacken", $Menu_WinSec)
GUICtrlCreateMenuItem("", $Menu_WinSec)
$Menu_Einstellungen = GUICtrlCreateMenuItem("Einstellungen", $Menu_WinSec)
GUICtrlCreateMenuItem("", $Menu_WinSec)
$Menu_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_WinSec)
GUICtrlCreateLabel("WinSec", 240, 312, 91, 29)
GUICtrlSetFont(-1, 16, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input_Verpacken_Dateipfad = GUICtrlCreateInput("", 16, 24, 265, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Verpacken_DateipfadAuswaehlen = GUICtrlCreateButton("^", 288, 22, 35, 25)
GUICtrlSetFont(-1, 12, 800, 0, "Verdana")
$Input_Verpacken_Dateiname = GUICtrlCreateInput("", 144, 56, 177, 21)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Input_Verpacken_Passwort = GUICtrlCreateInput("", 144, 88, 177, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Verpacken_Verpacken = GUICtrlCreateButton("Verpacken", 240, 152, 83, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
GUICtrlCreateLabel("Dateiname:", 32, 58, 89, 20)
GUICtrlSetFont(-1, 10, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateLabel("Passwort:", 32, 90, 76, 20)
GUICtrlSetFont(-1, 10, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
$Input_Verpacken_PasswortWiederholen = GUICtrlCreateInput("", 144, 120, 177, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlCreateLabel("Wiederholen:", 32, 122, 101, 20)
GUICtrlSetFont(-1, 10, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("Verpacken", 8, 8, 321, 177)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input_Entpacken_Dateipfad = GUICtrlCreateInput("", 16, 208, 265, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Entpacken_DateipfadAuswaehlen = GUICtrlCreateButton("^", 288, 206, 35, 25)
GUICtrlSetFont(-1, 12, 800, 0, "Verdana")
$Input_Entpacken_Passwort = GUICtrlCreateInput("", 144, 240, 177, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlCreateLabel("Passwort:", 32, 242, 76, 20)
GUICtrlSetFont(-1, 10, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
$Button_Entpacken_Entpacken = GUICtrlCreateButton("Entpacken", 240, 272, 83, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
GUICtrlCreateGroup("Entpacken", 8, 192, 321, 113)
GUICtrlSetColor(-1, 0xFFFFFF)
$Button_Beenden = GUICtrlCreateButton("Beenden", 8, 312, 83, 25)
GUICtrlSetFont(-1, 8, 800, 0, "Verdana")
$StatusBar = _GUICtrlStatusBar_Create($Form)
$ContextMenu = GUICtrlCreateContextMenu()
$Con_DateiVerpacken = GUICtrlCreateMenuItem("Datei Verpacken",$ContextMenu)
$Con_DateiEntpacken = GUICtrlCreateMenuItem("Datei Entpacken",$ContextMenu)
GUICtrlCreateMenuItem("",$ContextMenu)
$Con_Einstellungen = GUICtrlCreateMenuItem("Einstellungen",$ContextMenu)
GUICtrlCreateMenuItem("",$ContextMenu)
$Con_Beenden = GUICtrlCreateMenuItem("Beenden",$ContextMenu)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button_Beenden
Exit
Case $Button_Verpacken_DateipfadAuswaehlen
_Verpacken_DateipfadAuswaehlen()
Case $Button_Entpacken_DateipfadAuswaehlen
_Entpacken_DateipfadAuswaehlen()
Case $Button_Entpacken_Entpacken
_Entpacken()
Case $Button_Verpacken_Verpacken
_Verpacken()
Case $Menu_Beenden
Exit
Case $Menu_DateiEntpacken
_Entpacken_DateipfadAuswaehlen()
Case $Menu_DateiVerpacken
_Verpacken_DateipfadAuswaehlen()
Case $Menu_Einstellungen
_Einstellungen()
Case $Con_DateiVerpacken
_Verpacken_DateipfadAuswaehlen()
Case $Con_DateiEntpacken
_Entpacken_DateipfadAuswaehlen()
Case $Con_Einstellungen
_Einstellungen()
Case $Con_Beenden
Exit
EndSwitch
WEnd
Func _Verpacken_DateipfadAuswaehlen()
$Pfad = FileSaveDialog( "WinSec","", "Textdateien (*.txt*)", 2)
If @error Then
Else
GUICtrlSetData($Input_Verpacken_Dateipfad,$Pfad)
EndIf
EndFunc
Func _Entpacken_DateipfadAuswaehlen()
$Pfad = FileOpenDialog("WinSec", "", "WinSec Datei (*.sec*)", 1)
If @error Then
Else
GUICtrlSetData($Input_Entpacken_Dateipfad,$Pfad)
EndIf
EndFunc
Func _Entpacken()
Global $ReadPfad = GUICtrlRead($Input_Entpacken_Dateipfad)
$ReadPasswort = GUICtrlRead($Input_Entpacken_Passwort)
If Not $ReadPfad = "" Then
If Not $ReadPasswort = "" Then
$File = FileOpen($ReadPfad,0)
$FileRead = FileRead($File)
FileClose($File)
Global $ReadFile = _StringEncrypt(0,$FileRead,$ReadPasswort,2)
GUISetState(@SW_HIDE,$Form)
MsgBox(64,"WinSec","Die Datei wurde erfolgreich entpackt.")
GUICtrlSetData($Input_Entpacken_Dateipfad,"")
GUICtrlSetData($Input_Entpacken_Passwort,"")
GUISetState(@SW_SHOW,$Form)
_Anzeigen()
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
EndFunc
Func _Verpacken()
$ReadPfad = GUICtrlRead($Input_Verpacken_Dateipfad)
$ReadDateiname = GUICtrlRead($Input_Verpacken_Dateiname)
$ReadPasswort = GUICtrlRead($Input_Verpacken_Passwort)
$ReadWiderholung = GUICtrlRead($Input_Verpacken_PasswortWiederholen)
If Not $ReadPfad = "" Then
If Not $ReadDateiname = "" Then
If Not $ReadPasswort = "" Then
If Not $ReadWiderholung = "" Then
If $ReadPasswort == $ReadWiderholung Then
If FileExists($ReadDateiname&".sec") Then FileDelete($ReadDateiname&".sec")
$File = FileOpen($ReadPfad,0)
$FileRead = FileRead($File)
FileClose($File)
FileWrite($ReadDateiname&".sec",_StringEncrypt(1,$FileRead,$ReadPasswort,2))
GUISetState(@SW_HIDE,$Form)
MsgBox(64,"WinSec","Die Datei wurde erfolgreich verpackt.")
GUICtrlSetData($Input_Verpacken_Dateipfad,"")
GUICtrlSetData($Input_Verpacken_Dateiname,"")
GUICtrlSetData($Input_Verpacken_Passwort,"")
GUICtrlSetData($Input_Verpacken_PasswortWiederholen,"")
GUISetState(@SW_SHOW,$Form)
Else
MsgBox(64,"WinSec","Die Passwörter überstimmen nicht ein.")
EndIf
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
Else
MsgBox(64,"WinSec","Bitte füllen sie alle Felder aus.")
EndIf
EndFunc
Func _Anzeigen()
$Form3 = GUICreate("WinSec", 418, 378)
GUISetBkColor(0x008080)
$Button_Schliessen = GUICtrlCreateButton("Schließen", 336, 344, 75, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Edit = GUICtrlCreateEdit("", 8, 8, 401, 329)
GUICtrlSetFont(-1, $FontSize, 800, 0, $FontType)
GUICtrlSetColor(-1, $FontColor)
GUICtrlSetBkColor(-1, $BgColor)
GUICtrlCreateLabel("WinSec", 8, 344, 91, 29)
GUICtrlSetFont(-1, 16, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
WinSetTitle($Form3,"",StringRegExpReplace($ReadPfad,"^.*\\","") &" - WinSec")
GUICtrlSetData($Edit,$ReadFile)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form3)
ExitLoop
Case $Button_Schliessen
GUIDelete($Form3)
ExitLoop
EndSwitch
WEnd
EndFunc
Func _Einstellungen()
$Form2 = GUICreate("Einstellungen - WinSec", 210, 322)
GUISetBkColor(0x008080)
$Button_Homepage = GUICtrlCreateButton("Homepage", 8, 96, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Info = GUICtrlCreateButton("Info", 8, 64, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Schliessen = GUICtrlCreateButton("Schließen", 8, 288, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Hintegrundfarbe_aendern = GUICtrlCreateButton("Hintegrundfarbe ändern", 8, 160, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Schrift_aendern = GUICtrlCreateButton("Schrift ändern", 8, 128, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Einstellungsdatei_oeffnen = GUICtrlCreateButton("Einstellungsdatei öffnen", 8, 192, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Einstellungsdatei_zuruecksetzen = GUICtrlCreateButton("Einstellungsdatei zurücksetzen", 8, 224, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
$Button_Programmordner_loeschen = GUICtrlCreateButton("Programmordner löschen", 8, 256, 195, 25)
GUICtrlSetFont(-1, 8, 400, 0, "Verdana")
GUICtrlCreateLabel("WinSec", 24, 8, 158, 49)
GUICtrlSetFont(-1, 28, 800, 2, "Verdana")
GUICtrlSetColor(-1, 0xFFFFFF)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Form2)
ExitLoop
Case $Button_Schliessen
GUIDelete($Form2)
ExitLoop
Case $Button_Einstellungsdatei_oeffnen
ShellExecute($ProgramIni)
Case $Button_Einstellungsdatei_zuruecksetzen
_IniWrite()
Global $FontColor=IniRead($ProgramIni,"Allgemein","FontColor","")
Global $FontSize=IniRead($ProgramIni,"Allgemein","FontSize","")
Global $FontType=IniRead($ProgramIni,"Allgemein","FontType","")
Global $BgColor=IniRead($ProgramIni,"Allgemein","BgColor","")
Case $Button_Homepage
ShellExecute("http://www.gt.24.eu")
Case $Button_Info
MsgBox(64,"WinSec","WinSec © 2011"&@CRLF&"Version: 1.0")
Case $Button_Programmordner_loeschen
DirRemove($ProgramDir,1)
Exit
Case $Button_Hintegrundfarbe_aendern
$BgC = _ChooseColor(2,IniRead($ProgramIni,"Allgemein","BgColor",""),2)
IniWrite($ProgramIni,"Allgemein","BgColor",$BgC)
Global $BgColor=$BgC
Case $Button_Schrift_aendern
$F = _ChooseFont(IniRead($ProgramIni,"Allgemein","FontType",""),IniRead($ProgramIni,"Allgemein","FontSize",""))
If Not $F = -1 Then
IniWrite($ProgramIni,"Allgemein","FontColor",$F[7])
IniWrite($ProgramIni,"Allgemein","FontType",$F[2])
IniWrite($ProgramIni,"Allgemein","FontSize",$F[3])
Global $FontColor=$F[7]
Global $FontSize=$F[3]
Global $FontType=$F[2]
EndIf
EndSwitch
WEnd
EndFunc
Func _IniWrite()
IniWrite($ProgramIni,"Allgemein","FontColor","0x000000")
IniWrite($ProgramIni,"Allgemein","FontType","Verdana")
IniWrite($ProgramIni,"Allgemein","FontSize","10")
IniWrite($ProgramIni,"Allgemein","BgColor","0xFFFFFF")
EndFunc

[/autoit]

würde mich freuen wenn ihr mir verbesserungs vorschläge geben könntet

Beiträge von gem

Gui Problem

MenuItem

Multiplizieren von 2 Variablen (InputBox)

MenuItem

au15k - Skriptwettbewerb - Fertig -

icon aus exe

GUICtrlRichEdit Hilfe

GUICtrlRichEdit Hilfe

icon aus exe

icon aus exe

icon aus exe

Problem mit ini Read -.-

Bomberman Hilfe

Bomberman Hilfe

WinSec

Tastenklick gibt geräusch

Tastenklick gibt geräusch

WinSec