Beiträge von Der_Doc

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

$Open = _FTPOpen('MyFTP Control')
If @error Then
MsgBox(4096, "Fehler FTP Verbindung oeffnen", "Es ist ein Fehler beim Versuch einer FTP Verbindung aufgetreten." &@CRLF& _
"Die Anwendung wird beendet!")
Exit
EndIf
$Conn = _FTPConnect($Open, $ftp_server, $ftp_username, $ftp_pass)
If @error Then
MsgBox(4096, "Fehler FTP Verbindung", "Bitte überprüfen Sie Username, Passwort oder FTPServernamen." &@CRLF& _
"Die Anwendung wird beendet!")
Exit
EndIf
$Ftpp = _FtpPutFile($Conn,$lokalfile,$remotefile)
If @error Then
MsgBox(4096, "Fehler Fileupload", "Es ist ein Fehler beim Fileupload aufgetreten." &@CRLF& _
"Die Anwendung wird beendet!")
Exit
EndIf
$Ftpc = _FTPClose($Open)
GUICtrlSetState ( $gui_test_button, $GUI_Enable)

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

;~ ############## Funktions Auszug aus der ftp.au3#####################

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

;===============================================================================
;
; Function Name: _FTPOpen()
; Description: Opens an FTP session.
; Parameter(s): $s_Agent - Random name. ( like "myftp" )
; $l_AccessType - I dont got a clue what this does.
; $s_ProxyName - ProxyName.
; $s_ProxyBypass - ProxyByPasses's.
; $l_Flags - Special flags.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren.
;
;===============================================================================

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

Func _FTPOpen($s_Agent, $l_AccessType = 1, $s_ProxyName = '', $s_ProxyBypass = '', $l_Flags = 0)

Local $ai_InternetOpen = DllCall('wininet.dll', 'long', 'InternetOpen', 'str', $s_Agent, 'long', $l_AccessType, 'str', $s_ProxyName, 'str', $s_ProxyBypass, 'long', $l_Flags)
If @error OR $ai_InternetOpen[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_InternetOpen[0]

EndFunc ;==> _FTPOpen()

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

;===============================================================================
;
; Function Name: _FTPConnect()
; Description: Connects to an FTP server.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; $s_ServerName - Server name/ip.
; $s_Username - Username.
; $s_Password - Password.
; $i_ServerPort - Server port ( 0 is default (21) )
; $l_Service - I dont got a clue what this does.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - Returns an indentifier.
; On Failure - 0 and sets @ERROR
; Author(s): Wouter van Kesteren
;
;===============================================================================

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

Func _FTPConnect($l_InternetSession, $s_ServerName, $s_Username, $s_Password, $i_ServerPort = 0, $l_Service = 1, $l_Flags = 0, $l_Context = 0)

Local $ai_InternetConnect = DllCall('wininet.dll', 'long', 'InternetConnect', 'long', $l_InternetSession, 'str', $s_ServerName, 'int', $i_ServerPort, 'str', $s_Username, 'str', $s_Password, 'long', $l_Service, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_InternetConnect[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_InternetConnect[0]

EndFunc ;==> _FTPConnect()

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

;===============================================================================
;
; Function Name: _FTPPutFile()
; Description: Puts an file on an FTP server.
; Parameter(s): $l_FTPSession - The Long from _FTPConnect()
; $s_LocalFile - The local file.
; $s_RemoteFile - The remote Location for the file.
; $l_Flags - Special flags.
; $l_Context - I dont got a clue what this does.
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

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

Func _FTPPutFile($l_FTPSession, $s_LocalFile, $s_RemoteFile, $l_Flags = 0, $l_Context = 0)

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

Local $ai_FTPPutFile = DllCall('wininet.dll', 'int', 'FtpPutFile', 'long', $l_FTPSession, 'str', $s_LocalFile, 'str', $s_RemoteFile, 'long', $l_Flags, 'long', $l_Context)
If @error OR $ai_FTPPutFile[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_FTPPutFile[0]

EndFunc ;==> _FTPPutFile()
;===============================================================================
;
; Function Name: _FTPClose()
; Description: Closes the _FTPOpen session.
; Parameter(s): $l_InternetSession - The Long from _FTPOpen()
; Requirement(s): DllCall, wininet.dll
; Return Value(s): On Success - 1
; On Failure - 0
; Author(s): Wouter van Kesteren
;
;===============================================================================

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

Func _FTPClose($l_InternetSession)

Local $ai_InternetCloseHandle = DllCall('wininet.dll', 'int', 'InternetCloseHandle', 'long', $l_InternetSession)
If @error OR $ai_InternetCloseHandle[0] = 0 Then
SetError(-1)
Return 0
EndIf

Return $ai_InternetCloseHandle[0]

EndFunc ;==> _FTPClose()

[/autoit]

[autoit]

Dim $zahl = 1234567891025
Dim $cut = 6
if stringlen($zahl) > 6 then Msgbox(0,"",StringTrimRight($zahl,Stringlen($zahl)-$cut))

[/autoit]

[autoit]

If Not IsAdmin() Then ;Kein Admin und Problematik mit Netzwerk abgefangen!!!!
RunAs('administrator', @ComputerName, 'passwort', 'DEINE EXE DATEI')
Exit
Else
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate", "WUServer","........
Endif

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