Wenn ich mich nicht irre gibts da das Programm "KGB Spy"
der kann unteranderem alle angesurften Internetseiten protokollieren (firefox auch).
Gibts auch als Demoversion.
ciao
Wenn ich mich nicht irre gibts da das Programm "KGB Spy"
der kann unteranderem alle angesurften Internetseiten protokollieren (firefox auch).
Gibts auch als Demoversion.
ciao
Hier meine Variante von Adobe FlashPlayer Plugin.
Und mit TuneUp 2007.
Geht auch mit FireFox, nur mit AutoIt selbst habe ich probleme
Ciao
XTC99
#RequireAdmin
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: XTC99
Script Function:
Automatic Silent Installtion
#ce ----------------------------------------------------------------------------
;~Define Variables
DIM $setup = @ScriptDir & "\install_flash_player.exe"
DIM $setup_ie = @ScriptDir & "\install_flash_player_ax.exe"
;~ Check for Files
If not FileExists ($setup) Then
MsgBox(16,"Adobe Flash Player", "File not found :"& @LF & $setup)
Exit 5
EndIf
If not FileExists ($setup_ie) Then
MsgBox(16,"Adobe Flash Player", "File not found :"& @LF & $setup_ie)
Exit 5
EndIf
;Install FlashPlayer Firefox
If ProcessExists ("firefox.exe") Then ProcessClose ("firefox.exe")
run($setup)
WinWait("Adobe Flash Player Plugin Installation: Fertig","&Details anzeigen")
If Not WinActive("Adobe Flash Player Plugin Installation: Fertig") Then WinActivate("Adobe Flash Player Plugin Installation: Fertig")
ControlClick ("Adobe Flash Player Plugin Installation: Fertig", "&Beenden", "Button2")
;Install FlashPlayer InternetExplorer
If ProcessExists ("IEXPLORE.EXE") Then ProcessClose ("IEXPLORE.EXE")
run($setup_ie)
WinWait("Adobe Flash Player ActiveX Installation: Fertig","&Details anzeigen")
If Not WinActive("Adobe Flash Player ActiveX Installation: Fertig") Then WinActivate("Adobe Flash Player Plugin Installation: Fertig")
ControlClick ("Adobe Flash Player ActiveX Installation: Fertig", "&Beenden", "Button2")
#RequireAdmin
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.3.0.0
Author: XTC99
Script Function:
Automatic Silent Installtion
#ce ----------------------------------------------------------------------------
$g_szVersion = "AutoIt Script"
DIM $snkey= "XXXXX-XXXXX-XXXXX-XXXXX-XXXXX-XXXXX" ;Key eingeben
[/autoit] [autoit][/autoit] [autoit]AutoItWinSetTitle($g_szVersion)
[/autoit] [autoit][/autoit] [autoit]run("TU2007TrialDE.exe")
[/autoit] [autoit][/autoit] [autoit]WinWait ("TuneUp Utilities 2007 ", "&Weiter >")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "&Weiter >", "Button1")
WinWait("TuneUp Utilities 2007","Lizenzvertrag")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "Ich &akzeptiere den Lizenzvertrag", "Button3")
ControlClick ("TuneUp Utilities 2007", "&Weiter >", "Button4")
WinWait("TuneUp Utilities 2007","Benutzer-Informationen")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlSetText("TuneUp Utilities 2007","Benutzer-Informationen","RichEdit20W1","Name")
ControlSetText("TuneUp Utilities 2007","Benutzer-Informationen","RichEdit20W2","Firma")
ControlClick ("TuneUp Utilities 2007", "&Jeden Benutzer dieses Computers", "Button2")
ControlClick ("TuneUp Utilities 2007", "&Weiter >", "Button4")
WinWait("TuneUp Utilities 2007", "Zielordner")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "&Weiter >", "Button1")
WinWait("TuneUp Utilities 2007", "Anwendungseinstellungen")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "TuneUp Utilities 2007 nach der Installation starten", "Button6")
ControlClick ("TuneUp Utilities 2007", "&Weiter >", "Button1")
WinWait("TuneUp Utilities 2007", "TuneUp Utilities 2007 wurde erfolgreich installiert")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "&Fertig stellen", "Button1")
WinWait("Update-Prüfung empfohlen")
If Not WinActive("Update-Prüfung empfohlen") Then WinActivate("Update-Prüfung empfohlen")
ControlCommand("Update-Prüfung empfohlen", "Updates für meine TuneUp-Produkte", "TComboBox1", "SelectString", "Nicht erinnern")
ControlClick ("Update-Prüfung empfohlen", "OK", "TButton1")
WinWait("TuneUp Utilities 2007", "Code eingeben")
If Not WinActive("TuneUp Utilities 2007") Then WinActivate("TuneUp Utilities 2007")
ControlClick ("TuneUp Utilities 2007", "Code eingeben", "TButton3")
WinWait("Code eingeben")
If Not WinActive("Code eingeben") Then WinActivate("Code eingeben")
ControlSetText("Code eingeben","","TEdit2"," ")
ControlSetText("Code eingeben","","TEdit1"," ")
ControlSetText("Code eingeben","","TTURegCodeEdit1",$snkey)
ControlClick ("Code eingeben", "OK", "TButton2")
WinWait("Vielen Dank!")
If Not WinActive("Vielen Dank!") Then WinActivate("Vielen Dank!")
ControlClick ("Vielen Dank!", "OK", "Button1")
WinWait("Programm-Neustart erforderlich")
If Not WinActive("Programm-Neustart erforderlich") Then WinActivate("Programm-Neustart erforderlich")
ControlClick ("Programm-Neustart erforderlich", "OK", "Button1")
Danke so könnte es funktionieren
Sorry hab schon die Hilfe durchsucht leider ohne Erfolg,
Ist es möglich einer Forschleife mehr als nur ein Argument zu übergeben
Vielen Dank für eure Hilfe
For $i = 1 to 999, $y = 5 to 10
MsgBox(0,'',$i & ' - ' & $y)
Next
Fehlermeldungen bei diesem Versuch:
[/spoiler]
C:\Dokumente und Einstellungen\Administrator\Desktop\ttt.au3(1,18) : ERROR: syntax error
For $i = 1 to 999,
~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Administrator\Desktop\ttt.au3(2,32) : WARNING: $y: possibly used before declaration.
MsgBox(0,'',$i & ' - ' & $y)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Administrator\Desktop\ttt.au3(2,32) : ERROR: $y: undeclared global variable.
MsgBox(0,'',$i & ' - ' & $y)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~^
C:\Dokumente und Einstellungen\Administrator\Desktop\ttt.au3 - 2 error(s), 1 warning(s)
Alles anzeigen
Danke, jetzt weiss ich wie es geht
Vielen Dank für die Hilfe
PS: Dein Code ist mir noch ein bischen zu komplitziert zumindes das mit den Checkboxen
[autoit]For $i = 11 To 20
GUICtrlSetState(Eval("Checkbox" & $i), $GUI_Hide)
GUICtrlSetState(Eval("Icon" & $i), $GUI_Hide)
Next
GUICtrlSetState($Button1, $GUI_Disable)
GUISetState(@SW_SHOW)
[/autoit]Danke, kannst du das eventuell mit einem Beispiel erklären ?
Hallo ich habe mir ein AuswahlMenü gebaut,
leider wird wenn es gestartet wird immer die letzte Seite (Button2)
angezeigt. Und nicht die Erste Seite (Button 1)
Erst wenn ich mit den Maustaste über die Checkboxen drüberfahre
sieht man den Text von Button 1.
Ist es möglich das Menü beim Aufruf sofort mit der Button 1 Seite zu starten.
(Button 1 -> Hide, Alle Checkboxen und Icons von 1 - 10 sichtbar)
Vielen Dank
[Blockierte Grafik: http://www.xtupload.com/new/image-C26B_49D8A7B3.jpg]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$Menu = GUICreate("DEMO-MENÜ by XTC99", 322, 243, -1, -1)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 64, 40, 90, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 64, 80, 90, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Checkbox3", 64, 120, 90, 17)
$Checkbox4 = GUICtrlCreateCheckbox("Checkbox4", 64, 160, 90, 17)
$Checkbox5 = GUICtrlCreateCheckbox("Checkbox5", 64, 200, 90, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Checkbox6", 224, 40, 90, 17)
$Checkbox7 = GUICtrlCreateCheckbox("Checkbox7", 224, 80, 90, 17)
$Checkbox8 = GUICtrlCreateCheckbox("Checkbox8", 224, 120, 90, 17)
$Checkbox9 = GUICtrlCreateCheckbox("Checkbox9", 224, 160, 90, 17)
$Checkbox10 = GUICtrlCreateCheckbox("Checkbox10", 224, 200, 90, 17)
$Icon1 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -47, 16, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon2 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -16, 16, 72, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon3 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -22, 16, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon4 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -87, 16, 152, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon5 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -117, 16, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon6 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -93, 176, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon7 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -105, 176, 72, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon8 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -62, 176, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon9 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -66, 176, 152, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon10 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -112, 176, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Checkbox11 = GUICtrlCreateCheckbox("Checkbox11", 64, 40, 90, 17)
$Checkbox12 = GUICtrlCreateCheckbox("Checkbox12", 64, 80, 90, 17)
$Checkbox13 = GUICtrlCreateCheckbox("Checkbox13", 64, 120, 90, 17)
$Checkbox14 = GUICtrlCreateCheckbox("Checkbox14", 64, 160, 90, 17)
$Checkbox15 = GUICtrlCreateCheckbox("Checkbox15", 64, 200, 90, 17)
$Checkbox16 = GUICtrlCreateCheckbox("Checkbox16", 224, 40, 90, 17)
$Checkbox17 = GUICtrlCreateCheckbox("Checkbox17", 224, 80, 90, 17)
$Checkbox18 = GUICtrlCreateCheckbox("Checkbox18", 224, 120, 90, 17)
$Checkbox19 = GUICtrlCreateCheckbox("Checkbox19", 224, 160, 90, 17)
$Checkbox20 = GUICtrlCreateCheckbox("Checkbox20", 224, 200, 90, 17)
$Icon11 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -57, 16, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon12 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -26, 16, 72, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon13 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -32, 16, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon14 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -97, 16, 152, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon15 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -127, 16, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon16 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -113, 176, 32, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon17 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -115, 176, 72, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon18 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -72, 176, 112, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon19 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -76, 176, 152, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon20 = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", -122, 176, 192, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Button1 = GUICtrlCreateButton("Button 1", 40, 8, 84, 17, 0)
$Button2 = GUICtrlCreateButton("Button 2", 176, 8, 84, 17, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
For $i = $Checkbox1 To $Checkbox20
GUICtrlSetState($i, $GUI_Hide)
Next
For $i = $Icon1 To $Icon20
GUICtrlSetState($i, $GUI_Hide)
Next
GUICtrlSetState($Button1, $GUI_Disable)
GUICtrlSetState($Button2, $GUI_Enable)
For $i = $Checkbox1 To $Checkbox10
GUICtrlSetState($i, $GUI_SHOW)
Next
For $i = $Icon1 To $Icon10
GUICtrlSetState($i, $GUI_SHOW)
Next
Case $Button2
For $i = $Checkbox1 To $Checkbox20
GUICtrlSetState($i, $GUI_Hide)
Next
For $i = $Icon1 To $Icon20
GUICtrlSetState($i, $GUI_Hide)
Next
GUICtrlSetState($Button1, $GUI_Enable)
GUICtrlSetState($Button2, $GUI_Disable)
For $i = $Checkbox11 To $Checkbox20
GUICtrlSetState($i, $GUI_SHOW)
Next
For $i = $Icon11 To $Icon20
GUICtrlSetState($i, $GUI_SHOW)
Next
EndSwitch
WEnd
Super, vielen Dank
Komisch habs grad mit Administratorrechten unter WinXP gestestet und der Ruhezustand war eingeschaltet.
Probiers mal so
[autoit]#RequireAdmin
[/autoit][autoit][/autoit][autoit]Run (@ComSpec & " /c powercfg /hibernate on", @ScriptDir, @SW_HIDE)
[/autoit]Bitte Autoit Quell-Code benutzen beim Forenschreiben, sonst tut man sich so schwer beim lesen
So könntest du es auch lösen:
[autoit]Run (@ComSpec & " /c powercfg /hibernate on", @ScriptDir, @SW_HIDE)
[/autoit]hab scho ein bischen mit Arrays gearbeitet,
aber so ganz geläufig ist mir das Thema noch nicht :wacko:
Vielen Dank
Ciao
XTC99
Stimmt so einfach gings, Danke.
Danke schaut jetzt so aus
[Blockierte Grafik: http://g.imagehost.org/0165/Zwischenablage.jpg]
[autoit]
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 305, 293, 243, 186)
$Checkbox1 = GUICtrlCreateCheckbox("Pinnacle Studio Plus 10", 64, 32, 217, 17)
$Checkbox2 = GUICtrlCreateCheckbox("PowerDVD 6 CLJ Deluxe", 64, 72, 217, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Quicktime 7.0.4 Pro", 64, 112, 217, 17)
$Checkbox4 = GUICtrlCreateCheckbox("TMPGEnc 3.0 XPress", 64, 152, 217, 17)
$Checkbox5 = GUICtrlCreateCheckbox("VLC media player", 64, 192, 217, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Winamp Pro 5.22", 64, 232, 217, 17)
$Icon1 = GUICtrlCreateIcon("C:\WINDOWS\explorer.exe", -16, 24, 24, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon2 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -131, 24, 64, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon3 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -35, 24, 104, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon4 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -140, 24, 144, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon5 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -149, 24, 184, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
$Icon6 = GUICtrlCreateIcon("C:\WINDOWS\system32\shell32.dll", -166, 24, 224, 32, 32, BitOR($SS_NOTIFY,$WS_GROUP))
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Hallo ich wollte mir für selbsterstelltes Menü die Schreibarbeit sparen,
in dem ich eine INI-Datei inlese und die Werte in eine Variable einlesen.
Habe mir gedacht der Befehl
[autoit]
$Programmname & $i = IniRead($file,'programm' & $i,'name','false')
dieses Ergebnis bringt.
$Programmname1 = IniRead($file,'programm1','name','false')
also $Programmname1 auf "Adobe Reader v9.0" setzt und
$Programmexe1 auf "AdbeRdr90_de_DE.exe" setzt.
Nur leider ist da meine Denkweise falsch, weil es funktioniert nicht
wie müsste die Syntax lauten, das ich auf das Ergebniss komme.
Vielen Dank für eure Hilfe
Das AutoIt Script
[autoit]
$file = 'C:\programme.ini'
;~ Auslesen
for $i = 1 to 10
$Programmname & $i = IniRead($file,'programm' & $i,'name','false')
$Programmexe & $i = IniRead($file,'programm' & $i,'exe','false')
Next
;Prüfung
for $i = 1 to 10
MsgBox (64, $i , $Programm & $i)
Next
Das INI-File
[programm1]
name=Adobe Reader v9.0
exe=AdbeRdr90_de_DE.exe
[programm2]
name=µTorrent v1.8
exe=utorrent14458.exe
[programm3]
name=AVG AntiVirus v8.5
exe=avg_free_stf_eu_85_278a1439.exe
[programm4]
name=eMule v48a
exe=eMule0.48a-Installer.exe
[programm5]
name=KMPlayer
exe=The_KMPlayer_1434.exe
[programm6]
name=iTunes
exe=iTunesSetup_v8.0.2.20.exe
[programm7]
name=Skype v4.0
exe=SkypeSetupFull.exe
[programm8]
name=PDFCreator v0.9.7
exe=PDFCreator-0_9_7_setup.exe
[programm9]
name=7zip v4.65
exe=7z465.exe
[programm10]
name=UltraVNC v1.0.5
exe=UltraVNC_105_Setup_W32.exe
Alles anzeigen
Hallo wie kann ich in Autoit ein Menü mit Icons rechts Checkbox und dann den Text erstellen ?
Danke
Hier das Ergebniss so wie es dann auschauen soll:
[Blockierte Grafik: http://f.imagehost.org/0674/menue01.jpg]
Und so schauts bei mit aus
[Blockierte Grafik: http://f.imagehost.org/0673/menu02.jpg]
Leider nur der Text oder das Icon (siehe Checkbox1)
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test", 327, 200, 193, 115)
$Checkbox1 = GUICtrlCreateCheckbox("Pinnacle Studio Plus 10", 80, 8, 217, 17,$BS_ICON)
GUICtrlSetImage($Checkbox1,"shell32.dll",5)
$Checkbox2 = GUICtrlCreateCheckbox("PowerDVD 6 CLJ Deluxe", 80, 40, 217, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Quicktime 7.0.4 Pro", 80, 72, 217, 17)
$Checkbox4 = GUICtrlCreateCheckbox("TMPGEnc 3.0 XPress", 80, 104, 217, 17)
$Checkbox5 = GUICtrlCreateCheckbox("VLC media player", 80, 136, 217, 17)
$Checkbox6 = GUICtrlCreateCheckbox("Winamp Pro 5.22", 80, 168, 217, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Puh HTA Dateien kann man nicht mit Autoit steuern. Aber wenn du sie mit Notepad öffnest siehst du alle
Aufrufe der installations Routinen, du könntes diese mit einem Batch installieren, und dann das Autoit Script aufrufen
Windows Installer Version 3.1v2
WindowsInstaller-KB893803-v2-x86--V3_1_4000_2435.exe /norestart /quiet
Microsoft .NET Framework Version 2.0
dotnetfx.exe /q:a /c:"Install /l /q
Microsoft .NET Framework Language Pack
LangPack.exe /q:a /c:"Install /l /q
Microsoft XML Parser (MSXML) 4.20
msiexec.exe /qn /i msxmlger.ms
Microsoft Visual Basic for Applications core
msiexec.exe /qn /i VBAOF11.MSI
Microsoft Visual Basic for Applications localized
msiexec.exe /qn /i VBAOF11I.MSI
DirectX 9c
DXSETUP.exe /silent
DHTML Editing Control for Applications
msiexec.exe /qn /i DhtmlEd.msi
Alles anzeigen
Der AutoIt code funktioniert leider noch nicht, schätze es gibt noch Fehler mit Leerzeichen im Quellordner
[autoit]
#RequireAdmin
if FileExists (@TempDir & '\prerequisite') Then DirRemove(@TempDir & '\prerequisite', 1)
RunWait (@ScriptDir & '\msspp08090401de.exe -c -t:' & @TempDir & '\prerequisite')
[/autoit][autoit][/autoit][autoit]TrayTip ("Windows Installer Version 3.1v2"," ",30,1)
RunWait ('"' & @TempDir & '\prerequisite\WindowsInstaller-KB893803-v2-x86--V3_1_4000_2435.exe" /norestart /quiet')
TrayTip ("Microsoft .NET Framework Version 2.0"," ",30,1)
RunWait ('"' & @TempDir & '\prerequisite\dotnetfx.exe" /q:a /c:Install /l /q')
TrayTip ("Microsoft .NET Framework Language Pack"," ",30,1)
RunWait ('"' & @TempDir & '\prerequisite\LangPack.exe" /q:a /c:Install /l /q')
TrayTip ("Microsoft XML Parser (MSXML) 4.20"," ",30,1)
RunWait (@SystemDir & '\msiexec.exe /qn /i "' & @TempDir & '\prerequisit\msxmlger.msi"')
TrayTip ("Microsoft Visual Basic for Applications core"," ",30,1)
RunWait (@SystemDir & '\msiexec.exe /qn /i "' & @TempDir & '\prerequisit\VBAOF11.MSI"')
TrayTip ("Microsoft Visual Basic for Applications localized"," ",30,1)
RunWait (@SystemDir & '\msiexec.exe /qn /i "' & @TempDir & '\prerequisit\VBAOF11I.MSI"')
TrayTip ("DirectX 9c"," ",30,1)
RunWait ('"' & @TempDir & '\prerequisite\DXSETUP.exe" /silent')
TrayTip ("DHTML Editing Control for Applications"," ",30,1)
RunWait (@SystemDir & '\msiexec.exe /qn /i "' & @TempDir & '\prerequisit\DhtmlEd.msi"')
DirRemove(@TempDir & '\prerequisite', 1)
[/autoit]Und hier das Script, der ausskommentierte Teil sollte eigentlich das XM-Prerequisite Paket installieren
nur leider ist das eine Internet Explorer_Server Klasse, und da war der sendkeys zu schnell.
Dein MSI funktioniert, nur rufe ich es über den run Befehl auf und da daher mit "C:\WINDOWS\System32\msiexec.exe /i"
Findest du so raus, Die Infos zu den Buttons siehst du auf diesem 2, Bild
Ich empfehle zu testen immer eine Virtuelle Maschine (VMware und VirtualPC) da kannst du alles testen.
Hoffe geholfen zu haben.
Ciao
XTC99
[Blockierte Grafik: http://www2.picfront.org/picture/u5ZRG1mk/img/01.jpg]
[Blockierte Grafik: http://www2.picfront.org/picture/PiJw0DfYkx/img/Zwischenablage.jpg]
#RequireAdmin
;~ run (@ScriptDir & '\msspp08090401de.exe')
[/autoit][autoit][/autoit][autoit];~ WinWaitClose ("MicroStation V8 XM Edition Software Prerequisite Pack","Cancel")
[/autoit][autoit][/autoit][autoit];~ WinWait("MicroStation V8 XM Edition Software Prerequisite Pack")
;~ WinActivate ("MicroStation V8 XM Edition Software Prerequisite Pack")
;~ Send("{TAB}{TAB}{ENTER}") ; Da leider Internet Explorer_Server Klasse nur mit send Keys installieren, möglich
;~ WinWait("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet")
;~ WinActivate ("MicroStation V8 XM Edition Software Prerequisite Pack","Der Installationsvorgang ist beendet")
;~ ControlClick ("MicroStation V8 XM Edition Software Prerequisite Pack", "OK", "Button1")
run (@SystemDir & '\msiexec.exe /i "' & @ScriptDir & '\Bentley_Redline.msi"')
[/autoit][autoit][/autoit][autoit]WinWait("Bentley Redline XM Edition - InstallShield Wizard","Willkommen beim InstallShield Wizard für Bentley Redline XM Edition")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Weiter >", "Button1")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Lizenzvereinbarung")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "Ich &akzeptiere die Bedingungen der Lizenzvereinbarung", "Button3")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Weiter >", "Button5")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Zielordner")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Weiter >", "Button1")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Verknüpfungen konfigurieren")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Weiter >", "Button1")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Setuptyp")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Weiter >", "Button5")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Bereit das Programm zu installieren")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Installieren", "Button1")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","InstallShield Wizard abgeschlossen")
WinActivate ("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick ("Bentley Redline XM Edition - InstallShield Wizard", "&Fertigstellen", "Button1")
Ist das Programm Freeware ?
Kannst du mir den Link schicken, dann teste ich es heute Abend selbst
Ciao
Schätze es liegt an der falschen Text des Buttons:
So könnte es funktionieren:
[autoit]
ShellExecuteWait("G:\Bentley Redline.msi")
WinWait("Bentley Redline XM Edition - InstallShield Wizard","Willkommen beim InstallShield Wizard")
WinActivate("Bentley Redline XM Edition - InstallShield Wizard")
ControlClick("Bentley Redline XM Edition - InstallShield Wizard","&Weiter >","Button1") ; zieh das Steuerkreutz von Au3Info auf den Button Weiter für den richtigen Text
Danke @ Padmak habe es gelöst
[autoit]#include <Inet.au3>
#include <String.au3>
$url = 'http://www.picfront.org/d/o6wNMwSJ/tux_kill_msn.jpg'
$link_elemente = StringSplit($url, "/")
$bildnr = ($link_elemente[0])
$bild = ($link_elemente[$bildnr])
$file = (_INetGetSource($url))
$anfang = 'requestURI: "' ;Textfeld davor
$ende = $bild ;Textfeld dahinter
$gesucht = _StringBetween($file, $anfang, $ende)
MsgBox(64,$bild, $gesucht[0] & $ende)
[/autoit][autoit][/autoit][autoit][/autoit]@Stilgar
Deine Lösung schaut auch klasse aus, allerdings will ich mir dann mit allen Links eine Liste erstellen die ich dann mit
meinen Downloadmanger runterlade.
Danke
Ciao
D