Beiträge von Brick

so werden mir irgendwie gar keine Bilder mehr angezeigt..

ich hab das jetzt so gelöst, das einfach alle Bilder jetzt von EINEM "Leeren Bild" überschrieben werden..
nicht mehr jedes einzeln... somit hab ich nur noch einen kleinen Rahmen um das gesamte Gui, der kaum
auffällt... klar.. nicht die Lösung.. aber ein Workaround mit dem ich leben kann..

trotzdem danke für deine Hilfe !!

Gruß Brick

also den ganzen Code poste ich jetzt nicht, da auch viel unnützes Zeug (für euch) dabei ist..
aber das für die Bilder kann ich gern posten:

;Das ganze ist ein Geburtstagskalender, der mir an dem heutigen Tag die Info und ein Bild, von
;dem jenigen anzeigt, der Geburtstag hat. Über ein Datumsfeld kann man gezielt zu einem bestimmten
;Datum springen. Hier ein Teil des Codes...
;GUICtrlCreatePng springt in die Funktion GUICtrlCreatePng.. übergibt Filepath und "IniFileLine7", das ist ein Leeres Jpg
;um vorhergehende Bilder zu löschen .
func start()

While 1
$msg = GUIGetMsg()
Select
case $msg = $cal
;~ Hier wird das Label zurückgesetzt
GUICtrlCreatePng($filepath_pic&$IniFileLine7,30,80,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,320,80,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,610,80,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,30,200,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,320,200,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,610,200,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,30,320,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,320,320,98)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,610,320,98)
GUICtrlSetData ($Label, "")
GUICtrlSetData ($Label1, "")
GUICtrlSetData ($Label2, "")
GUICtrlSetData ($Label3, "")
GUICtrlSetData ($Label4, "")
GUICtrlSetData ($Label5, "")
GUICtrlSetData ($Label6, "")
GUICtrlSetData ($Label7, "")
GUICtrlSetData ($Label8, "")
GUICtrlSetData ($Label9, "")
connect()
case $msg = $GUI_EVENT_CLOSE
Exit
case $msg = $beenden
Exit
;~ Bilderpfad für vergrößerte Bilder
case $msg = $Pict1
$bigpic_var= $Picture1
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict2
$bigpic_var= $Picture2
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict3
$bigpic_var= $Picture3
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict4
$bigpic_var= $Picture4
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict5
$bigpic_var= $Picture5
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict6
$bigpic_var= $Picture6
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict7
$bigpic_var= $Picture7
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict8
$bigpic_var= $Picture8
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $Pict9
$bigpic_var= $Picture9
GUICtrlCreatePng1($filepath_pic&$bigpic_var,30,80,$IniFileLine4)
case $msg = $help
$x = $x + 1
Help()
case $msg = $dropdown_name
NameSelect()
case $msg = $mzi
SplashTextOn ("Kontakt", "M" & @LF & "Beter"&@LF& "urg.cat"&@LF&@LF&"Dieses Fenster schließt sich automatisch!", 250,100, @DesktopWidth/2-125, @DesktopHeight/2-100,5, "calibri", 10)
sleep(3000)
SplashOff()
EndSelect
WEnd
EndFunc

;~ Bilder (klein) erstellen
Func GUICtrlCreatePng($filepath_pic, $iPNG_Left = 0, $iPNG_Top = 0, $factor=0)
_GDIPlus_Startup()

Local $hImagePNG = _GDIPlus_ImageLoadFromFile($filepath_pic)
Global $iPNG_Width = _GDIPlus_ImageGetWidth($hImagePNG)
Global $iPNG_Height = _GDIPlus_ImageGetHeight($hImagePNG)
Local $iPNG_faktor= $iPNG_Width/$factor
Local $hBmp = _GDIPlus_ImageResize($hImagePNG, $iPNG_Width/$iPNG_faktor,$iPNG_Height/$iPNG_faktor) ;GDI+ Bitmap
Local $hHBitmap = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hBmp) ;GDI Bitmap!
Local $iPNG_Height_res= $iPNG_Height/$iPNG_faktor
Local $iPNG_Width_res = $iPNG_Width/$iPNG_faktor
local $test321 = _GDIPlus_GraphicsCreateFromHWND($Form1)
local $test123 = _Gdiplus_GraphicsDrawImage ($test321,$hBmp,$iPNG_Left,$iPNG_Top)

;~ Local $cPNG_PIC = GUICtrlCreatePic("", $iPNG_Left, $iPNG_Top, $iPNG_Width_res, $iPNG_Height_res)
;~ GUICtrlSendMsg($cPNG_PIC, 0x0172, 0, $hHBitmap)

_WinAPI_DeleteObject($hHBitmap)
_GDIPlus_BitmapDispose($hBmp)
_GDIPlus_ImageDispose($hImagePNG)

;~ Return $cPNG_PIC
EndFunc ;==>GUICtrlCreatePng

Hoffe das ist einigermaßen Verständlich

Gruß Brick

jetzt hab ichs mal so versucht:

local $test321 = _GDIPlus_GraphicsCreateFromHWND($Form1)
local $test123 = _Gdiplus_GraphicsDrawImage ($test321,$hBmp,$iPNG_Left,$iPNG_Top)

;~ Local $cPNG_PIC = GUICtrlCreatePic("", $iPNG_Left, $iPNG_Top, $iPNG_Width_res, $iPNG_Height_res)
;~ GUICtrlSendMsg($cPNG_PIC, 0x0172, 0, $hHBitmap)

(das auskommentierte war das, was ich vorher drin hatte)

dann siehts so aus... (siehe Anhang)

etwas besser.. leider ist immer noch ein kleiner weißer Rand..

wenn ich die Grafik etwas größer mach, wird der Rand auch größer !

kann man den nicht entfernen ??

Gruß Brick

so,

ich lass es doch mit "Resize".. das funktioniert genau so wie ich es haben will !!

ABER: ich bekomm um das Bild so einen Rand.. Sieht aus wie $SS_SUNKEN ..
nur bekomm ich den nicht weg..

kannst du mir einen Tipp geben: A; woher der kommt und B; wie ich den weg bekomme !

Gruß Brick

EDIT: wo der Rahmen jetzt herkommt, hab ich gefunden.. nur wie ich ihn wegbekomm noch nicht:
Der Rahmen kommt von meinem "leer.jpg" Bild.. immer wenn ein neues Bild erscheinen soll, blende ich
ein "leeres" Bild erst drüber.. dadurch entsteht dieser Rahmen..

wow..

sieht an sich gut aus... (auch wenn ichs noch nicht ganz gerafft hab )

werd mir jetzt mal GDIPlus_ImageScale anschauen, da das Bild so doch
je nach Auflösung stark verzerrt wird !

Danke für die Unterstützung !

Gruß Brick

Zitat von UEZ

Die Zeile

[autoit]

Local $hBmp = _GDIPlus_ImageResize(_GDIPlus_BitmapCreateHBITMAPFromBitmap($hImagePNG), 300,500)

[/autoit]

mach so keinen Sinn, denn du übergibst der Funktion GDIPlus_ImageResize() ein GDI Handle und kein GDI+ Handle!

Hi,

ähmm.. Hä ??

sorry.. bin jetzt mit den ganzen GDI Zeug wirklich kein Profi.. aber da steht doch GDIplus_Imageresize (und GDIPlus_Bitmap...)
wieso erzeugt das GDIPlus_BitmapCreate.. kein GDI Plus Handle ??

wieso heißt es dann so ??

sorry.. für die Laienhafte Frage... aber wie schon gesagt, das ganze GDI Zeug kapier ich noch nicht so ganz !

(gibts da eigentlich ein brauchbares Tutorial ?)

Gruß Brick

Hallo,

ich bin auch wieder vor dem Problem.. leider komm ich auch nicht weiter.
Hab mir jetzt die neueste Version (v3.3.10.2) gezogen..

Was ich will:
ich hab einen Ordner ... in diesem befinden sich Bilder, (mit zum Teil unterschiedlichem Format)..
wenn ich auf einen Button drücke soll eines der Bilder auf der Gui angezeigt werden. Wird dann auf
das Bild gedrückt wird das Bild vergrößert dargestellt. Bisher hatte ich das so gelöst, das ich zwei
weitere Ordner (Thumbnail und Thumbnail2) erstellt hatte in dem ich die Verkleinerten Versionen (einmal
mit 80x 1xx und einmal mit 480x6xx) liegen hatte..

reichlich unsmart !

Die Idee wäre jetzt keine Thumbnails mehr erstellen zu müssen sondern gleich die "Orginalbilder" zu verwenden
und diese dann skaliert auf der Gui anzuzeigen... also einmal mit 80x 1xx und beim Klick auf diese mit 480x6xx..

was ich bisher habe:

While 1
$msg = GUIGetMsg()
Select
case $msg = $cal
;~ Hier wird das Label zurückgesetzt
GUICtrlCreatePng($filepath_pic&$IniFileLine7,30,80)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,320,80)
GUICtrlCreatePng($filepath_pic&$IniFileLine7,610,80)
......
EndSelect
WEnd

;~ Bilder (klein) erstellen
Func GUICtrlCreatePng($filepath_pic, $iPNG_Left = 0, $iPNG_Top = 0)
_GDIPlus_Startup()

Local $hImagePNG = _GDIPlus_ImageLoadFromFile($filepath_pic)
Global $iPNG_Width = _GDIPlus_ImageGetWidth($hImagePNG)
Global $iPNG_Height = _GDIPlus_ImageGetHeight($hImagePNG)
Local $hBmp = _GDIPlus_BitmapCreateHBITMAPFromBitmap($hImagePNG)

Local $cPNG_PIC = GUICtrlCreatePic("", $iPNG_Left, $iPNG_Top, $iPNG_Width, $iPNG_Height)
;~ MsgBox(0,"",$iPNG_Height & " " & $iPNG_Width)

GUICtrlSendMsg($cPNG_PIC, 0x0172, 0, $hBmp)
_WinAPI_DeleteObject($hBmp)
_GDIPlus_ImageDispose($hImagePNG)
_GDIPlus_Shutdown()

Return $cPNG_PIC
EndFunc ;==>GUICtrlCreatePng

somit werden die Bilder aber nur dargestellt.. in Orginalgröße..

wenn ich jetzt folgendes :

Local $hBmp = _GDIPlus_ImageResize(_GDIPlus_BitmapCreateHBITMAPFromBitmap($hImagePNG), 300,500)
Local $iPNG_faktor= $iPNG_Width/300
Local $iPNG_Height_res= $iPNG_Height/$iPNG_faktor
Local $iPNG_Width_res = $iPNG_Width/$iPNG_faktor
Local $cPNG_PIC = GUICtrlCreatePic("", $iPNG_Left, $iPNG_Top, $iPNG_Width_res, $iPNG_Height_res)

in den Code (Funktion) integriere wird zwar die Darstellung auf zb. 300 Pixel Breite richtig erstellt, aber das Bild
wird nicht skaliert, sondern abgeschnitten !!

habt ihr einen Tipp ?

Gruß Brick

Zitat von blubbstar

Noch eine Whileschleife Das Problem liegt halt darin, das du aus der Funktion nicht mehr rauskommst. (hast dort vermutlich eine Schleife) und somit klappert er die bisherige schleife nicht mehr ab.

richtig.. in der Funktion hab ich eine weitere Schleife...
wie löst man den sowas dann sonnst... alles ohne Func machen und in die erste While reinpfeifen hab ich auch keine Lust...

Hi Leute.. vielleicht stell ich mich bloß blöd an.. weiß nicht.. aber irgendwie bekomm ich das nicht auf die Reihe...

ich hab ein kleines Skript gebastelt, das mir eine Datei runterlädt, das funktioniert auch schon sehr gut..
jetzt hab ich mir dazu ne schöne Gui gebastelt damits optisch auch was hermacht...

jetzt wollt ich mir auf dem GUI n Cancel Button erstellen (was heißt hier.. wollt... ICH HAB...) leider funktioniert
der nicht, wenn ich vorher auf "Go" gedrückt hab... (das versteh ich sogar, warum er nicht geht.. ich weiß nur nicht
was ich dagegen machen kann.)...
Skript sieht in etwas so aus...

While 1
$msg = GUIGetMsg()
Select
case $msg = $OK

$i = 1
load ()

case $msg = $GUI_EVENT_CLOSE
Exit

case $msg = $exit
exit
EndSelect
WEnd

func load ()

bla bla bla.. usw.
viel text...

endfunc

wie gesagt.. wenn ich jetzt zuerst auf $OK drück bin ich ja in der Func load drin... da funktioniert der $Exit bzw. Cancel Button nicht... was kann ich dagegen machen...

Für antworten die mich weiterbringen wär ich zutiefst dankbar...

Gruß Brick

Jep... Passt schon.. werd mir des nochmal genauer anschaun wenn ich zeit hab.. aber
alles in allem passts...

Wie gesagt... Danke nochmal... das war genau das was ich gesucht hab.

Gruß Brick

Zitat von McPoldy

Moin, habe das hier gestern gelesen und mich mal dran gesetzt und mir ein Multidownloader gebastelt für den Free-Account. Den habe ich mal etwas gändert und auf eine Datei umgebastelt.

Spoiler anzeigen

[autoit]

;Includes
#include <IE.au3>

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

;Variablen
Global $objIE, $destFolder,$dlLink,$fileName,$Url

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

;Zielordner wählen
$destFolder = 'c:\tmp\testdatei.txt'

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

;RapidShare Link
$dlLink = 'http://rapidshare.com/files/133499342/testdatei.txt.html'

;IE einbinden
$objIE = _IECreate($dlLink,0,1,1,1) ; wenn der IE nicht angezeigt werden soll: _IECreate($dlLink,0,0,1,1)

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

;IE Fehler deaktivieren
_IEErrorNotify (False)

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

;Die Form für den Free-Download raussuchen
$oForms = _IEFormGetCollection ($objIE)
For $oForm In $oForms
if $oForm.id = 'ff' Then ExitLoop
Next
$oForm.submit

;Warten bis der Counter runter gelaufen ist
Do
$oForm = _IEGetObjByName($objIE,"dlf")
Sleep(250)
Until IsObj($oForm)

;Den direkten Link zur Datei auslesen
$dlLink = $oForm.action

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

;Datei runter laden
InetGet($dlLink,$destFolder,1)

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

;IE beenden
_IEQuit($objIE)

[/autoit]

So musst du nur den Pfad und die Datei angeben, der Unterschied bei dem Link und dem direkten Downloadlink sieht so aus:
Normaler Link:
http://rapidshare.com/files/133499342/testdatei.txt.html
Direkter Link (in diesem Fall von dem Telekom Mirror):
http://rs277dt.rapidshare.com/files/133499342/2893865/testdatei.txt

Die hintere Zahl (2893865) ändert sich bei jedem Aufruf.

Alles anzeigen

Saustark... genau so hab ichs mir vorgestellt.. danke...

jetzt bitte noch schnell ne erklärung... damit ich das das nächste mal allein hinbekomm...

also... (bitte korrigieren, falls falsch *gg)

;Die Form für den Free-Download raussuchen
$oForms = _IEFormGetCollection ($objIE)
For $oForm In $oForms
   if $oForm.id = 'ff' Then ExitLoop
Next
$oForm.submit

Hier legt Autoit offensichtlich irgend einen "Collection" an... die so oft durchlaufen wird, bis die
ID "ff" ist.. .wieso "ff" ???
danach sendet er offensichtlich die ID... dachte die währe "Free" bzw. "Premium" ???

;Warten bis der Counter runter gelaufen ist
Do
    $oForm = _IEGetObjByName($objIE,"dlf")
    Sleep(250)
Until  IsObj($oForm)

Hier sucht er ein Obj. Name ??? .. das "dlf heißt ??? (downloadfile ??)
woher bekomm ich diese Info ???

;Den direkten Link zur Datei auslesen
$dlLink = $oForm.action 


;Datei runter laden
InetGet($dlLink,$destFolder,1)

Dann den Direkten Link auslesen... hmm.. ok..und
der rest klingt plausibel.. datei halt runterladen...

Jedenfalls vielen dank für die Hilfe...

Gruß Brick

Zitat von Bustd

Allerdings, so ist das ganze eine gute lösung... gedanken würd ich mir machen ob ich meine U/P daten unverschlüsselt schicke....

*räusper* ... seh ich des richtig mit U/P Daten sind Username und Password gemeint... sorry.. aber dazu hab ich wirklich keine lust..
Wie schon erwähnt... muss nicht direkt über meinen Premacc. laufen... gern auch über den Free user... die wartezeit is annähernd null, da die datei nicht sehr groß ist.
Gibt es keine Möglichkeit mit Autoit einem Link einen "Value" anzuhängen. (Da ja offensichtlich die Links für Prem und Free die gleichen sind.) ???

Trotzdem Danke für den Tip ... (werd in mal heimlich ausprobieren... )

Gruß Brick

Ha... hab grad des mit der einstellung getestet... funktioniert bedingt..
wenn ich des aktiviere, und schon mal bei Rapidshare mich eingelogged hab, kann ich die
datei direkt Downloaden.
Wenn ich aber z.b. einen anderen Browser verwende, oder beim IE die Cookies lösch,
kommt wieder das Free- Premium Auswahlfenster...
Somit funktionierts damit nur bedingt...

Also nochmal von vorn... der Ansatz sollte irgendwie dahingehend sein, daß ich auf ne Seite
zugreifen kann, und dort nen Link drücke, die offensichtlich ein Steuerelement mit dem Namen "dl.start" hat und den value "free" bzw. "Premium" übergibt. Das müsste ich simulieren. Die Wartezeit die darauf folgt, könnt ich mit einem einfachen "Sleep" gefehl erledigen...

<td width="300" style="text-align:center;"> 
<form action="http://rs50.rapidshare.com/files/132601699/16---geht euch nix an.pdf" method="post"> 
<input type=hidden name="dl.start" value="PREMIUM" /> 
<img src="/img2/dl_schnell.gif" /> 
<br /> 
<input type="submit" value="Premium-User" />

Für weitere Hilfe immer empfangsbereit..

Gruß Brick

Zitat von Taek

*räusper* ... weiß zufällig jemand ob ich dann noch die Punkte sammeln kann, wenn "Direktdownload" aktiviert ist, da mein Account zum Teil auch davon lebt..

Is zwar jetzt etwas offtopik... aber offensichtlich scheint es ja keine andere Lösung zu geben, oder ???

Zitat von teh_hahn

Die von Dir angestrebte Downloadmöglichkeit über den Freeuser-Account wird wohl an den Captchas scheitern...

glaub ich nicht, das es seit einigen Wochen keine Captchas mehr gibt...

So.. bin jetzt schon soweit, das er mir die Rapidshareseite aufmacht (invisible) und dort den richtigen link öffnet.. dann hab ich mir den Quelltext angeschaut, von der Seite.

da steht dann:

form id="ff" action="http://rs50.rapidshare.com/files/132601699/16---geht euch nix an.pdf" method="post">
                        <input type=hidden name="dl.start" value="Free"

unter Value steht hier Free, welches offensichtlich die Methode ist, (Free oder Premium) der link scheint aber immer der gleiche zu sein. Wie kann ich sowas jetzt übergeben, das er mir den
Free bzw. Premium Link auswählt.

Gruß Brick

Zitat von Der_Doc

Hi,
das ist kein Prob, nen Beispiel kenne ich von PHP. Mit nen bischen suchen bekommst du da Beispiele. Ansonst ist das nur ein GUI und eine Inputbox für Username und Passwort.

MfG
Der_Doc

Hi Doc.. also mit PHP kenn ich mich jetzt auch nicht so mächtig aus.. hab mal "Hello World" geschrieben... das wars aber auch schon... und Username und Passwort brauch ich auch nicht unbedingt, da ich das ruhig auch als Freeuser laden lassen kann, (die datei ist nicht besonders groß, womit sich wartezeiten und downloadzeiten eh begrenzt halten)

Wie gesagt, ich bräuchte mal einen Ansatz, wie ich auf die datei zugreifen kann. (Das passende GUI, sollte ich mich entschließen eins zu schreiben bekomm ich hin)

Aber trotzdem danke für die schnelle antwort.

Gruß Brick

Hi Leute, bin ziemlich neu beim Thema Autoit... ein paar kleinigkeiten kann ich schon, hält sich
aber in Grenzen.

Nutze Autoit immer um mir wiederkehrende Arbeiten zu erleichtern, und darum geht es auch jetzt wieder.

Ich hab einen Premium Account bei Rapidshare, und hab dort einige Dateien hochgeladen.
Da ich einige davon öffter brauche (auch unterwegs) wollt ich mir ein kleines Skript schreiben, das mir immer diese Datei per doppelklick auf den Desktop (bzw. in einen Ordner) speicher (Die datei hat immer den gleichen Namen, wird aber von einem Kollegen immer aktuell gehalten)

eine normale datei downloaden hab ich mit autoit schon hinbekommen, leider funktioniert das bei RS nicht, da ma da ja irgendwie den Freeuser auswählen kann, bzw. muss. dann die wartezeit abwarten und dann erst den link drücken kann.
Hab aber schon tools gesehen, die das können. Leider kommen mir die nicht sehr legal vor, deswegen wollt ich mir sowas selber schreiben. Wie gesagt, ich will hier nur eine Datei die auf meinem Prem Account liegt, per Doppelklick auf meinen Rechner laden. Und das Automatisiert. Mehr nicht.

Wie is das realisierbar ???

Gruß Brick

P.S. schön währs noch, wenn das ohne lästige sichtbare Fenster vonstatten gehen würde. Also nichts wie mouseclick (100,120) oder dergleichen...