Beiträge von bugmenot1

bugmenot1

McPoldy ThX
jetzt kann ich mir des auch mal anguggen xD
und evtl ja bei bedarf für mich anpassen xD

Mfg
Apollo 13

bugmenot1

Hey leudee,
hät ne Frage bezüglich dem Script in dem Video...könnte mir einer (oder vlt McPoldy) den Source schicken oder hier reinstellen, damit ich mir das auch mal anguggn kann?

bugmenot1

hey mich würde mal dein Code dazu interessieren...wenn du das Programmiert hast...oda hab ich das falsch verstanden xD

Mfg
Apollo 13

bugmenot1

loooL
uiii...mensch stormy...brauchst doch nich jedem auf die nase binden das ich der größte hacker aller zeiten bin ^^^^^^^^ :D:D:D:D loL
mensch Patrick^^ gehst imma auf arme kleine baumi^^

bugmenot1

jetzt muss ich auch noch mal etwas dazu sagen...eig is ja schon alles gesagt worden...
mhm...aber irgendwie lästern alle imma blos über script kiddys...klar..sie ham eig gar nix drauf...und verwenden nur fertige sachen...und ham kein plan von dem was sie machen...
aber als recht viel mehr kann ich mich jetzt auch nicht bezeichnen...ich besitze auch diversen "hacker" tools, mach aber damit keinen unsinn! Brauch es sogar teilweise in der Arbeit. Und wenn ich wirklich was böses vorhätte...dann würd ich besitmmt nicht in nem so tollen Forum wie von AutoIT fragen, und mir von jedem alles schreiben lassen...wenn dann würd ich sowas selber coden...
Weil ein Hacker bin ich nicht, und ein Cracker erst recht nicht...
Okee...hat eig jetzt ziemlich wenig mit dem Thema zu tun...aba ich wollt das mal so andeuten...zumindest nen bisschen..
Aber als was soll ich mich dann einstufen...weil ich denk es passt nichts anderes als ein $cR!pT k!ddY auf mich...

Aber naja...

Mfg
Apollo 13

bugmenot1

Freut mich das es dir gefällt =)
Aber ich finde die Lösung von McPoldy auch recht nett, da ist das Programme hinzufügen besser gelöst
Ich denke diese Lösung kann ich auch für etwas gebraucht, ich hoffe das ich deinen Source dafür verwenden darf.

Mfg
Apollo 13

bugmenot1

Hey cphowdy,
mach dir doch einfach ne GUI mit KODA.

Ich häg dir mal mein Software Menü für ein Paar von meinen Programmen an.
Die GUI kannst du ja dann für deine Zwecke anpassen...sollte kein allzugroßes Problem sein, da ich die GUI größtenteils auch von jemand anders übernommen habe.
Weis jetzt leider nicht mehr von wem *sorry*....sonst hät ich denjenigen nämlich bei Autoren mit reingeschrieben xD
Also bei dem Menü handelt es sich um ein Testmenü! Hab einfach mal nen paar Programme reingeschrieben, die mir gerade so eingefallen sind. Aber ich denke, das wirst du schon rauslesen können wie das funktioniert.
Viel Erfolg

Mfg
Apollo 13

Fernbedienung0.2_S100_fuer_VLC.rar

bugmenot1

Klaaaaar.....durch dich sind wir auch wieder 1 mehr^^ ne scherZ xD
mensch...also nen bisschen von deinem "ich" hättest uns schon lassen können...zum glück weis ich ja wie du aussiehst
mhm....bin am überlegen ob ich nen Bild von mir reintun soll...mal schaun...vlt gibbet ja noch ein x)

Mfg
Apollo 13

bugmenot1

Oo...stimmt...hoppla...hab ich glatt übersehen...
hab den Befehl jetzt bei dem Button Installieren reingeschrieben, dann minimiert sich das Fenster sobald ich auf den Button installieren klicke xD

Danke JanSchmidt

bugmenot1

Hey Leute...ich hab mal wida Probleme xD

Und zwar habe ich mir eine GUI gebaut, funktioniert auch soweit alles, nur möchte ich aber noch etwas einbauen.
Ich möchte gern, das sich die GUI minimiert, sobald eine Installation von Ihr aus gestartet wird.

Hier mal mein Source:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

AutoIt Version: 3.2.10.0
Author: $cR!pT k!ddY

Script Function:
Software Installer

#ce ----------------------------------------------------------------------------

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

;$cR!pT Start

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

#include
#include

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

Break(0) ;->Rechtsklick Abbrechen verbieten

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

TrayTip("Software Installer", "© 2008 by $cR!pT k!ddY", 20)
#Region Koda
$Form1 = GUICreate("$cR!pT k!ddY´s Software Installer", 500, 322, 192, 120)
$Button1 = GUICtrlCreateButton("Mutlimedia", 40, 16, 65, 17, 0)
$Button2 = GUICtrlCreateButton("Brennen", 128, 16, 65, 17, 0)
GUICtrlSetState($Button1, $GUI_Disable)
$Button3 = GUICtrlCreateButton("Office", 216, 16, 65, 17, 0)
GUICtrlSetState($Button1, $GUI_Disable)
$Button4 = GUICtrlCreateButton("System", 304, 16, 65, 17, 0)
GUICtrlSetState($Button1, $GUI_Disable)
$Button5 = GUICtrlCreateButton("Security", 392, 16, 65, 17, 0)
GUICtrlSetState($Button1, $GUI_Disable)
$Button6 = GUICtrlCreateButton("Installieren", 392, 88, 65, 17, 0)
$Button7 = GUICtrlCreateButton("Alle", 392, 120, 65, 17, 0)
$Button8 = GUICtrlCreateButton("Keine", 392, 152, 65, 17, 0)
$Button9 = GUICtrlCreateButton("Beenden", 392, 184, 65, 17, 0)
$Button10 = GUICtrlCreateButton("Tools", 392, 212, 65, 17)
$Checkbox1 = GUICtrlCreateCheckbox("Neustart", 392, 56, 65, 17)
$Label1 = GUICtrlCreateLabel("$cR!pT k!ddY", 397, 39, 56, 14)
GUICtrlSetFont(-1, 6, 400, 0, "T4C Beaulieux")
GUICtrlSetColor(-1, 0xFFFFFF)

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

;Icons und Bilder integrieren (Software Symblole z.B.)
;$Pic1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\mbm\Desktop\autoit.jpg", 152, 8, 321, 84, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
;$Icon1 = GUICtrlCreateIcon("C:\Programme\AutoIt3\Au3Info.exe", 0, 96, 136, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))

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

#EndRegion Koda

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

#Region multimedia
$Checkbox2 = GUICtrlCreateCheckbox("BPM-Studio", 24, 56, 170, 17)
$Checkbox3 = GUICtrlCreateCheckbox("VLC Media Player", 24, 88, 170, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Winamp", 24, 120, 170, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Windows Media Player", 24, 152, 170, 17)
$Checkbox6 = GUICtrlCreateCheckbox("K-Lite Mega Codec Pack", 24, 184, 170, 17)
$Checkbox7 = GUICtrlCreateCheckbox("No23 Recorder", 24, 216, 170, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Cyberlink PowerDVD", 24, 248, 170, 17)
$Checkbox9 = GUICtrlCreateCheckbox("IrfanView", 24, 280, 170, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Paint .NET", 208, 56, 170, 17)
$Checkbox11 = GUICtrlCreateCheckbox("DivX", 208, 88, 170, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Fraps", 208, 120, 170, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Adobe Photoshop CS2 / CS 3", 208, 152, 170, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Adobe Premiere Pro CS3", 208, 184, 170, 17)
$Checkbox15 = GUICtrlCreateCheckbox("DFX", 208, 216, 170, 17)
$Checkbox16 = GUICtrlCreateCheckbox("-----", 208, 248, 170, 17)
$Checkbox17 = GUICtrlCreateCheckbox("-----", 208, 280, 170, 17)
#EndRegion multimedia

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

#Region brennen
$Checkbox18 = GUICtrlCreateCheckbox("Alcohol120%", 24, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox19 = GUICtrlCreateCheckbox("Ashampoo Burning Studio", 24, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox20 = GUICtrlCreateCheckbox("DeamonTools", 24, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox21 = GUICtrlCreateCheckbox("Nero 8", 24, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox22 = GUICtrlCreateCheckbox("UltraISO", 24, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox23 = GUICtrlCreateCheckbox("Slysoft AnyDVD", 24, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox24 = GUICtrlCreateCheckbox("Slysoft CloneCD", 24, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox25 = GUICtrlCreateCheckbox("Slysoft CloneDVD", 24, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox26 = GUICtrlCreateCheckbox("Slysoft GameJack", 208, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox27 = GUICtrlCreateCheckbox("-----", 208, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox28 = GUICtrlCreateCheckbox("-----", 208, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox29 = GUICtrlCreateCheckbox("-----", 208, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox30 = GUICtrlCreateCheckbox("-----", 208, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox31 = GUICtrlCreateCheckbox("-----", 208, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox32 = GUICtrlCreateCheckbox("-----", 208, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox33 = GUICtrlCreateCheckbox("-----", 208, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
#EndRegion brennen

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

#Region office
$Checkbox34 = GUICtrlCreateCheckbox("Office 2003", 24, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox35 = GUICtrlCreateCheckbox("Office 2007", 24, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox36 = GUICtrlCreateCheckbox("OpenOffice", 24, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox37 = GUICtrlCreateCheckbox("Adobe Reader", 24, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox38 = GUICtrlCreateCheckbox("Foxit Reader", 24, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox39 = GUICtrlCreateCheckbox("FreePDF", 24, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox40 = GUICtrlCreateCheckbox("-----", 24, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox41 = GUICtrlCreateCheckbox("-----", 24, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox42 = GUICtrlCreateCheckbox("-----", 208, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox43 = GUICtrlCreateCheckbox("-----", 208, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox44 = GUICtrlCreateCheckbox("-----", 208, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox45 = GUICtrlCreateCheckbox("-----", 208, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox46 = GUICtrlCreateCheckbox("-----", 208, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox47 = GUICtrlCreateCheckbox("-----", 208, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox48 = GUICtrlCreateCheckbox("-----", 208, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox49 = GUICtrlCreateCheckbox("-----", 208, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
#EndRegion office

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

#Region system
$Checkbox50 = GUICtrlCreateCheckbox("Copy Handler", 24, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox51 = GUICtrlCreateCheckbox("NTFS Link", 24, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox52 = GUICtrlCreateCheckbox("OnTrack Easy Recovery", 24, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox53 = GUICtrlCreateCheckbox("mst Total AccessDisk", 24, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox54 = GUICtrlCreateCheckbox("RealVNC", 24, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox55 = GUICtrlCreateCheckbox("UltraVNC", 24, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox56 = GUICtrlCreateCheckbox("Radmin", 24, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox57 = GUICtrlCreateCheckbox("BySoft Network Browser", 24, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox58 = GUICtrlCreateCheckbox("Everest", 208, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox59 = GUICtrlCreateCheckbox("DirectX", 208, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox60 = GUICtrlCreateCheckbox("Camtasia", 208, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox61 = GUICtrlCreateCheckbox("AutoIT", 208, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox62 = GUICtrlCreateCheckbox("Iconoid", 208, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox63 = GUICtrlCreateCheckbox("Hamachi", 208, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox64 = GUICtrlCreateCheckbox("Java", 208, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox65 = GUICtrlCreateCheckbox("Internet Download Manager", 208, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
#EndRegion system

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

#Region securtiy
$Checkbox66 = GUICtrlCreateCheckbox("ESET Nod32", 24, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox67 = GUICtrlCreateCheckbox("Sygate Personal Firewall", 24, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox68 = GUICtrlCreateCheckbox("AdAware", 24, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox69 = GUICtrlCreateCheckbox("Spybot S&D", 24, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox70 = GUICtrlCreateCheckbox("Steganos Security Suite 2007", 24, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox71 = GUICtrlCreateCheckbox("TrueCrypt", 24, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox72 = GUICtrlCreateCheckbox("Advanced Suite", 24, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox73 = GUICtrlCreateCheckbox("Paragon Drive Backup", 24, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox74 = GUICtrlCreateCheckbox("-----", 208, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox75 = GUICtrlCreateCheckbox("-----", 208, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox76 = GUICtrlCreateCheckbox("-----", 208, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox77 = GUICtrlCreateCheckbox("-----", 208, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox78 = GUICtrlCreateCheckbox("-----", 208, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox79 = GUICtrlCreateCheckbox("-----", 208, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox80 = GUICtrlCreateCheckbox("-----", 208, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox81 = GUICtrlCreateCheckbox("-----", 208, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
#EndRegion securtiy

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

#Region tools
$Checkbox82 = GUICtrlCreateCheckbox("-----", 24, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox83 = GUICtrlCreateCheckbox("-----", 24, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox84 = GUICtrlCreateCheckbox("-----", 24, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox85 = GUICtrlCreateCheckbox("-----", 24, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox86 = GUICtrlCreateCheckbox("-----", 24, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox87 = GUICtrlCreateCheckbox("-----", 24, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox88 = GUICtrlCreateCheckbox("-----", 24, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox89 = GUICtrlCreateCheckbox("-----", 24, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox90 = GUICtrlCreateCheckbox("-----", 208, 56, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox91 = GUICtrlCreateCheckbox("-----", 208, 88, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox92 = GUICtrlCreateCheckbox("-----", 208, 120, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox93 = GUICtrlCreateCheckbox("-----", 208, 152, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox94 = GUICtrlCreateCheckbox("-----", 208, 184, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox95 = GUICtrlCreateCheckbox("-----", 208, 216, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox96 = GUICtrlCreateCheckbox("-----", 208, 248, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
$Checkbox97 = GUICtrlCreateCheckbox("-----", 208, 280, 170, 17)
GUICtrlSetState(-1, $GUI_Hide)
#EndRegion tools

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

GUISetState(@SW_SHOW)

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

$wert = 225
WinSetTrans($Form1, "", $wert)

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

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

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

GUICtrlSetState($Button3, $GUI_Enable)
GUICtrlSetState($Button1, $GUI_Disable)
GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Enable)
For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox2 To $Checkbox17
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button2

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

GUICtrlSetState($Button3, $GUI_Enable)
GUICtrlSetState($Button2, $GUI_Disable)
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Enable)

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

For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox18 To $Checkbox33
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button3

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

GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button3, $GUI_Disable)
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Enable)

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

For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox34 To $Checkbox49
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button4

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

GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Disable)
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button3, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Enable)

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

For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox50 To $Checkbox65
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button5

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

GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Disable)
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button3, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Enable)

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

For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox66 To $Checkbox81
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button10

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

GUICtrlSetState($Button3, $GUI_Enable)
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button2, $GUI_Enable)
GUICtrlSetState($Button4, $GUI_Enable)
GUICtrlSetState($Button5, $GUI_Enable)
GUICtrlSetState($Button10, $GUI_Disable)

For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Hide)
Next
For $i1 = $Checkbox82 To $Checkbox97
GUICtrlSetState($i1, $GUI_SHOW)
Next

Case $Button6
#cs
If GUICtrlRead($Checkbox2) = 1 Then RunWait("g:\setups\7-Zip\7-Zip.exe")
If GUICtrlRead($Checkbox3) = 1 Then RunWait("g:\setups\AdAware\AdAware Personal 1.06\AdAware.exe")
If GUICtrlRead($Checkbox4) = 1 Then RunWait("g:\setups\Alcohol\Alcohol 120% v1.9.6.4719\Alcohol 120%.exe")
If GUICtrlRead($Checkbox5) = 1 Then RunWait("g:\setups\Ashampoo\Burning Studio\Burning Studio 2007\Burning Studio 2007.exe")
If GUICtrlRead($Checkbox6) = 1 Then RunWait
If GUICtrlRead($Checkbox7) = 1 Then RunWait
If GUICtrlRead($Checkbox8) = 1 Then RunWait
If GUICtrlRead($Checkbox9) = 1 Then RunWait
If GUICtrlRead($Checkbox10) = 1 Then RunWait
If GUICtrlRead($Checkbox11) = 1 Then RunWait
If GUICtrlRead($Checkbox12) = 1 Then RunWait
If GUICtrlRead($Checkbox13) = 1 Then RunWait
If GUICtrlRead($Checkbox14) = 1 Then RunWait
If GUICtrlRead($Checkbox15) = 1 Then RunWait
If GUICtrlRead($Checkbox16) = 1 Then RunWait
If GUICtrlRead($Checkbox17) = 1 Then RunWait
If GUICtrlRead($Checkbox18) = 1 Then RunWait
If GUICtrlRead($Checkbox19) = 1 Then RunWait
If GUICtrlRead($Checkbox20) = 1 Then RunWait
If GUICtrlRead($Checkbox21) = 1 Then RunWait
If GUICtrlRead($Checkbox22) = 1 Then RunWait
If GUICtrlRead($Checkbox23) = 1 Then RunWait
If GUICtrlRead($Checkbox24) = 1 Then RunWait
If GUICtrlRead($Checkbox25) = 1 Then RunWait
If GUICtrlRead($Checkbox26) = 1 Then RunWait
If GUICtrlRead($Checkbox27) = 1 Then RunWait
If GUICtrlRead($Checkbox28) = 1 Then RunWait
If GUICtrlRead($Checkbox29) = 1 Then RunWait
If GUICtrlRead($Checkbox30) = 1 Then RunWait
If GUICtrlRead($Checkbox31) = 1 Then RunWait
If GUICtrlRead($Checkbox32) = 1 Then RunWait
If GUICtrlRead($Checkbox33) = 1 Then RunWait
If GUICtrlRead($Checkbox34) = 1 Then RunWait
If GUICtrlRead($Checkbox35) = 1 Then RunWait
If GUICtrlRead($Checkbox36) = 1 Then RunWait
If GUICtrlRead($Checkbox37) = 1 Then RunWait
If GUICtrlRead($Checkbox38) = 1 Then RunWait
If GUICtrlRead($Checkbox39) = 1 Then RunWait
If GUICtrlRead($Checkbox40) = 1 Then RunWait
If GUICtrlRead($Checkbox41) = 1 Then RunWait
If GUICtrlRead($Checkbox42) = 1 Then RunWait
If GUICtrlRead($Checkbox43) = 1 Then RunWait
If GUICtrlRead($Checkbox44) = 1 Then RunWait
If GUICtrlRead($Checkbox45) = 1 Then RunWait
If GUICtrlRead($Checkbox46) = 1 Then RunWait
If GUICtrlRead($Checkbox47) = 1 Then RunWait
If GUICtrlRead($Checkbox48) = 1 Then RunWait
If GUICtrlRead($Checkbox49) = 1 Then RunWait
If GUICtrlRead($Checkbox50) = 1 Then RunWait
If GUICtrlRead($Checkbox51) = 1 Then RunWait
If GUICtrlRead($Checkbox52) = 1 Then RunWait
If GUICtrlRead($Checkbox53) = 1 Then RunWait
If GUICtrlRead($Checkbox54) = 1 Then RunWait
If GUICtrlRead($Checkbox55) = 1 Then RunWait
If GUICtrlRead($Checkbox56) = 1 Then RunWait
If GUICtrlRead($Checkbox57) = 1 Then RunWait
If GUICtrlRead($Checkbox58) = 1 Then RunWait
If GUICtrlRead($Checkbox59) = 1 Then RunWait
If GUICtrlRead($Checkbox60) = 1 Then RunWait
If GUICtrlRead($Checkbox61) = 1 Then RunWait
If GUICtrlRead($Checkbox62) = 1 Then RunWait
If GUICtrlRead($Checkbox63) = 1 Then RunWait
If GUICtrlRead($Checkbox64) = 1 Then RunWait
If GUICtrlRead($Checkbox65) = 1 Then RunWait
If GUICtrlRead($Checkbox66) = 1 Then RunWait
If GUICtrlRead($Checkbox67) = 1 Then RunWait
If GUICtrlRead($Checkbox68) = 1 Then RunWait
If GUICtrlRead($Checkbox69) = 1 Then RunWait
If GUICtrlRead($Checkbox70) = 1 Then RunWait
If GUICtrlRead($Checkbox71) = 1 Then RunWait
If GUICtrlRead($Checkbox72) = 1 Then RunWait
If GUICtrlRead($Checkbox73) = 1 Then RunWait
If GUICtrlRead($Checkbox74) = 1 Then RunWait
If GUICtrlRead($Checkbox75) = 1 Then RunWait
If GUICtrlRead($Checkbox76) = 1 Then RunWait
If GUICtrlRead($Checkbox77) = 1 Then RunWait
If GUICtrlRead($Checkbox78) = 1 Then RunWait
If GUICtrlRead($Checkbox79) = 1 Then RunWait
If GUICtrlRead($Checkbox80) = 1 Then RunWait
If GUICtrlRead($Checkbox81) = 1 Then RunWait
If GUICtrlRead($Checkbox82) = 1 Then RunWait
If GUICtrlRead($Checkbox83) = 1 Then RunWait
If GUICtrlRead($Checkbox84) = 1 Then RunWait
If GUICtrlRead($Checkbox85) = 1 Then RunWait
If GUICtrlRead($Checkbox86) = 1 Then RunWait
If GUICtrlRead($Checkbox87) = 1 Then RunWait
If GUICtrlRead($Checkbox88) = 1 Then RunWait
If GUICtrlRead($Checkbox89) = 1 Then RunWait
If GUICtrlRead($Checkbox90) = 1 Then RunWait
If GUICtrlRead($Checkbox91) = 1 Then RunWait
If GUICtrlRead($Checkbox92) = 1 Then RunWait
If GUICtrlRead($Checkbox93) = 1 Then RunWait
If GUICtrlRead($Checkbox94) = 1 Then RunWait
If GUICtrlRead($Checkbox95) = 1 Then RunWait
If GUICtrlRead($Checkbox96) = 1 Then RunWait
If GUICtrlRead($Checkbox97) = 1 Then RunWait
#ce

If GUICtrlRead($Checkbox1) = 1 Then Shutdown(2)

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

Case $Button7
For $i = $Checkbox2 To $Checkbox97
GUICtrlSetState($i, $GUI_Checked)
Next
Case $Button8
For $i = $Checkbox1 To $Checkbox97
GUICtrlSetState($i, $GUI_Unchecked)
Next
Case $Button9
Exit
EndSwitch
WEnd
;$cR!pT End

[/autoit]

Sprich ich ich klicke dann auf Installieren, die Installation wird gestartet, und die GUI minimiert sich.
Und nach der Installation kommt sie dann wieder zum vorschein. Ist sowas denn möglich?

bugmenot1

mhm....naja.... *weg kuck*
mhmZ...Es ist nicht ganz legal und nicht ganz illegal xD oda?
Also was ich so gelesen hab in letzter zeit, ist es seitens microsoft nicht erwünscht, aber scheinbar gestattet...loL

bugmenot1

Hey Alina
du bist echt klasse, was du immer für Ideen hast, einfach genial...auf sowas würd ich nie kommen...

Aber noch was wegen dem Gruppenrichtlinien-Editor unter XP-Home...es gibt eine möglichkeit dieses aus der Pro Edition in die Home reinzukopieren...
Ich hab mir damals ne Batch geschrieben, was die Dateien kopiert und registriert, funzt meines erachtens bestens.
Ich lads bei Zeiten mal hoch, vlt kan es ja jemand brauchen xD

Mfg
Apollo 13

bugmenot1

Also ich hab mir jetzt was geschrieben...funzt wunderbar...
Nen Script, was nen umbenanntes Bild wieder zu .jpg umbenennt, anschließend öffnet und die Bilddatei löscht. Diese beiden Dateien dann in ein selbstextrahierendes rar Archiv gepackt, mit dem Wunsch, das meine exe die das Bild ausführt und löscht nach dem extrahiern ausgeführt wird. Die Dateien aus dem Archiv werden Temporär ins selbe Verzeichnis wie das Archiv selbst entpackt, und nach danach wird sofort alles gelöscht. Zum krönenden Abschluss habe ich noch eine 2 exe geschrieben, die überprüft, ob meine selbstentpackende rar Datei auch noch so heist, wenn nicht, dann geht gar nichts, wenn ja, dann wird sie geöffnet, pw eingetragen und anschliesend gelöscht. Sprich der Benutzer weis dann nicht mal das PW, wenn er also meine "Öffnen-exe" löscht, dann kommt er nicht an das Bild drann....Als Zusatz könnt ich ja die "Öffnen-exe" auch noch löschen lassen nach dem ausführen, aber ich denke das wär dann zuviel des guten, weil ich denke nicht, das der Benutzer, der das Bild bekommen soll nen Keylogger oder sowas laufen hat, damit er mein PW abfangen kann xD

Anmerkung: Bin jetzt zu faul meinen Post nochmal durchzulesen um Rechtschreibfehler, etc. zu korrigieren, also wenn jemand nen Fehler findet darf er ihn behalten Aber vlt bin ich ja auch so gütig und korrigiere das Später noch xD

P.S.: Dann hat sich ja eig das Thema erledigt, auser es hat noch jemand Fragen oda so xD

Mfg
Apollo 13

bugmenot1

Also der Grund warum ich gefragt habe ist folgender:
Ich möchte einer bestimmten Person ein Bild schicken, diese soll es aber nicht weiterschicken und halt nur einmal anschaun. Besagte Person ist nicht unbedingt ein As in Sachen PC, deswegen schlies ich die Möglichkeit eines Screenshots aus
Ich wollte halt irgendwie was schreiben, das das Bild öffnet, was ich verschickt habe (z.B. über ICQ), und danach das Bild und evtl. die exe, die das Bild geöffnet hat gelöscht werden.
Aber ansonsten könnte ich es ja auch so machen, das ich einfach die Dateierweiterung lösche...weil ich glaube nicht, das die Person das peilt...die wird sagen, ja des kamma ned öffnen...dann schreib ich nen Programm, was die Dateierweiterung wieder setzt, das Bild öffnet, und danach löscht...
Wär glaub ich für diesen Fall wahrscheinlich sogar am simpelsten.
Weil bevor ich mich mit Safe Laufwerken und so nem Kram rumschlage...

bugmenot1

Hey Leute,
ist es eig möglich, dass ich mit AutoIT ein Bild öffnen lasse, und dies nachdem es geöffnet worden ist automatisch gelöscht wird...sprich ich pack das ganze dann in einen sfx datei, beim öffnen startet gleich das AutoIT Script, das das Bild öffnen und danach alle Dateien löscht, so das man noch das Bild sehen kann, dies aber bereits gelöscht wurde?

bugmenot1

Also ich würd das jetzt nicht als Bug bezeichen, denn es ist doch nur logisch, dass das Programm auch den Desktop oder die Taskleiste verstecken kann?!
blos blöd isses wenn man die Taskleiste versteckt, dann kann man das Programm nämlich nur noch killen...oder einfach den PC neustarten, dass man wieder alles da hat, weil ja das Programm beim "bösen" beenden die Fenster nicht wieder herstellt.
Wäre vlt am einfachsten zu lösen, indem man eine Art Panik Key einbaut, bei dem das Programm dann beendet wird und die Fenster auch wieder hergestellt werden können.

bugmenot1

Hey McPoldy,
könntest du vlt mal deinen aktuellen Source anhängen?

bugmenot1

Hey Leute ich hab mal wieder nen kleines Problemchen xD

Und zwar:
Ich möchte gern einige Druckertreiber installieren lassen (aber in Drucker und Faxgeräte über Datei\Servereigenschaften). Soweit klappt auch noch alles, die ersten beiden Treiber installiert er, aber danach läuft das Script nicht mehr weiter. Hier mal mein Code:

[Edit]
Was mir auch noch aufgefallen ist, das scheinbar gar keine Befehle seitens AutoIT engegengenommen werden, also auch kein WinClose von dem Fenster oder ProcessClose vom explorer
[/Edit]

Spoiler anzeigen

[autoit]

#cs ---------------------------------------------------------------------------- AutoIt Version: 3.2.10.0 Author: $cR!pT k!ddY Script Function: Drucker bei Druckersever installieren #ce ---------------------------------------------------------------------------- ;$cR!pT Start ;--------------------------------------------------------------- $title="Drucker und Faxgeräte" $title1="Assistent für die Druckertreiberinstallation" $title2="Installation von Datenträger" $title3="Datei suchen" $title4="Hardwareinstallation" $title5="Eigenschaften von Druckserver" ;--------------------------------------------------------------- run("control printers") WinWait($title, "FolderView") Send("!d") Send("r") WinWait($title5, "Definieren") Send("+{TAB}") Send("{RIGHT}") Send("{RIGHT}") ;--------------------------------------------------------------- ;lj373 ;--------------------------------------------------------------- WinWait($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj373\") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;LaserJet P2015 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") Sleep(2000) ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\Programme\Hewlett-Packard\LaserJet P2015 Drivers") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1018 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") Sleep(2000) ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1018\pcl6") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1021 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1021\2k_xp") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") ;--------------------------------------------------------------- Sleep(500) ;lj1300 ;--------------------------------------------------------------- WinWaitActive($title5, "Treiber") ControlClick($title5, "&Hinzufügen...","Button1") WinWait($title1, "Dieser Assistent") ControlClick($title1, "&Weiter >","Button2") WinWait($title1, "Hersteller und das Modell") ControlClick($title1, "Da&tenträger...","Button3") WinWait($title2, "kopieren") Send("C:\lj1300") Sleep(350) ControlClick($title2, "OK", "Button1") WinWait($title1, "Modell") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Wählen") ControlClick($title1, "&Weiter >","Button5") WinWait($title1, "Sie sind dabei") ControlClick($title1, "Fertig stellen", "Button7") WinWait($title4, "Die Software") ControlClick($title4, "Installation &fortsetzen","Button1") WinWait($title5, "Treiber") ;--------------------------------------------------------------- WinClose($title5, "Treiber")

[/autoit]

ich hoffe ihr könnt mir weiterhelfen...was mach ich falsch

[Edit2]
Also ich hab jetzt nochmal ein paar Stunden rumgeproggt...komm aber immer noch nicht zu einem gescheitem Ergebiss....hier mal mein aktueller Source

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: $cR!pT k!ddY

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

Script Function:
Drucker Treiber extrahieren + Installieren

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

#ce ----------------------------------------------------------------------------

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

;$cR!pT Start
HotKeySet("{ESC}", "Abbrechen")

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

;Variablen definieren
;Extrahierungsvariablen
$title="WinZip Self-Extractor"
$title1="WinZip Self-Extractor [lj373ge.exe]"
$title2="WinZip Self-Extractor - lj24x0pcl6winvista2kxp2003.exe"
$title3="WinZip Self-Extractor [lj1018ge.exe]"
$title4="WinZip Self-Extractor [16lj1021ge.exe]"
$title5="WinZip Self-Extractor [lj1300pcl6win2kxp-ge.exe]"
$title6="hp LaserJet 1320 PS - InstallShield Wizard"
$title7="hp LaserJet P2015 PCL6 - InstallShield Wizard"
$title8="Overwrite Protection"
$title9="Überschreibschutz"

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

;Installationsvariablen
$title10="Drucker und Faxgeräte"
$title11="Assistent für die Druckertreiberinstallation"
$title12="Installation von Datenträger"
$title13="Datei suchen"
$title14="Hardwareinstallation"
$title15="Eigenschaften von Druckserver"

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

;---------------------------------------------------------------
$msg = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg = 1 Then
Call ("_HPLaserJet6p")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet6p()
;HP LaserJet 6p

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 6p\lj373ge.exe")
WinWait($title,"HP verlangt")
ControlClick($title,"OK","Button1")
WinWait($title1,"To unzip")
ControlClick($title1, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title1, "To unzip")
ControlClick($title1, "&Close","Button5")

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

;Drucker installieren
WinWaitClose($title1, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj373\")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg1 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg1 = 1 Then
Call ("_HPLaserJet24X0")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet24X0()
;HP LaserJet 24X0

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 24X0\lj24x0pcl6winvista2kxp2003.exe")
WinWait($title2,"To unzip")
ControlClick($title2, "&Unzip","Button4")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title2, "To unzip")
ControlClick($title2, "&Close","Button6")

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

;Drucker installieren
WinWaitClose($title2, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\HP LJ24x0 Series")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg2 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg2 = 1 Then
Call ("_HPLaserJet206")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet206()
;HP LaserJet 206

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 206\Lj1200\lj1018ge.exe")
WinWait($title3, "To unzip")
ControlClick($title3, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title3, "To unzip")
ControlClick($title3, "&Close","Button5")

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

;Drucker installieren
WinWaitClose($title3, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1018\pcl6")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg3 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg3 = 1 Then
Call ("_HPLaserJet1200")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet1200()
;HP LaserJet 1200

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1200\16lj1021ge.exe")
WinWait($title4, "To unzip")
ControlClick($title4, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title4, "To unzip")
ControlClick($title4, "&Close","Button5")

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

;Drucker installieren
WinWaitClose($title4, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1021\2k_xp")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg4 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg4 = 1 Then
Call ("_HPLaserJet1300")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet1300()
;HP LaserJet 1300

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1300\lj1300pcl6win2kxp-ge.exe")
WinWait($title5, "To unzip")
ControlClick($title5, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title5, "To unzip")
ControlClick($title5, "&Close","Button5")

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

;Drucker installieren
WinWaitClose($title5, "To unzip")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\lj1300")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg5 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg5 = 1 Then
Call ("_HPLaserJet1320")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet1320()
;HP LaserJet 1320

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1320\lj1320PSwin2kxp2003-en.exe")
WinWait($title6, "ATTENTION")
ControlClick($title6, "I &accept the terms in the license agreement","Button1")
ControlClick($title6, "&Next >","Button4")
WinWait($title6, "Please")
ControlClick($title6, "&Next >","Button5")
$wait = WinWait($title8, "The following file")
If $wait = 1 Then
ControlClick($title8, "N&o to All", "Button5")
EndIf

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

;Drucker installieren
WinWaitClose($title6, "Extracting Files")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\Programme\Hewlett-Packard\LaserJet 1320 Drivers")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

;---------------------------------------------------------------
$msg6 = MsgBox(0, "", "Die Drucker werden jetzt installiert")

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

If $msg6 = 1 Then
Call ("_HPLaserJetP2015dn")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJetP2015dn()
;HP LaserJet P2015dn

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj P2015dn\ljP2015-PCL6-pd-win2kxp2003-ge.exe")
WinWait($title7, "ACHTUNG")
ControlClick($title7, "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung","Button1")
ControlClick($title7, "&Weiter >","Button4")
WinWait($title7, "Bitte geben")
ControlClick($title7, "&Weiter >","Button5")
$wait1 = WinWait($title9, "Die folgende Datei")
If $wait1 = 1 Then
ControlClick($title9, "N&ein zu allen","Button5")
EndIf

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

;Drucker installieren
WinWaitClose($title7, "Dateien werden entpackt")
run("control printers")
WinWait($title10, "FolderView")
Send("!d")
Send("r")
WinWait($title15, "Definieren")
Send("+{TAB}")
Send("{RIGHT}")
Send("{RIGHT}")

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

WinWait($title15, "Treiber")
ControlClick($title15, "&Hinzufügen...","Button1")
WinWait($title11, "Dieser Assistent")
ControlClick($title11, "&Weiter >","Button2")
WinWait($title11, "Hersteller und das Modell")
ControlClick($title11, "Da&tenträger...","Button3")
WinWait($title12, "kopieren")
Send("C:\Programme\Hewlett-Packard\LaserJet P2015 Drivers")
Sleep(350)
ControlClick($title12, "OK", "Button1")
WinWait($title11, "Modell")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Wählen")
ControlClick($title11, "&Weiter >","Button5")
WinWait($title11, "Sie sind dabei")
ControlClick($title11, "Fertig stellen", "Button7")
WinWait($title14, "Die Software")
ControlClick($title14, "Installation &fortsetzen","Button1")
WinWait($title15, "Treiber")
WinClose($title15, "Treiber")
WinWait($title10, "FolderView")
WinClose($title10, "FolderView")

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

EndFunc

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

MsgBox(0, "", "Glückwunsch, alle Drucker wurden erfolgreich extrahiert und installiert")
;Netzwerkdrucker hinzufügen!?
Func Abbrechen()
Exit
EndFunc

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

;$cR!pT End

[/autoit]

[/Edit2]

[Final Edit =)]
Also ich habs endlich geschafft =)

Hab dau nen Programm von Microsoft genommen (Printmig 3.1) und das alles dann in mein Script integriert

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.10.0
Author: $cR!pT k!ddY

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

Script Function:
Drucker Treiber extrahieren + Installieren

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

#ce ----------------------------------------------------------------------------

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

;$cR!pT Start
HotKeySet("{ESC}", "Abbrechen")

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

;Variablen definieren
;Extrahierungsvariablen
$title="WinZip Self-Extractor"
$title1="WinZip Self-Extractor [lj373ge.exe]"
$title2="WinZip Self-Extractor - lj24x0pcl6winvista2kxp2003.exe"
$title3="WinZip Self-Extractor [lj1018ge.exe]"
$title4="WinZip Self-Extractor [16lj1021ge.exe]"
$title5="WinZip Self-Extractor [lj1300pcl6win2kxp-ge.exe]"
$title6="hp LaserJet 1320 PS - InstallShield Wizard"
$title7="hp LaserJet P2015 PCL6 - InstallShield Wizard"
$title8="Overwrite Protection"
$title9="Überschreibschutz"
;---------------------------------------------------------------
$msg = MsgBox(0, "", "Die Drucker werden jetzt installiert", 3)

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

If $msg = 1 Then
Call ("_HPLaserJet6p")
EndIf
;---------------------------------------------------------------

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

Func _HPLaserJet6p()
;HP LaserJet 6p

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 6p\lj373ge.exe")
WinWait($title,"HP verlangt")
ControlClick($title,"OK","Button1")
WinWait($title1,"To unzip")
ControlClick($title1, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title1, "To unzip")
ControlClick($title1, "&Close","Button5")

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

Call("_HPLaserJet24X0")
EndFunc

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

Func _HPLaserJet24X0()
;HP LaserJet 24X0

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 24X0\lj24x0pcl6winvista2kxp2003.exe")
WinWait($title2,"To unzip")
ControlClick($title2, "&Unzip","Button4")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title2, "To unzip")
ControlClick($title2, "&Close","Button6")

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

Call("_HPLaserJet206")
EndFunc

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

Func _HPLaserJet206()
;HP LaserJet 206

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 206\Lj1200\lj1018ge.exe")
WinWait($title3, "To unzip")
ControlClick($title3, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title3, "To unzip")
ControlClick($title3, "&Close","Button5")

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

Call("_HPLaserJet1200")
EndFunc

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

Func _HPLaserJet1200()
;HP LaserJet 1200

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1200\16lj1021ge.exe")
WinWait($title4, "To unzip")
ControlClick($title4, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title4, "To unzip")
ControlClick($title4, "&Close","Button5")

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

Call("_HPLaserJet1300")
EndFunc

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

Func _HPLaserJet1300()
;HP LaserJet 1300

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1300\lj1300pcl6win2kxp-ge.exe")
WinWait($title5, "To unzip")
ControlClick($title5, "&Unzip","Button3")
WinWait($title, "successfully")
ControlClick($title, "OK","Button1")
WinWait($title5, "To unzip")
ControlClick($title5, "&Close","Button5")

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

Call("_HPLaserJet1320")
EndFunc

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

Func _HPLaserJet1320()
;HP LaserJet 1320

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj 1320\lj1320PSwin2kxp2003-en.exe")
WinWait($title6, "ATTENTION")
ControlClick($title6, "I &accept the terms in the license agreement","Button1")
ControlClick($title6, "&Next >","Button4")
WinWait($title6, "Please")
ControlClick($title6, "&Next >","Button5")
$wait = WinWait($title8, "The following file")
If $wait = 1 Then
ControlClick($title8, "N&o to All", "Button5")
EndIf

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

Call("_HPLaserJetP2015dn")
EndFunc

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

Func _HPLaserJetP2015dn()
;HP LaserJet P2015dn

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

;Drucker extrahieren
Run("\\fs-piagms05\treiber$\HP Drucker\hp lj P2015dn\ljP2015-PCL6-pd-win2kxp2003-ge.exe")
WinWait($title7, "ACHTUNG")
ControlClick($title7, "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung","Button1")
ControlClick($title7, "&Weiter >","Button4")
WinWait($title7, "Bitte geben")
ControlClick($title7, "&Weiter >","Button5")
$wait1 = WinWait($title9, "Die folgende Datei")
If $wait1 = 1 Then
ControlClick($title9, "N&ein zu allen","Button5")
EndIf

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

EndFunc

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

ShellExecuteWait(@Scriptdir & "\Drucker.bat")

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

MsgBox(0, "", "Glückwunsch, alle Drucker wurden erfolgreich extrahiert und installiert", 5)
;Netzwerkdrucker hinzufügen!?
Func Abbrechen()
Exit
EndFunc

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

;$cR!pT End

[/autoit]

Da ich Probleme hatte die exe Datei von dem Microsoft Programm per AutoIT auszuführen, habe ich einfach eine Batch Datei geschrieben, die dies für mich bewältigt. Und schon klappt alles wie erwünscht.
Kleine Info noch zur Funktionsweise...Mein Script extrahiert die gewünschten Druckertreiber auf die HDD und anschließend wird mit Hilfe des Microsoft Programms das ganze Druckerzeugs installiert (Also die Druckertreiber stehen dann unter Datei\Servereigenschaften\Treiber drinnen.
Wie das Microsoft Prog jetzt funktioniert, brauch ich hoffentlich jetzt nicht erklären, da dies meiner Meinung nach ziemlich simpel ist.
Wenn erwünscht, uppe ich das alles mal, und gebe auch gern noch weiteres Infos.

Hööö...was is mit meine Spoiler los...gestern gings doch auch noch...mhmZ...seltsam...
[/Final Edit =)]
Mfg
Apollo 13

bugmenot1

Ich weis ja nich was ihr imma alle für Probleme mitm Office habt...also bei mir klickt er alles durch...geht bei mir daheim und in der Arbeit zu 100% (okee...hat auch nen paar Stunden Arbeit gekostet bis des mal alles so gelaufen is wies sollte...aber jetzt bin ich glücklich xD)

bugmenot1

Dann steuer ich doch auch gleich mal was dazu bei,
hier mal mein Office 2003 Standard Script:
Hinweis: Da bei mir der CD-Key komischerweise einfach ums verrecken nicht eingegeben wurde, habe ich diesen samt Benutzernamen in der .ini Datei von Office 2003 eingetragen, so habe ich dieses Problem schonmal nicht!
Und noch ein Hinweis, bei diesem Script werden alle Office 2003 Standard Programme installiert, da ich nichts abwählen hab lassen

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.8.1
Author: $cR!pT k!ddY

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

Script Function:
Office 2003 + SP3 + Compatibility Pack installieren

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

#ce ----------------------------------------------------------------------------

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

;$cR!pT Start

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

;Office 2003 installieren
AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
;send(">>CD-Key hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
;MouseClick("left",174,130,2)
;Send(">>Name hier<<")
;MouseClick("left",172,184,2)
;Send(">>Firma hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "ENDBENUTZER")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Installationsart")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie")
ControlClick($title, "Erweiterte A&npassung von Anwendungen","Button5")
ControlClick($title, "&Weiter >","Button6")
WinWait($title, "Installationsoptionen")
;Alles vom Arbeitsplatz aus starten
MouseClick("left",106,145,1)
MouseClick("left",138,182,1)
Sleep(2000)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "&Fertig stellen","Button2")
BlockInput(0)

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

;SP3 installieren
WinWaitClose($title, "Fertig")
ShellExecute(@Scriptdir & "\Office 2003 SP\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren")
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Lesen Sie bitte den folgenden Lizenzvertrag")
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")

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

;Compatibility Pack installieren
ShellExecute(@Scriptdir & "\Office Compatibility Pack.exe")
$title2="Compatibility Pack für 2007 Office System"
WinWait($title2, "Klicken Sie hier")
ControlClick($title2, "Klicken Sie hier, um den Microsoft-Software-Lizenzbedingungen &zuzustimmen.","Button1")
ControlClick($title2, "&Weiter","Button2")
WinWait($title2, "Die Installation ist abgeschlossen.")
ControlClick($title2, "OK","Button1")

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

;Verknüpfungen anlegen
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\WINWORD.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Word 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\EXCEL.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Excel 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\OUTLOOK.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office Outlook 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")
FileCreateShortcut(@ProgramFilesDir & "\Microsoft Office\OFFICE11\POWERPNT.EXE", @HomeDrive & "\Dokumente und Einstellungen\All Users\Desktop\Microsoft Office PowerPoint 2003.lnk","C:\Programme\Microsoft Office\OFFICE11")

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

;$cR!pT End

[/autoit]

und wer es noch sehen will...hier mein Office 2003 Professional Script:

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.8.1
Author: $cR!pT k!ddY

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

Script Function:
Office 2003 + Addons installieren

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

#ce ----------------------------------------------------------------------------

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

;$cR!pT Start

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

;Office 2003 installieren
;Eventuell noch einen Abbrechen Button hinzufügen
$msg= MsgBox(4, "Bitte wählen Sie","Möchten Sie Office 2003 und zusätzliche Tools installieren?")

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

If $msg = 6 Then _Go()

If $msg = 7 Then _Go2()

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

Func _Go()

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

AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003 Professional\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
Sleep(500)
Send(">>CD-Key hier<<")
Sleep(500)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
MouseClick("left",173,128,2)
Send(">>Name hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Um die Office-Installation fortzusetzen")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Beschreibung")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie die Microsoft Office 2003-Anwendungen")
ControlClick($title, "&Outlook","Button4")
ControlClick($title, "&Access","Button6")
ControlClick($title, "&InfoPath","Button7")
ControlClick($title, "P&ublisher","Button5")
ControlClick($title, "&Weiter >","Button9")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "I&nstallationsdateien löschen","Button1")
ControlClick($title, "&Fertig stellen","Button2")
WinWait($title, "Möchten Sie die Installationsquelldateien")
ControlClick($title, "&Ja","Button1")

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

;SP3 installieren
ShellExecute(@Scriptdir & "\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren?")
ControlClick($title1, "&Ja","Button1")
Sleep(500)
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")

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

;Remove Hidden Data Tool installieren
ShellExecute(@Scriptdir & "\Remove Hidden Data Tool.exe")
$title2="Remove Hidden Data Tool"
$title3="Tool zum Entfernen verborgener Daten-Setup"
WinWait($title2, "Möchten")
ControlClick($title2, "&Ja","Button1")
WinWait($title3, "ANMERKUNG")
ControlClick($title3, "Ich &stimme den Bedingungen des Lizenzvertrags zu.","Button1")
ControlClick($title3, "&Weiter >","Button2")
WinWait($title3, "Verfügbarer Speicher auf lokalen Festplatten:")
ControlClick($title3, "&Installieren","Button2")
WinWait($title3, "wurde erfolgreich abgeschlossen.")
ControlClick($title3, "OK","Button1")

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

;Office Compatibility Pack installieren
ShellExecute(@Scriptdir & "\Office Compatibility Pack.exe")
$title4="Compatibility Pack für 2007 Office System"
WinWait($title4, "LIZENZBESTIMMUNGEN")
ControlClick($title4, "Klicken Sie hier, um den Microsoft-Software-Lizenzbedingungen &zuzustimmen.","Button1")
ControlClick($title4, "&Weiter","Button2")
WinWait($title4, "Die Installation ist abgeschlossen.")
ControlClick($title4, "OK","Button1")

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

;Microsoft Office Converter Pack
ShellExecute(@Scriptdir & "\Microsoft Office Converter Pack.exe")
$title5="Microsoft Office Converter Pack"
WinWait($title5, "SUPPLEMENTAL")
ControlClick($title5, "&Yes","Button1")
WinWait($title5, "has been successfully installed.")
ControlClick($title5, "&Close","Button1")
BlockInput(0)
EndFunc

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

Func _Go2()
AutoItSetOption("MouseCoordMode", 0)
BlockInput(1)
ShellExecute(@Scriptdir & "\Office 2003 Professional\SETUP.exe")
$title="Microsoft Office 2003-Setup"
WinWait($title, "Geben Sie unten in die Felder")
Sleep(500)
Send(">>CD-Key hier<<")
Sleep(500)
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Benutzername")
MouseClick("left",173,128,2)
Send(">>Name hier<<")
ControlClick($title, "&Weiter >","Button1")
WinWait($title, "Um die Office-Installation fortzusetzen")
ControlClick($title, "Ich &stimme den Bedingungen des Lizenzvertrags zu","Button1")
ControlClick($title, "&Weiter >","Button2")
WinWait($title, "Beschreibung")
ControlClick($title, "&Benutzerdefinierte Installation","Button5")
ControlClick($title, "&Weiter >","Button7")
WinWait($title, "Wählen Sie die Microsoft Office 2003-Anwendungen")
ControlClick($title, "&Outlook","Button4")
ControlClick($title, "&Access","Button6")
ControlClick($title, "&InfoPath","Button7")
ControlClick($title, "P&ublisher","Button5")
ControlClick($title, "&Weiter >","Button9")
WinWait($title, "Zusammenfassung")
ControlClick($title, "&Installieren","Button1")
WinWait($title,"erfolgreich abgeschlossen")
ControlClick($title, "I&nstallationsdateien löschen","Button1")
ControlClick($title, "&Fertig stellen","Button2")
WinWait($title, "Möchten Sie die Installationsquelldateien")
ControlClick($title, "&Ja","Button1")
BlockInput(0)

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

;SP3 installieren
ShellExecute(@Scriptdir & "\Office 2003 SP3.exe")
$title1="Service Pack 3 (SP3) für Office 2003"
WinWait($title1, "Möchten Sie dieses Update installieren?")
ControlClick($title1, "&Ja","Button1")
Sleep(500)
ControlClick($title1, "&Ja","Button1")
WinWait($title1, "Das Update ist erfolgreich angewandt worden")
ControlClick($title1, "OK","Button1")
EndFunc

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

;$cR!pT End

[/autoit]

Hinweis noch zum Office 2003 Professional Script:
Hier werden einige Programme abgewählt, da ich diese nicht benötige...im Prinzip würde dann auch ein Office 2003 Standard ausreichen xD

Was mich allerdings wundert, dass das Benutzernamen eintragen bei der Professional Version komischerweise ging...mhm...aber woran das liegt ka

Beiträge von bugmenot1

nach neustart die Setups fortsetzen

nach neustart die Setups fortsetzen

mir war fad - bloxorz bot ;)

Userpics von euch :)

Captcha!Überwinden

Installation verschiedener Programme

Installation verschiedener Programme

Userpics von euch :)

Brauche Hilfe bei meiner GUI

Brauche Hilfe bei meiner GUI

GUI - Registry Policies

GUI - Registry Policies

Bild nach öffnen löschen lassen?

Bild nach öffnen löschen lassen?

Bild nach öffnen löschen lassen?

Programme verstecken

Programme verstecken

Drucker installieren

Automationsscripte ( einge fertig einige funzen nicht )

Automationsscripte ( einge fertig einige funzen nicht )