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

Beiträge von hellboy3

  • Worms

    • hellboy3
    • 12. Mai 2010 um 16:59
    Zitat

    Dann ist vermutlich der Code immernoch von der Png, und lediglich die Dateiendung wurde verändert.

    Da stimm ich zu , nichts desto trotz funktioniert es (wird sehr sauber angzeigt bzw . als bmp erkannt und an der bildqualität geht auch nichts verloren.

  • Worms

    • hellboy3
    • 12. Mai 2010 um 16:47

    Bmp`s können auch "transparent" sein , gibts nen merkwürdigen trick der funzt :D

    How to:
    -Nicht transparentes Bitmap-Bild mit IrfanView öffnen und als transparentes png speichern (transparente farbe muss geklickt werden)

    -Erhaltenes png-Bild mit Windows Bild- und Faxanzeige öffnen, dann auf das speichersymbol
    (untenrechts) klicken (DiskettenIcon) und png wieder als bmp speichern=> bmp ist jetzt transparent xD

    Wollte es nur mal erwähnen vielleicht kanns ja jemand gebrauchen ..... :rolleyes:

  • Doodle Jump für Pc

    • hellboy3
    • 10. Mai 2010 um 18:04

    Hey Leute ,
    wie wäre es wenn ihr ein Panel für vorschläge und Bugs einrichtet?
    Ich hatte da an so etwas gedacht http://code.google.com/p/usbloader-gui/issues/list

    MfG Hellboy

    Edit:
    Bug 1: Wenn der Doodle auf ein Ufo trifft dann stirbt er SCHON bei minimaler berührung des Lichts (man hat keine zeit zu reagieren), er sollte also erst sterben wenn er das Ufo berührt und nciht das Licht
    "Bug 2:" Der Doodle sollte die Federschuhe nach 5 springen in bereits in der Luft verlieren und nicht erst bei berührung einer Plattform :D

  • Doodle Jump für Pc

    • hellboy3
    • 10. Mai 2010 um 15:02

    Weis jetzt nicht ob der Bug schon bekannt ist:

    Wenn man das Weihnachtsskin wählt und beim benutzen einer Rakete in ein Monster fährt dann stirbt man(kann sein das es beim normalen skin auch so ist kp)

    Mein Vorschlag wäre, dass man die Sensibilität der Steuerung noch einstellen könnte....(Slider)

    Ansonsten sehr gut umgesetzt und weiter so ;)

  • Youtube pausieren??

    • hellboy3
    • 11. April 2010 um 22:28

    @ ScarfacePH
    Das funzt nicht, da das youtube fenster nicht einmal sichtbar ist ....

    oetzn
    Ok ,danke trotzdem ;)

  • Youtube pausieren??

    • hellboy3
    • 11. April 2010 um 22:00

    klar hab ich deinen beitrag gelesen soviel respekt hab ich noch :D
    Das Problem ist nur das ich eig bei IE bleiben möchte da dieser browser ja auf jedem rechner der windows benutzt drauf is (ob man will oder nciht :D)
    Wenns wirklich nur mit der FF.au3 zu lösen ist dann würde ich das script auch umschreiben(Habe eine art web-musicplayer diesen wollte ich mit dieser func ein wenig ausbauen)

  • Youtube pausieren??

    • hellboy3
    • 11. April 2010 um 21:47

    Danke aber ich bin mir ziemlich sicher das ich mit mousemove nciht viel erreichen kann :D
    Danke trotzdem für dein Interesse

  • Youtube pausieren??

    • hellboy3
    • 11. April 2010 um 21:20

    Nach Jurax`s :D Zitat mache ich hier nichts illegales :D:D
    Ist es also mit der IE.au3 nicht möglich einen klick in einem youtube fenster zu simulieren?

  • Youtube pausieren??

    • hellboy3
    • 11. April 2010 um 20:15

    Hallo Leute, ich bräuchte eure hilfe und zwar möchte ich einen klick in einem youtube-video simulieren sodass das lied/video dann pausiert.
    Habe schon mit controlklick und so rumprobiert aber ich krieg`s nicht hin.....
    help pls

    [autoit]

    #include <ButtonConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <WindowsConstants.au3>
    #include <IE.au3>

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

    $Embedded = _IECreateEmbedded ()

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

    $Form1 = GUICreate("Pause-Func", 225, 85, 372, 212)
    $Button1 = GUICtrlCreateButton("Pause", 8, 8, 209, 49, 0)
    $obj = GUICtrlCreateObj($Embedded, 25, 95, 25, 9)
    GUICtrlSetData(-1, "Edit1")
    GUISetState(@SW_SHOW)

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

    _IENavigate ($Embedded, "http://www.youtube.com/watch?v=gNPIOi2LiQk")

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

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

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

    EndSwitch
    WEnd

    [/autoit]
  • Game: Speedwriter

    • hellboy3
    • 28. Januar 2010 um 11:36

    Keiner der Dl-Mirrors funzt :(

  • Multiplayer-Game 'Kurven-Spiel'

    • hellboy3
    • 28. Januar 2010 um 10:57

    danke funzt ;)

  • Multiplayer-Game 'Kurven-Spiel'

    • hellboy3
    • 28. Januar 2010 um 09:12

    Hi könntest du wenn du mal zeit hast die ganzen adlibenable bzw. adlibdisable zeug auf die neue autoit version anpassen kp ich blick da net so ganz durch ^^ aber ich will das spiel unbedingt mal ausprobieren....

    MfG Hellboy

  • Lautstärke regeln

    • hellboy3
    • 22. Januar 2010 um 18:46

    Hallo Leute ,
    Ihr denkt euch jetzt bestimmt ich hätte die Sufu nicht benutzt , hab ich aber ;)
    Dennoch möchte ich fragen wie man die lautstärke in diesem skript regeln kann...

    [autoit]

    #include <GUIConstantsEx.au3>
    #include <audio.au3>
    #include <IE.au3>

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

    Example()

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

    Func Example()
    Local $slider1, $button, $msg

    $url="http://www.youtube.com/watch?v=KUaiOWpNszE"
    $Embedded = _IECreateEmbedded ()

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

    GUICreate("slider", 220, 100, 100, 200)
    GUISetBkColor(0x00E0FFFF) ; will change background color
    $slider1 = GUICtrlCreateSlider(10, 10, 200, 20)
    SoundSetWaveVolume(50) ; change min/max value
    $button = GUICtrlCreateButton("Value?", 75, 70, 70, 20)
    $Edit1 = GUICtrlCreateObj($Embedded, 16, 60, 60, 12)
    GUISetState()
    GUICtrlSetData($slider1, 45) ; set cursor
    _IENavigate($Embedded,$url)

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

    Do
    $msg = GUIGetMsg()

    If $msg = $button Then
    MsgBox(0, "slider1", GUICtrlRead($slider1), 2)
    EndIf
    Until $msg = $GUI_EVENT_CLOSE
    EndFunc ;==>Example

    [/autoit]

    Müsste man die lautstärke von windows nehmen oder wie mache ich das??? audio.au evtl.??? (Button könnt ihr übrigens ignorieren)
    wie ihr seht hab ichs so ansatzweise probiert aber naja....
    help pls

  • Label $PBS_Marquee

    • hellboy3
    • 21. Januar 2010 um 21:09

    Hab`s jetzt , es lag nicht an der Funktion sondern daran das ich noch den alten obfuscator hatte , in dem war nämlich noch nicht der Fix für "AdlibUnRegister()" ;)

    Danke trotzdem :)


    MfG hellboy3

  • Label $PBS_Marquee

    • hellboy3
    • 20. Januar 2010 um 21:53

    Hi Leute ,

    wenn ich die lauftext-funktion im script einbaue und als au3 starte funzt es einwandfrei, aber sobald ich beim compilen den obfuscator benutze läuft der text nicht mehr,
    guckt euch des bitte mal an ..... :huh:

    MfG hellboy

  • array decrypten

    • hellboy3
    • 19. Januar 2010 um 14:39

    ok das klappt ;) und wie bekomme ich jetzt das geld ( in der ini "Money") neben den namen??

  • array decrypten

    • hellboy3
    • 19. Januar 2010 um 14:17

    wenn ich

    [autoit]

    For $i = 1 To $array[0] <---- HIER null stehen hab dann bekomm ich ein 1 von 2 items in die liste wenn ich >0 einsetzte ist die listeview leer???

    [/autoit]
  • array decrypten

    • hellboy3
    • 19. Januar 2010 um 13:53

    aber das funzt i-wie net :(

    [autoit]

    $mylist = GUICtrlCreateListView("Name |Geld ", 16, 16, 217, 201)
    ;GUICtrlSetData(-1, "Edit1")
    GUISetOnEvent($GUI_EVENT_CLOSE , "_guiswitch")
    GUISetState(@SW_SHOW)

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

    $R1 = IniReadSectionNames(@ScriptDir & "/Daten/Ranking.txt")
    $array = _ArrayEncrypt($R1, $string1, 2, 0)
    _ArrayDisplay($array)
    ;$listtoarray= _ListToArray($R1)
    If @error Then
    MsgBox(0, "", "Kein Ranking verfügbar")
    Else
    For $i = 1 To $array[0]
    GUICtrlCreateListViewItem($array[$i], $mylist)
    Next
    EndIf
    EndFunc

    [/autoit]
  • array decrypten

    • hellboy3
    • 19. Januar 2010 um 12:54
    Spoiler anzeigen
    [autoit]

    ;Globale Variablen
    Global $Bild_Kirsche = @ScriptDir & "/Daten/Kirsche.jpg", $Bild_Banane = @ScriptDir & "/Daten/Banane.jpg", $Bild_Apfel = @ScriptDir & "/Daten/Apfel.jpg", $Bild_Casino = @ScriptDir & "/Daten/Casino.jpg", $startscreendest=@ScriptDir & "/Daten/splash.jpg"
    Global $dll = DllOpen("user32.dll")
    Global $Button1 = GUICtrlCreateButton("Submit", 64, 72, 209, 33)
    ;Includes

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

    #include <GUIConstants.au3>
    #include <GuiListView.au3>
    #include <Array.au3>
    #include <GuiConstantsEx.au3>
    #include <String.au3>
    #Include <File.au3>
    #include <Misc.au3>
    ;#NoTrayIcon

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

    ;Startbilder

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

    $Bild_Aktuell_1 = $Bild_Casino
    $Bild_Aktuell_2 = $Bild_Casino
    $Bild_Aktuell_3 = $Bild_Casino

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

    ;Startgeld

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

    $Start_Geld = 5000
    $string1="jkdfg54"
    $string2="545sdf8"
    ;Haupt-GUI

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

    ;HotKeySet("{ENTER}","Start")

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

    SplashImageOn("Loading....",$startscreendest)
    Sleep(2000)
    SplashOff()

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

    $Form1 = GUICreate("Einarmiger Bandit", 800, 548, 193, 115)
    GUISetBkColor(0x808080)
    $Pic1 = GUICtrlCreatePic($Bild_Aktuell_1, 64, 176, 166, 173)
    $Pic2 = GUICtrlCreatePic($Bild_Aktuell_2, 318, 176, 166, 173)
    $Pic3 = GUICtrlCreatePic($Bild_Aktuell_3, 574, 176, 166, 173)
    $Label1 = GUICtrlCreateLabel("Geld:", 16, 24, 38, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    $Label2 = GUICtrlCreateLabel($Start_Geld & "$", 64, 24, 70, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    $Label3 = GUICtrlCreateLabel("Einsatz:", 572, 27, 53, 20)
    GUICtrlSetFont(-1, 10, 800, 0, "Arial")
    $Input1 = GUICtrlCreateInput("Ihr Einsatz", 632, 24, 97, 22)
    GUICtrlSetFont(-1, 8, 400, 0, "Arial")
    $Start = GUICtrlCreateButton("Start", 64, 400, 681, 113, 0)
    GUICtrlSetFont(-1, 20, 800, 0, "Arial")
    $Bestenliste_Button = GUICtrlCreateButton("Bestenliste", 64, 50, 100, 30, 0)
    GUISetOnEvent($GUI_EVENT_CLOSE , "Beenden")
    GUISetState(@SW_SHOW)

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

    ;On-Event
    Opt("GUIOnEventMode", 1)
    GUICtrlSetOnEvent($Start, "Start")
    GUICtrlSetOnEvent($Bestenliste_Button, "_show")

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

    ;Schleife
    While 1
    $Einsatz_Geld = GUICtrlRead($Input1) ;Kontrolliert alle 2 Millisekunden den Einsatz
    Sleep(2)
    if _IsPressed("0D", $dll) Then
    Start()
    EndIf
    WEnd

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

    ;Hauptfunktion

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

    Func Start()
    $stringcheck=StringInStr($Einsatz_Geld,"-") ;Einsatz ?
    If $Einsatz_Geld = "Ihr Einsatz" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $Einsatz_Geld > $Start_Geld Then
    MsgBox(0, "Fehler", "Soviel Geld haben sie nicht!")
    ElseIf $Einsatz_Geld = "" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $Einsatz_Geld = "0" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $stringcheck>0 Then
    MsgBox(0, "Fehler", "Sie können keinen negativen Betrag eingeben!")
    Else
    Start_richtig()
    EndIf
    EndFunc

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

    Func Start_richtig()

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

    For $i = 1 to 5 step 1

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

    $Zufall_Bild_1 = Random(1,3,1) ;Zufallszahlen generieren
    $Zufall_Bild_2 = Random(1,3,1)
    $Zufall_Bild_3 = Random(1,3,1)

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

    If $Zufall_Bild_1 = 1 Then ;Bild 1
    GUICtrlSetImage($Pic1, $Bild_Kirsche)
    ElseIf $Zufall_Bild_1 = 2 Then
    GUICtrlSetImage($Pic1, $Bild_Banane)
    ElseIf $Zufall_Bild_1 = 3 Then
    GUICtrlSetImage($Pic1, $Bild_Apfel)
    EndIf

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

    If $Zufall_Bild_2 = 1 Then ;Bild 2
    GUICtrlSetImage($Pic2, $Bild_Kirsche)
    ElseIf $Zufall_Bild_2 = 2 Then
    GUICtrlSetImage($Pic2, $Bild_Banane)
    ElseIf $Zufall_Bild_2 = 3 Then
    GUICtrlSetImage($Pic2, $Bild_Apfel)
    EndIf

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

    If $Zufall_Bild_3 = 1 Then ;Bild 3
    GUICtrlSetImage($Pic3, $Bild_Kirsche)
    ElseIf $Zufall_Bild_3 = 2 Then
    GUICtrlSetImage($Pic3, $Bild_Banane)
    ElseIf $Zufall_Bild_3 = 3 Then
    GUICtrlSetImage($Pic3, $Bild_Apfel)

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

    EndIf
    Sleep(250)
    Next

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

    If $Zufall_Bild_1 = $Zufall_Bild_2 and $Zufall_Bild_2 = $Zufall_Bild_3 Then ;Vergleiche die 3 Bilder
    Gewinn_Rechnung()
    Else
    Verlust_Rechnung()
    EndIf
    EndFunc

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

    Func Gewinn_Rechnung() ;Rechnet den Gewinn der Runde aus
    $Start_Geld = $Einsatz_Geld * 3 + $Start_Geld
    GUICtrlSetData($Label2, $Start_Geld & "$")
    EndFunc

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

    Func Verlust_Rechnung() ;Rechnet den Verlust der Runde aus
    $Start_Geld = $Start_Geld - $Einsatz_Geld
    GUICtrlSetData($Label2, $Start_Geld & "$")
    EndFunc

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

    Func Beenden()

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

    $Form1 = GUICreate("Ranking", 347, 114, 378, 150)
    GUISetBkColor(0x808080)
    $Input1 = GUICtrlCreateInput("", 40, 32, 265, 21)
    $Label1 = GUICtrlCreateLabel("Name:", 32, 8, 49, 20)
    GUICtrlSetFont(-1, 10, 800, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0xFFFF00)
    $Button1 = GUICtrlCreateButton("Submit", 64, 72, 209, 33)
    GUICtrlSetOnEvent($Button1,"save")
    GUISetOnEvent($GUI_EVENT_CLOSE , "_exit")
    GUISetState(@SW_SHOW)

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

    EndFunc

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

    Func save()
    $encryptname=_StringEncrypt(1,GUICtrlRead($Input1),$string1,2)
    $encryptmoney=_StringEncrypt(1,$Start_Geld,$string2,2)
    IniWrite(@ScriptDir & "/Daten/Ranking.txt",$encryptname,"Money",$encryptmoney)
    MsgBox(64,"OK","Rank has been saved!")
    Exit
    EndFunc

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

    Func _show()
    ;$decryptname=(0,GUICtrlRead($Input1),$string1,2)
    ;$decryptmoney=_StringEncrypt(0,$Start_Geld,$string2,2)
    $Form1 = GUICreate("Ranking", 254, 227, 356, 150)
    $mylist = GUICtrlCreateListView("Name", 16, 16, 217, 201)
    ;GUICtrlSetData(-1, "Edit1")
    GUISetOnEvent($GUI_EVENT_CLOSE , "_exit")
    GUISetState(@SW_SHOW)

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

    $R1 = _StringEncrypt(0,(IniReadSectionNames(@ScriptDir & "/Daten/Ranking.txt")),$string1,2)
    ;$listtoarray= _ListToArray($R1)
    If @error Then
    MsgBox(0, "", "Kein Ranking verfügbar")
    Else
    For $i = 1 To $listtoarray[0]
    GUICtrlCreateListViewItem($listtoarray[$i], $mylist)
    Next
    EndIf
    EndFunc

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

    Func _exit()
    Exit
    EndFunc

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

    hi leute, ich weis nicht wie ich die inisectionnames wieder decryptet bekomme (als array) ,außerdem wollte ich das geld neben den Namen in der liste anzeigen lassen, und mir ist aufgefallen das das ding beim zocken viel zu oft verliert kann man da an der wahrscheinlichkeit das man gewinnt was machen??

    ich erwähne mal vorsichtshalber das das script nicht von mir ist , is aus unserem forum ;)

  • Einarmiger Bandit

    • hellboy3
    • 19. Januar 2010 um 09:53

    Hab mir das auch mal angeschaut^^

    So die momentane Funktion:

    [autoit]

    Func Start()
    ;Einsatz ?
    If $Einsatz_Geld = "Ihr Einsatz" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $Einsatz_Geld > $Start_Geld Then
    MsgBox(0, "Fehler", "Soviel Geld haben sie nicht!")
    Else
    Start_richtig()
    EndIf
    EndFunc

    [/autoit]

    So sollte die Funktion stimmen ;):

    [autoit]

    Func Start()
    $stringcheck=StringInStr($Einsatz_Geld,"-") ;Einsatz ?
    If $Einsatz_Geld = "Ihr Einsatz" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $Einsatz_Geld > $Start_Geld Then
    MsgBox(0, "Fehler", "Soviel Geld haben sie nicht!")
    ElseIf $Einsatz_Geld = "" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $Einsatz_Geld = "0" Then
    MsgBox(0, "Fehler", "Sie müssen einen Einsatz tätigen, bevor sie spielen können!")
    ElseIf $stringcheck>0 Then
    MsgBox(0, "Fehler", "Sie können keinen negativen Betrag eingeben!")
    Else
    Start_richtig()
    EndIf
    EndFunc

    [/autoit]


    MfG hellboy

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™