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

Beiträge von Schnitzel

  • Suche wen der mit mir zusammen Autoit programmieren lernen will

    • Schnitzel
    • 12. Februar 2010 um 12:37

    Generell hilft dir jeder gerne mit problemen. Im Hilfe und Unterstützung forum kriegt man meistens ziemlich schnell ne antwort ;)

    wenn du eher nen direkten ansprechparter suchst dann lies die pm ;)
    ich bin halt nicht immer online

  • Real Player Paketieren

    • Schnitzel
    • 12. Februar 2010 um 12:30

    jup so würds gehn wenn nich alle seiten gesperrt wären wo mans downloaden kann...

    die 500 kb datei kann ich zwar schon auf paar seiten runterladen. aber die verlinkt ja dann wieder auf andere seiten die gesperrt sin. naja um 3 bin ich daheim dann kann ich ja evtl noch probiern wenns bis dahin nicht gelöst ist

  • Real Player Paketieren

    • Schnitzel
    • 12. Februar 2010 um 11:57

    kann dir leider nicht helfen...

    switchboard.real.com ist bei uns in der arbeit gesperrt. kanns nich downloaden

  • Real Player Paketieren

    • Schnitzel
    • 12. Februar 2010 um 11:44

    gib doch bitte mal nen link zur installer.exe.
    dann schau ichs mir auch mal an

  • Kann man die Kollision zweier GDI+ Objekte bestimmen.

    • Schnitzel
    • 12. Februar 2010 um 09:59

    hier wurde mal pong in GDI+ umgesetzt

    da ist ne kollisionsabfrage mit drin:
    Pong in GDI+

    vllt hilfts dir ja weiter ;)

  • Farbe von allen Controls ändern

    • Schnitzel
    • 12. Februar 2010 um 09:49

    Ein programm nur zu verändern is noch kein virus. Sonst wären ja sämtliche Plugin's viren.
    ich hab mir schon oft buttons in andere programme gemacht, weil halt einfach oft was bestimmtes fehlt

    aber im prinzip hast du recht. man kann damit seehr viel scheiße baun.
    grundsätzlich isses aber als sehr nützlich gedacht

  • Hi Leute!!!Es geht darum ob mir jemand helfen könnte bitte einen Script von meinen Bruder fertig zu stellen!!!

    • Schnitzel
    • 12. Februar 2010 um 09:08

    Das wär so des typische Schema :D

    1 Post + Game = Bot

  • Tutorial: Wie man eine Installation ausführt, ohne abfragen und mit wenig Code.

    • Schnitzel
    • 12. Februar 2010 um 09:07

    am besten zur exe immer suchen welche parameter zur verfügung stehen.

    die meisten installer haben schon silent, andere haben da noch ähnliche...

  • Farbe von allen Controls ändern

    • Schnitzel
    • 12. Februar 2010 um 09:06

    *g* und ich glaube schon das das geht, zumindest fenster verändern. ob man fremden controls ne andre farbe geben kann weiß ich aber nicht sicher.
    aber du kannst fremde controls auf @SW_Hide setzten und deine eigenen reinmachen ;)

    Das stichwort is AnyGui.au3
    http://www.autoitscript.com/forum/index.php?showtopic=9517

    eine meiner lieblings udf's :)

  • Usb Hardware Id

    • Schnitzel
    • 11. Februar 2010 um 22:52

    stimmt das is nur n denkfehler

    du musst den index angeben den du gerne haben würdest. (wie er auch im arraydisplay angezeigt wird)

    Spoiler anzeigen
    [autoit]

    #include <String.au3>
    #include <Array.au3>

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

    Global $aArray1

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

    _Stick()

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

    Func _Stick()
    $aArray1 = _StringBetween(RegRead("HKLM\SYSTEM\ControlSet002\Services\Disk\Enum","1") , "USBSTOR\Disk&Ven_USB&Prod_Flash_Disk&Rev_3000\","&0")
    _ArrayDisplay($aArray1, 'Standardsuche')

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

    IniWrite("Stick.ini","ID","Stick_Id",$aArray1[1] , "USBSTOR\Disk&Ven_USB&Prod_Flash_Disk&Rev_3000\","&0","")); wahrscheinlich isses $aArray1[1] aber das siehst du ja in _arraydisplay ;)
    EndFunc

    [/autoit]


    ps: poste doch bitte direkt den code, dann muss man keine dateien runterladen

  • Farbe von allen Controls ändern

    • Schnitzel
    • 11. Februar 2010 um 22:37
    Zitat von NoName

    Ja daran habe ich auch schon gedacht, finde aber nicht, dass das die beste Lösung ist (flls es überhaupt eine andere gibt).

    hm es gibt noch 100te andere lösungen. man könnte auch ein 2tes script erstellen welches die resourcen des ersten hackt und ändert, die frage ist ob sowas sinn macht (also zumindest das mit sicherheit nich :D)

    selbst wenn es ne funktion geben würde die ControlsChangeTextColor heißen würde. die würde höchstwahrscheinlich genauso alle controls der reihe nach durchgehen und ändern.

  • Farbe von allen Controls ändern

    • Schnitzel
    • 11. Februar 2010 um 22:17

    öhm ja die frage is wie willst dus sonst machen.

    so wie ichs gepostet habändert er genau alle controls und keines zuviel. leichter, schneller oder effektiver denke ich gehts nich...

  • Empfänger auswählen und Standard-E-Mail verschicken?

    • Schnitzel
    • 11. Februar 2010 um 22:10

    jawoll nach 3 wochen gelöst :)

    :rock::rock:

  • Empfänger auswählen und Standard-E-Mail verschicken?

    • Schnitzel
    • 11. Februar 2010 um 22:05

    ups sry da hatte ich die includes vergessen:

    Spoiler anzeigen
    [autoit]

    #include <Array.au3>
    #include <GUIConstantsEx.au3>
    #include <Inet.au3>
    Global $section, $combodata
    $section = IniReadSection(@ScriptDir & "\Email.ini", "Emails")
    Dim $Checkbox[$Section[0][0]+1]
    _ArraySort($section, 0, 0, 0, 0)

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

    $Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+280)
    For $i = 1 To $Section[0][0]
    $Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
    Next
    $label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 40 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    $label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 75 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
    $label3 = GUICtrlCreateLabel("Empfänger:", 5, 205 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Input2 = GUICtrlCreateInput("", 5, 220 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    $Button1 = GUICtrlCreateButton("Standards speichern", 5, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
    $Button2 = GUICtrlCreateButton("Email senden", 135, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 130, 25)
    $Button3 = GUICtrlCreateButton("ini öffnen", 270, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Checkbox[1] To $Checkbox[$Section[0][0]]
    $emails = ""
    For $i = 1 To $Section[0][0]
    If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
    $emails &= $Section[$i][1] & "; "
    EndIf
    Next
    Guictrlsetdata($Input2, $emails)
    Case $Button1
    IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
    IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
    Case $Button2
    _INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF)
    WinWaitActive("[CLASS:rctrl_renwnd32]")
    Send("^{End}")
    Send("!eso")
    WinWait("Wählen Sie eine Signatur", "")
    ControlClick("Wählen Sie eine Signatur", "", "[CLASS:Button; INSTANCE:4]")
    Case $Button3
    Shellexecute(@ScriptDir & "\Email.ini")
    EndSwitch
    WEnd

    [/autoit]
  • Hi Leute!!!Es geht darum ob mir jemand helfen könnte bitte einen Script von meinen Bruder fertig zu stellen!!!

    • Schnitzel
    • 11. Februar 2010 um 21:59

    poste doch mal das script dann sieht man vllt mehr wo das problem liegt

    Wenn es sich um ein spiel handelt is die wahrscheinlichkeit groß das es ein bot ist oder?
    wenn ja: das wird hier nicht supportet: https://autoit.de/index.php?page=Forumrules


    Edit:
    Bevor ichs vergess: Herzlich willkommen im Forum ;)

  • Lustige Signaturen -Sammlung

    • Schnitzel
    • 11. Februar 2010 um 21:53

    ɹǝlɥǝɟddıʇ uǝu ʇsɐɥ np

    :rofl::rofl:

  • Farbe von allen Controls ändern

    • Schnitzel
    • 11. Februar 2010 um 21:51

    jup in etwa so ;)

    Spoiler anzeigen
    [autoit]

    #include <GUIConstantsEx.au3>
    #include <Misc.au3>
    Dim $label[40]
    $Form1 = GUICreate("Form1", 150, 825)
    for $i = 0 to 39
    $Label[$i] = GUICtrlCreateLabel("Label " & $i, 20, 18 + $i * 20)
    Next
    $button = guictrlcreatebutton("Farbe", 100, 18)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $button
    $color = _ChooseColor()
    $dummy = GUICtrlCreateDummy()
    msgbox(0,"",$Label[0] & " " & $dummy)
    For $i = $Label[0] To $dummy
    $rueck = GUICtrlSetColor($i, $color)
    Next
    GUICtrlDelete($dummy)
    EndSwitch
    WEnd

    [/autoit]
  • Empfänger auswählen und Standard-E-Mail verschicken?

    • Schnitzel
    • 11. Februar 2010 um 21:41

    die lösung aller fragen :D


    Spoiler anzeigen
    [autoit]

    Global $section, $combodata
    $section = IniReadSection(@ScriptDir & "\Email.ini", "Emails")
    Dim $Checkbox[$Section[0][0]+1]
    _ArraySort($section, 0, 0, 0, 0)

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

    $Form1 = GUICreate("Email Prog", 400, Round($section[0][0]/2)*20+280)
    For $i = 1 To $Section[0][0]
    $Checkbox[$i] = GUICtrlCreateCheckbox($Section[$i][0], 205 - Mod($i, 2)*200, 5 + (Round($i/2) - 1)*20, 190, 25)
    Next
    $label2 = GUICtrlCreateLabel("Betreff:", 5, 20 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Input1 = GUICtrlCreateInput(IniRead("Email.ini", "Standards", "Betreff", ""), 5, 40 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    $label2 = GUICtrlCreateLabel("Nachrichttext:", 5, 75 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Edit1 = GUICtrlCreateEdit(StringReplace(IniRead("Email.ini", "Standards", "Nachricht", ""), " |@CRLF| ", @CRLF) , 5, 95 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 100)
    $label3 = GUICtrlCreateLabel("Empfänger:", 5, 205 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    GUICtrlSetColor(-1, 0x1B79D9)
    $Input2 = GUICtrlCreateInput("", 5, 220 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 390, 25)
    $Button1 = GUICtrlCreateButton("Standards speichern", 5, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
    $Button2 = GUICtrlCreateButton("Email senden", 135, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 130, 25)
    $Button3 = GUICtrlCreateButton("ini öffnen", 270, 250 + (Mod($section[0][0], 2) +Round($i/2) - 1)*20, 125, 25)
    GUISetState(@SW_SHOW)

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

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $Checkbox[1] To $Checkbox[$Section[0][0]]
    $emails = ""
    For $i = 1 To $Section[0][0]
    If BitAnd(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) Then
    $emails &= $Section[$i][1] & "; "
    EndIf
    Next
    Guictrlsetdata($Input2, $emails)
    Case $Button1
    IniWrite("Email.ini", "Standards", "Betreff", GUICtrlRead($Input1))
    IniWrite("Email.ini", "Standards", "Nachricht", StringReplace(GUICtrlRead($Edit1), @CRLF, " |@CRLF| "))
    Case $Button2
    _INetMail(GUICtrlRead($Input2), GUICtrlRead($Input1), GUICtrlRead($Edit1) & @CRLF & @CRLF)
    WinWaitActive("[CLASS:rctrl_renwnd32]")
    Send("^{End}")
    Send("!eso")
    WinWait("Wählen Sie eine Signatur", "")
    ControlClick("Wählen Sie eine Signatur", "", "[CLASS:Button; INSTANCE:4]")
    Case $Button3
    Shellexecute(@ScriptDir & "\Email.ini")
    EndSwitch
    WEnd

    [/autoit]


    1. is bissl komplizierter, :D
    muss man viel anpassen...

    2. siehe script^^

    3. shellexecute, wieder siehe script ;)


    PS: was du geändert hattest musst du wieer ändern, also das mit ALT+H+S+Enter und so, hatte ja leider nur mein script

  • Farbe von allen Controls ändern

    • Schnitzel
    • 11. Februar 2010 um 20:36

    die controls können ja nicht wissen das die standard farbe eine andere ist wenn diese erst nach ihnen festgelegt wird ;)

    bzw davor is die standard-farbe ja noch schwarz

  • Empfänger auswählen und Standard-E-Mail verschicken?

    • Schnitzel
    • 11. Februar 2010 um 20:34

    *g* bald haben wir echt nen email client zusammen :D

    1. die x position der checkboxen is das hier: 5 + (Round($i/2) - 1)*30
    wenn du *30 änderst in *29 is das ganze enger zusammmen ;)
    das musst du dann aber auch bei allen controls darunter ändern

    2. das geht natürlich auch. _ArraySort sollte da die passende lösung sein ;)

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™