Beiträge von BIOBAUA

IE8 Internetoption auslesen

BIOBAUA

18. August 2013 um 21:31
Hi,
über die Registry geht das ganz einfach und im Hintergrund.
[autoit]

$key = ("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\")
$value = ("1609")
$State = RegRead($key, $value)
[/autoit][autoit][/autoit][autoit]
;~ State = 0 -> Gemischte Inhalte: Aktiviert
;~ State = 1 -> Gemischte Inhalte: Bestätigen
;~ State = 3 -> Gemischte Inhalte: Deaktiviert
[/autoit][autoit][/autoit][autoit]
If $State = ("0") Then
MsgBox(262208, "", "Gemischte Inhalte aktiviert!")
Else
$msg = MsgBox(262212, "Internetoptionen", "Gemischte Inhalte aktivieren?")
Switch $msg
Case 6
RegWrite($key, $value, "REG_DWORD", 0)
MsgBox(262208, "", "Gemischte Inhalte aktiviert!")
EndSwitch
EndIf
[/autoit]
Multiple MouseGetPos mit GUI

BIOBAUA

13. August 2013 um 17:47
Hi,
schön das dir meine version geholfen hat.
Das mit der Verzögerung stimmt (hab's aber drin gelassen weils schon da war).
Meinen Script kannts auch gern im Startpost anhängen.
MfG
Multiple MouseGetPos mit GUI

BIOBAUA

13. August 2013 um 13:01
Hi,
dein Skript hat mir ganz gut gefallen.
Wenn Du die GUI zentrieren willst reicht es bei GUICreate("Titel", "width", "height", "left", "top") bei "left" und "top" -1 einzutragen.
Sonst siehts aber ganz gut aus.
Hier mal meine umsetzung:

Spoiler anzeigen

[autoit][/autoit] [autoit][/autoit] [autoit]
#region ;Includes
#include <Date.au3>
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#endregion ;Includes
[/autoit] [autoit][/autoit] [autoit]
#region ;Hotkeys/Optionen
HotKeySet("{ESC}", "_kill")
Opt("MustDeclareVars", 0)
TraySetClick(0)
#endregion ;Hotkeys/Optionen
[/autoit] [autoit][/autoit] [autoit]
#region ;Variablen
Global Const $dir = (@ScriptDir & "\")
Global Const $prog = (@ScriptName)
Global Const $config = ("MultibleMousePos_v2.config")
Global Const $log = ("MultibleMousePos_v2.log")
$anzahl = ("")
$abstand = ("")
$count = ("")
$MPos = ("")
$record = ("")
$fc = ("")
#endregion ;Variablen
[/autoit] [autoit][/autoit] [autoit]
#region ;GUI1
$GUI1 = GUICreate("Koordinator_v2 @Biobaua", 400, 145, -1, -1)
GUISetCursor(2, 1)
GUISetFont(10, "", "", "Calibri")
GUISetBkColor(0xC3C3C3)
[/autoit] [autoit][/autoit] [autoit]
$Label1 = GUICtrlCreateLabel(" Anzahl (Klick's): ", 25, 25, 140, 20, 0x0200)
$Label2 = GUICtrlCreateLabel(" Zeitabstand (Sekunden): ", 25, 50, 140, 20, 0x0200)
$Input1 = GUICtrlCreateInput(IniRead($dir & $config, "CONFIG", "ANZAHL", ""), 170, 25, 205, 20, 0x2100)
$Input2 = GUICtrlCreateInput(IniRead($dir & $config, "CONFIG", "ABSTAND", ""), 170, 50, 205, 20, 0x2100)
$Button1 = GUICtrlCreateButton("Starten", 25, 100, 75, 25, 0x8000)
$Button2 = GUICtrlCreateButton("Log löschen", 100, 100, 100, 25, 0x8000)
$Button3 = GUICtrlCreateButton("Config löschen", 200, 100, 100, 25, 0x8000)
$Button4 = GUICtrlCreateButton("Speichern", 300, 100, 75, 25, 0x8000)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetCursor($Input1, 5)
GUICtrlSetCursor($Input2, 5)
GUICtrlSetBkColor($Label1, 0xA3A3A3)
GUICtrlSetBkColor($Label2, 0xA3A3A3)
GUICtrlSetBkColor($Button1, 0xA3A3A3)
GUICtrlSetBkColor($Button2, 0xA3A3A3)
GUICtrlSetBkColor($Button3, 0xA3A3A3)
GUICtrlSetBkColor($Button4, 0xA3A3A3)
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $GUI1)
WinSetOnTop($GUI1, "", 1)
#endregion ;GUI1
[/autoit] [autoit][/autoit] [autoit]
_StartUpCheck() ;Überprüft ob programm max 1x ausgeführt wird
[/autoit] [autoit][/autoit] [autoit]
#region ;Schleife
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE ;Programm schließen
_kill()
Case $Label1 ;Fokus auf Input1
ControlClick("", "", $Input1)
Case $Label2 ;Fokus auf Input2
ControlClick("", "", $Input2)
Case $Button1 ;Aufnahme starten
_Start(GUICtrlRead($Input1), GUICtrlRead($Input2) * 1000)
Case $Button2 ;LOG Löschen/öffnen
If _IsPressed("11", "user32.dll") Then
_Open($dir & $log)
Else
_Delete($dir & $log)
EndIf
Case $Button3 ;CONFIG Löschen/öffnen
If _IsPressed("11", "user32.dll") Then
_Open($dir & $config)
Else
_Delete($dir & $config)
GUICtrlSetData($Input1, "")
GUICtrlSetData($Input2, "")
EndIf
Case $Button4 ;Config speichern
_SaveConfig(GUICtrlRead($Input1), GUICtrlRead($Input2))
EndSwitch
[/autoit] [autoit][/autoit] [autoit]
_Check() ;Überprüft GUI Buttons
WEnd
#endregion ;Schleife
[/autoit] [autoit][/autoit] [autoit]
#region ;Funktionen
Func _StartUpCheck() ;OK
If _Singleton($prog, 1) = 0 Then ;OK
MsgBox(262160, "Fehler!", $prog & " wird bereits ausgeführt!")
_kill()
EndIf
EndFunc ;==>_StartUpCheck
[/autoit] [autoit][/autoit] [autoit]
Func _Start($anzahl, $abstand) ;
GUISetState(@SW_DISABLE, $GUI1)
GUICtrlSetBkColor($Input1, 0xFFFFFF)
GUICtrlSetBkColor($Input2, 0xFFFFFF)
[/autoit] [autoit][/autoit] [autoit]
If $anzahl = ("") Or $anzahl = ("0") Then
GUICtrlSetBkColor($Input1, 0xFF0000)
GUISetState(@SW_ENABLE, $GUI1)
ControlClick("", "", $Input1)
_WriteLog("Anzahl ist leer")
Return
Else
GUICtrlSetBkColor($Input1, 0x00FF00)
EndIf
[/autoit] [autoit][/autoit] [autoit]
If $abstand = ("") Or $abstand = ("0") Then
GUICtrlSetBkColor($Input2, 0xFF0000)
GUISetState(@SW_ENABLE, $GUI1)
ControlClick("", "", $Input2)
_WriteLog("Abstand ist leer")
Return
Else
GUICtrlSetBkColor($Input2, 0x00FF00)
EndIf
[/autoit] [autoit][/autoit] [autoit]
$fc = 0
Do
$fc += 1
Until Not FileExists("Aufnahme_" & $fc & ".ini")
$record = ("Aufnahme_" & $fc & ".ini")
[/autoit] [autoit][/autoit] [autoit]
_WriteLog("=====[Aufnahme gestartet]=====")
_WriteLog("Datei: " & $record)
_WriteLog("Anzahl: " & $anzahl)
_WriteLog("Abstand: " & $abstand)
[/autoit] [autoit][/autoit] [autoit]
IniWrite($dir & $record, "Info", "Datei", $record)
IniWrite($dir & $record, "Info", "Anzahl", $anzahl)
IniWrite($dir & $record, "Info", "Abstand", $abstand)
[/autoit] [autoit][/autoit] [autoit]
HotKeySet("{ESC}")
GUISetState(@SW_HIDE, $GUI1)
ToolTip("")
MsgBox(262208, "Wichtig!", "Aufnahme wird nach dieser Meldung gestartet" & @CRLF & "ESC zum abbrechen der Aufzeichung!")
[/autoit] [autoit][/autoit] [autoit]
$count = ("0")
Do
$MPos = MouseGetPos()
ToolTip("Klick: " & $count & "/" & $anzahl & " | X: " & $MPos[0] & " Y: " & $MPos[1])
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("01", "user32.dll") Then ;Links klick
$count += 1
IniWrite($dir & $record, "Aufnahme" & $count, "Klick", "Links")
IniWrite($dir & $record, "Aufnahme" & $count, "X", $MPos[0])
IniWrite($dir & $record, "Aufnahme" & $count, "Y", $MPos[1])
_WriteLog("Aufnahme" & $count)
_WriteLog("Links")
_WriteLog("|X= " & $MPos[0])
_WriteLog("|Y= " & $MPos[1])
Do
Sleep(10)
Until Not _IsPressed("01", "user32.dll")
EndIf
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("02", "user32.dll") Then ;Rechts klick
$count += 1
IniWrite($dir & $record, "Aufnahme" & $count, "Klick", "Rechts")
IniWrite($dir & $record, "Aufnahme" & $count, "X", $MPos[0])
IniWrite($dir & $record, "Aufnahme" & $count, "Y", $MPos[1])
_WriteLog("Aufnahme" & $count)
_WriteLog("Rechts")
_WriteLog("|X= " & $MPos[0])
_WriteLog("|Y= " & $MPos[1])
Do
Sleep(10)
Until Not _IsPressed("02", "user32.dll")
EndIf
[/autoit] [autoit][/autoit] [autoit]
If _IsPressed("1B", "user32.dll") Then ;ESC
Do
Sleep(10)
Until Not _IsPressed("1B", "user32.dll")
[/autoit] [autoit][/autoit] [autoit]
ExitLoop
EndIf
[/autoit] [autoit][/autoit] [autoit]
Sleep(10)
Until $count = $anzahl
[/autoit] [autoit][/autoit] [autoit]
_WriteLog("=====[Aufnahme beendet]=====")
[/autoit] [autoit][/autoit] [autoit]
ToolTip("")
If $count = $anzahl Then
MsgBox(262208, "Wichtig!", "Aufzeichnung abgeschlossen!")
Else
MsgBox(262160, "Wichtig!", "Aufzeichung abgebrochen!")
EndIf
[/autoit] [autoit][/autoit] [autoit]
GUISetState(@SW_SHOW, $GUI1)
HotKeySet("{ESC}", "_kill")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetBkColor($Input1, 0xFFFFFF)
GUICtrlSetBkColor($Input2, 0xFFFFFF)
GUISetState(@SW_ENABLE, $GUI1)
EndFunc ;==>_Start
[/autoit] [autoit][/autoit] [autoit]
Func _SaveConfig($anzahl, $abstand) ;OK
GUISetState(@SW_DISABLE, $GUI1)
GUICtrlSetBkColor($Input1, 0xFFFFFF)
GUICtrlSetBkColor($Input2, 0xFFFFFF)
[/autoit] [autoit][/autoit] [autoit]
If $anzahl = ("") Or $anzahl = ("0") Then
GUICtrlSetBkColor($Input1, 0xFF0000)
GUISetState(@SW_ENABLE, $GUI1)
ControlClick("", "", $Input1)
_WriteLog("Anzahl ist leer")
Return
Else
GUICtrlSetBkColor($Input1, 0x00FF00)
EndIf
[/autoit] [autoit][/autoit] [autoit]
If $abstand = ("") Or $abstand = ("0") Then
GUICtrlSetBkColor($Input2, 0xFF0000)
GUISetState(@SW_ENABLE, $GUI1)
ControlClick("", "", $Input2)
_WriteLog("Abstand ist leer")
Return
Else
GUICtrlSetBkColor($Input2, 0x00FF00)
EndIf
[/autoit] [autoit][/autoit] [autoit]
IniWrite($dir & $config, "CONFIG", "ANZAHL", $anzahl)
IniWrite($dir & $config, "CONFIG", "ABSTAND", $abstand)
_WriteLog("Konfiguration gespeichert!")
GUICtrlSetBkColor($Input1, 0xFFFFFF)
GUICtrlSetBkColor($Input2, 0xFFFFFF)
GUISetState(@SW_ENABLE, $GUI1)
EndFunc ;==>_SaveConfig
[/autoit] [autoit][/autoit] [autoit]
Func _Check() ;OK
;Sperrt und entsperrt Button2
If FileExists($dir & $log) And GUICtrlGetState($Button2) = ("144") Then
GUICtrlSetState($Button2, $GUI_ENABLE)
ElseIf Not FileExists($dir & $log) And GUICtrlGetState($Button2) = ("80") Then
GUICtrlSetState($Button2, $GUI_DISABLE)
EndIf
[/autoit] [autoit][/autoit] [autoit]
;Sperrt und entsperrt Button3
If FileExists($dir & $config) And GUICtrlGetState($Button3) = ("144") Then
GUICtrlSetState($Button3, $GUI_ENABLE)
ElseIf Not FileExists($dir & $config) And GUICtrlGetState($Button3) = ("80") Then
GUICtrlSetState($Button3, $GUI_DISABLE)
EndIf
[/autoit] [autoit][/autoit] [autoit]
;Änder Button2 Text
If _IsPressed("11", "user32.dll") And GUICtrlRead($Button2) = ("Log löschen") And GUICtrlGetState($Button2) = ("80") Then
GUICtrlSetData($Button2, "Log öffnen")
ElseIf Not _IsPressed("11", "user32.dll") And GUICtrlRead($Button2) = ("Log öffnen") Then
GUICtrlSetData($Button2, "Log löschen")
EndIf
[/autoit] [autoit][/autoit] [autoit]
;Änder Button3 Text
If _IsPressed("11", "user32.dll") And GUICtrlRead($Button3) = ("Config löschen") And GUICtrlGetState($Button3) = ("80") Then
GUICtrlSetData($Button3, "Config öffnen")
ElseIf Not _IsPressed("11", "user32.dll") And GUICtrlRead($Button3) = ("Config öffnen") Then
GUICtrlSetData($Button3, "Config löschen")
EndIf
EndFunc ;==>_Check
[/autoit] [autoit][/autoit] [autoit]
Func _Open($data) ;OK
GUISetState(@SW_DISABLE, $GUI1)
If FileExists($data) Then ShellExecuteWait("C:\Windows\system32\notepad.exe", $data)
GUISetState(@SW_ENABLE, $GUI1)
EndFunc ;==>_Open
[/autoit] [autoit][/autoit] [autoit]
Func _Delete($data) ;OK
GUISetState(@SW_DISABLE, $GUI1)
If FileExists($data) Then FileDelete($data)
GUISetState(@SW_ENABLE, $GUI1)
EndFunc ;==>_Delete
[/autoit] [autoit][/autoit] [autoit]
Func _WriteLog($text) ;OK
FileWriteLine($dir & $log, _NowDate() & "|" & _NowTime(5) & " > " & $text)
EndFunc ;==>_WriteLog
[/autoit] [autoit][/autoit] [autoit]
Func _kill() ;OK
Exit
EndFunc ;==>_kill
#endregion ;Funktionen
[/autoit] [autoit][/autoit] [autoit][/autoit]

[Fehler bitte melden. Danke]
[Kritik, Lob, Verbesserungsvorschläge sind gern gesehen ]
Script mit Countdown als Wartefenster

BIOBAUA

5. Mai 2013 um 21:10
Hi,
vielleicht so?
[autoit]

#NoTrayIcon
[/autoit][autoit][/autoit][autoit]
;Variablen
$h = @HOUR
$m = @MIN
$start = TimerInit()
$Time = ("25") ; Zeit in Sekunden. Wird alles im Script umgerechnet
[/autoit][autoit][/autoit][autoit]
ProgressOn("Programmstatus", "Gestartet um: " & $h & ":" & $m & " Uhr")
[/autoit][autoit][/autoit][autoit]
While 1
_calcTimeleft()
_doOtherStuff()
Sleep(10)
WEnd
[/autoit][autoit][/autoit][autoit]
;Verbliebene Zeit
Func _calcTimeleft() ;OK
$check = Round(Round(TimerDiff($start), 0) / 1000, 0)
$percent = ($check * 100 / $Time)
ProgressSet($percent & "%", $percent & "%")
If $check = ($Time) Then
Sleep(300)
ProgressOff()
_done($check)
EndIf
EndFunc ;==>_calcTimeleft
[/autoit][autoit][/autoit][autoit]
;Dein Script
Func _doOtherStuff() ;OK
;
;
;SCRIPT
;
;
EndFunc ;==>_doOtherStuff
[/autoit][autoit][/autoit][autoit]
;Fertig
Func _done($zeit) ;OK
MsgBox(262144, "Done", "Zeit: " & $zeit)
Exit
EndFunc ;==>_done
[/autoit]

In deinem Webbrowser ist JavaScript deaktiviert. Um alle Funktionen dieser Website nutzen zu können, muss JavaScript aktiviert sein.