Hier mal ein Beispiel: Wenn du Alt+ü drückst schreibt er blablabla in den Editor 
ShellExecute('notepad.exe')
HotKeySet('!ü','Sendtonotepad')
While 1
Sleep(100)
WEnd
Func Sendtonotepad()
WinActivate('Unbenannt')
Send('blablabla')
EndFunc
Beiträge von Mahagon
-
-
Finde das ist immernoch die beste Lösung
[autoit]Run('cmd /k ipconfig')
[/autoit]Das Script von Schnitzel klappt bei mir wunderbar.
Eventuell ist bei dir das Fenster ja nicht aktiv (Warum auch immer)
[autoit]ShellExecute('cmd.exe')
[/autoit]
WinWait('[Class:ConsoleWindowClass]')
WinActivate('[Class:ConsoleWindowClass]')
Send('ipconfig {Enter}') -
Oh wusst ich noch gar nicht, dachte er meinte flag = 1
-
Ich persönlich würde das ganze ja so lösen:
[autoit]Run('cmd /k ipconfig')
[/autoit]Ansonsten musst du den Sendbefehl so schreiben:
[autoit]Send('i',1)
[/autoit] -
Hm habe das ganze nun über nen Loginscript "gelöst". Zwar nicht wirklich das was ich wollte, aber naja man kann nicht alles haben.
-
Nein das sind die Systemanforderungen, und das Script ist von mir =)
Naja und nen 2008 Server ist dafür nicht nötig, sondern 2 PCs in einem Netzwerk -
So, da ich mit meinem Latein am Ende bin hoffe ich das ihr mir auf die Sprünge helfen könnt
Habe ein Script gebastelt das in einer Domäne einen Domäne-Client umbenennen soll.
IST Situation
[autoit]
Habe nen 2008 R2 DC und führe als Domain-Admin folgendes aus:_Win32_ComputerSystem_rename('PC-NAME-NEU', 'Abcd1234', 'domain.de', 'Administrator','192.168.0.111')
[/autoit]
if @error Then
MsgBox(0,"",@error)
EndIfDas Script mit der _Win32_ComputerSystem_rename Funktion siehe http://autoit.pastebin.com/16UPTAXz
Leider funktioniert es nicht, wenn ich es jedoch auf localhost am Client durchführe klappt es wunderbar. <.<
Weiß echt nicht mehr weiter XD
EDIT: Windows Firewall ist übrigens aus und eine andere Firewall ist nicht vorhanden
-
https://autoit.de/index.php?page…ght=#post139929
Ist nur ne Vermutung
-
Du könntest nen
[autoit]WinWait()
[/autoit]machen, damit die Seiten erst nach Outlook aufgerufen werden.
[autoit]
Oder auchSleep()
[/autoit], um einfach nur eine Pause einzubauen
Mfg Daniel
-
Hi,
also wenn du das ganze auf einzelnen PCs automatisiert bereitstellen willst, kannste die setup.exe mit dem Parameter -admin ausführen und die Installation so anpassen.
Falls du es jedoch in einer Domäne verteilen willst schau dir mal diesen Artikel an http://technet.microsoft.com/de-de/desktopd…n-us).aspx#EBAA.
Bzw schau dir mal die BDD 2007 oder MDT 2010 anMfG Daniel
-
@bosspakman
Also seitdem ich mir das Codec Pack installiere habe, habe ich noch keinen Video Codec angetroffen, welches ich nicht abspielen konnte ;).
Bei DivX geht es dir ja vermutlich darum, dass du *.avi abspielen kannst.
Wenn du das Codec Pack installiert hast, kannst du diese einfach z.B. über den Windows Media Player anschauen :).MfG Daniel
-
Das Problem ist nur dann wird Google Chrome gleich mit installiert.
Bin mir zwar nicht sicher, da ich den DiVX Player ewig nicht genutzt habe, aber damals war der Silentschalter noch /s, wenn ich mich recht erinnere ^^.
Du solltest dir außerdem vielleicht mal Variablen und Funktionen anschauen, sonst schreibst du dich noch zu Tode ;).
Achso und falls du DivX nur wegen dem Codec installierst, schau dir mal shark007's Codec Pack (XP Codec Pack, Vista Codec Pack bzw win7 Codec Pack ^^) an bzw. das von Kazaaa soll auch ganz gut sein :).MfG Daniel
PS: Falls du automatisiert Programme installieren möchtest, lege ich dir Appdeploy.com ans Herz. Dort sind sehr viele Silent Installationen beschrieben :). Falls nicht gibt es ja dann noch AutoIT ^^.
-
Vielleicht ist es ja auch nur ein AutoIT Spiel
Am Besten du postest dein Script einmal hier rein (Außer es ist wirklich ein BOT ^^).
-
Hast du schon einmal
[autoit]DirRemove("PFAD",1)
[/autoit]probiert?
Zitat1 = Lösche Dateien und Unterverzeichnisse (wie beim DOS-Befehl "DelTree")
MfG Daniel
-
Oh man.. da hätte ich auch gleich drauf kommen können.... *Windows-Firewall tret*
-
Die aktuelle Auto it Version gibt es unter http://www.autoitscript.com/autoit3/downloads.shtml
Auto IT Scripte zu erstellen musst du nur Auto IT installiert haben. Zum editieren und compilieren bietet sich Scite an
-
Die aktuelle Version von Scite findest du unter http://www.autoitscript.com/autoit3/scite/downloads.shtml
-
Hi!
habe für Interne Software bei uns ein Tool geschrieben, welches Updates herunterladen und entpacken soll.
[autoit]
Jedoch hängt es unter Windows 2008 R2 x64! Unter 2003 und 2003 x64 funktioniert es ohne Probleme.
_FTP_FindFileFirst($ftpverbinden,'',$dateisuche)
Es scheint an_FTP_FindFileFirst($ftpverbinden,'',$dateisuche)
[/autoit]zu liegen.
Funktioniert das ganze nicht mehr unter 2008?
Komme da irgendwie nicht weiter.btw: Falls es ein bischen unübersichtlich ist, tut es mir leid. Bin noch nicht lange in der Materie .
MfG
DanielSpoiler anzeigen
[autoit]#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
[/autoit] [autoit][/autoit] [autoit]
#AutoIt3Wrapper_icon=*******.ico
#AutoIt3Wrapper_Res_Fileversion=0.0.0.64
#AutoIt3Wrapper_Res_Fileversion_AutoIncrement=y
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.4.0
[/autoit] [autoit][/autoit] [autoit]
Author: Daniel *******Script Function:
[/autoit] [autoit][/autoit] [autoit]
Download der aktuellen Updates für die *******Programme#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Benötigte au3 Dateien ins Script binden#include <Array.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#Include <FTPEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;Deklarieren der Variablen/Konstanten
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~Global Const $server = '*******' ;FTP server
[/autoit] [autoit][/autoit] [autoit]
Global Const $username = '*******' ; FTP Username
Global Const $password = '*******' ; FTP Passwort
Global Const $configinidatei = @ScriptDir & '\config.ini' ;Legt Pfad und Dateinamen für die Konfigurationsdatei fest
Global Const $protokolldatei = @ScriptDir & '\Protokoll.log' ;Legt Pfad und Dateinamen für die Protokolldatei fest
Global Const $programmanzahl = 9 ;Programmanzahl
Global Const $dateianfang[$programmanzahl] = ['*******','*******','*******','*******','*******','*******','*******','*******','*******'] ; Dateianfänge der Updates bis zum Datum
Global Const $dateipfad[$programmanzahl] = ['/*******/','/*******/','/*******/','/*******/','/*******/','/*******/','/*******/','/*******/','/*******/'] ;Pfade der Programme auf dem FTP Server
Global $Checkbox[$programmanzahl]
Global $Input[$programmanzahl]
Global $Button[$programmanzahl]
Global $check[$programmanzahl]
Global $pfad[$programmanzahl]
Global $updatedatum
Global $Kundeneingabe
Global $ftpsession
Global $ftpverbinden
Global $ftpsession2
Global $ftpverbinden2;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Konfigurationsmodusif $CmdLine[0] = 1 and $cmdline[1] = '/config' Then ;Wird ausgeführt wenn das Programm mit dem Parameter /config gestartet wird
[/autoit] [autoit][/autoit] [autoit]
GUICreate('*******Updater', 569, 454, 193, 115)
$Checkbox[0] = GUICtrlCreateCheckbox('**************', 16, 40, 97, 17)
GUICtrlCreateLabel('Installierte Programme', 16, 8, 107, 17)
$Input[0] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 40, 329, 21)
$Button[0] = GUICtrlCreateButton('Durchsuchen', 472, 40, 75, 25, 0)
GUICtrlCreateLabel('Zielpfad', 128, 8, 42, 17)
$Checkbox[1] = GUICtrlCreateCheckbox('*********************', 16, 72, 97, 17)
$Input[1] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 72, 329, 21)
$Button[1] = GUICtrlCreateButton('Durchsuchen', 472, 72, 75, 25, 0)
$Checkbox[2] = GUICtrlCreateCheckbox('Terminplaner', 16, 104, 97, 17)
$Input[2] = GUICtrlCreateInput('C:\DISK\UPDATE\Terminplaner', 128, 104, 329, 21)
$Button[2] = GUICtrlCreateButton('Durchsuchen', 472, 104, 75, 25, 0)
$Checkbox[3] = GUICtrlCreateCheckbox('*******', 16, 136, 97, 17)
$Input[3] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 136, 329, 21)
$Button[3] = GUICtrlCreateButton('Durchsuchen', 472, 136, 75, 25, 0)
$Checkbox[4] = GUICtrlCreateCheckbox('*******', 16, 168, 97, 17)
$Input[4] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 168, 329, 21)
$Button[4] = GUICtrlCreateButton('Durchsuchen', 472, 168, 75, 25, 0)
$Checkbox[5] = GUICtrlCreateCheckbox('Fibu', 16, 200, 97, 17)
$Input[5] = GUICtrlCreateInput('C:\DISK\UPDATE\Fibu', 128, 200, 329, 21)
$Button[5] = GUICtrlCreateButton('Durchsuchen', 472, 200, 75, 25, 0)
$Checkbox[6] = GUICtrlCreateCheckbox('Lohn', 16, 232, 97, 17)
$Input[6] = GUICtrlCreateInput('C:\DISK\UPDATE\Lohn', 128, 232, 329, 21)
$Button[6] = GUICtrlCreateButton('Durchsuchen', 472, 232, 75, 25, 0)
$Checkbox[7] = GUICtrlCreateCheckbox('*******', 16, 262, 97, 17)
$Input[7] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 262, 329, 21)
$Button[7] = GUICtrlCreateButton('Durchsuchen', 472, 262, 75, 25, 0)
$Checkbox[8] = GUICtrlCreateCheckbox('*******', 16, 292, 97, 17)
$Input[8] = GUICtrlCreateInput('C:\DISK\UPDATE\*******', 128, 292, 329, 21)
$Button[8] = GUICtrlCreateButton('Durchsuchen', 472, 292, 75, 25, 0)
$Label1 = GUICtrlCreateLabel('Kundenname', 16, 322, 80, 17)
$Kundeneingabe = GUICtrlCreateInput('Kundenname', 128, 322, 329, 21)
$Sichern = GUICtrlCreateButton('Konfiguration sichern', 16, 416, 115, 25, 0)
$Beenden = GUICtrlCreateButton('Beenden', 472, 416, 75, 25, 0)
GUISetState(@SW_SHOW)_iniread(1)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Beenden
Exit
Case $Sichern
_iniwrite()
_iniwritekundenname()
Case $Button[0]
_durchsuchen($input[0])
Case $Button[1]
_durchsuchen($input[1])
Case $Button[2]
_durchsuchen($input[2])
Case $Button[3]
_durchsuchen($input[3])
Case $Button[4]
_durchsuchen($input[4])
Case $Button[5]
_durchsuchen($input[5])
Case $Button[6]
_durchsuchen($input[6])
Case $Button[7]
_durchsuchen($input[7])
Case $Button[8]
_durchsuchen($input[8])
EndSwitch
WEnd;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;DownloadmodusElseif $CmdLine[0] = 0 Then ;Wird ausgeführt, wenn es keine Parameter gibt
[/autoit] [autoit][/autoit] [autoit]
$programmcount = 0While $programmcount < $programmanzahl ; Durchläuft die Schleife einmal für jedes Programm
[/autoit] [autoit][/autoit] [autoit]
_iniread(4)
If $check[$programmcount] = 1 Then
$ftpsession = _FTP_Open('*******') ;Startet die FTP Session
$ftpverbinden = _FTP_Connect($ftpsession, $server, $username, $password) ; Verbindet sich mit dem FTP Server
if @error then
_FileWriteLog($protokolldatei,'ERROR: Überprüfen Sie Ihre Internetverbindung und Ihre FTP-Zugangsdaten!',1)
_FileWriteLog($protokolldatei,'ERROR: Verbindung zum FTP-Server konnte nicht hergestellt werden.',1)
exit
EndIf
_ftpunterordner($dateipfad[$programmcount]);~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
;Aktuelle Updatedatei findenGlobal $dateisuche[11]
[/autoit] [autoit][/autoit] [autoit]
Global $dateiname[1] = [$dateisuche]
Global $dateiname2[1] = [$dateisuche]
Global $stop=0
Global $count=0
Local $i=1
Global $aktuellstesupdate = 1
Global $datanfang = $dateianfang[$programmcount]
Global $datpfad = $dateipfad[$programmcount]$dateisuche4 = _FTP_FindFileFirst($ftpverbinden,'',$dateisuche)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
if Not @error Then
If StringTrimRight($dateisuche4[10],12) = $datanfang And StringTrimLeft($dateisuche4[10],StringLen($datanfang)+8) = '.exe' Then ; Es wird nach Dateianfang und *.exe gefiltert
$updatedatum = StringTrimRight($dateisuche4[10],4) ; Datum wird aus dem Dateinamen gefiltert
$updatedatum = StringTrimLeft($updatedatum,StringLen($datanfang))
if $aktuellstesupdate < $updatedatum Then ;Aktuelleste Version wird gesucht
$aktuellstesupdate = $updatedatum
EndIf
EndIf
EndIfWhile $stop = 0
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$dateisuche2 = _FTP_FindFileNext($dateisuche)
if @error Then
ExitLoop
Else
If StringTrimRight($dateisuche2[10],12) = $datanfang And StringTrimLeft($dateisuche2[10],StringLen($datanfang)+8) = '.exe' Then ; Es wird nach Dateianfang und *.exe gefiltert
$updatedatum = StringTrimRight($dateisuche2[10],4) ; Datum wird aus dem Dateinamen gefiltert
$updatedatum = StringTrimLeft($updatedatum,StringLen($datanfang))
if $aktuellstesupdate < $updatedatum Then ;Aktuelleste Version wird gesucht
$aktuellstesupdate = $updatedatum
EndIf
EndIf
EndIf
WEnd
_FTP_FindFileClose($dateisuche)
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;Vergleich mit der aktuellen Datei und Download der Datei
If Not FileExists ($pfad[$programmcount]) Then
DirCreate($pfad[$programmcount])
EndIfGlobal $lokaledatei = $pfad[$programmcount] & '\' & $datanfang & $aktuellstesupdate & '.exe'
[/autoit] [autoit][/autoit] [autoit]
if FileExists($lokaledatei) ThenIf _FTP_FileGetSize($ftpverbinden, $datanfang & $aktuellstesupdate & '.exe') = FileGetSize($lokaledatei) Then
[/autoit] [autoit][/autoit] [autoit]
Else
_downloadandextract()
EndIf
Else
_downloadandextract()
EndifEndIf
[/autoit] [autoit][/autoit] [autoit]
$programmcount = $programmcount +1
_FTP_Close($ftpsession) ; schließt die FTP Session
WEnd ;~~ENDE~~ Durchläuft die Schleife einmal für jedes ProgrammEndIf
[/autoit] [autoit][/autoit] [autoit]
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;FUNKTIONENFunc _durchsuchen($input) ;Ruft einen Durchsuchen Dialog auf und kopiert den ausgewählten Pfad in ein Eingabefeld
[/autoit] [autoit][/autoit] [autoit]
Local $choosefolder = FileSelectFolder('Zielordner: ','',1)
If Not $choosefolder = '' Then
GUICtrlSetData($Input,$choosefolder)
Endif
EndFunc ; ~~Ende~~ _durchsuchen;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]Func _ftpunterordner($unterordner) ;wechselt den Ordner auf dem FTP und schreibt ein Errorlog, falls dieser nicht vorhanden ist
[/autoit] [autoit][/autoit] [autoit]
_FTP_DirSetCurrent($ftpverbinden,$unterordner)
If @error then
_FileWriteLog($protokolldatei,'ERROR: Der Ordner ' & $unterordner & ' konnte nicht gefunden werden!',1)
EndIf
EndFunc ; ~~Ende~~ _ftpunterordner;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]Func _iniread($set) ;Liest Daten aus der Ini und übernimmt diese im Programm
[/autoit] [autoit][/autoit] [autoit]
If FileExists($configinidatei) Then ;Überprüft, ob die config.ini vorhanden ist
$programmcount2 = 0
While $programmcount2 < $programmanzahl
;Pfade
Local $section = $dateipfad[$programmcount2]
Local $readini = IniRead($configinidatei,$section,'Pfad','')
$pfad[$programmcount2] = $readini
;Checkboxen
$check[$programmcount2] = IniRead($configinidatei,$section,'Installationsstatus','')
If $set = 1 Then ; Einstellungen aus der Ini werden übernommen
;Pfade
GUICtrlSetData($Input[$programmcount2],$pfad[$programmcount2])
;Checkboxen
$checkaktuell = IniRead($configinidatei,$section,'Installationsstatus','')
GUICtrlSetState($Checkbox[$programmcount2],$checkaktuell)
EndIf ; ~~Ende~~ Einstellungen aus der Ini werden übernommen
$programmcount2 = $programmcount2 + 1
WEnd
$kunderead = IniRead(@ScriptDir & '/config.ini','Kunde','Kundenname','Kundenname')
GUICtrlSetData($Kundeneingabe,$kunderead)
EndIf ; ~~Ende~~ Überprüft, ob die config.ini vorhanden ist
EndFunc; ~~Ende~~ _iniread;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]Func _iniwrite() ;Schreibt die neuen Daten in die Ini
[/autoit] [autoit][/autoit] [autoit]
$programmcount2 = 0
While $programmcount2 < $programmanzahl
;Pfade
Local $guiread = GUICtrlRead($Input[$programmcount2])
$pfad[$programmcount2] = $guiread
IniWrite($configinidatei,$dateipfad[$programmcount2],'Pfad',$pfad[$programmcount2])
;Checkboxen
$guiread = GUICtrlRead($Checkbox[$programmcount2])
$check[$programmcount2] = $guiread
IniWrite($configinidatei,$dateipfad[$programmcount2],'Installationsstatus',$check[$programmcount2])
$programmcount2 = $programmcount2 + 1
WEnd
EndFunc ; ~~Ende~~ _iniwritepfade();~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]
Func _iniwritekundenname() ;Schreibt die neuen Daten in die Ini
$ftpsession2 = _FTP_Open('*******r_FTP_write') ;Startet die FTP Session
$ftpverbinden2 = _FTP_Connect($ftpsession2, $server, $username, $password) ; Verbindet sich mit dem FTP Server
if @error then
_FileWriteLog($protokolldatei,'ERROR: Überprüfen Sie Ihre Internetverbindung und Ihre FTP-Zugangsdaten!',1)
_FileWriteLog($protokolldatei,'ERROR: Verbindung zum FTP-Server konnte nicht hergestellt werden.',1)
exit
EndIf
_FTP_FileGet($ftpverbinden2,'/serverhostingupdates/Updates.ini',@ScriptDir & '/Updates.ini')
IniWriteSection(@ScriptDir & '/Updates.ini',GUICtrlRead($Kundeneingabe),'')
IniWrite(@ScriptDir & '/config.ini','Kunde','Kundenname',GUICtrlRead($Kundeneingabe))
_FTP_FilePut($ftpverbinden2,@ScriptDir & '/Updates.ini','/serverhostingupdates/Updates.ini')
_FTP_Close($ftpsession2)
Sleep(2000)
FileDelete(@ScriptDir & '/Updates.ini')
MsgBox(64,'Information','Konfiguration gesichert')EndFunc ; ~~Ende~~ _iniwritepfade()
[/autoit] [autoit][/autoit] [autoit];~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]Func _downloadandextract()
[/autoit] [autoit][/autoit] [autoit]
DirRemove($pfad[$programmcount],1)
DirCreate($pfad[$programmcount])
_FTP_FileGet($ftpverbinden,$datanfang & $aktuellstesupdate & '.exe',$lokaledatei)
if @error Then
_FileWriteLog($protokolldatei, 'ERROR: Download der Datei ' & $datanfang & $aktuellstesupdate & '.exe' & ' ist fehlgeschlagen.' ,1)
Else
_FileWriteLog($protokolldatei, 'Download der Datei ' & $datanfang & $aktuellstesupdate & '.exe' & ' war erfolgreich.' ,1)
EndIf;EXTRACT
[/autoit] [autoit][/autoit] [autoit]Run(@ScriptDir & '\7za.exe x "' & $lokaledatei & '" -o"' & $pfad[$programmcount] & '\entpackt"')
[/autoit]
EndFunc
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~