Beiträge von dph_dph

dph_dph

Zitat von tobi_girst

Tolles Game! Die Buttons kannst du auch färben indem du statt der Bilder das verwendest
[autoit]
$button = Guictrlcreatebutton ("", left, top, breite, hoehe)
guictrlsetdata (-1, 0x000000); Wenn du -1 verwendest, muss diese Zeile genau unter den Button
guictrlsetdata ($button, 0x000000); Wenn du die Variable des Buttons verwendest, ist es egal, wo diese Zeile ist
[/autoit]

MfG tobi_girst

oh stimmt das is mir gar net eingefallen damit wirds glaube au besser gehen werd ich ma ausprobieren thx

dph_dph

gibt wahrscheinlich viele solcher spiele aber is mir irwie in sinn gekommen da wollte ich ma sowass probieren. hab einige stunden dran geseßen besser hab ichs bis jetzt noch nicht hinbekommen. könnt mir ja ma paar feed backs geben oder auch gerne verbesserungsvorschläge.

hauptteil:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include 'hiscore.au3'

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

Global $pic1 = GUICtrlCreatePic("", 104, 8, 233, 105, BitOR($BS_BITMAP,$WS_GROUP))
Global $x
Global $diffstart = TimerInit()
Global $difftotal = TimerInit()
$showpic1 = @ScriptDir & "\showscharz.bmp"
$showpic2 = @ScriptDir & "\showrot.bmp"
$showpic3 = @ScriptDir & "\showgelb.bmp"
$showpic4 = @ScriptDir & "\showgruen.bmp"
Global $punkte = 0
Global $name = ''
$time = 30

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("React", 465, 314, 208, 142)
$farbe1 = GUICtrlCreateButton("", 88, 144, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\schwarz.bmp", -1)
$farbe2 = GUICtrlCreateButton("", 232, 144, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\rot.bmp", -1)
$farbe3 = GUICtrlCreateButton("", 88, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\gelb.bmp", -1)
$farbe4 = GUICtrlCreateButton("", 232, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, @ScriptDir & "\gruen.bmp", -1)
$Label1 = GUICtrlCreateLabel("Klicke auf: ", 32, 56, 57, 17)
$start = GUICtrlCreateButton("Start", 8, 8, 73, 33, $WS_GROUP)
$labelpunkte = GUICtrlCreateLabel("Punkte: " & @CRLF & $punkte, 360, 8, 89, 57)
$timeleft = GUICtrlCreateLabel("Übrige Zeit: "& @CRLF & $time & " sec", 360, 72, 91, 41)
$Label3 = GUICtrlCreateLabel("Copyright by dph", 376, 272, 84, 33)
$Button1 = GUICtrlCreateButton("Highscores", 376, 224, 73, 33, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

func randit()
$x = random(1,4,1)
if $x = 1 Then
$pic1 = GUICtrlCreatePic("", 104, 8, 233, 105, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, $showpic1, -1)
$diffstart = TimerInit()
EndIf
if $x = 2 Then
$pic1 = GUICtrlCreatePic("", 104, 8, 233, 105, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, $showpic2, -1)
$diffstart = TimerInit()
EndIf
if $x = 3 Then
$pic1 = GUICtrlCreatePic("", 104, 8, 233, 105, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, $showpic3, -1)
$diffstart = TimerInit()
EndIf
if $x = 4 Then
$pic1 = GUICtrlCreatePic("", 104, 8, 233, 105, BitOR($BS_BITMAP,$WS_GROUP))
GUICtrlSetImage(-1, $showpic4, -1)
$diffstart = TimerInit()
EndIf
EndFunc

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $start
$punkte = 0
$labelpunkte = GUICtrlCreateLabel("Punkte: " & @CRLF & $punkte, 360, 8, 89, 57)
$difftotal = TimerInit()
randit()
Case $farbe1
end()
If $x = 1 Then
punkte()
randit()
Else
minuspunkte()
EndIf
Case $farbe2
end()
If $x = 2 Then
punkte()
randit()
Else
minuspunkte()
EndIf
Case $farbe3
end()
If $x = 3 Then
punkte()
randit()
Else
minuspunkte()
EndIf
Case $farbe4
end()
If $x = 4 Then
punkte()
randit()
Else
minuspunkte()
EndIf
Case $Button1
ShellExecute("guihiscore.exe")
EndSwitch
WEnd

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

func punkte()
$diffend = TimerDiff($diffstart)
$rounded = Round($diffend)
if $rounded < 2000 Then
$erg = 2000 - $rounded
$punkte = $punkte + $erg
elseif $rounded > 2000 Then
$erg = $punkte/5
$punkte = $punkte + Round($erg)
EndIf
$labelpunkte = GUICtrlCreateLabel("Punkte: " & @CRLF & $punkte, 360, 8, 89, 57)
EndFunc

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

func minuspunkte()
$punkte = $punkte - 1000
$labelpunkte = GUICtrlCreateLabel("Punkte: " & @CRLF & $punkte, 360, 8, 89, 57)
EndFunc

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

func end()
$difftotalend = TimerDiff($difftotal)
$dif = round($difftotalend)
$erg2 = 30000-$dif
$erg2 = $erg2/1000
$erg2 = 30 - round($erg2)
$time = 30 - $erg2
$timeleft = GUICtrlCreateLabel("Übrige Zeit: "& @CRLF & $time & " sec", 360, 72, 91, 41)
if $dif >= 30000 Then
hiscorefunc()
Exit
EndIf
EndFunc

[/autoit]

highscore einträge kann man bestimmt noch kürzen xD

Spoiler anzeigen

[autoit]

Global $punkte = 0
Global $name = ''
$his1 = IniRead("highscore.ini","HIScore","1","")
$his2 = IniRead("highscore.ini","HIScore","2","")
$his3 = IniRead("highscore.ini","HIScore","3","")
$his4 = IniRead("highscore.ini","HIScore","4","")
$his5 = IniRead("highscore.ini","HIScore","5","")
$his6 = IniRead("highscore.ini","HIScore","6","")
$his7 = IniRead("highscore.ini","HIScore","7","")
$his8 = IniRead("highscore.ini","HIScore","8","")
$his9 = IniRead("highscore.ini","HIScore","9","")
$his10 = IniRead("highscore.ini","HIScore","10","")
$name1 = IniRead("highscore.ini","Name","1","")
$name2 = IniRead("highscore.ini","Name","2","")
$name3 = IniRead("highscore.ini","Name","3","")
$name4 = IniRead("highscore.ini","Name","4","")
$name5 = IniRead("highscore.ini","Name","5","")
$name6 = IniRead("highscore.ini","Name","6","")
$name7 = IniRead("highscore.ini","Name","7","")
$name8 = IniRead("highscore.ini","Name","8","")
$name9 = IniRead("highscore.ini","Name","9","")
$name10 = IniRead("highscore.ini","Name","10","")

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

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

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

func hiscorefunc()
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Score", 257, 147, 197, 119)
$Label1 = GUICtrlCreateLabel("Deine Score beträgt: "& $punkte, 16, 16, 227, 49)
$Input1 = GUICtrlCreateInput("", 120, 80, 89, 21)
$showscore = GUICtrlCreateLabel("Name: ", 24, 80, 84, 20)
$Button1 = GUICtrlCreateButton("Fertig", 80, 112, 97, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$name = GUICtrlRead($Input1)
logit()
highscore()
exit
EndSwitch
WEnd
EndFunc

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

func highscore()
if $punkte > $his1 Then
placeit()
IniWrite("highscore.ini","HIScore","1",$punkte)
iniwrite("highscore.ini","Name","1",$name)
ElseIf $punkte > $his2 Then
placeit()
IniWrite("highscore.ini","HIScore","2",$punkte)
iniwrite("highscore.ini","Name","2",$name)
ElseIf $punkte > $his3 Then
placeit()
IniWrite("highscore.ini","HIScore","3",$punkte)
iniwrite("highscore.ini","Name","3",$name)
ElseIf $punkte > $his4 Then
placeit()
IniWrite("highscore.ini","HIScore","4",$punkte)
iniwrite("highscore.ini","Name","4",$name)
ElseIf $punkte > $his5 Then
placeit()
IniWrite("highscore.ini","HIScore","5",$punkte)
iniwrite("highscore.ini","Name","5",$name)
ElseIf $punkte > $his6 Then
placeit()
IniWrite("highscore.ini","HIScore","6",$punkte)
iniwrite("highscore.ini","Name","6",$name)
ElseIf $punkte > $his7 Then
placeit()
IniWrite("highscore.ini","HIScore","7",$punkte)
iniwrite("highscore.ini","Name","7",$name)
ElseIf $punkte > $his8 Then
placeit()
IniWrite("highscore.ini","HIScore","8",$punkte)
iniwrite("highscore.ini","Name","8",$name)
ElseIf $punkte > $his9 Then
placeit()
IniWrite("highscore.ini","HIScore","9",$punkte)
iniwrite("highscore.ini","Name","9",$name)
ElseIf $punkte > $his10 Then
placeit()
IniWrite("highscore.ini","HIScore","10",$punkte)
iniwrite("highscore.ini","Name","10",$name)
EndIf
EndFunc

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

func placeit()
if $punkte > $his1 Then
IniWrite("highscore.ini","HIScore","2",$his1)
iniwrite("highscore.ini","Name","2",$name1)
EndIf
if $punkte > $his2 Then
IniWrite("highscore.ini","HIScore","3",$his2)
iniwrite("highscore.ini","Name","3",$name2)
EndIf
if $punkte > $his3 Then
IniWrite("highscore.ini","HIScore","4",$his3)
iniwrite("highscore.ini","Name","4",$name3)
EndIf
if $punkte > $his4 Then
IniWrite("highscore.ini","HIScore","5",$his4)
iniwrite("highscore.ini","Name","5",$name4)
EndIf
if $punkte > $his5 Then
IniWrite("highscore.ini","HIScore","6",$his5)
iniwrite("highscore.ini","Name","6",$name5)
EndIf
if $punkte > $his6 Then
IniWrite("highscore.ini","HIScore","7",$his6)
iniwrite("highscore.ini","Name","7",$name6)
EndIf
if $punkte > $his7 Then
IniWrite("highscore.ini","HIScore","8",$his7)
iniwrite("highscore.ini","Name","8",$name7)
EndIf
if $punkte > $his8 Then
IniWrite("highscore.ini","HIScore","9",$his8)
iniwrite("highscore.ini","Name","9",$name8)
EndIf
if $punkte > $his9 Then
IniWrite("highscore.ini","HIScore","10",$his9)
iniwrite("highscore.ini","Name","10",$name9)
EndIf
EndFunc

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

func logit()
$file = FileOpen("score.log",1)
FileWriteLine($file,"Score: " &$punkte& " Name: "& $name&" Gespielt am: " & @MDAY&"."&@MON&"."&@YEAR & " um: " &@HOUR&":"&@MIN)
EndFunc

[/autoit]

highscore gui

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include 'hiscore.au3'
#Region ### START Koda GUI section ### Form=d:\scripts\koda_1.7.2.0\forms\hiscores.kxf
$Form1_1 = GUICreate("Highscores", 229, 289, 194, 118)
$Label1 = GUICtrlCreateLabel("Highscores:", 8, 8, 60, 17)
$Label2 = GUICtrlCreateLabel("1.", 8, 40, 13, 17)
$Label3 = GUICtrlCreateLabel("2.", 8, 64, 13, 17)
$Label4 = GUICtrlCreateLabel("3.", 8, 88, 13, 17)
$Label5 = GUICtrlCreateLabel("4.", 8, 112, 13, 17)
$Label6 = GUICtrlCreateLabel("5.", 8, 136, 13, 17)
$Label7 = GUICtrlCreateLabel("6.", 8, 160, 13, 17)
$Label8 = GUICtrlCreateLabel("7.", 8, 184, 13, 17)
$Label9 = GUICtrlCreateLabel("8.", 8, 208, 13, 17)
$Label10 = GUICtrlCreateLabel("9.", 8, 232, 13, 17)
$Label11 = GUICtrlCreateLabel("10.", 8, 256, 19, 17)
$Label12 = GUICtrlCreateLabel($his1, 24, 40, 42, 17)
$Label13 = GUICtrlCreateLabel($his2, 24, 64, 42, 17)
$Label14 = GUICtrlCreateLabel($his3, 24, 88, 42, 17)
$Label15 = GUICtrlCreateLabel($his4, 24, 112, 42, 17)
$Label16 = GUICtrlCreateLabel($his5, 24, 136, 42, 17)
$Label17 = GUICtrlCreateLabel($his6, 24, 160, 42, 17)
$Label18 = GUICtrlCreateLabel($his7, 24, 184, 42, 17)
$Label19 = GUICtrlCreateLabel($his8, 24, 208, 42, 17)
$Label20 = GUICtrlCreateLabel($his9, 24, 232, 42, 17)
$Label21 = GUICtrlCreateLabel($his10, 32, 256, 42, 17)
$Label22 = GUICtrlCreateLabel($name1, 152, 40, 42, 17)
$Label23 = GUICtrlCreateLabel($name2, 152, 64, 42, 17)
$Label24 = GUICtrlCreateLabel($name3, 152, 88, 42, 17)
$Label25 = GUICtrlCreateLabel($name4, 152, 112, 42, 17)
$Label26 = GUICtrlCreateLabel($name5, 152, 136, 42, 17)
$Label27 = GUICtrlCreateLabel($name6, 152, 160, 42, 17)
$Label28 = GUICtrlCreateLabel($name7, 152, 184, 42, 17)
$Label29 = GUICtrlCreateLabel($name8, 152, 208, 42, 17)
$Label30 = GUICtrlCreateLabel($name9, 152, 232, 42, 17)
$Label31 = GUICtrlCreateLabel($name10, 152, 256, 42, 17)
$Label32 = GUICtrlCreateLabel("von:", 152, 8, 42, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

dph_dph

jop fileopendialog war genau das was ich gebraucht habe thx! jetzt ist es einfacher wenn man ne sounddatei abspielen lassen will nach ablauf der zeit

habs nomma bissle geändert jetzt kann mans sogar als wecker nehmen wenn pc an is
aber jetzt hab ich glaube viel zu viele überflüssige zeilen aber hab mcih au beeilt wills nämlich noch morgen als wecker testen
so nomma schnell umgeändert. jetzt ist der wecker nicht mehr so genau aber es entlastet die cpu mehr als vorher

dph_dph

hab mir mal ein timer programm geschrieben das ich eine zeit lang häuft (immer zum ausmachen des pcs) benutzt habe. habs jetzt um einiges verbessert (so gut wie ich konnte!). könnt mir ja ma feedback geben wie es euch gefällt un so.
und ach ja könnt mir vill jemand sagen wie ich das so bekomme das wenn ich den info button klicke ein fenster zum browsen eines pfades kommt un der ausgewählte pfad dann in die inputbox kommt? wusst einfach nich wie man das macht

[autoit]

#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=D:\Scripts\koda_1.7.2.0\Forms\timersleep.kxf
$Form1_1 = GUICreate("Timer", 440, 316, 194, 129)
$inputhour = GUICtrlCreateInput("", 8, 16, 73, 21)
$inputmin = GUICtrlCreateInput("", 8, 48, 73, 21)
$labelhour = GUICtrlCreateLabel("Geben Sie ein nach wie vielen Stunden der Timer beendet werden soll.", 88, 20, 339, 17)
$Label1 = GUICtrlCreateLabel("Geben Sie ein nach wie vielen Minute der Timer beendet werden soll.", 88, 52, 339, 17)
$Settings = GUICtrlCreateGroup("Settings", 8, 112, 417, 145)
$soundplay = GUICtrlCreateRadio("Play Sound", 16, 136, 73, 25)
$turnfeaturesradio = GUICtrlCreateRadio("Turn Features", 16, 176, 89, 25)
$msgfeatures = GUICtrlCreateRadio("Messagebox Features", 16, 216, 129, 25)
$soundpfad = GUICtrlCreateInput("", 96, 136, 265, 21)
$turnfeaturescombo = GUICtrlCreateCombo("Herunterfahren", 112, 176, 249, 25)
GUICtrlSetData(-1, "Standby|Ruhezustand")
$msgfeaturesinput = GUICtrlCreateInput("", 152, 216, 209, 21)
$Button1 = GUICtrlCreateButton("Info", 376, 216, 33, 25, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Set Pfad", 368, 136, 49, 25, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$timerstart = GUICtrlCreateButton("TIME IT", 104, 264, 241, 41, $WS_GROUP)
$Label2 = GUICtrlCreateLabel("oder geben sie eine Uhrzeit ein", 8, 80, 150, 17)
$inathour = GUICtrlCreateInput("", 160, 80, 25, 21)
$Label3 = GUICtrlCreateLabel(":", 192, 80, 7, 17)
$inatmin = GUICtrlCreateInput("", 200, 80, 25, 21)
$Label4 = GUICtrlCreateLabel("Uhr", 232, 80, 21, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg

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

Case $GUI_EVENT_CLOSE
Exit

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

Case $timerstart
$h = GUICtrlRead($inputhour)
$min = GUICtrlRead($inputmin)
$h = $h*60*60
$min = $min*60
$athour = GUICtrlRead($inathour)
$atmin = GUICtrlRead($inatmin)
$setread1 = GUICtrlRead($soundplay)
$setread2 = GUICtrlRead($turnfeaturesradio)
$setread3 = GUICtrlRead($msgfeatures)
$timermsgtxt= GUICtrlRead($msgfeaturesinput)
$x = guictrlread($turnfeaturescombo)
$sound_pfad = GUICtrlRead($soundpfad)
WinSetState ( "Timer", "", @SW_HIDE )
if $setread1 = 1 Then
timer_soundplay()
Exit
EndIf
if $setread2 = 1 Then
timer_sleep()
Exit
EndIf
if $setread3 = 1 Then
timermsg()
Exit
EndIf

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

case $Button1
MsgBox(64,"Info","Gebe hier einen Text ein der nach ablaufen der Zeit angezeigt werden soll, z.B. eine Erinnerung/Tätigkeit.")
Case $Button2
$sounddatei = FileOpenDialog("Wähle dein Sound","","Lieder (*.mp3;*.wav)")
GUICtrlSetData($soundpfad,$sounddatei)

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

EndSwitch
WEnd

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

func timermsg()
timermsgattime()
For $zeit = $h+$min to 0 Step -1
sleep(1000)
Next
MsgBox(1,"Timer",$timermsgtxt)
EndFunc

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

func timermsgattime()
if $h = '' Then
if $min = '' Then
while 1
if @hour = $athour Then
while 1
if @min = $atmin Then
MsgBox(1,"Timer",$timermsgtxt)
exit
EndIf
sleep(1000*3)
wend
EndIf
sleep(1000*5)
WEnd
EndIf
EndIf
EndFunc

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

func timer_sleep()
timer_sleep_time()
if $x = "Herunterfahren" Then
$aus = 1
elseif $x = "Standby" Then
$aus = 32
ElseIf $x ="Ruhezustand" Then
$aus = 64
EndIf
For $zeit = $h+$min to 0 Step -1
sleep(1000)
Next
Shutdown ($aus)
EndFunc

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

func timer_sleep_time()
if $h = '' Then
if $min = '' Then
while 1
if @hour = $athour Then
while 1
if @min = $atmin Then
if $x = "Herunterfahren" Then
$aus = 1
elseif $x = "Standby" Then
$aus = 32
ElseIf $x ="Ruhezustand" Then
$aus = 64
EndIf
Shutdown ($aus)
exit
EndIf
sleep(1000*3)
wend
EndIf
sleep(1000*5)
WEnd
EndIf
EndIf
EndFunc

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

func timer_soundplay()
timer_soundplay_time()
For $zeit = $h+$min to 0 Step -1
sleep(1000)
Next
SoundPlay($sound_pfad,1)
EndFunc

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

func timer_soundplay_time()
if $h = '' Then
if $min = '' Then
while 1
if @hour = $athour Then
while 1
if @min = $atmin Then
SoundPlay($sound_pfad,1)
exit
EndIf
sleep(1000*3)
wend
EndIf
sleep(1000*5)
WEnd
EndIf
EndIf
EndFunc

[/autoit]

dph_dph

mir ging es ja hauptsächlich um die idee und diese in die tat umzusetzen^^ un es klappt sogar einigermaßen

dph_dph

ja? xD wusst ich gar net
aber bei mir kann man mausspeed schneller machen (kA ob das so au geht) das is bei 40 zoll full hd als pc bildschrim schon bissle besser
dauert ja sonst ewig von der einen seite zu anderen

dph_dph

Habe mir ma ein script erstellt bei dem man mit der Tastatur die maus bewegen kann eig aus dem grund weil ich ein netbook un nen pc habe un die maus meist am netbook dran hab un dann keine am pc habe :P. Deshalb hab ich mir das ma gemacht.
könnt ja ma sagen wie es euch gefällt. da ich net oft was mit autoit mache könnt ihr mir gerne verbesserungsvorschläge geben. ich weiß man könnte noch ne gui zur festlegung der hotkeys machen un bestimmt noch einiges kürzen

[autoit]

HotKeySet("{UP}", "oben")
HotKeySet("{down}", "unten")
HotKeySet("{left}", "links")
HotKeySet("{right}", "rechts")
HotKeySet("{#}", "click")
HotKeySet("{+}","speed")
HotKeySet("{-}","speed2")
HotKeySet("{ESC}", "Terminate")

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

$speed = 1
$mousepos = Mousegetpos()

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

while 1
sleep(10)
WEnd

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

Func Terminate()
Exit 0
EndFunc

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

func speed()
$speed=$speed+1
traytip("Speed",$speed,1)
sleep(1000)
TrayTip("","",0)
EndFunc

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

func speed2()
$speed=$speed-1
if $speed < 1 then
$speed=1
EndIf
traytip("Speed",$speed,1)
Sleep(1000)
TrayTip("","",0)
EndFunc

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

func rechts()
$mousepos = Mousegetpos()
MouseMove($mousepos[0],$mousepos[1],1)
$mousepos[0]=$mousepos[0]+ $speed
MouseMove($mousepos[0],$mousepos[1],1)
EndFunc

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

func links()
$mousepos = Mousegetpos()
MouseMove($mousepos[0],$mousepos[1],1)
$mousepos[0]=$mousepos[0]- $speed
MouseMove($mousepos[0],$mousepos[1],1)
EndFunc

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

func unten()
$mousepos = Mousegetpos()
MouseMove($mousepos[0],$mousepos[1],1)
$mousepos[1]=$mousepos[1]+ $speed
MouseMove($mousepos[0],$mousepos[1],1)
EndFunc

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

func oben()
$mousepos = Mousegetpos()
MouseMove($mousepos[0],$mousepos[1],1)
$mousepos[1]=$mousepos[1]- $speed
MouseMove($mousepos[0],$mousepos[1],1)
EndFunc

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

func click()
$mousepos = Mousegetpos()
MouseMove($mousepos[0],$mousepos[1],1)
MouseClick("")
EndFunc

[/autoit]

dph_dph

kA ob ich syslautsprecher habe un bei systemsteuerung find ich das net^^ aber glaubs net
un is selfmade pc

dph_dph

Zitat von L3viathan2142

Auch Systemlautsprecher, diese kleinen Dinger im(!) Gehäuse, die diese fiesen Töne machen?

ja kA ig macht mein pc keine fiesen geräusche^^ aber kann ich die irwie anmachen?

dph_dph

ofc hab ich lautsprecher an^^

dph_dph

wurde vill schon oft gestellt aber kann mir ma einer sagen warum das bei mir nich klappt un wie man machen kann das der ton kommt
irwas mim mainboard oder so nur habe leider kA wie man den anmachen könnte

dph_dph

thx

arg klappt jetzt nur mit bmp pics oder? geht das net mit jpg?

dph_dph

Zitat von Oscar

Den Hintergrund wovon?

desktop

dph_dph

kann man en script machen das halt immer wenn das gestartet wird den hintergrund ändert? das man halt en ordner hat un der nach jedem programm start ein bild davon als hintergrund macht?

dph_dph

Zitat von Fisch

das soll so ne art clone finder für D2 werden stimmts?
falls du einen brauchst, ich hab mir mal einen geschrieben, funzt seehr gut

sherlock'ed^^ y genau dafür
jetzt funzt er aber fast so wie ich mir das erhoft habe

dph_dph

Zitat von funkey

Ausgabe als Array

[autoit]
#include <Array.au3>
#include <File.au3>
Local $aNetstat, $Filename = 'netstat.log'
[/autoit] [autoit][/autoit] [autoit]
Run(@ComSpec & " /c " & 'netstat -n | find "4000" > '&$Filename, "", @SW_HIDE)
;~ RunWait(@ComSpec & " /c " & 'netstat -n > '&$Filename, "", @SW_HIDE)
_FileReadToArray($Filename, $aNetstat)
_ArrayDisplay($aNetstat)
FileDelete($Filename)
[/autoit] [autoit][/autoit] [autoit][/autoit]

Alles anzeigen

ähm big thx?!?!

dph_dph

Zitat von leviathan

send("^2")

und um aus der cmd zu lesen StdoutRead

tya^^

send("^2")
hmm irwie macht der das net^^ in cmd stand dann ^@

vill kann mir auch gleich jemand sagen^^ wie man netstat -n | find "4000" in cmd eingebenlässt un dann das ergebnis als msgbox ausgeben lässt

dph_dph

kann mir jemand sagen wie man mit send diese taste sendet ??? taste = " also anfürungsstriche oben^^

oder kann mir gleich jemand sagen wie man etwas was in cmd steht in ne msgbox bekommt?^^

pls

dph_dph

Zitat von blubbstar

Korrekt.

ok^^

dph_dph

Zitat von Xenobiologist

Hi,

wenn die Funktion aufgerunfen wird, dann wird sie abgearbeitet samt deiner Schleife, danach wird dahin gesprungen wo die Funktion aufgerufen wurde.

Mega

aber die schleife in der func verhindert doch das zurückgesprungen wird oder net?

Beiträge von dph_dph

kleines reaktionsspiel (react) [update]

kleines reaktionsspiel (react) [update]

timer

timer

tastatur maus

tastatur maus

tastatur maus

beep funktion frage

beep funktion frage

beep funktion frage

beep funktion frage

hintergrund ändern

hintergrund ändern

hintergrund ändern

send frage

send frage

send frage

send frage

while hilfe pls^^

while hilfe pls^^