Sub
Ich bin auf der suche nach einem programm welches öffentliche links von nem ausgewählten ordner in der dropbox anzeigt und in die zwischenablage oder als file abspeicherd.
Kennt jmd ein solches programm?
Greez
Sub
Ich bin auf der suche nach einem programm welches öffentliche links von nem ausgewählten ordner in der dropbox anzeigt und in die zwischenablage oder als file abspeicherd.
Kennt jmd ein solches programm?
Greez
Tach
Was ne Änderung der Überschrifft Bewirken kann ![]()
Storyteller
Danke, ich schau mir auch dass an Falls dass Prog von funkey nicht den Gewünschten Effekt erzeilen "sollte" ![]()
Greez
Skilkor
Hey funkey
GENIAL !!!
Sowas hab ich Gesucht ![]()
Ich glaube ich sollte auch mal langsam im Englishen Forum aktiv werden, mir gefällt die Deutsche Plattform aber Besser ![]()
Aber auf jeden Danke Danke Danke ![]()
Hey Sentionline
ZitatDie Superbar bzw. Schnellstart nutzen?
Ich meine die Desktop Verknüpfungen
Ich bin so einer der hat die Wichtigsten Verknüpfungen auf dem Desktop
wie z.B. Jede HD / Disk Laufwerk, altäglich gebrauchte Programme.
Und die haben alle ihre Position auf dem Desktop, nahc ausführen einer Spiele Application und Beenden, sind die Verknüpfungen nicht mehr an der Position wo sie seinsollten.
Und aber (>.<) Danke für die Info ich schau mir dass mal an, wass du mir da angeboten hast ![]()
Greez Skilkor
Tach Tach
Ich hab mal wider n Nervenaufreibendes Problem...
Es geht darum dass wen ich "Egal welches Spiel" & "egal welche auflösung (Standard 1680x1050)" ausführe und dieses nach eine Zeit ider beende, meine Shortcuts (Desktop Verknüpfungen) in einem Totallen Wirwar auf meinem Desktop sind...
also, nicht mehr so wie zuvor...
Das nervt -.- und jedesmal aufs neue alle richtig zu Ordnen ist einfach nur..BLÄÄ -.-
Kennt vll jmd ne lösung oder ein Programm (Free) welches die Desktop Shortcut anordnung Speichert und man diese wider (vll per load) zur Ursprünglichen position "Läd"??
(Hoffe mein Prob is verständlich geschieldert :S)
***EDIT***
Überschrift änderung
Desktop Shortcut Problem -.- ---> Positionen der Verknüpfungen auf dem Desktop Speichern
Greez
Skilkor
Hey hey, ich habe auch mal sowas gemacht, und dabei eigentlich nur mit der autostart gearbeitet...
Die Frage ist nun, wie willst du es installieren? von der CD aus oder per .exe auf dem rechner?
Greez
Skilkor
Kein Suport...Nur Tip...Ach was solls auchn tip isn Suport Pfeiff drauf....
[autoit]ControlClick ( "title", "text", controlID )
[/autoit]
Diese infors (titel - text & controlID) bekommst du ohne Probleme heraus mit dem mitinstallierten programm "AutoIt Window" o. "Au3Info" (Wie gesagt, wird mit AutoIt mitinstalliert)
Falls du keine ahnung bezüglich der handhabung dieses Programmes hast...Melden.
So..
Greez
Skilkor
OMG Ich höhr zum ersten mal von diesem "Bösem Forum"
LoL und ihrwie FAIL...
Anyway...Ich schliess mich AspirinJunkie's aussage an
Ech nice, werd ich mir mal auf die Seite legen und später anschauen.
Darter
Wen du sooooviiiieeeelll daran auszusetzen hast....
Dann mach es doch besser!
Ach wie gut das JEDER weiss...
dass Downloaden legal ist in der Schweiz
(Natürlich auch in einem Gewissen Rahmen)
autoBert
Ich denke BF hat den link zur HP entfernt...(Falls vorhanden) ihrgendwie auch verständlich
Betrugs Velinkung wird glaub ich nicht gerne gesehen ![]()
N0THING
Dein Script wiefolgt abändern
#include <Inet.au3>
#include <String.au3>
$source = _INetGetSource("http://www.pibel.de/")
$pi = _StringBetween($source,"<font size=6><b>",". . .")
MsgBox(0,"PI...DAS WIRD DAUERN!!! >.<",$pi [0]) ;Ein Bischen Spass muss sein ![]()
$F = FileOpen('Test.txt',1)
FileWrite($F,$pi[0])
FileClose($F)
Exit
und dan Darfst du Warten...Laaaaaaange Warten :pinch: :pinch: :pinch: ![]()
***Edit***
Entfernd (mit ; ) man die msg dauerst secunden ![]()
HöHö Joa gutes Scherz ![]()
Aber Interessant wär es schon, dass Thema "AutoIt 4" ![]()
Wär auch cool zu wissen Wann und OB das erschweint und mit welchen Features ![]()
Ja schon klar.... Doch es handelt sich dabei umd mein "AutoInstall" Prjoekt ![]()
Und ne Automatisierung sollte ja mehr oder minder ohne weitere "Hilfe" funktionieren....
Und bei Win7 kommt halt immer beim ausführen diese Fenster...Man kanns von Windows Haus aus ja deaktivieren...
möcht ich aber nicht und die Software die ich im Packet habe sind grundsätzliche Alle clean ![]()
Moin. Blöde frage kurzer Sinn
Das Fenster:
Wird von Autoit nicht erkannt...
Aufjeden nicht auf diese Weise
WinWait('Datei öffnen - Sicherheitswarnung','')
[/autoit]
>>>> Window <<<<
Title: Datei öffnen - Sicherheitswarnung
Class: #32770
Position: 616, 348
Size: 414, 323
Style: 0x94C80AC4
ExStyle: 0x00010101
Handle: 0x00000000000508AA
>>>> Control <<<<
Class:
Instance:
ClassnameNN:
Name:
Advanced (Class):
ID:
Text:
Position:
Size:
ControlClick Coords:
Style:
ExStyle:
Handle:
>>>> Mouse <<<<
Position: 793, 371
Cursor ID: 0
Color: 0xD0D0D0
>>>> StatusBar <<<<
>>>> ToolsBar <<<<
>>>> Visible Text <<<<
Der Herausgeber konnte nicht verifiziert werden. Möchten Sie diese Software ausführen?
Name:
...6-X64bit\ImgBurn\SetupImgBurn_2.5.5.0.exe
Herausgeber:
Unbekannter Herausgeber
Typ:
Anwendung
Von:
C:\Users\Administrator\Desktop\Auto Install\...
A&usführen
Abbrechen
Vor dem Öff&nen dieser Datei immer bestätigen
Diese Datei verfügt über keine gültige digitale Signatur, die den Herausgeber verifiziert. Sie sollten nur Software ausführen, die von Herausgebern stammt, denen Sie vertrauen. <A>Welche Software kann ausgeführt werden?</A>
>>>> Hidden Text <<<<
&Speichern
Weiss jmd abhilfe??
Hab schon mehrere wege die mir "Plausieble Schienen" versucht. doch leider wollte "AutoIt" nicht ![]()
Greez
Skilkor
Moin moin,
Wie so machne vll schon mitbekommen haben arbeite ich an einer "Multi" auto install
Ich habe bis jetz schoneinmal dass
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Version=Beta
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#region ### include ###
#include <GUIConstantsEx.au3>
#include <GUIListView.au3>
#include <ListViewConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include "Installation.au3"
;#include"Info.au3"
#endregion ### include ###
;=============
#region ### ini ###
$opt_path = IniRead('Option.ini', 'Install_Path', 'Path', 'C:\Program Files (x86)')
#endregion ### ini ###
;=============
#region ### Global ###
Global $Instdir, $akpath, $hGui, $ListView
#endregion ### Global ###
;=============
#region ### Global Style ###
Global $style = BitOR($WS_SYSMENU, $WS_POPUP, $WS_POPUPWINDOW, $WS_BORDER)
#endregion ### Global Style ###
;=============
#region ### Array angaben: BoxNames & Funktions ###
;=============Install Names=============
Global $BoxNames64_32[70] = ['Abiword', 'Adobe Air', 'Adobe Flash', 'Adobe Reader', 'Adobe Shockwave', 'Audacity', 'AutoIt', 'Avast', 'AVG Antivirus', 'Avira', 'Boinc', 'CCleaner', 'CDBunerXP', 'Comodo Antivirus', 'Comodo Firewall', 'Copernic Desktop Search', 'Cute PDF Writer', 'Daemon Tools Lite', 'Device Manager Pro','Dropbox', 'DSynchronize', 'DVDisaster', 'EasyCleaner', 'Eraser', 'Exact Audio Copy', 'Exif Sorter', 'Foobar 2000', 'Foxit Reader', 'Free Commander', 'Free Minder', 'Geosetter', 'Google Earth', 'HxD', 'ImgBurn', 'Inkscape', 'Irfanview', 'Mozilla Firefox 3.6', 'Mozilla Firefox 4', 'Mozilla Thunderbird', 'MP3Gain', 'MP3Tag', 'MUCommander', 'NotePad++', 'OpenIffice', 'Opera', 'PaintDotNet', 'PC Instector File Recovery', 'PDF Creator', 'Pidgin', 'Process Explorer', 'QuickPar', 'Recuva', 'RenameFiles', 'Skype','Soluto', 'Spybit Search and Destroy', 'TCPView', 'Tor Browser', 'Toucan', 'Truecrypt', 'Universal Extractor', 'Virtual CloneDrive', 'VirtualBox', 'Vist ShutDown Timer', 'VLC Media Player', 'WinAmp', 'xMedia Recorde', 'XnView', 'XviD']
Global $BoxNames64[4] = ['7-zip', 'Java', 'Media Player Classic HC', 'WinRar']
Global $BoxNames86[4] = ['7-zip64', 'Java64', 'Media Player Classic HC64', 'WinRar64']
;=======================================
;=============Install Func==============
Global $aFunktions[71] = ['Abiword', 'Adobe_Air', 'Adobe_Flash', 'Adobe_Reader', 'Adobe_Shockwave', 'Audacity', 'AutoIt', 'Avast', 'AVG_Antivirus', 'Avira', 'Boinc', 'CCleaner', 'CDBurnerXP', 'Comodo_Antivirus', 'Comodo Firewall', 'Copernic Desktop Search', 'Cute PDF Writer', 'Daemon Tools Lite', 'Device Manager Pro','Dropbox', 'DSynchronize', 'DVDisaster', 'EasyCleaner', 'Eraser', 'Exact Audio Copy', 'Exif Sorter', 'Foobar 2000', 'Foxit Reader', 'Free Commander', 'Free Minder', 'Geosetter', 'Google Earth', 'HxD', 'ImgBurn', 'Inkscape', 'Irfanview', 'MokaFive', 'Mozilla Firefox 3.6', 'Mozilla Firefox 4', 'Mozilla Thunderbird', 'MP3Gain', 'MP3Tag', 'MUCommander', 'NotePad++', 'OpenIffice', 'Opera', 'PaintDotNet', 'PC Instector File Recovery', 'PDF Creator', 'Pidgin', 'Process Explorer', 'QuickPar', 'Recuva', 'RenameFiles', 'Skype','Soluto', 'Spybit Search and Destroy', 'TCPView', 'Tor Browser', 'Toucan', 'Truecrypt', 'Universal Extractor', 'Virtual CloneDrive', 'VirtualBox', 'Vist ShutDown Timer', 'VLC Media Player', 'WinAmp', 'xMedia Recorde', 'XnView', 'XviD']
Global $X64Funktions[4] = ['7-zip', 'Java', 'Media Player Classic HC', 'WinRar']
Global $X86Funktions[4] = ['_7zip86', 'Java86','_MediaPlayerClassicHC86', '_WinRar86']
;========================================
;========Checkbox Names _SpezOpt=========
Global $Checkbox[14]
Global $CheckNames[14] = ['RAR', 'Zip', 'CAB', 'ARJ', 'LZH', 'ACE', '7-Zip', 'TAR', 'GZip', 'UUE', 'BZ2', 'JAR', 'ISO', 'Z']
Global $Left[14] = [16, 72, 128, 184, 240, 296, 352, 408, 464, 520, 16, 72, 128, 184]
Global $Top[14] = [352, 352, 352, 352, 352, 352, 352, 352, 352, 352, 376, 376, 376, 376]
;RAR ZIP CAB ARJ LZH ACE 7ZIP TAR GZIP UUE BZ2 JAR ISO Z
;========================================
#endregion ### Array angaben: BoxNames & Funktions ###
;=============
#region ### GUI ###
$hGui = GUICreate('Auto Install', 421, 421, -1, -1, $style)
GUICtrlCreateGroup('( X86 ) 32Bit und ( X64 ) 64Bit', 10, 10, 230, 400)
GUICtrlCreateGroup('Install Manager', 250, 10, 161, 200)
GUICtrlCreateGroup('( ' & @OSArch & ' )' & ' Bit only', 248, 210, 161, 200)
$install = GUICtrlCreateLabel('Ausgewählte Installieren', 264, 30, 118, 17)
$deinstall = GUICtrlCreateLabel('Deinstallations Info', 264, 50, 131, 17)
$opt = GUICtrlCreateLabel('Optionen', 304, 160, 47, 17)
$exit = GUICtrlCreateLabel('Beenden', 304, 180, 47, 17)
$akpath = GUICtrlCreateLabel('Install Pfad: ' & @CRLF & $opt_path, 264, 120, 139, 33)
#endregion ### GUI ###
;=============
#region ### ListView ###
$Header = 'Name'
$ListView = GUICtrlCreateListView($Header, 20, 25, 210, 370, $LVS_SINGLESEL, $LVS_EX_CHECKBOXES)
_GUICtrlListView_RegisterSortCallBack($ListView)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg($ListView, $LVM_SETCOLUMNWIDTH, 0, 193)
For $i = 0 To UBound($BoxNames64_32) - 1
$item32_64 = GUICtrlCreateListViewItem($BoxNames64_32[$i], $ListView)
Next
#endregion ### ListView ###
;=============
#region ### ListView Os ###
$HeaderOS = 'Name'
$ListViewOS = GUICtrlCreateListView($HeaderOS, 258, 225, 141, 170, $LVS_SINGLESEL, $LVS_EX_CHECKBOXES)
_GUICtrlListView_RegisterSortCallBack($ListViewOS)
GUICtrlSetState(-1, $GUI_DROPACCEPTED)
GUICtrlSendMsg($ListViewOS, $LVM_SETCOLUMNWIDTH, 0, 140)
If @OSArch = 'X64' Then
For $a = 0 To UBound($BoxNames64) - 1
$item64 = GUICtrlCreateListViewItem($BoxNames64[$a], $ListViewOS)
Next
ElseIf @OSArch = 'X86' Then
For $b = 0 To UBound($BoxNames86) - 1
$item86 = GUICtrlCreateListViewItem($BoxNames86[$b], $ListViewOS)
Next
EndIf
#endregion ### ListView Os ###
GUISetState(@SW_SHOW)
;=============
#region ### EVENT ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $exit
Exit
Case $opt
_opt($Instdir)
Case $install
_Install()
Case $deinstall
_Deinstall()
EndSwitch
WEnd
#endregion ### EVENT ###
;=============
#region ### _opt() ###
Func _opt($Instdir)
$ini = IniRead('Option.ini', 'Install_Path', 'Path', 'C:\Program Files (x86)')
$option = GUICreate('Optionen', 434, 147, -1, -1, $style)
GUICtrlCreateGroup('', 10, 10, 410, 120)
$Instdir = GUICtrlCreateInput($ini, 30, 30, 350, 21,$ES_READONLY)
$path = GUICtrlCreateButton('...', 380, 30, 15, 20)
GUICtrlCreateLabel('Legt den Standard Installations Pfad fest', 30, 56, 198, 15)
$SpezOpt = GUICtrlCreateLabel('Prog-Spez Optionen', 310, 87, -1, 17)
$save = GUICtrlCreateLabel('Speichern', 310, 104, 50, 17)
$back = GUICtrlCreateLabel('Zurück', 368, 104, 38, 15)
$DCut = GUICtrlCreateCheckbox('Desktop Shortcut', 30, 87, 137, 17)
$QLCut = GUICtrlCreateCheckbox('Quick Launch Shortcuts', 30, 104, 137, 17)
If IniRead('Option.ini', 'Shortcuts', 'Desktop Shortcuts', '') = 'Ja' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:3]','Check', '')
ElseIf IniRead('Option.ini', 'Shortcuts', 'Desktop Shortcuts', '') = 'Nein' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:3]','UnCheck', '')
EndIf
If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:4]','Check', '')
ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
ControlCommand($option,'','[CLASS:Button; INSTANCE:4]','UnCheck', '')
EndIf
GUISetState(@SW_SHOW, $option)
;=============
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $back
GUISetState(@SW_HIDE, $option)
Return
Case $path
$pathinst = FileSelectFolder('Installations Verzeichniss auswählen', '')
If (Not @error) Then
If (StringRight($pathinst, 1) <> '\') Then
$pathinst = $pathinst & '\'
EndIf
$opt_path = $pathinst
GUICtrlSetData($akpath, 'Install Pfad: ' & @CRLF & $opt_path)
ControlSetText('', '', $Instdir, $opt_path)
EndIf
Case $save
IniWrite('Option.ini', 'Install_Path', 'Path', GUICtrlRead($Instdir))
If GUICtrlRead($DCut) = 1 Then
IniWrite('Option.ini', 'Shortcuts', 'Desktop Shortcuts', 'Ja')
Else
IniWrite('Option.ini', 'Shortcuts', 'Desktop Shortcuts', 'Nein')
endif
If GUICtrlRead($QLCut) = 1 Then
IniWrite('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', 'Ja')
Else
IniWrite('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', 'Nein')
endif
MsgBox(0,'Optionen','Optionen Gespeichert',2)
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
Case $SpezOpt
_SpezOpt()
EndSwitch
WEnd
EndFunc ;==>_opt
#endregion ### _opt() ###
;=============
#region ### _SpezOpt() ###
Func _SpezOpt()
$ini_konto = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Name', '')
$ini_pw = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Password', '')
$SpezOptGUI = GUICreate('SpezOpt',625, 475,-1,-1,$style)
GUICtrlCreateGroup('Programm Speziefische Optionen',8,8,601,153)
GUICtrlCreateGroup('Dropbox',16,24,585,115)
GUICtrlCreateGroup('Info',312,32,281,89)
GUICtrlCreateLabel('Besitzen Sie ein Dropbox-Konto?',24,40,160,17)
GUICtrlCreateLabel('Konto Name',24,64,60,17)
GUICtrlCreateLabel('Konto Password',24,88,78,17)
GUICtrlCreateLabel('Ihre Kontodaten werden in der Option.ini Gespeichert.'&@CRLF&@CRLF&'Nach der Installation von Dropbox, werden Sie Gefragt ob der Eintrag in der Option.ini Gelöscht werden soll',320,48,266,68)
$KsV = GUICtrlCreateLabel('Konto-Daten vorab Erstellen',24,142,137,17)
$Ja = GUICtrlCreateRadio('Ja',184,40,33,17)
$Nein = GUICtrlCreateRadio('Nein',224,40,41,17)
$Konto = GUICtrlCreateInput($ini_konto,104,64,201,21)
$Password = GUICtrlCreateInput($ini_pw,104,88,201,21)
$Avast = GUICtrlCreateGroup('Avast', 8, 168, 601, 73)
GUICtrlCreateLabel('Avast wird mit dem Parameter /verysilent Installiert, dass heisst das es eine Volle Unsichtbare Installation ist.'&@CRLF&'Durch die /verysilent Installation wird Google Chrome mit Installiert', 16, 184, 590, 50)
GUICtrlCreateGroup('WinRAR', 8, 336, 601, 73)
GUICtrlCreateGroup('',488, 410, 121, 50)
$Speichern = GUICtrlCreateLabel('Speichern',496, 430, 52, 17)
$Zur = GUICtrlCreateLabel('Zurück',560, 430, 35, 17)
For $Cii = 0 To UBound($CheckNames) - 1
$Checkbox[$Cii] = GUICtrlCreateCheckbox($CheckNames[$Cii], $Left[$Cii], $Top[$Cii], 49, 17)
If IniRead('Spez-Option.ini', 'WinRAR', $CheckNames[$Cii], 'Nein') = 'Ja' Then
ControlCommand($SpezOptGUI,'',$CheckNames[$Cii],'Check')
Else
ControlCommand($SpezOptGUI,'',$CheckNames[$Cii],'UnCheck')
EndIf
Next
If IniRead('Spez-Option.ini','Dropbox','Konto','') = 'Ja' Then
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:5]','UnCheck','')
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:4]','Check','')
ElseIf IniRead('Spez-Option.ini','Dropbox','Konto','') = 'Nein' Then
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:4]','UnCheck','')
ControlCommand($SpezOptGUI,'','[CLASS:Button; INSTANCE:5]','Check','')
EndIf
GUISetState(@SW_SHOW)
;=============
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Zur
GUISetState(@SW_HIDE, $SpezOptGUI)
Return
Case $Speichern
If GUICtrlRead($Ja) = 1 Then
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto', 'Ja')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Name', GUICtrlRead($Konto))
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Password', GUICtrlRead($Password))
MsgBox(0,'Optionen','Optionen Gespeichert',2)
Else
If MsgBox(4,'Konto Erstellen','Möchten Sie die Daten für die Erstellung eines Dropbox-Kontos vorab Speichern?') = 6 Then
_Konto_Erst()
Else
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto', 'Nein')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Name', '')
IniWrite('Spez-Option.ini', 'Dropbox', 'Konto-Password', '')
EndIf
EndIf
For $i = 0 To 13
If BitAND(GUICtrlRead($Checkbox[$i]), $GUI_CHECKED) = $GUI_CHECKED Then
IniWrite('Spez-Option.ini', 'WinRAR', $CheckNames[$i], 'Ja')
Else
IniWrite('Spez-Option.ini','WinRAR', $CheckNames[$i], 'Nein')
EndIf
Next
Sleep(500)
ControlClick('SpezOpt','','[CLASS:Static; INSTANCE:8]')
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
Case $KsV
_Konto_Erst()
EndSwitch
WEnd
EndFunc
#endregion ### _SpezOpt() ###
;=============
#region ### _Konto_Erst() ###
Func _Konto_Erst()
$ini_VN = IniRead('Spez-Option.ini','Konto vorab save','Vorname','')
$ini_NN = IniRead('Spez-Option.ini','Konto vorab save','Nachname','')
$ini_EM = IniRead('Spez-Option.ini','Konto vorab save','E-Mail','')
$ini_PW = IniRead('Spez-Option.ini','Konto vorab save','Kennwort','')
$KvS = GUICreate('Konto vorab Speicherung', 306, 162,-1, -1,$style)
GUICtrlCreateGroup('', 8, 8, 289, 145)
$Vorname = GUICtrlCreateLabel(' Vorname:', 24, 24, 52, 17)
$Nachname = GUICtrlCreateLabel('Nachname:', 16, 48, 59, 17)
$email = GUICtrlCreateLabel('E-Mail:', 40, 72, 36, 17)
$Kennwort = GUICtrlCreateLabel('Kennwort:', 24, 96, 52, 17)
$InputVN = GUICtrlCreateInput($ini_VN, 80, 24, 209, 21)
$InputNN = GUICtrlCreateInput($ini_NN, 80, 48, 209, 21)
$InputEM = GUICtrlCreateInput($ini_EM, 80, 72, 209, 21)
$InputPW = GUICtrlCreateInput($ini_PW, 80, 96, 209, 21)
$Speichern_KvS = GUICtrlCreateLabel('Speichern', 184, 128, 52, 17)
$Zur_KvS = GUICtrlCreateLabel('Zurück', 248, 128, 38, 17)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Zur_KvS
GUISetState(@SW_HIDE, $KvS)
Return
Case $Speichern_KvS()
IniWrite('Spez-Option.ini','Konto vorab save','Vorname',GUICtrlRead($InputVN))
IniWrite('Spez-Option.ini','Konto vorab save','Nachname',GUICtrlRead($InputNN))
IniWrite('Spez-Option.ini','Konto vorab save','E-Mail',GUICtrlRead($InputEM))
IniWrite('Spez-Option.ini','Konto vorab save','Kennwort',GUICtrlRead($InputPW))
MsgBox(0,'Info','Gespeichert',2)
Sleep(500)
ControlClick('Konto vorab Speicherung','','[CLASS:Static; INSTANCE:6]')
Sleep(500)
ControlClick('SpezOpt','','[CLASS:Static; INSTANCE:7]')
Sleep(500)
ControlClick('Optionen','','[CLASS:Static; INSTANCE:4]')
EndSwitch
WEnd
EndFunc
#endregion ### _Konto_Erst() ###
;=============
#region ### _Install() ###
Func _Install()
For $i = 0 To _GUICtrlListView_GetItemCount($listview) - 1
If _GUICtrlListView_GetItemChecked($listview, $i) Then Call($aFunktions[$i])
Next
If @OSArch = 'X64' Then
For $a = 0 To _GUICtrlListView_GetItemCount($listviewOs) -1
If _GUICtrlListView_GetItemChecked($listviewOs, $a) Then Call($X64Funktions[$a])
Next
ElseIf @OSArch = 'X86' Then
For $b = 0 To _GUICtrlListView_GetItemCount($listviewOs) -1
If _GUICtrlListView_GetItemChecked($listviewOs, $b) Then Call($X86Funktions[$b])
Next
EndIf
_Finish()
EndFunc ;==>_Install
#endregion ### _Install() ###
;=============
#region ### _Deinstall() ###
Func _Deinstall()
MsgBox(0,'Deinstallations Info','Es wird Empfohlen, Programme über die' & @CRLF & '"Systemsteuerung -> Programme und Funktionen"' & @CRLF & 'zu Deinstallieren.' & @CRLF & @CRLF & 'Win7:' & @CRLF & 'Falls Ihre "Anzeige:" auf "Kategorie" Eingestellt ist.' & @CRLF & '"Programme -> Programme und Funktionen"')
EndFunc
#endregion ### _Deinstall() ###
#region ### Global ###
Global $pfad = IniRead('Option.ini', 'Install_Path', 'Path', '')
#endregion ### Global ###
;============
#region ### X86 & X64 ###
Func Abiword()
ShellExecute('abiword-setup-2.9.2.exe','',@ScriptDir&'\X86-X64bit\Abiword')
Sleep(500)
WinWaitActive('Installer Language','')
Sleep(500)
ControlClick('Installer Language','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:ComboBox; INSTANCE:1]')
Sleep(500)
Send('{DOWN}')
Send('{DOWN}')
Sleep(500)
Send('{ENTER}')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
Sleep(1000)
Send ($pfad&'Abiword')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
Sleep(750)
If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
;~ Placeholder (>_<)
ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
Send('{TAB}')
Send('{TAB}')
Send('{Space}')
EndIf
ControlClick('AbiWord 2.9.2 Installation', '', '[CLASS:Button; INSTANCE:2]')
Sleep(500)
WinWait('AbiWord 2.9.2 Installation ', 'Die Installation wurde erfolgreich abgeschlossen.')
Sleep(750)
Send('{Space}')
Sleep(500)
ControlClick('AbiWord 2.9.2 Installation','','[CLASS:Button; INSTANCE:2]')
Sleep(2000)
EndFunc
;=============
Func adobe_air()
ShellExecute('AdobeAIRInstaller.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_air')
MsgBox(0,'Info', 'Dieses Programm wird via Maus / Tastatur Installiert.' & @CRLF & 'Maus & Tastatur werden Blockiert.' & @CRLF & 'Die Blockierung wird nach 10sec wieder Aufgehoben' & @CRLF & @CRLF & 'Grund der Blockierung:' & @CRLF & 'Die Installarion ist nicht über "ControlClick" Erreichbar','5')
SLeep(500)
BlockInput(1)
WinWaitActive('Adobe AIR einrichten')
Send('{Space}')
Sleep(10000)
Send('{Space}')
BlockInput(0)
MsgBox(0,'Info','Blockierung Aufgehoben','2')
Sleep(2000)
EndFunc
;=============
Func Adobe_Flash()
WinWaitActive('Adobe Flash Player-Installationsprogramm')
Sleep(7000)
ControlClick('Adobe Flash Player-Installationsprogramm','','[CLASS:Internet Explorer_Server; INSTANCE:1]','left','1','103','220')
Sleep(500)
ControlClick('Adobe Flash Player-Installationsprogramm','','[CLASS:Internet Explorer_Server; INSTANCE:1]','left','1','653','274')
Sleep(500)
EndFunc
;=============
Func Adobe_Reader()
ShellExecute('install_reader10_de_mssd_aih.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_reader')
Sleep(500)
WinWaitActive('Adobe Reader-Installationsprogramm','')
Sleep(12000)
EndFunc
;=============
Func Adobe_Shockwave()
ShellExecute('Shockwave_Installer_Slim.exe','',@ScriptDir&'\X86-X64bit\Adobe\adobe_shokwave')
Sleep(500)
WinWaitActive('Adobe Shockwave Player Installation: Installiere','')
WinWaitActive('Installation von Adobe Shockwave Player','')
ControlClick('Installation von Adobe Shockwave Player','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
ControlClick('Installation von Adobe Shockwave Player','','[CLASS:Button; INSTANCE:3]')
Sleep(500)
WinActivate('Adobe Shockwave Player Installation','')
ControlClick('Adobe Shockwave Player Installation','','[CLASS:Button; INSTANCE:2]')
Sleep(2000)
EndFunc
;=============
Func Audacity()
ShellExecute('audacity-win-2.0.2.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity')
WinWaitActive('Setup-Sprache auswählen','')
Sleep(500)
ControlClick('Setup-Sprache auswählen','','[CLASS:TNewButton; INSTANCE:1]')
WinWaitActive('Setup - Audacity','')
Sleep(500)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:2]')
Sleep(1000)
Send ($pfad&'Audacity')
Sleep(750)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(750)
If IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Ja' Then
; Placeholder (>_<)
ElseIf IniRead('Option.ini', 'Shortcuts', 'Quick Launch Shortcuts', '') = 'Nein' Then
Send('{Space}')
EndIf
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(500)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(500)
WinWaitActive('Setup - Audacity','Information')
Sleep(500)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(500)
Send('{Space}')
Sleep(500)
ControlClick('Setup - Audacity','','[CLASS:TNewButton; INSTANCE:3]')
MsgBox(0,'Information','Audacity zubehör wird Installiert'& @CRLF &'Audacity Lame (mp3 Codec für Audacity)'& @CRLF &'LADSPA Plugins'& @CRLF &'VST Bridge für Audacity'& @CRLF &'Timeout nach 5sec',5)
; Installation der Lame.exe
ShellExecute('Lame.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_lame')
Sleep(500)
WinWaitActive('Setup - LAME for Audacity','')
Sleep(750)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:1]')
Sleep(500)
WinWait('Setup - LAME for Audacity','License Agreement')
Sleep(750)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewRadioButton; INSTANCE:1]')
Sleep(750)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:2]')
WinWait('Setup - LAME for Audacity','Select Destination Location')
Sleep(500)
Send ($pfad&'Lame For Audacity')
Sleep(750)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
WinWaitActive('Setup - LAME for Audacity','')
Sleep(1000)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(1000)
ControlClick('Setup - LAME for Audacity','','[CLASS:TNewButton; INSTANCE:3]')
Sleep(2000)
; Installation der Plugins
ShellExecute('LADSPA_plugins-win-0.4.15.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_plugin')
WinWaitActive('Setup-Sprache auswählen','')
Sleep(500)
ControlClick('Setup-Sprache auswählen','','[CLASS:TButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TRadioButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:2]')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:2]')
Sleep(1000)
Send ($pfad&'Audacity\Plug-Ins')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
Sleep(500)
WinWaitActive('Setup - LADSPA_plugins-win','Beenden des LADSPA_plugins-win Setup-Assistenten')
Sleep(500)
ControlClick('Setup - LADSPA_plugins-win','','[CLASS:TButton; INSTANCE:3]')
Sleep(2000)
; Installation der VST Bridge
ShellExecute('vst_bridge_1_1.exe','',@ScriptDir&'\X86-X64bit\Audacity\audacity_vst_brige')
Sleep(500)
WinWaitActive('Setup - VST Bridge','')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TRadioButton; INSTANCE:1]')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:2]')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:2]')
Sleep(1000)
Send ($pfad&'Audacity\Plug-ins')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
Sleep(500)
ControlClick('Setup - VST Bridge','','[CLASS:TButton; INSTANCE:3]')
Sleep(2000)
EndFunc
;=============
Func AutoIt()
ShellExecute('autoit-v3.3.8.1-setup.exe','',@ScriptDir&'\X86-X64bit\AutoIt\AutoIt')
Sleep(500)
WinWait('AutoIt v3.3.8.1 Setup','')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:5]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
MsgBox(0,'Information','Dieses Programm kann nicht an Speziefischen Orten Installiert werden'&@CRLF&'Standard Pfad: C:\Program Files (x86)\AutoIt3',3)
Send ('C:\Program Files (x86)\AutoIt3')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:4]')
Sleep(500)
ControlClick('AutoIt v3.3.8.1 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(2000)
ShellExecute('SciTE4AutoIt3.exe','',@ScriptDir&'\X86-X64bit\AutoIt\Scite')
Sleep(500)
WinWaitActive('SciTE4AutoIt3 6/10/2012 Setup','')
Sleep(500)
ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
WinWaitActive('SciTE4AutoIt3 6/10/2012 Setup','SciTE4AutoIt3 install finished')
Sleep(500)
ControlClick('SciTE4AutoIt3 6/10/2012 Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(2000)
If MsgBox(4,'Deutsche Hilfe','Soll die Deutsche Hilfe Installiert werden?') = 6 Then
FileCopy(@ScriptDir&'\X86-X64bit\AutoIt\Deutsche Hilfe','C:\Program Files (x86)\AutoIt3',1)
Else
Return
EndIf
Sleep(1000)
If MsgBox(4,'Organize Include','Soll Organize Include Installiert werden?') = 6 Then
FileCopy(@ScriptDir&'\X86-X64bit\AutoIt\OrganizeIncludes','C:\Program Files (x86)\AutoIt3\SciTE',1)
Else
Return
EndIf
Sleep(1000)
EndFunc
;=============
Func Dropbox()
ShellExecute('Dropbox 1.4.17.exe','',@ScriptDir&'\X86-X64bit\Dropbox')
Sleep(500)
WinWaitActive('Dropbox Setup','')
Sleep(500)
ControlClick('Dropbox Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
ControlClick('Dropbox Setup','','[CLASS:Button; INSTANCE:2]')
Sleep(500)
WinWaitActive('Dropbox-Setup','Ich habe kein Dropbox-Konto',35)
Sleep(500)
If IniRead('Spez-Option.ini', 'Dropbox', 'Konto', '') = 'Ja' Then
MsgBox(0,'Info','Konto Gefunden',1)
ControlClick("Dropbox-Setup","","[CLASS:Button; INSTANCE:2]")
Sleep(500)
ControlClick('Dropbox-Setup','Weiter','[CLASS:Button; INSTANCE:3]','',2)
_KontoVor()
ElseIf IniRead('Spez-Option.ini', 'Dropbox', 'Konto', '') = 'Nein' Then
MsgBox(0,'Info','Konto nicht Gefunden',1)
ControlClick("Dropbox-Setup","","[CLASS:Button; INSTANCE:1]")
Sleep(500)
ControlClick('Dropbox-Setup','Weiter','[CLASS:Button; INSTANCE:3]','',2)
_KontoNiVor()
EndIf
EndFunc
;======
Func _KontoVor()
$K_N = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Name','')
$K_P = IniRead('Spez-Option.ini', 'Dropbox', 'Konto-Password','')
Send($K_N)
Sleep(500)
Send('{Tab}')
Sleep(500)
Send($K_P)
EndFunc
;======
Func _KontoNiVor()
EndFunc
;=============
;=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit];=============
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#endregion ### X86 & X64 ###
;=============
#region ### X86 ###
Func _7zip()
ShellExecute('7z920-x64.msi','',@ScriptDir&'\X64bit\7-zip')
WinWait('7-Zip 9.20 (x64 edition) Setup','')
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:3]')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
Send($pfad&'7-Zip')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:5]')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
Sleep(500)
WinWait('7-Zip 9.20 (x64 edition) Setup','Completing the 7-Zip 9.20 (x64 edition) Setup Wizard')
Sleep(500)
ControlClick('7-Zip 9.20 (x64 edition) Setup','','[CLASS:Button; INSTANCE:1]')
EndFunc
#endregion ### X86 ###
;=============
#region ### X64 ###
#endregion ### X64 ###
;=============
#region ### Info ###
Func _Finish()
MsgBox(0,'Installation','Installation/en Beendet')
EndFunc
#endregion ### Info ###
Wollte mal eure meinung zum Desing und aufbau / Verfahren der Installaion höhren.
Fertig ist sie noch lange nicht ![]()
Und wen jmd lust hat kann er mir helfen die Install Func zu erstellen...
Bedenkt aber das im manager die Pfad Angaben und Shortcuts einstellbar sind und diese in einer Ini gespeichert werden UND diese sich auf die Installation auswirken.
***Edit***
Falls jmd das Software Packet von 1GB haben möchte, sage mir bescheid ![]()
Oder die Lust und Laune hat mir beim Scripten zu helfen (Denn es ist ja nicht gerade wenig >_<)
Sage auch bescheid, der kommt dan in den "Helfende Hände" bereich, Scripte sind Frei zugänglich, aber nicht immer aktuell, also, auch jeweils die aktuelen Scripte.....
***Helfende Hände***
James1337
Greez Skilkor
Edit*: .au3 dateien & Spoiler Aktualisiert
Edit**: Auto Install.au3 und Spoiler (Install Manager) Aktualisiert
- Neue Option Hinzugefügt sovie 2 Programme "Dropbox" und "Soluto"
So ich hab mal Progandy´s Liste heruntergeladen
7zip
ABIWord
Adobe_Reader
Audacity
AutoIt
Autostitch
Avast Home Edition 4
AVG Anti-Virus Free Edition
BOINC
CCleaner
CDBurnerXP
Comodo Firewall Pro
Copernic_Desktop_Search
Device Manager Pro
DSynchronize
DVDisaster
EasyCleaner
Eraser
Exact Audio Copy
ExifSorter
Filezilla
Firefox
Font Xplorer
foobar2000
Foxit Reader
FreeCommander
FreeMind
Geosetter
Google Earth
HxD
ImgBurn
Inkscape
Irfanview
Java Runtime Environment
Media Player Classic HC
MokaFive
MP3Gain
MP3Tag
MUCommander
NotePad++
Online Armor Free Edition
OpenOffice.org
Opera
Paint_Net
PC Inspector File Recovery
PDF-Creator
Pidgin
Process Explorer
QuickPar
Recuva
RenameFiles
Skype
Spybot Search & Destroy
TCPView
Thunderbird
Tor-IM-Browser
Toucan
Truecrypt
Virtual CloneDrive
VirtualBox
Vista ShutDownTimer
VLC_Media_Player
Winamp
WinRAR
xmedia-recode
XnView
XviD
Das sind jetz etwa 975 MB...oO
Sortiert 32 & 64 bit / 32bit & 64bit ![]()
Falls etwas Fehlen sollte.... MELDEN ![]()
Ich Überlege mir gerade wie ich es am besten anstellen soll.... 65 Checkboxes sind doch schon bisl ARGH viel ![]()
Hmm....
hat was Schnuffel
hat was ![]()
jo gimp wurde gennant ![]()
Why not ![]()
Ich komm da nicht nach ![]()
Und dan nacher noch auszusortieren isn bissl viel HandArbeit
Mein Koreanischer Sklave ist vor n Paar tagen leider von uns gegangen ![]()