Öhm leider habe ich GUIScrollBars.au3 nicht, könntest Du das vielleicht mal posten?
Beiträge von McPoldy
-
-
Hallo erst mal,
ich wollte mich auch mal kurz vorstellen.
Also ich bin so ca. 30 und habe vor einigen Monaten mal angefangen mit AutoIT rum zu spielen, da ich eigentlich ein fauler Hund bin und einfache Sachen brauchte wie z. B. für meine Datenbanken, etc. Irgend wann habe ich dann bemerkt, das ich ja auch alle Freunde und Bekannte damit abspeisen kann Ihnen einfach ein Skript zur Verfügung zu stellen und ich nicht immer selber hinfahren muss
Warum bin ich hier? Ganz klar, wer alles weiß hat gar keine Ahnung und ich hoffe ich lerne hier noch einiges und kann auch anderen ab und zu mal helfen.
-
Hier die Alcohol 120% Lösung, auch mit neustart, aber auch ohne neustart, wenn z. B. vorher schon DeamonTools installiert wurde.
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.10.0
[/autoit] [autoit][/autoit] [autoit]
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.deScript Function:
[/autoit] [autoit][/autoit] [autoit]
Alcohol120 1.9.7.6022#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];~ Optionen setzen
[/autoit] [autoit][/autoit] [autoit]
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100);~ Installationspfad
[/autoit] [autoit][/autoit] [autoit]
$setup = @ScriptDir & "\Alcohol120_trial_1.9.7.6022.exe";~ BlockInput(1)
[/autoit] [autoit][/autoit] [autoit]
$neustart = @ScriptDir & "\neustart.txt"If FileExists($neustart) Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@StartupDir & "\autoitscriptneustart.lnk")
Switch $value
Case "Nachneustart1"
Nachneustart1()
Case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit; Die normale Installation
[/autoit] [autoit][/autoit] [autoit]
Func Main()
Run($setup)
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","License Agreement")
Send("!a")
$result = WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Setup must restart Windows and continue installation after reboot",10)
If $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
Exit 0
Else
OhneNeustart()
EndIf
EndFunc
;~ WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","")
;~ Send("!n")Func Nachneustart1()
[/autoit] [autoit][/autoit] [autoit]
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","License Agreement")
Send("!a")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Alcohol Soft Data Type Search")
Send("{SPACE}")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Components")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Install Location")
Send("!i")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Completing the Alcohol 120% Setup Wizard")
Send("!f")
Send("#d")
Sleep(15000)
Send("!o")
Exit 0
EndFuncFunc OhneNeustart()
[/autoit] [autoit][/autoit] [autoit]
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Alcohol Soft Data Type Search")
Send("{SPACE}")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Components")
Send("!n")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Choose Install Location")
Send("!i")
WinWaitActive("Alcohol 120% Trial Version 1.9.7.6022","Completing the Alcohol 120% Setup Wizard")
Send("!f")
Send("#d")
Sleep(15000)
Send("!o")
Exit 0
EndFunc; Hier wird der RestartPrüfpunkt gesetzt
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc -
Hier mal mein Skript zu Deamon Tools Lite 4.12.0 inkl Neustart und schließen der Webfenster.
Spoiler anzeigen
[autoit][/autoit] [autoit][/autoit] [autoit]#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.2.10.0
[/autoit] [autoit][/autoit] [autoit]
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.deScript Function:
[/autoit] [autoit][/autoit] [autoit]
DAEMON Tools Lite 4.12.0#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit];~ Optionen setzen
[/autoit] [autoit][/autoit] [autoit]
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100);~ Installationspfad
[/autoit] [autoit][/autoit] [autoit]
$setup = @ScriptDir & "\daemon4120-lite.exe";~ BlockInput(1)
[/autoit] [autoit][/autoit] [autoit]
$neustart = @ScriptDir & "\neustart.txt"If FileExists($neustart) Then
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$fso = FileOpen($neustart,0)
$value = FileReadLine($fso)
FileClose($fso)
FileDelete($neustart)
FileDelete(@StartupDir & "\autoitscriptneustart.lnk")
Switch $value
Case "Nachneustart1"
Nachneustart1()
Case Else
EXIT 5
EndSwitch
Else
Main()
EndIf
Exit; Die normale Installation
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Func Main()
CreateRestart("Nachneustart1")
Run($setup)
WinWaitActive("DAEMON Tools Lite 4.12.0")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","License Agreement")
Send("!a")
$result = WinWaitActive("DAEMON Tools Lite 4.12.0","Setup must restart Windows and continue installation after reboot",10)
If $result = 1 Then
CreateRestart("Nachneustart1")
Send("{ENTER}")
Exit 0
Else
OhneNeustart()
EndIf
EndFuncFunc Nachneustart1()
[/autoit] [autoit][/autoit] [autoit]
WinWaitActive("DAEMON Tools Lite 4.12.0","Welcome to the DAEMON Tools Lite 4.12.0 Setup Wizard",30000)
WinActive("DAEMON Tools Lite 4.12.0")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","License Agreement")
Send("!a")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Components")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team")
ControlClick("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team","Button2")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Install Location")
Send("!i")
WinWaitActive("DAEMON Tools Lite 4.12.0","Completing the DAEMON Tools Lite Setup Wizard")
Send("!f")
WinWaitActive("Thank you for DAEMON Tools Lite","")
$CloseWeb = 0
While $CloseWeb = 0
$CloseWeb = WinClose("Thank you for DAEMON Tools Lite","")
Sleep(500)
WEnd
WinWaitActive("Daemon Tools Pro comes with ads -- Please read this carefully")
Send("{ESC}")
$CloseWeb = 0
$result = 0
While $CloseWeb = 0
WinActive("Web Search :: DAEMON-Search.com")
$CloseWeb = WinClose("Web Search :: DAEMON-Search.com","")
Sleep(500)
if $result >= 10 Then Exit 0
$result = $result + 1
WEnd
Exit 0
EndFuncFunc OhneNeustart()
[/autoit] [autoit][/autoit] [autoit]
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Components")
Send("!n")
WinWaitActive("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team")
ControlClick("DAEMON Tools Lite 4.12.0","Support the DAEMON Tools Team","Button2")
WinWaitActive("DAEMON Tools Lite 4.12.0","Choose Install Location")
Send("!i")
WinWaitActive("DAEMON Tools Lite 4.12.0","Completing the DAEMON Tools Lite Setup Wizard")
Send("!f")
WinWaitActive("Thank you for DAEMON Tools Lite","")
$CloseWeb = 0
While $CloseWeb = 0
$CloseWeb = WinClose("Thank you for DAEMON Tools Lite","")
Sleep(500)
WEnd
WinWaitActive("Daemon Tools Pro comes with ads -- Please read this carefully")
Send("{ESC}")
$CloseWeb = 0
$result = 0
While $CloseWeb = 0
WinActive("Web Search :: DAEMON-Search.com")
$CloseWeb = WinClose("Web Search :: DAEMON-Search.com","")
Sleep(500)
if $result >= 10 Then Exit 0
$result = $result + 1
WEnd
Exit 0
EndFunc; Hier wird der RestartPrüfpunkt gesetzt
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc -
Dies ist mein Skript zum installieren von Office 2003 Prof. mit allen Komponenten.
Spoiler anzeigen
[autoit]Opt("SendKeyDelay", 100) ;5 milliseconds
[/autoit] [autoit][/autoit] [autoit]BlockInput(1)
[/autoit]
Dim $Setup, $SN
$Setup = ".\install\setup.exe" ;pfad zum setup
$SN = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx" ;seriennummer
Run($Setup)
WinWaitActive("Microsoft Office 2003-Setup","Product Key")
Sleep(250)
Send($SN)
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Benutzerinformationen")
Send("Officeuser")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Endbenutzer-Lizenzvertrag")
Send("{space}")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Installationsart")
Send("!b")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Wählen Sie die Microsoft Office 2003-Anwendungen, die Sie installieren möchten:")
Send("!n")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Erweiterte Anpassung")
Send("{space}")
Send("{down 2}")
Send("!w")
WinWaitActive("Microsoft Office 2003-Setup","Zusammenfassung")
Send("!i")
WinWaitActive("Microsoft Office 2003-Setup","Setup ist abgeschlossen")
Send("!f")
BlockInput(0)
Exit -
Klappt bei mir gut, nur leider wollte ich nach dem Setup auch gleich noch ein Update laufen lassen, klappt leider noch nicht. Ich weiß das es über eine Kommdozeilen Option geht, hatte aber noch keine Zeit die zu suchen.
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
Opt("SendKeyDelay", 100) ;5 millisecondsDim $setup
[/autoit] [autoit][/autoit] [autoit]
Dim $key
$setup = ".\install\avast.exe" ;Pfad zur Installationsdatei
$key = "xxxxxxxxxxxxxxxxxxxxx" ;Serinnummer von AvastBlockInput(1)
[/autoit] [autoit][/autoit] [autoit]
Run($setup)
WinWaitActive("avast! Antivirus Setup","avast! Setup")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Lies mich")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Lizenzvereinbarung")
Send("!i")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Ziel")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Konfiguration")
Send("!w")
WinWaitActive("avast! Antivirus Setup","Installationsinformation")
Send("!w")
WinWaitActive("Frage")
Send("!n")
WinWaitActive("avast! Antivirus Setup","Setup beendet")
Send("!s")
Send("!b")Run(@ProgramsDir & "\Alwil Software\Avast4\ashAvast.exe") ; klappt nur wenn man den Standartpfad nimmt
[/autoit]
WinWaitActive("Registrierung")
Send($key)
Send("!o")
Sleep(1500)
Send("!o")
WinWaitActive("avast! - simple user interface")
Send("!{F4}")
Sleep(1500)
Send("!{F4}")
BlockInput(0) -
Zitat
Es gibt ja auch den Befehl RETURN. Aber muß ich dann nicht einen Wert zurückgeben?
Nein, einfach RETURN und er spring aus der Func. raus.
-
HI, ich habe grade zwar ein recht ruckeliges bild bekommen aber immer hin
so war das Skript vorher:
Code
Alles anzeigenWhile True $message = TCPRecv($Socket, 16384) Sleep(25) If $message <> "" Then If StringLeft($message,14) = "****ANFANG****" Then ;beim anfang file löschen FileDelete(@ScriptDir & "\Pics.jpg") ElseIf StringRight($message,14) = "******ENDE****" Then ;beim ende show = 1 und nachricht löschen $show = 1 $message = StringTrimRight($message,14) EndIf $FOB = FileOpen(@ScriptDir & "\Pics.jpg", 1) FileWrite($FOB, $message) FileClose($FOB) If $show = 1 Then GUICtrlSetImage($GPic, @ScriptDir & "\Pics.jpg") $show = 0 EndIf $message = "" EndIf WEnd
so hab ich ihn
Code
Alles anzeigenWhile True $message = TCPRecv($Socket, 16384) Sleep(25) If $message <> "" Then If StringLeft($message,14) = "****ANFANG****" Then ;beim anfang file löschen FileDelete(@ScriptDir & "\Pics.jpg") ElseIf StringRight($message,14) = "******ENDE****" Then ;beim ende show = 1 und nachricht löschen $show = 1 $message = StringTrimRight($message,14) Else $FOB = FileOpen(@ScriptDir & "\Pics.jpg", 1) FileWrite($FOB, $message) FileClose($FOB) EndIf If $show = 1 Then GUICtrlSetImage($GPic, @ScriptDir & "\Pics.jpg") $show = 0 EndIf $message = "" EndIf WEnd
Ich habe also nur die if um ein else erweitert und das endif nach unten gesetzt. ich hatte mich gewundert das auf einmal inder pics datei *****ANFANG***** drinnen stand weil es wurde die bild datei immer beschrieben, egal ob nun die bild daten oder der anfang und ende wert gekommen sind.
-
Schau mal nach ob der Hacken gesetzt ist, wenn du es als Dienst am laufen hast....
[Blockierte Grafik: http://img124.imageshack.us/img124/6976/dienstzu9.jpg]
Mfg
McPoldy
-
Moin,
meinste sowas:
[autoit]
[/autoit][autoit][/autoit][autoit]
#include <GuiConstants.au3>
Dim $List_1, $List_2, $List_2_tmpGuiCreate("MyGUI", 392, 616,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
[/autoit][autoit][/autoit][autoit]$List_1 = GUICtrlCreateListView("Hosts", 10, 10, 170, 292)
[/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]
GUICtrlCreateListViewItem ("wszhxy",$List_1)
GUICtrlCreateListViewItem ("wszhxyz",$List_1)
$List_2 = GUICtrlCreateEdit("List2", 190, 10, 190, 292)
GUICtrlSetState(-1,$GUI_DROPACCEPTED)GuiSetState()
[/autoit][autoit][/autoit][autoit][/autoit]
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_DROPPED
if StringLen($List_2_tmp) > 0 Then
$List_2_tmp = $List_2_tmp & @CRLF & GUICtrlRead($List_2)
Else
$List_2_tmp = GUICtrlRead($List_2)
EndIf
GUICtrlSetData($List_2,$List_2_tmp)
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case Else
;;;
EndSelect
WEnd
Exit