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. dph_dph

Beiträge von dph_dph

  • 2D - Array Problem/Frage

    • dph_dph
    • 3. Juli 2017 um 22:25

    douh :Face:

    was soll ich sagen :D vielen dank hast mir sehr geholfen ;)

  • 2D - Array Problem/Frage

    • dph_dph
    • 3. Juli 2017 um 21:55

    Hi Leute :)

    ich bin am verzweifeln... bzw vielleicht auch einfach zu dumm ?(

    ich versuche mittels folgendem Script-Baustein ein Array zu befüllen.
    Es soll eigentlich bei 0,0 anfangen - was überhaupt nicht klappt
    Es soll sich von oben nach unten oder von links nach rechts aufbauen.
    Bei mir kommt entweder ein Versatz von oben nach unten oder eine Treppe von oben nach unten raus, siehe Bild - falls man es nicht versteht :D

    [Blockierte Grafik: http://i.imgur.com/yIqZ1Rq.png]

    Die Daten in der Ini kann man an für sich vernachlässigen.

    AutoIt
    #include <array.au3>
    
    
    func _read_DB()
    
    
    
    
    	global $stocks[4][4]
    
    
    
    
    For $i = 1 to 4 Step +1
    
    
    		$read = filereadline("stocks.txt", $i)
    
    
    		$_symbol_read = IniRead("datenbank.ini", "Stocks", $read & "_Symbol", "")
    		$_strike_read = IniRead("datenbank.ini", "Stocks", $read & "_Strike", "")
    		$_praemie_read = IniRead("datenbank.ini", "Stocks", $read & "_Praemie", "")
    		$_strategie_read = IniRead("datenbank.ini", "Stocks", $read & "_Strategie", "")
    
    
    
    
    		_ArrayAdd($stocks, $_symbol_read, $i-1)
    		_ArrayAdd($stocks, $_strike_read, $i-1)
    		_ArrayAdd($stocks, $_praemie_read, $i-1)
    		_ArrayAdd($stocks, $_strategie_read, $i-1)
    
    
    
    
    	Next
    
    
    	_ArrayDisplay($stocks)
    
    
    
    
    EndFunc   ;==>_read_DB
    Alles anzeigen

    Vielleicht hat ja irgendjemand eine Idee was ich machen muss damit das Array wie folgt aufgebaut wird:
    [Blockierte Grafik: http://i.imgur.com/OzUdfzp.png]

    Entweder wie die blauen Pfeile oder wie die grünen wäre mein Ziel.
    Also blau bei 0,0 soll DAI.DE stehen, 0,1 = 65, 0,2 = 22 und 0,3 = NK S-PUT. Selbe dann bei 1,0 - 1,3 mit DBK.DE
    Grün das selbe nur von links nach rechts.

  • Ordner Synchronisation

    • dph_dph
    • 15. März 2010 um 20:34

    selber volltrottel!!!!

    ansonsten nice prog
    habs zwar noch net ausprobiert aber ich hatte ja die idee :P und wenn es klappt MUSS es gut sein.

  • pixel zählen

    • dph_dph
    • 8. Dezember 2009 um 21:50
    Zitat von Andy

    Naja, sagen wir mal so, wer darauf angewiesen ist, in einem sehr simplen Computerspiel zu betrügen bzw. nicht in der Lage ist, virtuelles Pixel-"Vermögen" auf rechtmäßige Art und Weise zu erreichen, dem fehlt auch meist der "Skill" um ein simples Script so umzuschreiben (und per Suchfunktion erstmal zu finden ^^ ), daß es auf die eigenen Anforderungen passt.... :rolleyes: Daher habe ich meistens kein Problem mit dezenten Hinweisen.

    naja bei dem spiel geht es halt um schnelligkeit^^ un da manche nur nach den items gucken un die grabben un ich die monster kill hab ich meist keine chance beim grabben...

  • pixel zählen

    • dph_dph
    • 8. Dezember 2009 um 20:21

    ja es handelt sich eh nur um ca max 50x50 kästchen die überprüft werden sollen

  • pixel zählen

    • dph_dph
    • 7. Dezember 2009 um 17:49

    pick it^^

  • pixel zählen

    • dph_dph
    • 7. Dezember 2009 um 17:33

    gibt es ne möglich keit pixel zu zählen? also wenn man der funktion die farbe und die koordinaten zu weißt das es dann ausgibt wie viele pixel mit der farbe vorhanden sind

  • _INetGetSource help

    • dph_dph
    • 20. November 2009 um 09:43

    is mir auch klar

  • Namenloses Spiel

    • dph_dph
    • 20. November 2009 um 08:54

    tolles game^^
    nur viel zu kurz
    aber sag ma bekomm ich net noch en keks von dir :P

  • _INetGetSource help

    • dph_dph
    • 19. November 2009 um 21:20

    also ich habe folgendes problem. wenn ich eine seite mit inetget runterlade un dann als datei speichern lasse und diese datei öffnen lasse und in einen string abspeichern lasse :P :P funktioniert das was ich will

    [autoit]

    #include <INet.au3>
    #include <String.au3>
    #include <array.au3>
    $open = FileOpen("gersup.html", 0)
    $read = FileRead($open)

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

    $string = String($source)

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

    $s1 = _StringBetween($string,'<td> <a href="topic.php?t=','&f=149">')

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

    for $i = 0 to 17 step +1
    $s2 = _StringBetween($string, 'href="topic.php?t='&$s1[$i]&'&f=149">', '</a>')
    MsgBox(0,"",$s2[0])
    Next

    [/autoit]

    allerdings sobald ich stat

    [autoit]

    $open = FileOpen("gersup.html", 0)
    $read = FileRead($open)

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

    $string = String($source)

    [/autoit]

    einfach

    [autoit]

    $source = _INetGetSource('http://forums.d2jsp.org/forum.php?f=149')

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

    $string = String($source)

    [/autoit]

    kommt unten dieser error
    $s2 = _StringBetween($string, 'href="topic.php?t='&$s1[$i]&'&f=149">', '</a>')
    $s2 = _StringBetween($string, 'href="topic.php?t='&^ ERROR

    kann mir vill jemand weiter helfen?

    irwie check ich das nich ma klappts ma net -.-

  • dph's downloadsorter

    • dph_dph
    • 11. November 2009 um 20:27
    Zitat von Tobicool

    geht ab :)


    wie doch auf einmal?

  • Schweinegrippe impfung?

    • dph_dph
    • 11. November 2009 um 16:47

    nn
    grippe is grippe
    leute sterben au bei "normalen" grippen aber meistens die die asthma un so was ham
    da ich kein asthma oder sowas habe brauch ich mich au nich impfen werde die sowieso überleben

  • dph's downloadsorter

    • dph_dph
    • 11. November 2009 um 14:45

    hier möchte ich euch mein neustes autoit programm vorstellen. es ist dafür gedacht downloads zu sortieren. verbesserungsvorschläge und feedbacks sind willkommen!


    die gui um die settings einzustellen

    Spoiler anzeigen
    [autoit]

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

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

    $dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
    $moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
    $bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
    $musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
    $zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
    $format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformarte", "")
    $format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
    $format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")
    $autostart = IniRead("dph's_dls_settings.ini", "Settings", "Autostart", "")

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

    checkini()

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

    #Region ### START Koda GUI section ### Form=D:\Scripts\koda_1.7.2.0\Forms\dls.kxf
    $Form1 = GUICreate("Downloadsorter", 501, 242, 190, 120)
    $setdlpfad = GUICtrlCreateButton("Downloadverzeichnis Wählen", 16, 8, 185, 33, $WS_GROUP)
    $Label1 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Videodateien.", 16, 56, 198, 17)
    $setpfadmovie = GUICtrlCreateButton("Setpfad", 216, 56, 49, 17, $WS_GROUP)
    $Label2 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Grafikdateien.", 16, 80, 199, 17)
    $setpfadbilder = GUICtrlCreateButton("Setpfad", 216, 80, 49, 17, $WS_GROUP)
    $Label3 = GUICtrlCreateLabel("Wähle dein Verzeichnis für Musikdateien.", 16, 104, 199, 17)
    $setpfadmusik = GUICtrlCreateButton("Setpfad", 216, 104, 49, 17, $WS_GROUP)
    $Group1 = GUICtrlCreateGroup("Autostart", 24, 144, 89, 41)
    $Group2 = GUICtrlCreateGroup("Autostart", 40, 280, 105, 89)
    If $autostart = 1 Then
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
    GUICtrlSetState(-1, $GUI_CHECKED)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    Else
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Checkbox1 = GUICtrlCreateCheckbox("ja", 32, 160, 41, 17)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    EndIf
    $vidformate = GUICtrlCreateInput($format1, 280, 56, 209, 21)
    $bilderformate = GUICtrlCreateInput($format2, 280, 80, 209, 21)
    $musikformate = GUICtrlCreateInput($format3, 280, 104, 209, 21)
    $inputmin = GUICtrlCreateInput("30", 144, 144, 49, 21)
    $Label6 = GUICtrlCreateLabel("Wähle nach wie vielen Minuten die Dateien wieder aus dem " & @CRLF & "Download Ordner verschoben werden sollen.", 208, 144, 549, 37)
    $Fertig = GUICtrlCreateButton("Fertig", 272, 176, 97, 33, $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 $setdlpfad
    $dlpfad = FileSelectFolder("Wähle den Ordner in dem deine Downloads gespeichert werden", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", $dlpfad)
    Case $setpfadmovie
    $movpfad = FileSelectFolder("Wähle den Ordner wo deine Videos gespeichert werden sollen", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", $movpfad)
    Case $setpfadbilder
    $bildpfad = FileSelectFolder("Wähle den Ordner wo deine Grafiken gespeichert werden sollen", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", $bildpfad)
    Case $setpfadmusik
    $musikpfad = FileSelectFolder("Wähle den Ordner wo deine Musikdateien gespeichert werden sollen", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", $musikpfad)
    Case $Fertig
    _auto()
    WinSetState("Downloadsorter", "", @SW_HIDE)
    $formatvid = GUICtrlRead($vidformate)
    $formatbild = GUICtrlRead($bilderformate)
    $formatmusik = GUICtrlRead($musikformate)
    $sorttime = GUICtrlRead($inputmin)
    IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", $sorttime)
    IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", $formatvid)
    IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", $formatbild)
    IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", $formatmusik)
    If ProcessExists("dph's_dls.exe") Then
    ProcessClose("dph's_dls.exe")
    EndIf
    ShellExecute("dph's_dls.exe")
    Exit
    EndSwitch
    WEnd

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

    Func checkini()
    If Not FileExists(@ScriptDir & "\dph's_dls_settings.ini") Then
    IniWrite("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "Sortertime", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "vidformarte", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "bilderformarte", "")
    IniWrite("dph's_dls_settings.ini", "Settings", "musikformarte", "")
    MsgBox(0, "", "Created dph's_dls_settings.ini")
    EndIf
    EndFunc ;==>checkini

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

    Func _auto()
    $auto = GUICtrlRead($Checkbox1)
    If $auto = 1 Then
    IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", $auto)
    Else
    IniWrite("dph's_dls_settings.ini", "Settings", "Autostart", "0")
    EndIf
    If IniRead("dph's_dls_settings.ini", "Settings", "Autostart", $auto) = 1 Then
    FileCreateShortcut(@ScriptDir & "\dph's_dls.exe", "C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe")
    MsgBox(0, "Autostart", "dph's_dls wird jetzt bei jedem Systemstart mitgestartet.")
    Else
    FileDelete("C:\Dokumente und Einstellungen\All Users\Startmenü\Programme\Autostart\dph's_dls.exe.lnk")
    MsgBox(0, "Autostart", "dph's_dls wird nicht beim Systemstart mitgestartet.")
    EndIf
    EndFunc ;==>_auto

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

    ; Copyright by dph
    ; special thanks to tobN

    [/autoit]

    die hauptfunktion

    Spoiler anzeigen
    [autoit]

    #NoTrayIcon
    #include <array.au3>
    $dlpfad = IniRead("dph's_dls_settings.ini", "Settings", "Downloadpfad", "")
    $moviedls = IniRead("dph's_dls_settings.ini", "Settings", "Moviedlspfad", "")
    $bilderdls = IniRead("dph's_dls_settings.ini", "Settings", "Bilderdlspfad", "")
    $musikdls = IniRead("dph's_dls_settings.ini", "Settings", "Musikdlspfad", "")
    $zeit = IniRead("dph's_dls_settings.ini", "Settings", "Sortertime", "")
    $format1 = IniRead("dph's_dls_settings.ini", "Settings", "vidformate", "")
    $format2 = IniRead("dph's_dls_settings.ini", "Settings", "bilderformate", "")
    $format3 = IniRead("dph's_dls_settings.ini", "Settings", "musikformate", "")

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

    checkpfads()
    While 1
    main()
    WEnd

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

    Func _filemove($format1, $dlpfad, $moviedls)
    $types = StringSplit($format1, ',')
    For $i = 1 To $types[0] Step +1
    FileMove($dlpfad & "\*." & $types[$i], $moviedls)
    Next
    EndFunc ;==>_filemove

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

    Func main()
    _filemove($format1, $dlpfad, $moviedls)
    _filemove($format2, $dlpfad, $bilderdls)
    _filemove($format3, $dlpfad, $musikdls)
    Sleep($zeit * 1000 * 60)
    EndFunc ;==>main

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

    Func checkpfads()
    If $dlpfad = "" Then
    MsgBox(0, "", "Downloadpfad setzen")
    Exit
    ElseIf $moviedls = "" Then
    MsgBox(0, "", "Moviesorter Verzeichnis setzen")
    Exit
    ElseIf $bilderdls = "" Then
    MsgBox(0, "", "Bildersorter Verzeichnis setzen")
    Exit
    ElseIf $musikdls = "" Then
    MsgBox(0, "", "Musiksorter Verzeichnis setzen")
    Exit
    EndIf
    EndFunc ;==>checkpfads

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

    ; Copyright by dph
    ; special thanks to tobN

    [/autoit]

    ein special thanks geht an tobN (tobicool oder so hier in dem board) meinem klassenkameraden der mir die filemove func geschrieben hat
    thx m8

  • kurze frage schnelle antowrt ?? :P

    • dph_dph
    • 11. November 2009 um 14:11
    [autoit]

    Func _filemove($format1, $dlpfad, $moviedls)
    $types = StringSplit($format1, ',')
    For $i = 1 To $types[0] Step +1
    FileMove($dlpfad & "\*." & $types[$i], $moviedls)
    Next
    EndFunc ;==>_filemove

    [/autoit]

    en freund hats mir gemacht^^

  • kurze frage schnelle antowrt ?? :P

    • dph_dph
    • 10. November 2009 um 21:41

    ja eig nix aber dachte alles in einer zeile müsste au gehen un hat au mehr style :P

  • kurze frage schnelle antowrt ?? :P

    • dph_dph
    • 10. November 2009 um 21:04
    [autoit]

    FileMove($pfad & "\*.jpg", $andererpfad)

    [/autoit]

    wie bekomme ich da hin das der alle jpgs bmps pngs in den anderenpfad verschiebt?

    hab bissle hin un her probiert schaffs aber nich

  • backgrounder

    • dph_dph
    • 5. November 2009 um 18:55

    war mir erst nicht so sicher ob ichs posten soll aber hab mich nun doch dafür entschieden.
    backgrounder ist ein programm mit dem man fenster verstecken kann un wieder vervorholen. die idee dafür kam mir in der schule xD un klappt au eig ganz gut solange man nicht versucht vollbild spiele zu verstecken. desweiteren hab ich noch paar andere programme eingebaut wie ein qipspammer um freunde zu nerven, meinen timer, beeper ( den ich an meinem netbook sowie auch an meinem pc nicht hören kann :( ), windowsrechner(nur zum schnellstarten über das tray icon)
    über feedbacks würde ich mich sehr freuen
    un evtl kann mir ma jemand sagen wie ich das mit den hotkeys besser machen könnte also das man die irwie schlafen legen kann habs bis jetzt nur über ein neustart des programmes gelöst was anderes is mir nicht eingefallen

    backgrounder

    Spoiler anzeigen
    [autoit]

    ;backgrounder v0.9
    #Include <Constants.au3>
    #NoTrayIcon
    #include <GUIConstants.au3>

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

    $h1 = IniRead("back.ini","settings","key1","")
    $h2 = IniRead("back.ini","settings","key2","")

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

    HotKeySet($h1,"showtitle")
    HotKeySet($h2,"hidetitle")

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

    Opt("TrayMenuMode",1)

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

    $title = IniRead("back.ini","Wintitle","Title","")
    $aboutitem = TrayCreateItem("Über")
    $help = TrayCreateItem("Help")
    $settings = TrayCreateItem("Hotkeysettings")
    TrayCreateItem("")
    $qipspamm0r = TrayCreateItem("QIP SPAMM0R")
    $beep = TrayCreateItem("Let's Beep it")
    $timer = TrayCreateItem("Ultimativtimer")
    $calc = TrayCreateItem("Taschenrechner")
    TrayCreateItem("")
    $lock = TrayCreateItem("Lock window")
    $show = TrayCreateItem("Show window")
    $hide = TrayCreateItem("Hide window")
    $unlock = TrayCreateItem("UnLock window")
    $info = TrayCreateItem("Show locked windowname")
    TrayCreateItem("")
    $exititem = TrayCreateItem("Beenden")

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

    TraySetState()
    TraySetClick(16)

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

    While 1
    $msg = TrayGetMsg()
    Select
    Case $msg = 0
    ContinueLoop
    Case $msg = $aboutitem
    Msgbox(64,"Über:","Copyright by dph")
    case $msg = $help
    ShellExecute("helpfile.txt")
    Case $msg = $show
    showtitle()
    Case $msg = $hide
    hidetitle()
    case $msg = $info
    $title = IniRead("back.ini","Wintitle","Title","")
    MsgBox(1, "Lockinfo", "The locked windowname is " & '"' & $title & '"' & ".")
    case $msg = $unlock
    showtitle()
    inidelete("back.ini","WinTitle","Title")
    Case $msg = $lock
    WinWaitNotActive("AutoIt v3")
    Sleep(100)
    gettiltle()
    Case $msg = $settings
    ShellExecute("gui.exe")
    sleep(2000)
    $h1 = IniRead("back.ini","settings","key1","")
    $h2 = IniRead("back.ini","settings","key2","")
    Case $msg = $exititem
    showtitle()
    Exit
    Case $msg = $qipspamm0r
    ShellExecute("spamm0r.exe")
    Case $msg = $beep
    ShellExecute("beep.exe")
    Case $msg = $timer
    ShellExecute("ultimativtimer.exe")
    Case $msg = $calc
    ShellExecute("calc.exe")
    EndSelect
    WEnd

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

    func gettiltle()
    $wintitle = WinGetTitle("")
    IniWrite("back.ini", "WinTitle","Title",$wintitle)
    EndFunc

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

    Func hidetitle()
    $title = IniRead("back.ini","Wintitle","Title","")
    WinSetState($title, "", @SW_HIDE)
    EndFunc

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

    func showtitle()
    $title = IniRead("back.ini","Wintitle","Title","")
    WinSetState($title, "", @SW_SHOW)
    EndFunc

    [/autoit]

    qip spamm0r ( klappt nur wenn ein qip fenster mim backgrounder gelockt wurde!)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>
    #NoTrayIcon

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Settings", 283, 197, 193, 125)
    GUISetBkColor(0xCBFADF)
    $spamlabel = GUICtrlCreateLabel("Gebe den Text ein der gespammt werden soll", 8, 8, 217, 17)
    $spamtext = GUICtrlCreateInput("", 8, 32, 153, 21)
    $gebr = GUICtrlCreateLabel("Gebe die Zeit zwischen jeder Nachricht ein:", 8, 64, 210, 17)
    $delay1 = GUICtrlCreateInput("", 8, 88, 97, 21)
    $SPAM = GUICtrlCreateButton("SPAM", 176, 144, 73, 25, 0)
    $spamcount = GUICtrlCreateLabel("Gebe an wie oft die Nachricht gesendet werden soll", 8, 120, 248, 17)
    $spamintput = GUICtrlCreateInput("", 8, 144, 97, 21)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    case $SPAM
    WinSetState("Settings", "", @SW_HIDE)
    $traget = IniRead("back.ini", "WinTitle","Title","")
    $nr = 1
    $text = GUICtrlRead($spamtext)
    $spamdelay= GUICtrlRead($delay1)
    $nrend = GUICtrlRead($spamintput)
    WinSetState($traget, "", @SW_HIDE)
    while 1
    ControlSend($traget, "","[CLASS:TRichViewEdit; INSTANCE:1]",$text & $nr & "{ENTER}")
    sleep($spamdelay*1000)
    if $nr=$nrend Then
    WinSetState($traget, "", @SW_SHOW)
    EndIf
    $nr = $nr+1
    WEnd
    EndSwitch
    WEnd

    [/autoit]

    timer
    https://autoit.de/index.php?page=Thread&amp;threadID=15496

    beep

    Spoiler anzeigen
    [autoit]

    #include <GUIConstants.au3>

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

    HotKeySet("{ESC}","terminate")

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

    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Beep it", 211, 177, 193, 125)
    GUISetBkColor(0xFFFFFF)
    $Input1 = GUICtrlCreateInput("", 8, 24, 41, 21)
    $Input2 = GUICtrlCreateInput("", 8, 56, 41, 21)
    $Input3 = GUICtrlCreateInput("", 8, 88, 41, 21)
    $beepstartbutton = GUICtrlCreateButton("Let's Beep it", 40, 128, 97, 33, 0)
    $Label1 = GUICtrlCreateLabel("Start der Frequenz", 56, 24, 91, 17)
    $Label2 = GUICtrlCreateLabel("Steigung der Frequenz", 56, 56, 111, 17)
    $Label3 = GUICtrlCreateLabel("Dauer einer Frequenz (in sec)", 56, 88, 143, 17)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

    While 1
    $nMsg = GUIGetMsg()
    $beepstart = GUICtrlRead($Input1)
    $beepsteigung = GUICtrlRead($Input2)
    $beepdauer = GUICtrlRead($Input3)
    $beepdauer=$beepdauer*1000
    Switch $nMsg

    Case $GUI_EVENT_CLOSE
    Exit
    Case $beepstartbutton
    WinSetState("Beep it", "", @SW_HIDE)
    while 1
    beep($beepstart,$beepdauer)
    Traytip("Beep Frequenz: " &$beepstart,"Beenden Sie Beep it mit einem Druck auf der ESC Taste",$beepdauer)
    $beepstart=$beepstart+$beepsteigung
    WEnd
    EndSwitch
    WEnd

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

    func terminate()
    exit
    EndFunc

    [/autoit]

    cool mit 7z is en bissle mehr als ein halbes mb kleiner

    Dateien

    backgrounder.7z 585,55 kB – 392 Downloads
  • kleines reaktionsspiel (react) [update]

    • dph_dph
    • 5. November 2009 um 18:08

    jo habs nomma thx

    xD mim bot schaff ich 192k punkte ohne
    ~57k

  • kleines reaktionsspiel (react) [update]

    • dph_dph
    • 5. November 2009 um 17:33
    Zitat von tobi_girst

    guictrlsetdata (-1, 0x000000)

    [autoit]

    $farbe3 = Guictrlcreatebutton ("", 88, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
    guictrlsetdata ($farbe3, 0xFFFF00)
    $farbe4 = Guictrlcreatebutton ("", 232, 224, 129, 73, BitOR($BS_BITMAP,$WS_GROUP))
    guictrlsetdata ($farbe4, 0x0080000)

    [/autoit]

    wieso gehten das nich? is dohc eig so richtig? hab au mit (-1, farbcode) gemacht ging aber au net un au ohne das BitOr

  • kleines reaktionsspiel (react) [update]

    • dph_dph
    • 5. November 2009 um 14:17

    habs nomma bissle besser gemacht ( meiner meinung nach)

    - richtiges highscore system hinzugefügt
    - bugs gefixed

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™