Beiträge von chip

**chip**

Das ist keine Autoitstandard UDF. Häng die UDF mal an deinen Thread an.

P.s. warum nutzt du nicht

[autoit]

_INetSmtpMail

[/autoit]

?

**chip**

HIer,

aber solltest dir gleich angewöhnen die Variablen sinnvoll zu benennen:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#region ### START Koda GUI section ### Form=s:\betriebssysteme\auto install software\design\form1.kxf
$Form = GUICreate("Auto Install", 571, 405)
$Button1 = GUICtrlCreateButton("32 Bit System", 72, 136, 139, 33)
$Button2 = GUICtrlCreateButton("64 Bit System", 72, 192, 139, 33)
$Button3 = GUICtrlCreateButton("Notebook", 72, 248, 139, 33)
$Button4 = GUICtrlCreateButton("Manuell", 72, 304, 139, 33)
$Label = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 92)
$Button5 = GUICtrlCreateButton("Software auslesen", 336, 248, 139, 33)
$Label2 = GUICtrlCreateLabel(" Extras ", 352, 136, 105, 33)
GUICtrlSetFont(-1, 18, 800, 4, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button6 = GUICtrlCreateButton("Systeminformationen", 336, 192, 139, 33)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###

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

#region ### START Koda GUI section ### Form=S:\Betriebssysteme\Auto Install Software\Design\form2.kxf
$Form1_1 = GUICreate("Auto Install Manuell", 571, 405)
$Label1 = GUICtrlCreateLabel("Copyright © by EDV Consulting GmbH. Alle Rechte vorbehalten", 264, 384, 304, 17)
$Logo = GUICtrlCreatePic("S:\Betriebssysteme\Auto Install Software\Design\Logo mit Zusatz.jpg", 16, 16, 540, 100)
$Checkbox1 = GUICtrlCreateCheckbox(" 7-Zip", 48, 144, 121, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox2 = GUICtrlCreateCheckbox("Acrobat Reader", 48, 184, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox3 = GUICtrlCreateCheckbox("Flash Player", 48, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox4 = GUICtrlCreateCheckbox("Cisco VPN Client", 48, 264, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox5 = GUICtrlCreateCheckbox("Ferrari Fax", 48, 304, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox6 = GUICtrlCreateCheckbox("Free PDF", 216, 144, 137, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox7 = GUICtrlCreateCheckbox("iTunes", 216, 184, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox8 = GUICtrlCreateCheckbox("Java", 216, 224, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox9 = GUICtrlCreateCheckbox("ESET NOD32", 216, 264, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox10 = GUICtrlCreateCheckbox("Notepad++", 216, 304, 113, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox11 = GUICtrlCreateCheckbox("WSUS Client", 384, 144, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox12 = GUICtrlCreateCheckbox("Ashampo 6 ", 384, 184, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox13 = GUICtrlCreateCheckbox("Office 2010", 384, 224, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox14 = GUICtrlCreateCheckbox("JMS", 384, 264, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox15 = GUICtrlCreateCheckbox("OMS", 384, 304, 161, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Button5 = GUICtrlCreateButton("Installieren", 48, 344, 163, 33)
$Checkbox16 = GUICtrlCreateCheckbox("iTunes x64", 216, 200, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox17 = GUICtrlCreateCheckbox("Java x64", 216, 240, 145, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox18 = GUICtrlCreateCheckbox("ESET NOD32 x64", 216, 280, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox19 = GUICtrlCreateCheckbox("Cisco VPN Clientx64", 48, 280, 169, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox20 = GUICtrlCreateCheckbox("Flash Player x64", 48, 240, 153, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
$Checkbox21 = GUICtrlCreateCheckbox(" 7-Zip x64", 48, 160, 129, 17)
GUICtrlSetFont(-1, 10, 800, 0, "Verdana")
GUICtrlSetColor(-1, 0x000000)
GUISetState(@SW_HIDE)
#endregion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 32bit.exe")
Case $Button2
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\PC 64bit.exe")
Case $Button3
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notebooks.exe")
Case $Button4 ; Manuelle installation
GUISetState(@SW_HIDE, $Form)
GUISetState(@SW_SHOW, $Form1_1)
Case $Button5 ; Software auslesen
Case $Button6 ; Systeminfo auslesen
RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Systeminfo.exe")
Case $Logo
Case $Button5
If GUICtrlRead($Checkbox1) = 1 Then
$Checkbox1 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip.exe")
EndIf
If GUICtrlRead($Checkbox2) = 1 Then
$Checkbox2 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Acrobat Reader.exe")
EndIf
If GUICtrlRead($Checkbox3) = 1 Then
$Checkbox3 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player.exe")
EndIf
If GUICtrlRead($Checkbox4) = 1 Then
$Checkbox4 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client.exe")
EndIf
If GUICtrlRead($Checkbox5) = 1 Then
$Checkbox5 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ferrari Fax.exe")
EndIf
If GUICtrlRead($Checkbox6) = 1 Then
$Checkbox6 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\FreePDF.exe")
EndIf
If GUICtrlRead($Checkbox7) = 1 Then
$Checkbox7 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes.exe")
EndIf
If GUICtrlRead($Checkbox8) = 1 Then
$Checkbox8 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Java.exe")
EndIf
If GUICtrlRead($Checkbox9) = 1 Then
$Checkbox9 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32.exe")
EndIf
If GUICtrlRead($Checkbox10) = 1 Then
$Checkbox10 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Notepad.exe")
EndIf
If GUICtrlRead($Checkbox11) = 1 Then
$Checkbox11 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\WSUS.exe")
EndIf
If GUICtrlRead($Checkbox12) = 1 Then
$Checkbox12 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Ashampoo.exe")
EndIf
If GUICtrlRead($Checkbox13) = 1 Then
$Checkbox13 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Office 2010.exe")
EndIf
; JMS
If GUICtrlRead($Checkbox14) = 1 Then
$Checkbox14 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
; OMS
If GUICtrlRead($Checkbox15) = 1 Then
$Checkbox15 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\.exe")
EndIf
If GUICtrlRead($Checkbox16) = 1 Then
$Checkbox16 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\iTunes64.exe")
EndIf
If GUICtrlRead($Checkbox17) = 1 Then
$Checkbox17 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\java64.exe")
EndIf
If GUICtrlRead($Checkbox18) = 1 Then
$Checkbox18 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\ESET NOD32 64.exe")
EndIf
If GUICtrlRead($Checkbox19) = 1 Then
$Checkbox19 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Cisco VPN Client64.exe")
EndIf
If GUICtrlRead($Checkbox20) = 1 Then
$Checkbox20 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\Flash Player 64.exe")
EndIf
If GUICtrlRead($Checkbox21) = 1 Then
$Checkbox21 = RunWait("S:\Betriebssysteme\Auto Install Software\Scripts\7-Zip64.exe")
EndIf
EndSwitch
WEnd

[/autoit]

**chip**

Der Fehler liegt darin, dass deine Funktion ftpfutros() heißt du aber in der For- Schleife die Funktion server() aufrufst.

So wäre es richtig:

Spoiler anzeigen

[autoit]

#include <WinINet.au3>
#include <file.au3>

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

Global $IniFile = @ScriptDir & "\ftpserver.txt"
Global $DirStart[2] = ["", "C:\Dokumente und Einstellungen\all user\Desktop\AutoIT\Akutell\TestDateiMusic.mp3"]
Global $DirZiel[2] = ["", "/images/TestDateiMusic.mp3"]
Dim $aRecords

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

_FileReadToArray("ftpserver.txt", $aRecords)
For $x = 1 To $aRecords[0]
ftpfutros($aRecords[$x])
Next

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

Func ftpfutros($server)
Dim $user = "ftpuser"
Dim $pwd = "password"
;Dim $server = "10.1.1.99"
Dim $port = 21
Dim $searchfile = "/images/TestDateiMusic.mp3"

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

;WinINet Starten
_WinINet_Startup()
;Verbindung öffnen
$InternetOpen = _WinINet_InternetOpen()
;Verbindung herstellen
$InternetConnect = _WinINet_InternetConnect($InternetOpen, $INTERNET_SERVICE_FTP, $server, $port, 0, $user, $pwd)
;Suchen
$searchresult = _WinINet_FtpFindFirstFile($InternetConnect, $searchfile)
;Datei hochladen
_WinINet_FtpPutFile($InternetConnect, "TestDateiMusic.mp3", $searchfile)

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

;Verbindung schliessen
_WinINet_InternetCloseHandle($InternetConnect)
_WinINet_InternetCloseHandle($InternetOpen)
;WinINet runterfahren
_WinINet_Shutdown()
EndFunc ;==>ftpfutros

[/autoit]

Du kennst aber schon die _FTP Autoitfunktionen oder? Hier mal mit _FTP allerdings ungetestet:

Spoiler anzeigen

[autoit]

#include <File.au3>
#include <FTPEx.au3>

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

Global $IniFile = @ScriptDir & "\ftpserver.txt"
Global $DirStart[2] = ["", "C:\Dokumente und Einstellungen\all user\Desktop\AutoIT\Akutell\TestDateiMusic.mp3"]
Global $DirZiel[2] = ["", "/images/TestDateiMusic.mp3"]
Dim $aRecords

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

_FileReadToArray($IniFile, $aRecords)
For $x = 1 To $aRecords[0]
ftpfutros($aRecords[$x])
Next
P
Func ftpfutros($server)
Dim $user = "ftpuser"
Dim $pwd = "password"

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

$Open = _FTP_Open('')
$Conn = _FTP_Connect($Open, $server, $user, $pwd)
_FTP_FilePut($Conn, $DirStart[1], $DirZiel[1])

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

If @error Then
MsgBox(0, "Fehler", @error)
EndIf

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

_FTP_Close($Open)

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

EndFunc ;==>ftpfutros

[/autoit]

**chip**

Möglicherweiße liegt es auch an bestimmten eingestellten Gruppenrichtlinien, dass das Problem bei unseren Rechner nicht auftritt.

**chip**

Das einfachste ist wohl das dein Script in eine Funktion machts und dann einfach dieser Funktion dann dern Servernamen und Zugangsdaten übergibst.

Also z.b. so:

Spoiler anzeigen

[autoit]

#include <file.au3>
_FileReadToArray("serverliste.txt", $aRecords)
For $x = 1 To $aRecords[0]
ftpserver($aRecords[$x])
Next

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

Func ftpserver($serveradresse)

EndFunc

[/autoit]

**chip**

Wurde bereits im Ticketsystem als nicht existender Fehler in Version 3.3.4.0 abgelehnt: http://www.autoitscript.com/trac/autoit/ticket/1498

Edit: Grade nochmal auf zwei Rechner gestestet. Der von dir beschriebene Fehler kommt nur wenn, wie in den Ticketkommentaren auch erwähnt, es über eine Netzwerkfreigabe ausgeführt wird und nicht wenn es lokal gestartet wird.

**chip**

Schau dir mal _GUICtrlListView_SimpleSort an.

**chip**

Zitat von Qeles

Weil ein Typ meinte, dass der Thread in diesen Bereich gehört.

Ich habe nicht aufgegeben. Kann es sein, dass 2darray nicht als File ausgeschrieben werden können?

1. Ich habe einen Nick.
2. Wenn nicht fähig bist auch nur die erste Zeile der Bemerkungen in der Hilfe zu GUICtrlCreateInput zu lesen ist das pure Faulheit und gehört daher in den Bereich Programmieranfragen.

**chip**

Schau dir mal in der Hilfe unter GUICtrlCreatePic das Beispiel unten an. Dort wird gezeigt wie man ein PNG einbindet.

**chip**

Zitat von Prajoss

Achtung mit #RequireAdmin

Wenn du es auf nem Windows Vista/7 ausführt, auf dem die Benutzerkontensteuerung deaktiviert ist, wird dein
Script ganz böse aufs Gesicht fallen.

Der versucht nämlich diese dazu aufzufordern im Adminrechte zu geben, da die UAC aber nicht aktiv ist, wartet er.
Rate mal wie lange *g*

Gruß

Prajoss

Stimmt nicht hab das schon öfters gemacht und grade eben auch nochmal ausprobiert. Bei deaktivierte UAC und #RequireAdmin wartet das Script nicht sondern wird direkt weiter ausgeführt.

**chip**

Sowas gehört in diesen Bereich: https://autoit.de/index.php?page=Board&boardID=51

**chip**

Du Versucht eine Funktion in eine andere Funktion zu packen, was nicht geht.

Das ganze sieht im grunde zur Laufzeit so bei dir aus:

[autoit]

test()
Func test()
test2()
Func test2()
MsgBox(0, "Ergebnis", "Test2")
EndFunc ;==>test1
EndFunc ;==>test

[/autoit]

**chip**

Da hat wohl jemand das Tutorial übersprungen ;): http://wiki.autoit.de/wiki/index.php…FormDesigner.29

**chip**

Zitat von BugFix

Denn du schränkst, wenn ich das richtig verstehe, das Arbeitsgebiet von Datenbanken damit auf den Web-Raum ein.

Habe ich mit keinem Wort gesagt. Sondern lediglich dass es nicht sind der Sache ist alles auf biegen und brechen in eine sqlite zu pressen, vor allem wenn die optimale DB für Dateien das Filesystem ist ;). Und btw. Design Patterns ist nichts Webspezifisches ;).

**chip**

Hab mir grade mal den Dropbrowser angezeigt. Da sind noch einige Bugs drin.

- schließt man das Einstellungsfenster beendet sich der Browser
- läd eine Seite nicht richtig hängt sich das Script auf usw.
- Diese includes sind überflüssig:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

- usw.

Solltest dir angewöhnen ein Script erstmal soweit fertig zu machen, dass es auch geht bevor du mit dem nächsten anfängst ;). Dadurch lernst du mehr.

**chip**

_Crypt_HashData und die Hash vergleichen und schon weißt ob die Dateien gleich sind.

**chip**

Poste mal deinen Sourcecode, wird wohl kaum einer die exe-Dateien von einem völlig Fremden ausführen

**chip**

Wenn das so siehst ist alles Daten, dann könntest auch ganze Setups, Filme ect. in eine sqlite prässen was an den Grundgedanken hinter einer sqlite bzw. andere DB komplett vorbei geht und jedem Design Pattern Konzept wiederspricht.

**chip**

Bei mir hängen sich auch beide Versionen mit Windows Fehlermeldung auf.

Edit: Problem gelöst. Wenn man das ganze compiliert gehts. Sogar so gut, dass man keine Unterschied zwischen Orginal in steganografiert sieht.

Orginal:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

Codiert:

Der Inhalt kann nicht angezeigt werden, da er nicht mehr verfügbar ist.

**chip**

Da kommt nur

Zitat

410 The resource is no longer available
The requested URL does not exist.

Beiträge von chip

_INetSmtpMailCom funktioniert nicht mehr

Koda-Form Hilfe benötigt

Datenrollout auf mehrer FTPs

Adminrechte nicht am Scriptstart abfragen

Datenrollout auf mehrer FTPs

Adminrechte nicht am Scriptstart abfragen

Sortierung in Listenfeld gleich nach Programmstart

Gui die Processe darstellt und zwei button dahinter setzt...

Transparente GIF's in Windows 7 und Windows XP

Adminrechte nicht am Scriptstart abfragen

Gui die Processe darstellt und zwei button dahinter setzt...

Func + #include + func = Problemchen

Gui die Processe darstellt und zwei button dahinter setzt...

Bilder in eine SQLite DB speichern und später daraus laden?

Drop´s AIO

UDF: Inhaltlicher Vergleichen zweier Dateien

Drop´s AIO

Bilder in eine SQLite DB speichern und später daraus laden?

Steganografie

API-Helper