So mein ersten nützliches Script ist raus: S.T.A.N - Start-time-Analyser
Was er kann:
->analysiert die Startzeit eines Programmes, welches man zuvor angibt.
Nutzen:
->Man erfährt Programmstartzeit/dauer
->Man kann vor/ nach PC Optimierung schauen, ob sich was geändert hat.
Update(s):
->Es wird jetzt auch die Zeit bis zum Start des Fensters angezeigt.
Hier ein Screen:
[Blockierte Grafik: http://www.supersites.bplaced.net/screen.JPG]
Das Script mit Sourcecode und Koda-datei ist alles im ZIP anbei.
Hier ist der Sourcecode:
Spoiler anzeigen
#include <GUIConstants.au3>
#include <EditConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\sebastian\desktop\autoit\runtimer\starter.kxf
$Form2 = GUICreate("S.T.A.N.", 411, 140, 425, 573)
GUISetBkColor(0x808000)
$Group1 = GUICtrlCreateGroup("Auswertung:", 0, 72, 409, 65)
$Label2 = GUICtrlCreateLabel("Startzeit Prozess:", 8, 88, 399, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("Startzeit Fenster:", 8, 112, 397, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("Programm:", 0, 0, 79, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$in=GUICtrlCreateInput("", 80, 0, 217, 21, BitOR($ES_AUTOHSCROLL,$ES_READONLY))
$Button1 = GUICtrlCreateButton("Durchsuchen", 296, 0, 113, 21, 0)
$Button2 = GUICtrlCreateButton("Start!", 0, 24, 409, 49, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Button1
$opendia = FileOpenDialog("Startprogramm",@windowsdir & "\","Ausführbare Dateien (*.exe)",1)
GUICtrlSetData($in,$opendia)
case $Button2
$in2 = GUICtrlRead($in)
if $in2 = "" Then
msgbox(0,"Fehler","Der Pfad ist leer. Bitte suche eine Datei aus.")
Else
msgbox(0,"S.T.A.N","Die Eingaben werden für maximal 30 Sekunden geblockt.")
blockinput(1)
$timerpro = TimerInit()
$timerwin = TimerInit()
run($in2)
$timediffpro = TimerDiff($timerpro)
GUICtrlSetData($Label2,"Startzeit in ms: " & $timediffpro)
$count= 30000
$win_alt = WinGetTitle("[active]")
while 1
if $count = 0 Then
msgbox(0,"ERROR","Es hat sich kein Fenster geöffnet.")
GUICtrlSetData($Label3,"Startzeit in ms: " & "unbekannt")
blockinput(0)
exitloop
endif
$win_new = WinGetTitle("[active]")
if $win_alt <> $win_new Then
$timediffwin=TimerDiff($timerwin)
GUICtrlSetData($Label3,"Startzeit in ms: " & $timediffwin)
blockinput(0)
exitloop
endif
$count=$count -1
sleep(1)
WEnd
endif
EndSwitch
WEnd
Freue mich auf eine konstruktive Kritik.
Ihr dürft den Sourcecode bearbeiten.