Beiträge von m3po

Es funktioniert! Danke an alle die mir geholfen haben hier die Lösung!

#include <FTPEx.au3>
Opt('MustDeclareVars', 1)
_example()
Func _example()
Local $s_ServerName = 'ServerName'
Local $s_Username = "Username"
Local $s_Password = "Password"
Local $i_Passive = 0
Local $s_LocalFile = "C:\Save\2.sav" ;Speicherordner!
Local $s_RemoteFile = "/www/TEST/2" ;Download Ordner auf FTP
Local $l_InternetSession, $l_FTPSession, $errOpen, $errFTP
$l_InternetSession = _FTP_Open('AuoItZilla')
$errOpen = @error
If Not @error Then
$l_FTPSession = _FTP_Connect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_Passive) ;Verbindet zu einem FTP Server
$errFTP = @error
If Not @error Then
If _FTP_FileGet($l_FTPSession, $s_RemoteFile, $s_LocalFile) Then
ShellExecute($s_LocalFile)
ConsoleWrite("Download: erfolgreich" & @CRLF)
Else
ConsoleWrite("Download: fehlgeschlagen " & " " & @error & @CRLF)
EndIf
Else
MsgBox(0, "Connect", "fehlgeschlagen")
ConsoleWrite("Connect: " & " " & $errFTP & @CRLF)
EndIf
Else
MsgBox(0, "Open", "fehlgeschlagen")
ConsoleWrite("Open " & " " & $errOpen & @CRLF)
EndIf
_FTP_Close($l_InternetSession)
EndFunc

Hey,
hab da nen kleines Problem,wie kann ich die datei Downloaden und in einem bestimmten Ordner Speichern?

Func OnNo()
$server = '*************'
$username = '*************'
$pass = '*************'

$Open = _FTPOpen('MyFTP Control')
$Conn = _FTP_Connect($Open, $server, $username, $pass)
$erconn = @error
MsgBox (0, "Test", $erconn)
_FTP_FileGet ($Conn, "http://blahblah.de/datei/www.exe","C:/" )
$Ftpc = _FTP_Close($Open)

MsgBox($MB_SYSTEMMODAL, "DOWNLOAD FERTIG", "!!!")
EndFunc ;==>OnNo

Func OnExit()
If @GUI_CtrlId = $g_idExit Then
Else
EndIf

Exit
EndFunc ;==>OnExit

ich hoffe mir kann da einer Helfen Danke!

hammer jetzt hab ich die andere datei gesehen vielen dank für deine hilfe!

hammer vielen dank!

aber wie kann ich die lupen größe ändern und das bild wo er es anzeigt O_o

Hallo also ich versuche ein kleinen kasten unten rechts(ca400x300) in ein extra fenster das so die größe von 800x600 hat zuübertragen
bekomme das nicht hin diesen bestimmten bereich zeigen zulassen ich habe den quellcode von einer lupe genommen.

ich hoffe ihr könnt mir helfen

sowas wie eine bildübertragung

#include<WindowsConstants.au3>
#include<GUIConstantsEx.au3>
Opt("WinTitleMatchMode", 4)
Opt('GUICloseOnESC', 1)
Opt('GUIOnEventMode', 1)
HotKeySet("{F1}", "Zoom")

$x1 = 100
$y1 = 100

$MagWidth = 800
$MagHeight = 600
$MagZoom = 1;
Global $dll[3], $DeskHDC, $GUIHDC
Global $scoop = 0x00CC0020
$dll[1] = DllOpen("user32.dll")
$dll[2] = DllOpen("gdi32.dll")

Global $shell = WinGetPos("classname=Shell_TrayWnd")
Global $GUI = GUICreate("MINIMAP", 800, 600, @DesktopWidth - 810, @DesktopHeight - 610 - $shell[3], @SW_SHOW)
GUISetOnEvent($GUI_EVENT_CLOSE, "OnAutoItExit")
GUISetState(@SW_SHOW)

$DeskHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", 0)
$GUIHDC = DllCall("user32.dll", "int", "GetDC", "hwnd", $GUI)

While 1
MAG()
Sleep(5)
WEnd

Func Zoom()
$MagZoom = $MagZoom + 1
EndFunc ;==>Zoom

;-------------------------------------------------------------------------------------------------------------------------------------
Func MAG()
Local $magZoomedWidth = $MagWidth / $MagZoom, $magZoomedHeight = $MagHeight / $MagZoom
DllCall("gdi32.dll", "int", "StretchBlt", "int", $GUIHDC[0], "int", _
0, "int", 0, "int", $MagWidth, "int", $MagHeight, "int", $DeskHDC[0], "int", _
$x1, - ($magZoomedWidth / 2), "int", $y1 - ($magZoomedHeight / 2), "int", $magZoomedWidth, "int", $magZoomedHeight, _
"long", $scoop)
EndFunc ;==>MAG
;-------------------------------------------------------------------------------------------------------------------------------------

Func OnAutoItExit()
DllCall("user32.dll", "int", "ReleaseDC", "int", $DeskHDC[0], "hwnd", 0)
DllCall("user32.dll", "int", "ReleaseDC", "int", $GUIHDC[0], "hwnd", $GUI)
DllClose($dll[1])
DllClose($dll[2])
Exit (0)
EndFunc ;==>OnAutoItExit