1. Dashboard
  2. Mitglieder
    1. Letzte Aktivitäten
    2. Benutzer online
    3. Team
    4. Mitgliedersuche
  3. Forenregeln
  4. Forum
    1. Unerledigte Themen
  • Anmelden
  • Registrieren
  • Suche
Alles
  • Alles
  • Artikel
  • Seiten
  • Forum
  • Erweiterte Suche
  1. AutoIt.de - Das deutschsprachige Forum.
  2. Mitglieder
  3. Trojan

Beiträge von Trojan

  • Funktionen auf erstellte Buttons setzen...

    • Trojan
    • 8. April 2010 um 12:48

    Also ich habe folgenden Code

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

    $m = 0

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

    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 262, 300, 192, 164)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
    GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
    GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
    $Label1 = GUICtrlCreateLabel("PID", 16, 8, 36, 17)
    $Label2 = GUICtrlCreateLabel("Name", 140, 8, 36, 17)
    GUICtrlSetOnEvent($Label1, "Label1Click")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $j = 20
    $pid = ""
    $win = WinList ()
    For $i = 1 To UBound ($win)-1
    If $win[$i][0] = "Test" Then
    GUICtrlCreateLabel($win[$i][1]&" "&$win[$i][0],0,$j)
    $but = GUICtrlCreateButton("Vorschau",180,$j,50,15)
    GUICtrlSetOnEvent($but,$win[$i][1] )
    $m = $m+1
    $j = $j+50

    EndIf

    Next

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

    While 1
    Sleep(100)
    WEnd

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

    Func Form1Close()
    Exit
    EndFunc
    Func Form1Maximize()

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

    EndFunc
    Func Form1Minimize()

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

    EndFunc
    Func Form1Restore()

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

    EndFunc
    Func Label1Click()

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

    EndFunc

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

    Func $win[$i][1]()
    WinActivate($win[$i][1])
    EndFunc

    [/autoit]


    Nun geht der Code natürlich nicht, weil ich eine Variable als Funkionsname genommen habe...
    Wie schaffe ich es aber, dass immer wenn ein neuer Button erstellt wird sofort ein EventButton kommt der
    entsprechendes Fenster aktiviert. Zudem weiß ich auch nicht wie viele Fenster überhaupt da sind.

  • SoundPlay Problem!

    • Trojan
    • 1. Februar 2010 um 14:47

    Also ich hab ne art kleines Drummkit geschrieben!
    Es spielt Sounds ab, wenn man nen HotKey drückt. Hier mal eine der Sound play Funktionen

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

    Func Base()
    SoundPlay("Bassdrum.WAV",0)
    GUICtrlSetImage($Pic5,$buttonpic2) ;
    Sleep(50) ; Das dient nur dazu das der Button aussieht als wäre er gedrückt worden!
    GUICtrlSetImage($Pic5,$buttonpic1) ;
    EndFunc

    [/autoit]

    Wenn ich aber nun einen "Beat" spielen möchte dann hört sich das etwas komisch an da die Sounds sich ja überlagern
    und wenn man bei Soundplay wait einstellt dann wartet eer viel zu lange bis ein anderer Ton kommt!

    Gibt es eine andere Möglichkeit die Sounds abzuspielen? (ohne SoundPlay oda _SoundPlay)

  • Unsichtbares Buttonfeld

    • Trojan
    • 18. Januar 2010 um 16:59

    Also ich hab nen bild und will wenn jmd. jezz auf nen bereich im Bild drückckt eine Funktion gestartet wird!
    Jetzt nur als Beispiel das Bild
    [Blockierte Grafik: http://www.pixey.de/wp-content/uploads/2008/01/web20-buttons-ebene1.jpg]
    Also wie geht das, dass Beep(1000,1000) kommt wenn einer Auf Drückmich drückt!
    Bitte um schnelle hilfe :D

  • Iniwrite

    • Trojan
    • 3. Januar 2010 um 23:07

    Oh mann, wie dumm ich dochh bin xDD

    Danke SEuBo

  • Iniwrite

    • Trojan
    • 3. Januar 2010 um 18:41

    Ich hab nen Script und ich will, dass wenn man sich ne .mp3 oda .wav aussucht der Pfad in ner ini gespeichert wird...
    Bei mir geht das hier nicht:

    [autoit]

    $var = FileOpenDialog($message, @WindowsDir & "\", "SoundFiles (*.mp3;*.wav)", 1 )
    IniWrite("ChatKontrolle.ini","Sound","Musik",""&$var&"")

    [/autoit]
  • Laufzeit Statistik

    • Trojan
    • 29. Dezember 2009 um 22:05

    sry war länger nimmer on hab Win7 installiert ._.
    SEuBo da find ich nix
    @рeethebee aha und wie Òo

  • Laufzeit Statistik

    • Trojan
    • 28. Dezember 2009 um 00:21

    Gibt es eine möglichkeit mit AutoIt diese werte wie in Everest Ultimate auszulesen?
    [Blockierte Grafik: http://img97.imageshack.us/img97/6128/eversedt.jpg]

  • Computer-Info

    • Trojan
    • 19. Dezember 2009 um 12:48

    Hamma script!

    Noch besser wäre es wenn man sich alle Daten in ner .txt oda so ausgeben lassen könnte ;D

  • Maple-Desktop <Last Update>

    • Trojan
    • 13. Dezember 2009 um 22:18

    also es is nicht so das sie nich zeichnen kann.. aber sie zeichnet mit PS4 ^^
    also weiß net ob du des sehen kannst aber wenn du da drauf geht siehst du nen paar bilder von ihr
    http://animexx.onlinewelten.com/fanart/zeichner/144839/

    Des mit ResHacker mach ich dann für sie, denn damit kenn ich mich aus^^

  • Maple-Desktop <Last Update>

    • Trojan
    • 12. Dezember 2009 um 20:00

    Jezz gehen die Bälle!

    Nur hab ich noch ne frage und zwar will meine Sis eigene Viecher malen aber gibt es überhaupt neue figuren dort einzufügen?^^
    Kenn mich voll nich mit .dll's aus...

  • Maple-Desktop <Last Update>

    • Trojan
    • 6. Dezember 2009 um 13:52

    Super Idee!

    Schön gemacht! Wäre vlt auch cool wenn man mehrere viecher auf einmal auf dem Bildschirm haben könnte!
    Der Ball geht bei mir auch nicht und ich hab auch Vista.

  • MyOnlineTelevision(v0.2.2)

    • Trojan
    • 16. November 2009 um 16:12

    Geiles Programm!

    Wenn nochn paar Sender dazu kommen ;D

    Vlt wäre es auch hilfreich die Fenstergröße einstellen zu können würde mich sehr ffreuen :)

    Ansonsten :thumbup:

  • HomeChatter

    • Trojan
    • 9. Oktober 2009 um 15:47

    Bei diesem Script kommt immer :

    Spoiler anzeigen

    >C:\Spiele\AutoIt3\SciTE\..\au3check.exe "C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3"
    AutoIt3 Syntax Checker v1.54.8 Copyright (c) Tylo 2007

    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(143,31) : WARNING: $set1name: possibly used before declaration.
    $set1 = GUICtrlRead($set1name)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(144,31) : WARNING: $set2name: possibly used before declaration.
    $set2 = GUICtrlRead($set2name)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(145,30) : WARNING: $set1ip: possibly used before declaration.
    $set1i = GUICtrlRead($set1ip)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(146,30) : WARNING: $set2ip: possibly used before declaration.
    $set2i = GUICtrlRead($set2ip)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(147,28) : WARNING: $Radio1: possibly used before declaration.
    $Rad = GUICtrlRead($Radio1)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(156,51) : ERROR: syntax error
    IniWrite("Config.ini","Namen","2Name",""&$set2""
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(159,32) : WARNING: $Form1_1: possibly used before declaration.
    GUISetState(@SW_HIDE,$Form1_1)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3(143,31) : ERROR: $set1name: undeclared global variable.
    $set1 = GUICtrlRead($set1name)
    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
    C:\Users\TC\Desktop\Skripte\Nerver3000\HomerChatter.au3 - 2 error(s), 6 warning(s)
    >Exit code: 2 Time: 0.420


    Das Script is hier :

    Spoiler anzeigen
    [autoit]


    If Not FileExists("config.ini") Then
    IniWrite("Config.ini","Namen","1Name","z.B. Gerd")
    IniWrite("Config.ini","Namen","2Name","z.B. Hans")
    IniWrite("Config.ini","IP","1IP","192.")
    IniWrite("Config.ini","IP","2IP","192.")
    IniWrite("Config.ini","Sound","type","1")
    EndIf
    $sound = IniRead("Config.ini","Sound","type","")
    $ip1 = INIread("Config.ini", "IP", "1IP", "")
    $ip2 = INIread("Config.ini", "IP", "2IP", "")
    $name1 = INIread("Config.ini", "Namen", "1Name", "")
    $name2 = INIread("Config.ini", "Namen", "2Name", "")
    TCPStartup()
    $Socket = TCPListen(@IPAddress1,3000)
    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    #include <Constants.au3>
    Opt("GUIOnEventMode", 1)
    Opt("TrayOnEventMode",1)
    Opt("TrayMenuMode",1)
    Beep(3000,25)

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

    $Form1 = GUICreate("HomeChatter", 447, 210, 192, 124)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    $input2 = GUICtrlCreateInput("", 32, 64, 265, 21)
    $Label1 = GUICtrlCreateLabel("HomeChatter", 88, 0, 150, 30)
    GUICtrlSetFont($Label1, 18, 400, 0, "MS Sans Serif")
    $Label2 = GUICtrlCreateLabel(""&$name2&":", 32, 40, 36, 17)
    $Button2 = GUICtrlCreateButton("Senden", 96, 88, 137, 33, $WS_GROUP)
    GUICtrlSetOnEvent($Button2, "Button2Click")
    $input1 = GUICtrlCreateInput("", 32, 138, 265, 21)
    $Label3 = GUICtrlCreateLabel(""&$name1&":", 32, 114, 34, 17)
    $sendenbutton = GUICtrlCreateButton("Senden", 96, 162, 137, 33, $WS_GROUP)
    GUICtrlSetOnEvent($sendenbutton, "Button1Click")
    $Group1 = GUICtrlCreateGroup("Tools", 304, 8, 121, 201)
    $versteck = GUICtrlCreateButton("Fenster verstecken", 304, 90, 120, 25, $WS_GROUP)
    GUICtrlSetOnEvent($versteck, "Weg")
    $Label4 = GUICtrlCreateLabel("Einfach die Nachricht eintippen und senden, aber bitte mit Namen", 312, 24, 93, 60)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW,$Form1)
    $Settings = GUICtrlCreateButton("Settings", 320, 176, 89, 25, $WS_GROUP)
    GUICtrlSetOnEvent($Settings, "SettingsClick")

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

    $exit = TrayCreateItem("Fenster wiederholen")
    TrayItemSetOnEvent(-1,"SpecialEvent")

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

    While 1

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

    $NewSocket = TCPAccept($Socket)
    If $NewSocket >= 0 then
    Do
    $Empfang = TCPRecv($NewSocket,2048)
    Until $Empfang <> ""
    SoundSetWaveVolume(100)
    If $sound = 1 Then
    SoundPlay(@WindowsDir & "\media\tada.wav",1)
    Else
    Beep(2000,50)
    Beep(1000,50)
    Beep(3000,25)
    EndIf
    MsgBox(0,"Neue Nachricht",$Empfang)

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

    EndIf

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

    Sleep(100)
    WEnd

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

    Func Form1Close()
    TCPCloseSocket ($Socket)
    TCPShutdown()
    Exit
    EndFunc
    Func SpecialEvent()

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

    GUISetState(@SW_SHOW,$Form1)

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

    EndFunc

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

    Func Weg()
    TrayTip("HomeChatter","Hier kannst du das Fenster wiederholen",10)
    GUISetState(@SW_HIDE,$Form1)
    EndFunc

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

    Func Button1Click()
    $text = GUICtrlRead($input1)
    TCPStartup()
    $Connect = TCPConnect($ip1,3000)
    TCPSend ($Connect,$Text)
    TCPCloseSocket($Connect)
    TCPShutdown()
    Beep(1000,100)
    EndFunc
    Func Button2Click()
    $text = GUICtrlRead($input2)
    TCPStartup()
    $Connect = TCPConnect($ip2,3000)
    TCPSend ($Connect,$Text)
    TCPCloseSocket($Connect)
    TCPShutdown()
    Beep(1000,100)
    EndFunc

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

    Func SettingsClick()

    $Form1_1 = GUICreate("Settings", 220, 209, 192, 124)
    GUICtrlCreateLabel("1Name", 8, 16, 38, 17)
    $set1name = GUICtrlCreateInput("z.B. Otto", 8, 32, 89, 21)
    GUICtrlCreateLabel("2Name", 112, 16, 38, 17)
    $set2name = GUICtrlCreateInput("z.B. Hans", 112, 32, 89, 21)
    GUICtrlCreateLabel("1IP", 8, 64, 20, 17)
    $set1ip = GUICtrlCreateInput("192.", 8, 80, 89, 21)
    GUICtrlCreateLabel("2IP", 112, 64, 20, 17)
    $set2ip = GUICtrlCreateInput("192", 112, 80, 89, 21)
    GUICtrlCreateLabel("Sound", 88, 112, 35, 17)
    $Radio1 = GUICtrlCreateRadio("Wav", 24, 136, 81, 25)
    $Radio2 = GUICtrlCreateRadio("Beep", 111, 134, 81, 25)
    $Sichern = GUICtrlCreateButton("Sichern", 112, 170, 105, 33, $WS_GROUP)
    $Abbrechen = GUICtrlCreateButton("Abbrechen", 5, 170, 97, 33, $WS_GROUP)
    GUICtrlSetOnEvent($Sichern, "Sichern")
    GUICtrlSetOnEvent($Sichern, "Abbrechen")
    GUISetState(@SW_SHOW,$Form1_1)
    GUICtrlSetState($Radio1, $GUI_CHECKED)

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




    EndFunc

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

    Func Sichern()
    $set1 = GUICtrlRead($set1name)
    $set2 = GUICtrlRead($set2name)
    $set1i = GUICtrlRead($set1ip)
    $set2i = GUICtrlRead($set2ip)
    $Rad = GUICtrlRead($Radio1)
    If GUICtrlRead($Rad) = 1 Then
    IniWrite("Config.ini","Sound","type","1")
    Else
    IniWrite("Config.ini","Sound","type","2")
    EndIf

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

    IniWrite("Config.ini","Namen","1Name",""&$set1&"")
    IniWrite("Config.ini","Namen","2Name",""&$set2"")
    IniWrite("Config.ini","IP","1IP",""&$set1i&"")
    IniWrite("Config.ini","IP","2IP",""&$set2i&"")
    GUISetState(@SW_HIDE,$Form1_1)
    EndFunc

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

    Func Abbrechen()
    GUISetState(@SW_HIDE,$Form1_1)
    EndFunc

    [/autoit]


    Brauch keine schnellen Antworten bin 2wochen in Urlaub 8)

  • Tastenumleitung funzt irgendwie nicht.

    • Trojan
    • 4. Oktober 2009 um 14:40

    Ich würd es ma mit HotKeySet versuchen also:

    [autoit]


    HotKeySet("{LAUNCH_MEDIA}","RunApp")

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

    While 1
    sleep(100)
    Wend

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

    Func RunApp()
    Run("wmplayer.exe")
    EndFunc

    [/autoit]

    Weil mit HotKeySet wird die normale Funktion der taste deaktiviert!

    Hab jezz net so ne Taste musst du selber ausprobieren.


    Mfg Tro

  • Probleme mit nem kleinem Spiel [Wieder so ein "Ich steh voll auf der Leitung Prob" xD]

    • Trojan
    • 3. Oktober 2009 um 18:25
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)
    $gesamt = 0
    $1 = 0
    Global $start, $UsedTime, $diff_Alt = 0,$blende = 0
    Global $SetTime = False, $Break = False, $Pause = False, $Run = True
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("5 Seconds", 223, 202, 192, 124)
    GUISetBkColor(0x000000)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
    GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
    GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")

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

    $sekunden = GUICtrlCreateLabel("", 85, 48, 100, 36)
    GUICtrlSetFont($sekunden, 32, 800, 0, "Terminal")
    GUICtrlSetColor($sekunden, 0x00FF00)

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

    $blende = GUICtrlCreateLabel("Blende", 32, 40, 138, 41)
    GUICtrlSetState ( $blende, $GUI_HIDE )

    $anleitung = GUICtrlCreateLabel("Stoppe den Timer nach genau 5 Sekunden!", 16, 160, 199, 50)
    GUICtrlSetFont($anleitung, 9, 400, 0, "Terminal")
    GUICtrlSetColor($anleitung, 0x00FF00)

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

    $gobutt = GUICtrlCreateButton("Go!", 40, 112, 121, 33, $WS_GROUP)
    GUICtrlSetFont($gobutt, 12, 400, 0, "Terminal")
    GUICtrlSetBkColor($gobutt, 0x00FF00)
    GUICtrlSetOnEvent($gobutt, "StopgobuttClick")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1

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

    If $SetTime Then
    Time()

    EndIf
    WEnd

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

    Func Form1Close()
    Exit
    EndFunc
    Func Form1Maximize()

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

    EndFunc
    Func Form1Minimize()

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

    EndFunc
    Func Form1Restore()

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

    EndFunc

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

    Func StopgobuttClick()

    $Run = Not $Run
    If $Run Then
    $SetTime = False

    GUICtrlSetData($gobutt,"Go!")

    Time()
    GUICtrlSetData($sekunden,$gesamt)

    GUICtrlSetState ( $blende, $GUI_HIDE )
    GUICtrlSetColor($sekunden, 0x00FF00)
    Else


    GUICtrlSetData($gobutt,"Stop!")
    GUICtrlSetData($sekunden,"")
    $SetTime = True
    $start = TimerInit()
    EndIf

    EndFunc

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

    Func Time()
    GUICtrlSetState ( $blende, $GUI_HIDE )
    If $gesamt > 2 Then

    GUICtrlSetState ( $blende, $GUI_SHOW )
    EndIf
    $bisher = TimerDiff($start)
    $bisher = $bisher / 1000
    $gesamt = Round($bisher, 2)
    GUICtrlSetData($sekunden,$gesamt)
    Sleep(100)

    EndFunc

    [/autoit]


    So Fertig!

    Es is nen kleines Spiel mit Suchtgefahr.
    Nur die Umsetzung is mir nich so gut gelungen.... :D

  • Probleme mit nem kleinem Spiel [Wieder so ein "Ich steh voll auf der Leitung Prob" xD]

    • Trojan
    • 2. Oktober 2009 um 22:14

    Danke für die schnelle Antwort ich gucks mir an! :)


    Habs geschafft, die Entgültige Version werde ich auch noch posten ;D

  • Probleme mit nem kleinem Spiel [Wieder so ein "Ich steh voll auf der Leitung Prob" xD]

    • Trojan
    • 2. Oktober 2009 um 22:01

    Wie die Überschrift schon sagt steht ich im Moment ziemlich auf der Leitung xD
    Also ich hatte die Idee mal nen kleines Spiel in AutoIt zu machen.
    Bei dem Spiel geht es darum den Timer nach 5 Sekunden anzuhalten.
    Ich bekomm das iwi voll net mit den Buttons auf die Reihe bzw. das der Timer stopt, wenn man auf den Button drückt oder wenn die Zeit über 10sekunden ist!

    Hier is der Code:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>
    Opt("GUIOnEventMode", 1)
    $gesamt = 0
    $1 = 0

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("5 Seconds", 223, 202, 192, 124)
    GUISetBkColor(0x000000)
    GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
    GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
    GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
    GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")

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

    $sekunden = GUICtrlCreateLabel("0", 100, 48, 100, 36)
    GUICtrlSetFont($sekunden, 32, 800, 0, "Terminal")
    GUICtrlSetColor($sekunden, 0x00FF00)

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

    $anleitung = GUICtrlCreateLabel("Stoppe den Timer nach genau 5 Sekunden!", 16, 160, 199, 50)
    GUICtrlSetFont($anleitung, 9, 400, 0, "Terminal")
    GUICtrlSetColor($anleitung, 0x00FF00)

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

    $gobutt = GUICtrlCreateButton("Go!", 40, 112, 121, 33, $WS_GROUP)
    GUICtrlSetFont($gobutt, 12, 400, 0, "Terminal")
    GUICtrlSetBkColor($gobutt, 0x00FF00)
    GUICtrlSetOnEvent($gobutt, "StopgobuttClick")
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    Sleep(100)

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

    WEnd

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

    Func Form1Close()
    Exit
    EndFunc
    Func Form1Maximize()

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

    EndFunc
    Func Form1Minimize()

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

    EndFunc
    Func Form1Restore()

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

    EndFunc

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

    Func StopgobuttClick()
    If $1 = 0 Then
    $stop = 0
    $1 = 1
    GUICtrlDelete($gobutt)
    $stopbutt = GUICtrlCreateButton("Stop!", 40, 112, 121, 33, $WS_GROUP)
    GUICtrlSetFont($stopbutt, 12, 400, 0, "Terminal")
    GUICtrlSetBkColor($stopbutt, 0x00FF00)
    GUICtrlSetOnEvent($stopbutt, "StopbuttClick")
    $start = TimerInit()
    While 1
    $bisher = TimerDiff($start)
    $bisher = $bisher / 1000
    $gesamt = Round($bisher, 2)
    GUICtrlSetData($sekunden,$gesamt)
    Sleep(100)
    If $stop = 1 Then
    ExitLoop
    EndIf

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

    WEnd
    EndIf

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

    EndFunc
    Func StopbuttClick()
    If $1 = 1 Then
    $stop = 1
    $1 = 0
    GUICtrlDelete($stopbutt)
    $gobutt = GUICtrlCreateButton("Go!", 40, 112, 121, 33, $WS_GROUP)
    GUICtrlSetFont($gobutt, 12, 400, 0, "Terminal")
    GUICtrlSetBkColor($gobutt, 0x00FF00)
    GUICtrlSetOnEvent($gobutt, "StopgobuttClick")
    EndIf
    EndFunc

    [/autoit]

    Nicht sehr dringendes Problem. ^^


    Mfg. Tro

  • [Spiel]Erweiterungs Script

    • Trojan
    • 15. September 2009 um 19:35

    Und was ist daran anders wie "Wünsch dir was" Ö-Ö
    Naja egal dann halt net :)

  • [Spiel]Erweiterungs Script

    • Trojan
    • 15. September 2009 um 15:31

    Also folgendes:

    Ich hab hier auf AutoIt.de diesen Beitrag gefunden Foren Fun AutoIT Script
    Ich fand die Idee eigentlich sehr gut nur es müsste es noch mehr Regel geben:
    1. Jeder Beitrag 1 Zeile in dem Script.
    2. Bevor man seine Zeile postet müssen mindestens 2 Leute vor einem was geschrieben haben.
    3. Jeder der mitmacht hat 5 "Joker" das heißt er kann 5 mal eine Zeile IRGENDWO im Script ergänzen.
    4. Das Script muss keinen Sinn ergeben ;man kann sich aber vorher auf eine bestimmte richtung einigen wie z.B. "Rechner" oder "Fun Script"
    5. Annmerkungen zählen nicht als Zeile also z.B. : ";bitte variable $lol auf 1 setzten" An diese Anweisungen muss sich aber nicht gehalten werden (ausser das Script geht sonst nicht)
    6.Man darf die Zeile nicht mit "+" erweitern.
    7. Einfach Spaß haben ;D

    Wer lust hat kann ja mitmach, aber am Anfang können wir erstmal weiter die Regel diskutieren.


    Ps.:Bitte nicht wie in dem Foren "Fun AutoIT Script"-Threat schreiben : "Neee... S***** IDEE"


    Mfg. Tro

  • [spiel] Wünsch dir was !

    • Trojan
    • 28. August 2009 um 20:59

    Du stecks deine Finger in ne Steckdose und bekommst nen Schlag dadurch bekommst du nen Sinneswandel und das Spiel macht für dich sinn. Leider kannst du nun nicht mehr Rasenmähen(<- xD) da du vergessen hast was das ist xPP
    ###############################################
    Ich wünsch mir eine Glumanda-Plüsch-Puppe ;D


    /Edit zu Langsam

Spenden

Jeder Euro hilft uns, Euch zu helfen.

Download

AutoIt Tutorial
AutoIt Buch
Onlinehilfe
AutoIt Entwickler
  1. Datenschutzerklärung
  2. Impressum
  3. Shoutbox-Archiv
Community-Software: WoltLab Suite™