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

Beiträge von Njahs

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 18. Dezember 2011 um 07:45

    hat einer von euch 2 vill. ICQ?
    Dann könnte man schauen , wo das problem in
    meinem Script liegt , dass das bild nicht gemalt wird

    Edit:// :o ... Es lag an dem "local" in der funktion vor dem "$PNG_Extender_hPic = GUICtrlCreatePic("", $PNG_Extender_iY, $PNG_Extender_iX)"


    [autoit]

    Func GUICtrlCreatePng($PNG_Extender_hScreen, $PNG_Extender_iX = "", $PNG_Extender_iY = "")
    $PNG_Extender_hPic = GUICtrlCreatePic("", $PNG_Extender_iY, $PNG_Extender_iX)
    _GDIPlus_Startup()
    Local $PNG_Extender_hImage = _GDIPlus_ImageLoadFromFile($PNG_Extender_hScreen)
    Local $hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($PNG_Extender_hImage)
    GUICtrlSendMsg($PNG_Extender_hPic, 0x0172, 0, $hBmp)
    _WinAPI_DeleteObject($hBmp)
    _GDIPlus_ImageDispose($PNG_Extender_hImage)
    _GDIPlus_Shutdown()
    Return $PNG_Extender_hPic
    EndFunc ;==>GUICtrlCreatePng

    [/autoit]


    So funktioniert es , danke :P

    Edit2:// Doch nicht :S

    Edit3:// Okay , hatte nach langen Google diese Funktion gefunden , die auch Funktioniert.

    [autoit]

    Func GUICtrlCreatePng($hWnd, $sPath, $iX, $iY)
    _GDIPlus_Startup()
    Local $hScrDC, $hMemDC, $hBitmap, $hOld, $pSize, $tSize, $pSource, $tSource, $pBlend, $tBlend, $hGUI
    Local $hImage = _GDIPlus_ImageLoadFromFile($sPath), $iWidth = _GDIPlus_ImageGetWidth($hImage), $iHeight = _GDIPlus_ImageGetHeight($hImage)
    $hGUI = GUICreate("", $iWidth, $iHeight, $iX, $iY, 0x80000000, BitOR(0x40, 0x80000), $hWnd)
    $cLabel = GUICtrlCreateLabel("", 0, 0, $iWidth, $iHeight)
    GuiCtrlSetState (-1 , $GUI_DISABLE)
    GUICtrlSetBkColor(-1, -2)
    GUISetState(@SW_SHOWNOACTIVATE, $hGUI)
    $hScrDC = _WinAPI_GetDC(0)
    $hMemDC = _WinAPI_CreateCompatibleDC($hScrDC)
    $hBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImage)
    $hOld = _WinAPI_SelectObject($hMemDC, $hBitmap)
    $tSize = DllStructCreate("int X;int Y")
    $pSize = DllStructGetPtr($tSize)
    DllStructSetData($tSize, "X", $iWidth)
    DllStructSetData($tSize, "Y", $iHeight)
    $tSource = DllStructCreate("int X;int Y")
    $pSource = DllStructGetPtr($tSource)
    $tBlend = DllStructCreate("byte Op;byte Flags;byte Alpha;byte Format")
    $pBlend = DllStructGetPtr($tBlend)
    DllStructSetData($tBlend, "Alpha", 255)
    DllStructSetData($tBlend, "Format", 1)
    _WinAPI_UpdateLayeredWindow($hGUI, $hScrDC, 0, $pSize, $hMemDC, $pSource, 0, $pBlend, $ULW_ALPHA)
    _WinAPI_ReleaseDC(0, $hScrDC)
    _WinAPI_SelectObject($hMemDC, $hOld)
    _WinAPI_DeleteObject($hBitmap)
    _WinAPI_DeleteDC($hMemDC)
    GUISwitch($hWnd)
    _GDIPlus_ImageDispose($hImage)
    _GDIPlus_Shutdown()
    Return SetError(0,$hGUI,$cLabel)
    EndFunc ;==>GUICtrlCreatePng

    [/autoit]
  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 18. Dezember 2011 um 00:00

    @Krabat das bild existiert ja , ich kriege es ja auch in eine neue Gui gezeichnet , doch nicht in die "alte"

    Okay , ich habs es gerade mal mit nur den Graphics & der Funktion von Krabat probiert , funktioniert :huh:
    Ich will meinen script hier nicht sehr gerne hochladen , weil ... öhm ja ,
    weil es halt viel arbeit war und so... Ich hätte wohl ICQ anzubieten: 621327466

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 17. Dezember 2011 um 16:33
    Zitat von autoBert

    Dann nimm das 3. Beispiel aus der Hilfe ersetze dort den Bild-Pfad mit dem Pfad zu deinem Skin.PNG.

    mfg autoBert

    <3 Funktioniert , aber ich will es ja in eine bereit vorhandene GUI zeichnen ,
    an einer bestimmten stelle , nicht eine neue GUI erstellen und dann
    darein , weißt du wie ich's lösen könnte?

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 17. Dezember 2011 um 15:52
    Zitat von autoBert

    Hast du den schon einmal auf deine Festplatte geschaut ob die Datei überhaupt heruntergeladen wird? D>as geht auch mit ener Zeile im Skriptcode:

    [autoit]

    Consolewrite($Skin&".png gefunden" & @crlf)

    [/autoit]

    Wenn ja schau dir das 3. Beispiel zu GUICtrlCreatePic an, das funktioniert. Wenn nein was ich vermute da:

    das heisst ein nicht angemeldeter User kommt nicht an seine Daten. Solltest du folgendes versuchen:

    Quelle: dt. Hilfefalls das auch nicht klappt musst du dich in Web-TCP oder HTTP einarbeiten und es mit einem der beiden versuchen,

    mfg autoBert

    Alles anzeigen

    Das komische ist ja: Die datei wird heruntergeladen , unter dem richtigen namen + endung gespeichert (.png)
    Das mit dem 3. Bsp. von GuiCtrlCreatePic ist ja genau das , was Krabat nun auch gemacht hat ,
    klappt aber auch nicht

    *verzweifel ;(

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 17. Dezember 2011 um 09:36

    funktioniert bei mir nicht...

    [autoit]

    $x = GUICtrlCreatePng(@Scriptdir &"\skins\Njahs.png", 150,150)
    Msgbox (0,"",$x)

    [/autoit]

    Gibt mir 0 als rückgabe wieder , und das Bild erscheint auch nicht.

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 17. Dezember 2011 um 08:40
    Zitat von autoBert

    Hallo Njahs,

    Quelle: dt. Hilfe du musst also

    [autoit]

    FileWrite (@Scriptdir &"\Probuilder.txt",$ProBuilder & @CRLF)

    [/autoit]

    zu

    [autoit]

    FileWrite (@Scriptdir &"\Probuilder.txt",$ProBuilder[0] & @CRLF)
    FileClose($FileOpen);sollte auch wieder geschlossen werden

    [/autoit]

    abändern

    mfg autoBert

    Alles anzeigen

    Danke <3 jez funktioniert es einwandfrei!

    Das problem mit dem GuiCtrlCreatePic bleibt aber immer nocht :/

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 16. Dezember 2011 um 20:09
    Zitat von letsgo

    Njahs
    In Zeile 14 gibst du $file der Funktion mit. Das ist erstens ein ARRAY also wenn schon dann $file[$i-1] (dann muss $i auch bis 54 gehen um den ganzen $file-Array durchzugehen) und zweitens ist $file[x] immer standartmäßig= "" da es niergends verändert wird, also müsstest du es wahrscheinlich in Zeile 13 $file[$i-1]=FileRead...

    Dann sind jetzt die gröbstens Fehler, die mir auf die Kürze eingefallen sind

    Also , hab es jez mal geändert:

    [autoit]

    #Include <Array.au3>
    #Include <String.au3>
    #Include <File.au3>

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

    Dim $Log[54] = ["2011-08-03","2011-08-04","2011-08-05","2011-08-06","2011-08-07","2011-08-08","2011-08-09","2011-08-10","2011-08-12","2011-08-13","2011-08-16","2011-08-17","2011-08-18","2011-08-20","2011-08-21","2011-08-23","2011-08-25","2011-08-26","2011-08-27","2011-08-28","2011-08-30",",2011-09-02","2011-09-04","2011-09-10","2011-09-16","2011-09-23","2011-09-25","2011-09-30","2011-10-03","2011-10-05","2011-10-07","2011-10-08","2011-10-10","2011-10-19","2011-10-20","2011-10-29","2011-11-02","2011-11-05","2011-11-10","2011-11-12","2011-11-13","2011-11-20","2011-11-23","2011-11-25","2011-11-27","2011-11-28","2011-11-30","2011-12-05","2011-12-06","2011-12-09","2011-12-10"]
    Dim $File[54]

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

    If Fileexists(@Scriptdir &"\ProBuilder.txt") Then FileDelete (@Scriptdir &"\ProBuilder.txt")

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

    For $i = 1 to 53 Step 1
    If Fileexists(@Scriptdir &"\"&$Log[$i]&".txt") Then
    $FileOpen = FileOpen (@Scriptdir &"\"&$Log[$i]&".txt")
    $File[$i] = FileRead ($FileOpen)
    $ProBuilder = _StringBetween ($File[$i],"(",")")
    FileWrite (@Scriptdir &"\Probuilder.txt",$ProBuilder & @CRLF)
    Endif
    Next

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

    FileClose($FileOpen)

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

    Exit

    [/autoit]

    Funktionieren tut es aber leider immer noch nicht... ,
    diesmal schreibt es nichts in die .txt, btw. wenn ich "(,")" ändere ,
    zu zb. "-","-" eine 0 -,-'

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 16. Dezember 2011 um 17:39

    Hm... etwas mager ,
    btw. ich habe noch ein problem , undzwar mit
    _Stringbetween...

    [autoit]

    #Include <Array.au3>
    #Include <String.au3>
    #Include <File.au3>

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

    Dim $Log[54] = ["2011-08-03","2011-08-04","2011-08-05","2011-08-06","2011-08-07","2011-08-08","2011-08-09","2011-08-10","2011-08-12","2011-08-13","2011-08-16","2011-08-17","2011-08-18","2011-08-20","2011-08-21","2011-08-23","2011-08-25","2011-08-26","2011-08-27","2011-08-28","2011-08-30",",2011-09-02","2011-09-04","2011-09-10","2011-09-16","2011-09-23","2011-09-25","2011-09-30","2011-10-03","2011-10-05","2011-10-07","2011-10-08","2011-10-10","2011-10-19","2011-10-20","2011-10-29","2011-11-02","2011-11-05","2011-11-10","2011-11-12","2011-11-13","2011-11-20","2011-11-23","2011-11-25","2011-11-27","2011-11-28","2011-11-30","2011-12-05","2011-12-06","2011-12-09","2011-12-10"]
    Dim $File[54]

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

    If Fileexists(@Scriptdir &"\ProBuilder.txt") Then FileDelete (@Scriptdir &"\ProBuilder.txt")

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

    For $i = 1 to 53 Step 1
    If Fileexists(@Scriptdir &"\"&$Log[$i]&".txt") Then
    $FileOpen = FileOpen (@Scriptdir &"\"&$Log[$i]&".txt")
    _FileReadToArray (@Scriptdir &"\"&$Log[$i]&".txt",$file)
    $ProBuilder = _StringBetween ($File,"(",")")
    FileWrite (@Scriptdir &"\Probuilder.txt",$ProBuilder)
    FileClose($FileOpen)
    Endif
    Next

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

    Exit

    [/autoit]

    So , nun schreibt es aber nur lauter "0" in die Probuilder.txt ,
    nun frag ich mich , wieso?

  • Problem bzg. GuiCtrlCreatePic und _Stringbetween

    • Njahs
    • 16. Dezember 2011 um 15:30

    Hi :D

    Ich habe ein Problem mit GuiCtrlCreatePic , nämlich will ich ein
    Tool schreiben (zum üben) , dass sich einen Skin runterläd , ihn speichert &
    dann als Pic anzeigt , doch das will nicht...
    Es speichert zwar den Skin unter "@Scriptdir &"\skins\" , doch wird
    nicht als Pic angezeigt...

    Spoiler anzeigen
    [autoit]

    Global $Skin = GuiCtrLRead ($Skininput)

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

    If NOT FileExists (@Scriptdir &"\skins") Then
    DirCreate (@Scriptdir &"\skins")
    Endif

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

    $Steal = InetGet ("http://s3.amazonaws.com/MinecraftSkins/"&$Skin&".png",@ScriptDir &"\skins\"&$Skin&".png")

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

    If Fileexists (@Scriptdir &"\skins\"&$Skin&".png") Then
    GUICtrlCreatePic(@Scriptdir &"\skins\"&$Skin&".png", 552, 280, 100, 100)
    EndIf

    [/autoit]
  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 13. Dezember 2011 um 14:28
    Zitat von Protex

    Naja euer Fragen System ist nicht sehr ausgeklügelt :D , und nicht wirklich gut erweiterbar wie zb mit einem Array , aber dein Kollege hat ja meine Idee einfach rausgelöscht xD

    Gruß

    Was meinst du mit "nicht sehr ausgeklügelt"?

    Es soll ja auch nicht erweitert werden , außer wenn etwas nicht funktioniert ,
    btw. mag arrays nicht soo gerne :P

    Welche "idee"?

    Soo... hab jez mal mein vorhaben von gestern realisiert ,
    download im anhang

    Dateien

    WWM Test.au3 62,13 kB – 266 Downloads
  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 12. Dezember 2011 um 20:08

    So , hab jez die Random Question fertig , morgen werde ich die Random Radio funktion machen , so ,
    dass man nicht einfach immer das gleiche klicken muss.

    Dateien

    WWM Test.au3 60,88 kB – 375 Downloads
  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 12. Dezember 2011 um 17:55
    Zitat von Protex

    Xd na klar könnt ihr das wofür habe ich es sonst gemacht :)
    hab die Bilder irgendwo mal aufgegriffen xD könnt ihr euch ja aus dem Script ziehen ;)

    zum Feedback: das soll doch auch kein fertiges Script sein habe ich doch dazugeschrieben, ihr müsst es euch so anpassen wie ihr das braucht

    EDIT: dass mit dem Checken nach jeder Antwort habe ich gemacht weil es blödsinn wäre dass zuerst angeklickte Radio auch als Antwort auf die Frage zu nehmen eventuell entscheidet man sich ja noch um? also Antwort auswählen > OK Button zum bestätigen und dann wird die Antwort geprüft ob sie stimmt ;) (ist nicht vorhanden nur eine MSgbox haha)
    Gruß Marvin

    Danke :P
    Nun hab ich nur ein problem , die Reihenfolge... , weiß einfach nicht , wie ich's anstellen soll ,
    entweder gerade unkonzentriert oder ... :P
    Hoffe jemand könnte helfen

  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 12. Dezember 2011 um 17:06
    Zitat von Protex

    Hab eben bissi langeweile gehabt und hab euch mal was gebaut ;)
    ist noch lange nicht fertig aber sieht schon mal ganz nett aus würde ich sagen :D

    Gruß

    Könnten wir das design übernehmen?

  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 12. Dezember 2011 um 14:22
    Zitat von meyermeyer11

    JA weiss ich doch aber die antworten des jokers sind so programmiert das immer eine zufällige kommt das meine ich ;)


    Der Telefonjoker soll ja nicht immer die richtige antwort geben ,
    oder is dein "freund" am anderem ende Dr. Einstein? :P

    [autoit]

    If $random2 > 25 and $random2 < 75 Then
    ;richtige antwort
    Elseif $random2 < 25 Then
    ;falsche antwort
    Elseif $random2 > 75 Then
    ;falsche antwort

    [/autoit]

    => 50% Chance auf richtige Antwort , 50 auf Falsche antwort

    Zitat von Cheater Dieter


    Ich meine, die Fragen sollten in zufälliger Reihenfolge drannkommen, nicht die Antworten des Jokers


    Danke , wird aber erst in der nächsten version kommen , und die wird's wohl nicht vor weinachten geben , weil ich & meyermeyer
    probleme mitm "chatten" haben , weil ganze zeit über PM... -,-' er holt sich bald ICQ 8o

  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 10. Dezember 2011 um 21:45

    Okay , ihr habt recht...
    Ich und meyermeyer haben uns entschieden ,
    erstmal etwas mehr dran zu arbeiten , und dann neu zu releasen.

  • Wer wird 100€ reicher?(Wer wird Millionär cover)

    • Njahs
    • 10. Dezember 2011 um 21:22
    Zitat von lukasboy

    Bisschen kurz. Script könnte noch überarbeitet werden und das Programm kann man eig noch nicht Programm nennen.

    Es soll mit absicht kurz sein ,
    außerdem ist es noch die aller erste Version

  • server online stellen

    • Njahs
    • 10. Dezember 2011 um 18:10
    Zitat von manuel6000

    Will mit Autoit ein online Spiel programmieren,aber will nicht das mein Pc dafür 24 Stunden am tag aktiviert sein muss. Gibt es eine Möglichkeit den Server irgendwo online zu stellen wo ich ihn auch jederzeit deaktivieren und ersetzten kann und es sollte gratis sein. 8)

    Du bräuchtest dafür einen Root , und den gibts nicht umsonst

  • Downloadgeschwindigkeits regler?

    • Njahs
    • 3. Dezember 2011 um 13:56

    Hey leute ,
    ich komm mal schnell auf den Punkt ,
    weil ich nicht viel zeit habe :P

    Also , ich frag mich schon seit langem , ob es sowas wie nen "Downloadgeschwindigkeits - Regler" (evtl. für Google Chrome) gibt , weil
    ich nicht will , dass mein ganzes internet ausgelastet wird.

    Wenn jemand einen kennt / hat , wäre ich euch dankbar ^^

  • [UDF] GDI+ Button

    • Njahs
    • 27. November 2011 um 19:15
    Zitat von hauke96

    ja ich fand das hier eigentlich besser, weil wenn da einfach kein Button entsteht, dann weiß man ja nciht, dass er das Bild nicht gefunden hat.

    Einfach dazuschreiben? :P

  • [UDF] GDI+ Button

    • Njahs
    • 27. November 2011 um 19:10

    Ich würde , wenn kein Bild gefunden wurde ,
    einfach transparent machen , oder
    einfach garkeinen button erstellen?

    *nur vorschlag

    , sonst is alles 1a

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™