Beiträge von Freaky

Freaky

Hallo
ich habe momentan kein Internet und habe voll lw und deswegen wollte ich mir hangman machen
da habe ich nur ein problem mit den zeichen
wen ich die hinschreibe dann kommt ein unterstrih und lertaste zuviel

Spoiler anzeigen

[autoit]

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

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

Global $r, $string, $var = 1, $point, $stelle[9999], $test2 = 1, $ghi = 1, $def, $abc
Global $zeichen = "abcdefghijklmnopqrstuvwxyz1234567890"

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

#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Paul\Desktop\ \hangman\hangman.kxf
$Form1 = GUICreate("Hangman", 423, 415, 192, 124)
GUISetBkColor(0xFFFFFF)
$Label1 = GUICtrlCreateLabel("_ _ _ _", 8, 32, 399, 17)
$Label2 = GUICtrlCreateLabel("Keine falschen Zeichen", 8, 160, 404, 17)
$Label3 = GUICtrlCreateLabel("Hangman", 168, 8, 50, 17)
$Label4 = GUICtrlCreateLabel("Ihre Falschen Buchstaben und Zahlen", 104, 136, 185, 17)
$Input1 = GUICtrlCreateInput("", 40, 96, 121, 21)
$Label5 = GUICtrlCreateLabel("Bitte geben sie hier ihr Zeichen ein.", 8, 72, 170, 17)
Dim $Pic[13]
$Pic[2] = GUICtrlCreatePic("", 112, 352, 153, 57, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; Bogen
$Pic[3] = GUICtrlCreatePic("", 145, 203, 49, 153, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; Stange 1
$Pic[4] = GUICtrlCreatePic("", 193, 209, 49, 41, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; stange schreg
$Pic[5] = GUICtrlCreatePic("", 192, 202, 129, 9, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; Stange oben
$Pic[6] = GUICtrlCreatePic("", 288, 209, 9, 41, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ;stange über kopf
$Pic[7] = GUICtrlCreatePic("", 272, 247, 40, 41, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; kopf
$Pic[9] = GUICtrlCreatePic("", 294, 288, 25, 33, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; rechter arm
$Pic[10] = GUICtrlCreatePic("", 264, 288, 25, 33, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; linker arm
$Pic[11] = GUICtrlCreatePic("", 294, 328, 33, 33, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ;rechetr fuß
$Pic[12] = GUICtrlCreatePic("", 265, 328, 25, 33, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ;linker fuß
$Pic[8] = GUICtrlCreatePic("", 288, 287, 9, 73, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS)) ; körper
For $9999999 = 1 To 12
GUICtrlSetState ($Pic[$9999999],$GUI_Hide)
Next
$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Paul\Desktop\ \hangman\hangman.JPG", 112, 200, 204, 204, BitOR($SS_NOTIFY,$WS_CLIPSIBLINGS))
$Button0 = GUICtrlCreateButton("OK", 16, 192, 75, 25)
GUICtrlSetState ($Button0,$GUI_DISABLE)
$Button1 = GUICtrlCreateButton("Start", 16, 232, 75, 25)
$Button2 = GUICtrlCreateButton("Reset", 16, 272, 75, 25)
GUICtrlSetState (-1,$GUI_DISABLE)
$Button3 = GUICtrlCreateButton("Ende", 16, 312, 75, 25)
$Button4 = GUICtrlCreateButton("Neuen Name", 16, 352, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button4
$inputbox = InputBox ("Neuer Begriff","Bitte geben sie ein neuen Begriff ein")
For $a = 1 To 99999999999999999999999999999999
$read = IniRead ("Hangman.ini","Hangman","Name" & $a,"__")
If $read = $inputbox Then
MsgBox (0,"ERROR","Dieser Begriff wird schon benutzt")
ExitLoop
ElseIf $read = "__" Then
IniWrite ("Hangman.ini","Hangman","Name" & $a,$inputbox)
ExitLoop
EndIf
Next
Case $Button3
Exit
Case $Button2
GUICtrlSetState ($Button2,$GUI_DISABLE)
GUICtrlSetState ($Button1,$GUI_ENABLE)
GUICtrlSetState ($Button0,$GUI_DISABLE)
_reset ()
Case $Button1
For $9999999 = 1 To 12
GUICtrlSetState ($Pic[$9999999],$GUI_Show)
Next

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

GUICtrlSetState ($Button0,$GUI_ENABLE)
GUICtrlSetState ($Button1,$GUI_DISABLE)
GUICtrlSetState ($Button2,$GUI_ENABLE)
_start ()
Case $Button0
_ok ()
EndSwitch
WEnd

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

Func _reset ()

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

EndFunc

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

Func _start ()
For $a = 1 To 9999999999999999999999999999999999999999
$read = IniRead ("Hangman.ini","Hangman","Name" & $a,"")
If $read = "" Then
MsgBox (0,"ERROR","Es exestieren keine Begriffe")
Return
ElseIf $read = @error Then
ExitLoop
EndIf
Next
Global $r = Random (1,$a+1,1)
$read2 = IniRead ("Hangman.ini","Hangman","Name" & $r,"")
;$read2 = IniRead ("Hangman.ini","Hangman","Name1","")
$string = StringSplit ($read2,"")
GUICtrlSetData ($Label1,"")
For $b = 1 To $string[0]
GUICtrlSetData ($Label1,GUICtrlRead ($Label1) & "_ ") ; zeichen > <
Next
EndFunc

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

Func _ok ()
$string2 = StringSplit ($zeichen,"")
$string3 = StringSplit (GUICtrlRead ($Label1),"")
GUICtrlSetData ($Label1,"")
For $c = 1 To $string3[0]
For $d = 1 To $string2[0]
If $string3[$c] <> "_ " Then
If ($string3[$c] = $string2[$d]) And ($string3[$c] <> GUICtrlRead ($Input1)) Then
GUICtrlSetData ($Label1,GUICtrlRead ($Label1) & $string2[$d] & " ")
$stelle[$c] = $string3[$c]
EndIf
EndIf
Next
Next

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

For $b = 1 To $string[0]
If $string[$b] = GUICtrlRead ($Input1) Then
GUICtrlSetData ($Label1,GUICtrlRead ($Label1) & GUICtrlRead ($Input1) & " ")

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

Else
GUICtrlSetData ($Label1,GUICtrlRead ($Label1) & "_ ")
EndIf
Next

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

If $point = $string[0] Then
$point = 0
$var += 1
If $var > 12 Then
MsgBox (0,"ERROR","Sie haben verloren")
$point = 0
$var = 1
Return
Else
GUICtrlSetState ($Pic[$var],$GUI_Hide)
EndIf
EndIf
#cs
$def = StringSplit (GUICtrlRead ($Label1),"")
_ArrayDisplay ($def)
$lol = 0
For $abc = 0 To $string[0]
MsgBox (0,"",$lol & @CRLF & $abc & @CRLF & $string[0])
$lol += 1
If $def[$abc] = $string[$abc] Then
$ghi += 1
EndIf
Next
If $ghi = $string[0] Then
MsgBox (0,"","Erfolgreich")
EndIf
#ce
EndFunc

[/autoit]

bild gibs im anhang

Freaky

Hallo
ich habe hier ein Problem

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <Sound.au3>
Opt('MustDeclareVars', 1)
Global $open, $file, $sound
$file = _FileListToArray (@ScriptDir & "\Musik")
SoundSetWaveVolume (100)
For $a = 1 to $file[0]
$open = _SoundOpen (@ScriptDir & "\Musik\" & $file[1],"Startup")
$sound = _SoundPlay ($open,1)
;$sound = SoundPlay ("Musik\" & $file[1])
While 1
ToolTip ($sound & @CRLF & _SoundStatus ($sound),0,0)
If _SoundStatus ($sound) = 2 Then ExitLoop 2
WEnd
Next
MsgBox (0,"","")

[/autoit]

Mein Problem ist das kein stück tohn rauskommt aber mit soundplay gehts ohne probleme nur dieses kack _soaundplay geht nicht
bitte hilfe

OK habs jetz
das problem lag an ASCII

Freaky

wow jetz wird es sogar als warnung und als virus erkannt

Freaky

ja toll aber ob ich jetz jeden hersteller anschreiben würde
und nach jedem update ändert sich der name der exe und dann ?

Freaky

Hallo
ich will meiner EXE ein ico verpassen.
Aber wen ich es mit dem ico compile wird es als virus verkannt und ohne nicht.
wie kann ich es ändern ?

Freaky

das xD ist dafür das man nicht einfach den hotkeys drückt und weg ist es. es soll ja schwer sein das passwort rauszufinden sein

das script muss man selber in den autostart schieben

Freaky

Habe ein mini Autoit geschriben was scripts erstellt (ohne farben) und das soll script sofort starten wie eben bei autoit

Freaky

geht das auch wen jemand kein autoit besitzt ?
weil es soll so funktionieren

Freaky

gibt es dann andere möglichkeiten ?

Freaky

ja genauso habe ich das auch gemacht aber da akceptiert es ja keine schleife weil sie ja 2 zeilen oder mehr braucht

[autoit]

$befehl = 'While 1' & @CRLF & _
'For $a = 1 to 9999999' & @CRLF & _
'Tooltip ($a,0,0)' & @CRLF & _
'Next' & @CRLF & _
'WEnd'

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

_Execute($befehl)

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

Func _Execute($iCmd)
Local $iSplit = StringSplit($iCmd, @CRLF)
For $xi = 1 To $iSplit[0]
Execute($iSplit[$xi])
Next
EndFunc ;==>_Execute

[/autoit]

geht nicht

Freaky

Hallo
ich möchte Execute über mehrer zeilen laufen lassen
wie geht das ?

[autoit]

$befehl = 'MsgBox (0,"",1)' & @CRLF & _
'MsgBox (0,"",2)' & @CRLF & _
'MsgBox (0,"",3)' & @CRLF & _
'MsgBox (0,"",4)'
Execute ($befehl)

[/autoit]

Freaky

Habe eine kleine Kindersicherrung gemacht

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
HotKeySet ("!p","lol")

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

#NoTrayIcon
Opt ("TrayIconHide",1)

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

Global $Form1, $Label1, $Input1, $Label2, $Button1, $versuch = 3, $pw = "ich habe kein passwort"

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

Dim $antwort[5]
$antwort[1] = "1"
$antwort[2] = "2"
$antwort[3] = "3"
$antwort[4] = 3

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

While 1
WinClose ("Windows Task-Manager")
For $i = 0 To 255
If _IsPressed(Hex($i, 2)) Then
$zeit = TimerInit ()
Do
_passwort()
Until TimerDiff ($zeit) >= 60 * 1000 * 2
GUISetState(@SW_HIDE)
EndIf
Next
Sleep(10)
WEnd

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

Func lol ()
GUICtrlSetData ($Input1,$pw)
EndFunc

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

Func _passwort()
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263, $WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21, $ES_PASSWORD)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25)
WinMinimizeAll ()
GUISetState(@SW_SHOW)

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

While 1
If Not WinActive ("Kindersicherrung") Then WinActivate ("Kindersicherrung")
If WinExists ("Windows Task-Manager") Then WinClose ("Windows Task-Manager")
_MouseTrap(480, 263, 352 + 480, 126 + 263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
_enter()
EndSwitch

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

If _IsPressed("0D") Then
If WinActive ("Kindersicherrung") Then
While 1
If Not _IsPressed("0D") Then ExitLoop
WEnd
_enter()
EndIf
EndIf
WEnd
EndFunc ;==>_passwort

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

Func _enter()
$in = GUICtrlRead($Input1)
If $in <> $pw & "xD" Then
For $a = 1 To 3
If $a = $versuch Then
$antwort[$a] = $in
EndIf
Next
FileWriteLine ("log.ini",@HOUR & ":" & @MIN & " := Passwort: " & $in)
$versuch -= 1
GUICtrlSetData($Label2, "Sie haben noch " & $versuch & " Versuche !")
ElseIf $in = $pw & "xD" Then
Exit
EndIf
If $versuch = 0 Then
;Shutdown(5)
Exit
EndIf
If ($antwort[1] = $antwort[2]) Or ($antwort[1] = $antwort[3]) Or ($antwort[2] = $antwort[3]) Then
BlockInput (1)
MsgBox (0,"IDIOT","Bist du doof oder versuchst du immer das gleiche Passwort ?",2)
BlockInput(0)
EndIf

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

EndFunc ;==>_enter

[/autoit]

Freaky

habe das jetz so

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <String.au3>
#include <WindowsConstants.au3>
$versuch = 3
$tasten = "01|02|03|04|05|06|07|08|09|0c|0d|10|11|12|13|14|1b|20|21|22|23|24|25|26|27|28|29|2a|2b|2c|2d|2e|30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|45|46|47|48|49|4a|4b|4c|4d|4e|4f|50|51|52|53|54|55|56|57|58|59|5a|5b|5c|60|61|62|63|64|65|66|67|68|69|6a|6b|6c|6d|6e|6f|70|71|72|73|74|75|76|77||78|79|7a|7b|7c|7d|7e|7f|80h|81h|82h|83h|84h|85h|86h|87h|90|91|a0|a1|a2|a3|a4|a5|ba|bb|bc|bd|be|bf|c0|db|dc|dd"

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263,$WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25, $WS_GROUP)
#EndRegion ### END Koda GUI section ###

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

$dll = DllOpen("user32.dll")

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

While 1
$string = StringSplit ($tasten,"|",0)
For $a = 1 To ubound($string)-1
ToolTip ($string[$a],0,0)
If _IsPressed ($string,$dll) Then
DllClose($dll)
_passwort ()
EndIf
Next
WEnd

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

Func _passwort ()
GUISetState(@SW_SHOW)
While 1
_MouseTrap (480,263,352+480,126+263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$in = GUICtrlRead ($Input1)
If $in <> "test" Then
$versuch = $versuch - 1
GUICtrlSetData ($Label2,"Sie haben noch " & $versuch & " Versuche !")
EndIf
If $in = "test" Then Exit
If $versuch = 0 Then Shutdown (1)
EndSwitch
WEnd
EndFunc

[/autoit]

und das geht nicht

Freaky

alles falsch
es regaiert nicht wie ich es mache

Spoiler anzeigen

[autoit]

#include <Misc.au3>
$tasten = "01|02|03|04|05|06|07|08|09|0c|0d|10|11|12|13|14|1b|20|21|22|23|24|25|26|27|28|29|2a|2b|2c|2d|2e|30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|45|46|47|48|49|4a|4b|4c|4d|4e|4f|50|51|52|53|54|55|56|57|58|59|5a|5b|5c|60|61|62|63|64|65|66|67|68|69|6a|6b|6c|6d|6e|6f|70|71|72|73|74|75|76|77||78|79|7a|7b|7c|7d|7e|7f|80h|81h|82h|83h|84h|85h|86h|87h|90|91|a0|a1|a2|a3|a4|a5|ba|bb|bc|bd|be|bf|c0|db|dc|dd"
While 1
$string = StringSplit ($taste,"|",0)
ToolTip ("Taste:" & $string,0,0)
If _IsPressed ($string) Then MsgBox (0,"",$string)
WEnd

[/autoit]

Freaky

ich krige das mit stringsplit nicht hin

Freaky

Hallo
ich wil mir ne kindersicherrung machen krige da aber ein problem

Spoiler anzeigen

[autoit]

#include <Misc.au3>
#include <String.au3>
#include <WindowsConstants.au3>
$versuch = 3
$tasten = "|01|02|03|04|05|06|07|08|09|0c|0d|10|11|12|13|14|1b|20|21|22|23|24|25|26|27|28|29|2a|2b|2c|2d|2e|30|31|32|33|34|35|36|37|38|39|41|42|43|44|45|45|46|47|48|49|4a|4b|4c|4d|4e|4f|50|51|52|53|54|55|56|57|58|59|5a|5b|5c|60|61|62|63|64|65|66|67|68|69|6a|6b|6c|6d|6e|6f|70|71|72|73|74|75|76|77||78|79|7a|7b|7c|7d|7e|7f|80h|81h|82h|83h|84h|85h|86h|87h|90|91|a0|a1|a2|a3|a4|a5|ba|bb|bc|bd|be|bf|c0|db|dc|dd|"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Kindersicherrung", 352, 126, 480, 263,$WS_POPUP)
$Label1 = GUICtrlCreateLabel("Bitte gib das Passwort ein.", 8, 8, 332, 17)
$Input1 = GUICtrlCreateInput("", 8, 40, 337, 21)
$Label2 = GUICtrlCreateLabel("Sie haben noch " & $versuch & " Versuche !", 8, 72, 340, 17)
$Button1 = GUICtrlCreateButton("OK", 136, 96, 75, 25, $WS_GROUP)
#EndRegion ### END Koda GUI section ###

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

#cs
While 1
$string = _StringBetween ($tasten,"|","")
If _IsPressed ($string) Then
ExitLoop
GUISetState(@SW_SHOW)
EndIf
WEnd
#ce
GUISetState(@SW_SHOW)
While 1
_MouseTrap (480,263,352+480,126+263)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
$in = GUICtrlRead ($Input1)
If $in <> "test" Then
$versuch = $versuch - 1
GUICtrlSetData ($Label2,"Sie haben noch " & $versuch & " Versuche !")
EndIf
If $in = "test" Then Exit
If $versuch = 0 Then Shutdown (1)
EndSwitch
WEnd

[/autoit]

die erste while funktioniert nicht aber es soll funktionieren was kann ich machen das es geht ?

Freaky

aber wieder rum ist eine zip datei
habe jetz einfach jede include eine zeile genommen

Freaky

ich versteh die ganzen zahlen und buchstaben nicht

Freaky

die hilfe habe ich selber

Freaky

Hallo
ich möchte sowas hinbekommen aber da ich weis das es nicht geht frage ich ob es anders möglich ist aber das es so kurtz wie möglich ist

[autoit]

FileInstall(@desktopdir & "\*.*",@TempDir&"\*.*")

[/autoit]

Beiträge von Freaky

Hangman Hilfe

_Soundplay Problem

EXE wird als Virus erkannt

EXE wird als Virus erkannt

EXE wird als Virus erkannt

KinderSicherrung

Execute Problem

Execute Problem

Execute Problem

Execute Problem

Execute Problem

KinderSicherrung

KinderSicherrung

KinderSicherrung

KinderSicherrung

KinderSicherrung

FileInstall

FileInstall

FileInstall

FileInstall