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

Beiträge von Jam00

  • Hilfe zu Pic gebraucht

    • Jam00
    • 23. Dezember 2008 um 22:00

    Hast du da eine Idee Sirocool?
    Und hier mal ein Update:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
    $MC = GUICreate("Medieval City", 1025, 769, 184, 118)
    $Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Hintergrund.jpg", 9, 18, 1000, 560)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Group2", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
    $Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Baummenü")
    $BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1, @ScriptDir & "\Haus.bmp", 0)
    GUICtrlSetTip(-1, "Haus: Holz 3")
    $BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 72, 627, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1,@ScriptDir & "\Sägegrube.bmp", 0)
    GUICtrlSetTip(-1, "Sägegrube: Holz 2 Eisen 1 Wekzeug 2")
    $Button2 = GUICtrlCreateButton("(Not allowed)", 71, 682, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1,@ScriptDir & "\Erzschmelze.bmp", 0)
    GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 (Erzmine benötigt")
    $Button1 = GUICtrlCreateButton("(Not allowed)", 14, 682, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1,@ScriptDir & "\Erzmine.bmp", 0)
    GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2")
    $TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
    $RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Deine Holzlager")
    $RohstoffeHolzAnzahl = GUICtrlCreateLabel("20", 94, 627, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Eisenlager")
    $RohstoffeEisenAnzahl = GUICtrlCreateLabel("20", 94, 645, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeNahrungAnzahl = GUICtrlCreateLabel("20", 94, 681, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Nahrungslager")
    $RohstoffeWerkzeug = GUICtrlCreateLabel("20", 94, 663, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeWerkzeugAnzahl = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Nahrungslager")
    $TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
    $TabSheet4 = GUICtrlCreateTabItem("Spielstand")
    $Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
    $Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
    GUICtrlCreateTabItem("")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $Bau = "False"
    Global $1
    $ToolTip = False
    $Sec = False
    While 1
    If $ToolTip = True Then
    If $Sec = False Then
    $Sec = @SEC
    Else
    If $Sec + 5 = @SEC Then
    ToolTip ("")
    $ToolTip = False
    EndIf
    EndIf
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $BauHaus
    $Bau = "Haus"
    $WinPos = WinGetPos ("Medieval City")
    _MouseTrap ($WinPos[0]+52, $WinPos[1]+97, $WinPos[0] + $WinPos[2] -78, $WinPos[1] + $WinPos[3]-245)
    Case $Pic1
    If $Bau = "False" Then
    Sleep (1)
    Else
    Call ("_Bau")
    EndIf
    EndSwitch
    WEnd
    Func _Bau ()
    $HolzRead = GUICtrlRead ($RohstoffeHolzAnzahl)
    $EisenRead = GUICtrlRead ($RohstoffeEisenAnzahl)
    $NahrungRead = GUICtrlRead ($RohstoffeHolzAnzahl)
    $WerkzeugRead = GUICtrlRead ($RohstoffeWerkzeugAnzahl)
    $Pos = MouseGetPos ()
    GUICtrlDelete ($1)
    If $Bau = "Haus" Then
    If $HolzRead - 3 < 0 Then
    ToolTip ("Du hast nicht genügend Rohstoffe")
    $ToolTip = True
    ElseIf $HolzRead -3 > 0 Then
    GUISetState(@SW_LOCK)
    GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -227,$Pos[1]-195,100,100)
    GUISetState(@SW_UNLOCK)
    GUICtrlSetData ($RohstoffeHolzAnzahl,$HolzRead -3)
    EndIf
    EndIf
    $Bau = "False"
    _MouseTrap ()
    EndFunc

    [/autoit]

    Aber leider hab ich es immer noch nicht hinbekommen, das wenn man ein Haus bauen will, das man das bild immer bei der Maus sieht bis man klickt! (Ich weiß ich kann nicht erklären :( )
    Und dann hab ich nich das Problem, das man 2 pic auf einander machen kann

  • Hilfe zu Pic gebraucht

    • Jam00
    • 23. Dezember 2008 um 21:52

    Sirocool
    Danke, mein Problem ist ncoh wie ich es hinbekomme, das der Auch speichert, wo die Bilder sind
    Raupi
    Aber ein Bot ist doch, ein Programm um ein spiel zu Steuern oder zu Cheaten und kein eigenes Spiel oder :?:

  • Desktop Radio 3.9

    • Jam00
    • 23. Dezember 2008 um 21:50

    Dann schik mir doch einfach mal ein beispiel mit FFH

  • 3D Würfel/Pic by Slash

    • Jam00
    • 23. Dezember 2008 um 21:29

    Kann mir jemad erklären wie man das macht?

  • Hilfe zu Pic gebraucht

    • Jam00
    • 23. Dezember 2008 um 20:41

    Und könnteste mir sagen wo ich das herbekomme :?:

  • SciTE4AutoIT & Koda, aber Koda ist nicht embedded

    • Jam00
    • 23. Dezember 2008 um 16:57

    Erkär das mal genauer, wie versuchst du denn daruf zuzugreifen :?:

  • Hilfe zu Pic gebraucht

    • Jam00
    • 23. Dezember 2008 um 16:42

    Weiß jemand wie man in AutoIt 3D Programieren kann?

  • Edit mit Farben

    • Jam00
    • 23. Dezember 2008 um 16:25

    Dafür brachst du eine RichEdit, durchsuch mal das Forum

  • Desktop Radio 3.9

    • Jam00
    • 23. Dezember 2008 um 16:23

    Raupi
    Bei mir funktionniert er, und wenn ich ihn beim DesktopRadio einfüge funktioniert es auch, das kann es also nicht sein :|

  • Hilfe zu Pic gebraucht

    • Jam00
    • 23. Dezember 2008 um 16:15

    Weiß jemand wie ich das hinbekommen kann, dass die Pic's richtig angezeigt wird :?:

    Spoiler anzeigen
    [autoit]

    #include <ButtonConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <TabConstants.au3>
    #include <WindowsConstants.au3>
    #include <Misc.au3>

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

    #Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Hendrik\Favoriten\Eigene Dateien\AutoIt\Benutzeroberflächen\MC.kxf
    $MC = GUICreate("Medieval City", 1025, 769, 184, 118)
    $Group1 = GUICtrlCreateGroup("Spiel:", 3, 3, 1018, 580)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Hintergrund.jpg", 9, 18, 1000, 560)
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    $Group2 = GUICtrlCreateGroup("Group2", 3, 585, 1015, 178, -1, $WS_EX_TRANSPARENT)
    $Tab1 = GUICtrlCreateTab(9, 600, 1003, 157)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Baummenü")
    $BauHaus = GUICtrlCreateButton("(Not allowed)", 15, 627, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1, @ScriptDir & "\Haus.bmp", 0)
    GUICtrlSetTip(-1, "Haus: Holz 3")
    $BauSaegewerk = GUICtrlCreateButton("(Not allowed)", 72, 627, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1, @ScriptDir & "\Sägegrube.bmp", 0)
    GUICtrlSetTip(-1, "Sägegrube: Holz 2 Eisen 1 Wekzeug 2")
    $Button2 = GUICtrlCreateButton("(Not allowed)", 71, 682, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1, @ScriptDir & "\Erzschmelze.bmp", 0)
    GUICtrlSetTip(-1, "Erzschmelze: Holz 4 Eisen 2 Werkzeug 3 (Erzmine benötigt")
    $Button1 = GUICtrlCreateButton("(Not allowed)", 14, 682, 54, 54, $BS_BITMAP)
    GUICtrlSetImage(-1, @ScriptDir & "\Erzmine.bmp", 0)
    GUICtrlSetTip(-1, "Erzmine: Holz 4 Eisen 1 Werkzeug 2")
    $TabSheet2 = GUICtrlCreateTabItem("Rohstoffe")
    $RohstoffeHolz = GUICtrlCreateLabel("Holz", 15, 627, 33, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Deine Holzlager")
    $RohstoffeHolzAnzahl = GUICtrlCreateLabel("20", 94, 627, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeEisen = GUICtrlCreateLabel("Eisen", 15, 645, 41, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Eisenlager")
    $RohstoffeEisenAnzahl = GUICtrlCreateLabel("20", 94, 645, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeNahrungAnzahl = GUICtrlCreateLabel("20", 94, 681, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $RohstoffeNahrung = GUICtrlCreateLabel("Nahrung", 15, 681, 59, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Nahrungslager")
    $Label1 = GUICtrlCreateLabel("20", 94, 663, 20, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    $Label2 = GUICtrlCreateLabel("Werkzeuge", 15, 663, 79, 21)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetBkColor(-1, 0xFFFFFF)
    GUICtrlSetTip(-1, "Dein Nahrungslager")
    $TabSheet3 = GUICtrlCreateTabItem("Befölkerung")
    $TabSheet4 = GUICtrlCreateTabItem("Spielstand")
    $Speichern = GUICtrlCreateButton("Speichern", 15, 627, 75, 25, 0)
    $Laden = GUICtrlCreateButton("Laden", 90, 627, 75, 25, 0)
    GUICtrlCreateTabItem("")
    GUICtrlCreateGroup("", -99, -99, 1, 1)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###
    $Bau = "False"
    Global $1
    While 1
    If $Bau = "Haus" Then
    GUICtrlDelete ($1)
    $Pos = MouseGetPos ()
    $1 = GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -200,$Pos[1]-200,100,100)
    EndIf
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit
    Case $BauHaus
    $Bau = "Haus"
    $WinPos = WinGetPos ("Medieval City")
    _MouseTrap ($WinPos[0]+10, $WinPos[1]+97, $WinPos[0] + $WinPos[2] -78, $WinPos[1] + $WinPos[3]-245)
    Case $Pic1
    If $Bau = "False" Then
    Sleep (1)
    Else
    Call ("_Bau")
    EndIf
    EndSwitch
    WEnd
    Func _Bau ()
    $Bau = "False"
    $Pos = MouseGetPos ()
    GUICtrlDelete ($1)
    If $Bau = "Haus" Then
    GUICtrlCreatePic (@ScriptDir & "\Haus.jpg",$Pos[0] -200,$Pos[1]-200,100,100)
    EndIf
    _MouseTrap ()
    EndFunc

    [/autoit]


    PS: Nur der HausButton geht ;)

  • Anweisung nur einmal pro Minute ausführen

    • Jam00
    • 23. Dezember 2008 um 15:08

    $keys = "beispieltext"

    While 1
    Sleep (1200) ;weiß nich ob die Zeit Stimmt, w´musste nachgucken, wird in millisekunden gerchent
    If (@SEC = "00") Then
    $file = FileOpen("test.txt", 1)
    FileWriteLine($file, @YEAR & "/" & @MON & "/" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC & " : " & $keys)
    FileClose($file)
    EndIf
    WEnd

  • Aktion ausführen, wenn $Zahl einen negativen wert hat

    • Jam00
    • 23. Dezember 2008 um 13:26

    danke :thumbup:

  • Aktion ausführen, wenn $Zahl einen negativen wert hat

    • Jam00
    • 23. Dezember 2008 um 13:17

    Wie kann man machen, dass AutoIt etwas macht, wenn $Zahl unter 0 ist :?:

  • _MouseSetOnEvent wieder löschen

    • Jam00
    • 23. Dezember 2008 um 12:22

    Tschuldigung, aber das kapier ich nicht ?(

  • _MouseSetOnEvent wieder löschen

    • Jam00
    • 23. Dezember 2008 um 11:49

    Weis jemand wie man es hinbekommt das man _MouseSetOnEvent wieder entfernen kann :?:
    THX

  • Maus Curser ändern und Scroolen

    • Jam00
    • 22. Dezember 2008 um 20:32

    Weiß niemand was?

  • hotkeyset(Mouse?)

    • Jam00
    • 22. Dezember 2008 um 20:32

    So geht es auch:

    Spoiler anzeigen
    [autoit]

    #include <MouseSetOnEvent_UDF.au3>
    _MouseSetOnEvent ($MOUSE_PRIMARYDOWN_EVENT,"Test")
    Func Test()
    MsgBox (0,"","Test")
    EndFunc
    While 1
    WEnd

    [/autoit]
  • Desktop Radio 3.9

    • Jam00
    • 22. Dezember 2008 um 20:11

    Ja, das geht, aber wenn ich den URL: http://lsd.newmedia.tiscali-business.com/bb/redirect.lsc?adid=0&stream=radioffh/livestream.wma&content=live&media=ms (URL vom Onlineradio FFH) geht es nicht mehr :(

  • Maus Curser ändern und Scroolen

    • Jam00
    • 22. Dezember 2008 um 19:45

    1. Wie kann ich einen eingenen Couser anzeigen lassen, also wenn ich GUICtrlSetCursor () nehme, kann ich ja kein eigene .cur datei nehmen :( Wie kann ich das machen :?:

    2. Ich eine Gui und möchte das wenn ich mit der Maus an den Rand gehen, alles was in der Grupe ist, ein bischen in die richtung scroolt, also das man in der Gui (grup) scroolen kann. Weiß jemnad wie das geht :?:

  • Desktop Radio 3.9

    • Jam00
    • 21. Dezember 2008 um 17:13

    Deepred, kanst du mir mal nen Beispiel zu _wmpcreate geben?

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™