Beiträge von Alizame

[autoit]

;http://bilder.webblaster.de/albums/Ab-2010…en/DSC_0001.JPG
$inetseite = "http://bilder.webblaster.de/albums/Ab-2010/2010-05-01%20SpringBreakParty%20-%20Hauen/DSC_"
$zahl = ""
$endung = ".JPG"

[/autoit] [autoit][/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=
$Form1 = GUICreate("BilderDownloader", 220, 272, 192, 124)
$Button1 = GUICtrlCreateButton("Download starten!", 24, 40, 129, 33, 0)
$Label1 = GUICtrlCreateLabel("bereits gedownloadet:", 16, 16, 108, 17)
$Label2 = GUICtrlCreateLabel("0000", 136, 8, 48, 28)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_bilderdownload ( )
EndSwitch
WEnd

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

Func _bilderdownload ( )
TrayTip("Bilder Downloader","Nun werden die Bilder gedownloadet!",10,1)
DirCreate(@ScriptDir&"\bilder\")
For $i = 1 to 353 ;is glaube ich das letzte bild
$zahl = StringFormat("%04i", $i)
InetGet( $inetseite & $zahl & $endung, @ScriptDir&"\bilder\"&$zahl&$endung,8,0)
GUICtrlSetData( $Label2 , $zahl )
Next
MsgBox(0,"fertig!","fertig!")
EndFunc

[/autoit]

[autoit]

#include <Clipboard.au3>
#include <WinAPIError.au3>
#include <WinAPI.au3>
#include <GDIPlus.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
_GDIPlus_Startup()
$a=_ClipBoard_GetDatax(2)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $a = ' & $a & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$hgui=guicreate("")
guisetstate()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hGraphic = ' & $hGraphic & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
$h=_GDIPlus_BitmapCreateFromHBITMAP($a)
$b=_GDIPlus_GraphicsDrawImage($hGraphic, $h, 0, 0)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $b = ' & $b & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _ClipBoard_GetDatax($iFormat = 1)
ConsoleWrite('@@ (259) :(' & @MIN & ':' & @SEC & ') _ClipBoard_GetData()' & @CR) ;### Function Trace
If Not _ClipBoard_IsFormatAvailable($iFormat) Then Return SetError(-1, 0, 0)
If Not _ClipBoard_Open(0) Then Return SetError(-2, 0, 0)
Local $hMemory = _ClipBoard_GetDataEx($iFormat)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $hMemory = ' & $hMemory & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
return $hMemory
;_ClipBoard_Close(); moved to end: traditionally done *after* copying over the memory
If $hMemory=0 Then
_ClipBoard_Close()
Return SetError(-3, 0, 0)
EndIf
Local $aResult = DllCall("kernel32.dll", "ptr", "GlobalLock", "handle", $hMemory)
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $aResult[0] = ' & $aResult[0] & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Local $iLastError = _WinAPI_GetLastError()
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $iLastError = ' & $iLastError & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
Local $sLastError = _WinAPI_GetLastErrorMessage()
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $sLastError = ' & $sLastError & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console

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

Local $pMemoryBlock=$aResult[0]
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $pMemoryBlock = ' & $pMemoryBlock & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
If $pMemoryBlock=0 Then
_ClipBoard_Close()
Return SetError(-4,0,0)
EndIf
return $pMemoryBlock
endfunc

[/autoit]

[autoit]

#Include <FF.au3>

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

#Include <File.au3>

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

#Include <Print.au3>

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

Hotkeyset("{F2}","_gethtml")
FileOpen ( "text.txt", 2 )
; An dieser Stelle müsste der Hotkey einsetzen, der alles weitere aktiviert.

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

Func _gethtml
$quelltext = _FFReadHTML("body", 0)
FileWrite ("text.txt", $quelltext )
_FilePrint ("text.txt")
EndFunc

[/autoit]