Beiträge von McPoldy

McPoldy

Öhm leider habe ich GUIScrollBars.au3 nicht, könntest Du das vielleicht mal posten?

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.

McPoldy

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
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.de

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

Script Function:
Alcohol120 1.9.7.6022

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

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

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

;~ Optionen setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)

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

;~ Installationspfad
$setup = @ScriptDir & "\Alcohol120_trial_1.9.7.6022.exe"

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

;~ BlockInput(1)
$neustart = @ScriptDir & "\neustart.txt"

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

If FileExists($neustart) Then
$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

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

; Die normale Installation
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")

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

Func Nachneustart1()
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

EndFunc

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

Func OhneNeustart()
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

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

; Hier wird der RestartPrüfpunkt gesetzt
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc

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

McPoldy

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
Author: J. Kröger
Websites: http:\\blog.kroegers-web.de
http:\\http://www.autoitscript.de
http:\\http://www.autoit.de

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

Script Function:
DAEMON Tools Lite 4.12.0

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

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

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

;~ Optionen setzen
Opt("WinTitleMatchMode", 2)
Opt("SendKeyDelay", 100)

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

;~ Installationspfad
$setup = @ScriptDir & "\daemon4120-lite.exe"

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

;~ BlockInput(1)
$neustart = @ScriptDir & "\neustart.txt"

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

If FileExists($neustart) Then
$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

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

; Die normale Installation
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
EndFunc

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

Func Nachneustart1()
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

EndFunc

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

Func OhneNeustart()
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

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

; Hier wird der RestartPrüfpunkt gesetzt
Func CreateRestart($Funktionsname)
$fso = FileOpen($neustart,2)
FileWriteLine($fso,$Funktionsname)
FileClose($fso)
FileCreateShortcut(@ScriptFullPath,@StartupDir & "\autoitscriptneustart.lnk",@ScriptDir)
EndFunc

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

McPoldy

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)
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

[/autoit]

McPoldy

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]

Opt("SendKeyDelay", 100) ;5 milliseconds

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

Dim $setup
Dim $key
$setup = ".\install\avast.exe" ;Pfad zur Installationsdatei
$key = "xxxxxxxxxxxxxxxxxxxxx" ;Serinnummer von Avast

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

BlockInput(1)
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")

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

Run(@ProgramsDir & "\Alwil Software\Avast4\ashAvast.exe") ; klappt nur wenn man den Standartpfad nimmt
WinWaitActive("Registrierung")
Send($key)
Send("!o")
Sleep(1500)
Send("!o")
WinWaitActive("avast! - simple user interface")
Send("!{F4}")
Sleep(1500)
Send("!{F4}")
BlockInput(0)

[/autoit]

McPoldy

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.

McPoldy

HI, ich habe grade zwar ein recht ruckeliges bild bekommen aber immer hin

so war das Skript vorher:

Code

While 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

Alles anzeigen

so hab ich ihn

Code

While 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

Alles anzeigen

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.

McPoldy

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

McPoldy

Moin,

meinste sowas:

[autoit]

#include <GuiConstants.au3>
Dim $List_1, $List_2, $List_2_tmp

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

GuiCreate("MyGUI", 392, 616,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))

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

$List_1 = GUICtrlCreateListView("Hosts", 10, 10, 170, 292)
GUICtrlCreateListViewItem ("wszhxy",$List_1)
GUICtrlCreateListViewItem ("wszhxyz",$List_1)
$List_2 = GUICtrlCreateEdit("List2", 190, 10, 190, 292)
GUICtrlSetState(-1,$GUI_DROPACCEPTED)

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

GuiSetState()
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

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

Beiträge von McPoldy

GUI mit Scrollbalken - Problem Icon an der falschen Stelle

Moin moin

Automationsscripte ( einge fertig einige funzen nicht )

Automationsscripte ( einge fertig einige funzen nicht )

Automationsscripte ( einge fertig einige funzen nicht )

Automationsscripte ( einge fertig einige funzen nicht )

Aus einer Func herausspringen?

Bildschirm per TCP senden

Programm läuft als Dienst

Drop ohne zu überschreiben?