Problem mit GUICtrlCreatePic

  • Hallo, ich habe ein Problem mit dem Befehl Funktion GUICtrlCreatePic.

    Ich habe mir ein Programm erstellt und ein Hintergrundbild genommen, sobald ich aber dass Programm verschicke, sieht der andere Nutzer das Hintergrundbild nicht. Wie mache ich, dass das Hintergrund bild bleibt und das auch andere sehen können?

    Mit freundlichem Gruß

    striked

  • Poste mal dein Skript, dann kann man deinen Fehler warscheinlich erkennen!
    //Edit: Ich vermute, du hast beim Pfad nur den Pfad des Bildes auf deinem PC angegeben. Auf dem anderen ist das Bild an diesem Pfad nicht vorhanden, also kann es auch nicht angezeigt werden.

  • Hab einen Autoeinlogger dank einer Datei dieses Forums selbst erstellt:

    [autoit]

    HotKeySet("{F2}", "_Exit")

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

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

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

    #Region ### START Koda GUI section ### Form=
    $Autoeinlogger = GUICreate("Autoeinlogger", 510, 266, 192, 114)
    $Pic1 = GUICtrlCreatePic("C:\Users\Public\Pictures\Sample Pictures\Wüstenlandschaft", 0, 0, 513, 265, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button_SchuelerVZ = GUICtrlCreateButton("SchuelerVZ", 168, 16, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_StudiVZ = GUICtrlCreateButton("StudiVZ", 168, 64, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_MeinVZ = GUICtrlCreateButton("MeinVZ", 168, 112, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_MySpace = GUICtrlCreateButton("MySpace", 168, 160, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_Lokalisten = GUICtrlCreateButton("Lokalisten", 168, 208, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Menu_Datei = GUICtrlCreateMenu("&Datei")
    $Submenu_Info = GUICtrlCreateMenuItem("Info", $Menu_Datei)
    $Submenu_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Submenu_Info
    Msgbox(64,"Info","Test")
    Case $Submenu_Beenden
    Exit
    Case $Button_SchuelerVZ
    $ID = InputBox ( "ID" , "Anmeldename" )
    $PW = InputBox ( "PW" , "Passwort" , "" , "*" )
    ShellExecute ( "http://www.schuelervz.net/Login" )
    WinWaitActive("schuelerVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_StudiVZ
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.studivz.net/Login" )
    WinWaitActive("studiVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_MeinVZ
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.meinvz.net/Login" )
    WinWaitActive("meinVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_MySpace
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.myspace.com" )
    WinWaitActive("MySpace: Musik, Videos, Games und mehr")
    Sleep(5000)
    MouseMove ( 918, 546 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 929, 580 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_Lokalisten
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.lokalisten.de" )
    WinWaitActive("lokalisten community: meine, deine- unsere freunde!")
    Sleep(5000)
    MouseMove ( 550, 209 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 742, 209 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    EndSwitch
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    Ja, das mit Pfad weiß ich, aber ich weiß ned wie ich das anders machen könnte.

  • ähm mal ne ganz dumme Frage gast du ihm das Bild mitgeschickt wie soll das sonst funktionieren lool :rofl:

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

  • Entweder du verwendest FileInstall() und kopierst so das Bild auf den anderen Rechner, oder du wandelst das Bild in Binärdaten um, und schreibst es direkt ins Skript.
    //Edit: Die Binardaten kannst du mithilfe von Bugfix 'Fremddateien includen'-UDF rausfinden!

  • Entweder du verwendest FileInstall() und kopierst so das Bild auf den anderen Rechner, oder du wandelst das Bild in Binärdaten um, und schreibst es direkt ins Skript.

    ah genau in ein Binär umwandeln das wäre eine clevere lösung aber irgendwas muss er schon machen wie soll es ein Bild anzeigen, dass der andere gar nicht hat :rofl:

    Das finden von Rechtschreibfehlern muss sofort und unverzüglich dem Autor gemeldet werden. Das eigennützige Verwenden dieser Rechtschreibfehler ist strengstens untersagt und kann mit Freiheitsenzug bestraft werden.

  • hier das angepasste Skript für die Lösung mit FileInstall:

    Spoiler anzeigen
    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_UseUpx=n
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    HotKeySet("{F2}", "_Exit")

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

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

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

    FileInstall("C:\Users\Public\Pictures\Sample Pictures\Wüstenlandschaft.jpg",@ScriptDir & "\Wüste.jpg",1)
    #Region ### START Koda GUI section ### Form=
    $Autoeinlogger = GUICreate("Autoeinlogger", 510, 266, 192, 114)
    $Pic1 = GUICtrlCreatePic(@ScriptDir & "\Wüste.jpg", 0, 0, 513, 265, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
    GUICtrlSetState(-1, $GUI_DISABLE)
    $Button_SchuelerVZ = GUICtrlCreateButton("SchuelerVZ", 168, 16, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_StudiVZ = GUICtrlCreateButton("StudiVZ", 168, 64, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_MeinVZ = GUICtrlCreateButton("MeinVZ", 168, 112, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_MySpace = GUICtrlCreateButton("MySpace", 168, 160, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Button_Lokalisten = GUICtrlCreateButton("Lokalisten", 168, 208, 177, 33, 0)
    GUICtrlSetBkColor(-1, 0xC0C0C0)
    $Menu_Datei = GUICtrlCreateMenu("&Datei")
    $Submenu_Info = GUICtrlCreateMenuItem("Info", $Menu_Datei)
    $Submenu_Beenden = GUICtrlCreateMenuItem("Beenden", $Menu_Datei)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

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

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

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

    Case $Submenu_Info
    Msgbox(64,"Info","Test")
    Case $Submenu_Beenden
    Exit
    Case $Button_SchuelerVZ
    $ID = InputBox ( "ID" , "Anmeldename" )
    $PW = InputBox ( "PW" , "Passwort" , "" , "*" )
    ShellExecute ( "http://www.schuelervz.net/Login" )
    WinWaitActive("schuelerVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_StudiVZ
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.studivz.net/Login" )
    WinWaitActive("studiVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_MeinVZ
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.meinvz.net/Login" )
    WinWaitActive("meinVZ | Einloggen")
    Sleep(5000)
    MouseMove ( 446, 279 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 456, 315 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_MySpace
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.myspace.com" )
    WinWaitActive("MySpace: Musik, Videos, Games und mehr")
    Sleep(5000)
    MouseMove ( 918, 546 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 929, 580 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    Case $Button_Lokalisten
    $ID = InputBox("ID", "Anmeldename")
    $PW = InputBox("PW", "Passwort", "","*")
    ShellExecute ( "http://www.lokalisten.de" )
    WinWaitActive("lokalisten community: meine, deine- unsere freunde!")
    Sleep(5000)
    MouseMove ( 550, 209 )
    Sleep (1000)
    MouseClick ( "left" )
    Sleep (1000)
    Send ( $ID )
    Sleep (1000)
    MouseMove ( 742, 209 )
    Sleep (1000)
    MouseClick ( "left" )
    Send ( $PW )
    Sleep (2000)
    Send ( "{enter}" )
    EndSwitch
    WEnd

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

    Func _Exit()
    Exit
    EndFunc

    [/autoit]

    mfg (Auto)Bert

    Einmal editiert, zuletzt von AutoBert (2. April 2010 um 17:01)

  • Der Vorteil an den Binärdaten ist halt, dass du nicht immer schauen musst wo das Bild gerade ist, sondern das Bild in Form von Binärdaten in deinem Skript gespeichert ist, dass heißt: du kannst das Bild löschen, und dein Programm würde trotzdem noch funktionieren.

    //Edit: Warum löscht du deine Beiträge??? ?(

  • Der Vorteil an den Binärdaten ist halt, dass du nicht immer schauen musst wo das Bild gerade ist, sondern das Bild in Form von Binärdaten in deinem Skript gespeichert ist, dass heißt: du kannst das Bild löschen, und dein Programm würde trotzdem noch funktionieren.

    //Edit: Warum löscht du deine Beiträge??? ?(

    Bei FileInstall legst du 1. wo das Ursprungbild liegt und wohin es bei jedem Aufruf hinkopiert wird, dadurch auch Löschen durch DAU möglich, wird beim nächsten Programmstart wieder kopiert. Wenn FileInstall mit Flag 1 (überschreiben) aufgerufen wird, darf der DAU auch den Bildinhalt ändern, es nützt ihm nur nichts,

    mfg (Auto)Bert