da ja so mancher alles als "bot" bezeichnet habe ich das Thema erstmal freigegeben.
Muss ja kein Bot in unserem Sinne sein.
gemäß dem Sinn nach: In dubio pro reo (lat.)
Beiträge von Schnuffel
-
-
Hallo Stonerrock,
damit Deine Anfrage viele Antworten erhält wäre es hilfreich,
wenn Du alle notwendigen Dateien wie Deine test.txt mit einstellen würdest.Es wird sich kaum einer die Mühe machen selber eine test.txt zu erstellen.
Außerdem kann der "Fehler" ja auch an der test.txt liegen. -
bitte unterscheide zwischen den Eingabegeräten: "Maus" und dem Mauszeiger auf dem Bildschirm.
Mäuse kannst Du an den PC anschließen soviele Du willst.
Steuern werden aber alle immer nur den einen Mauszeiger -
okay,
also erstmal grundsätzlich: in Windows gibt es IMMER nur eine Maus.Ich denke damit ist der Thread beantwortet
-
darf ich Deine Frage neu formulieren so wie ich sie verstanden habe, da ich mit Deiner Frage nicht viel anfangen kann.
Du möchtest an mehreren Stellen nacheinander automatisiert die Maus etwas anklicken lassen?
Richtig?
-
_StringBetween liefert ein Array zurück
vielleicht so:
Spoiler anzeigen
[autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <GuiEdit.au3>
#Include <File.au3>
#Include <WinAPI.au3>
#include <Constants.au3>
#include <IE.au3>
#include <Misc.au3>
#include <Array.au3>
#include <String.au3>#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]dim $termGUI = ""
[/autoit] [autoit][/autoit] [autoit]
dim $oIE1 = _IECreateEmbedded()$hGUI_1 = GUICreate("Test-Anzeige", 600, 600, 0, 0)
[/autoit] [autoit][/autoit] [autoit]
$termGUI = GUICtrlCreateInput("", 5, 5, 300, 25, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_NOHIDESEL))
GUICtrlSetState($termGUI, $GUI_FOCUS)
$hButton_1 = GUICtrlCreateButton("Search", 310, 5, 50, 25, 0)
$hButton_2 = GUICtrlCreateButton("Clear", 365, 5, 50, 25, 0)$Tab1 = GUICtrlCreateTab(5, 40, 590, 535)
[/autoit] [autoit][/autoit] [autoit]
$TabSheet1 = GUICtrlCreateTabItem("Tab1")
$GUIemb1 = GUICtrlCreateObj($oIE1, 15, 65, 570, 595);~ $TabSheet2 = GUICtrlCreateTabItem("Tab2")
[/autoit] [autoit][/autoit] [autoit]GUISetState()
[/autoit] [autoit][/autoit] [autoit];##########################################
[/autoit] [autoit][/autoit] [autoit]Do
[/autoit] [autoit][/autoit] [autoit]
$msg = GUIGetMsg()
Select
Case $msg = $hButton_2
GUICtrlSetData($termGUI, "")
GUICtrlSetState($termGUI, $GUI_FOCUS)
Case $msg = $hButton_1
$sHTML = BinaryToString(InetRead("http://blog.fefe.de/"))
;~ $aMatch = StringRegExp($sHTML, ????????????????????????????????????????????)
$sHTMLcut = _StringBetween($sHTML, '<b>', '</b>')_IENavigate($oIE1, "about:blank", 0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
_IEDocWriteHTML ($oIE1, $sHTMLcut[0])EndSelect
[/autoit]
Until $msg = $GUI_EVENT_CLOSE;To be able to close the Window!
Exit -
Hi Jam00,
dieser Reg-Key könnte helfen:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\SizeName100% sollte sein: NormalSize
120% sollte sein: LargeSize (oder so ähnlich)Nachtrag für Win7:
HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ThemeManager\LastLoadedDPI
andert sich von 96 (100%) bis hin zu 144(150%) -
na dann sag ich nochmal an alle ein
Herzliches Danke Schön -
der gedankliche Witz als Ansatz ist ja ganz nett.
Aber...
1. wird auf einer offiziellen Verlinkung von AutoIt nie ein Copyright eines Users oder sonst wem stehen.
2. ist das überhaupt nicht übersichtlich, geschweige denn hilfreich.
3. zielt das eher darauf ab, jemanden zu verar****** als Ihm wirklich zu helfen mit seinem Problem.
4. Wenn mir so etwas beim Anmelden in einem Forum entgegnen würde, dann wäre ich wieder weg, bevor ich den ersten Thread auch nur gelesen hätte.Daher in der Form ein "No Go"
PS: über den Nutzen solcher Informationen beim Anmelden wurde bereits hinreichend diskutiert.
Leider hat sich gezeigt, dass der Mehrwert eher gegen Null geht.Ach ja, bei "passendes Thema gefunden " gibt es 2 "Nein-Zweige". ...
-
Beispiel:
Spoiler anzeigen
[autoit]Local $hDownload = InetGet("http://ichart.finance.yahoo.com/table.csv?s=LIN.DE&d=6&e=3&f=2011&g=d&a=1&b=1&c=2003&ignore=.csv", @DesktopDir & "\update.csv", 1, 1)
[/autoit]
Do
Sleep(250)
Until InetGetInfo($hDownload, 2) ; Check if the download is complete.
Local $nBytes = InetGetInfo($hDownload, 0)
InetClose($hDownload) ; Close the handle to release resourcs.
MsgBox(0, "", "Bytes read: " & $nBytes) -
Hi Surfy,
hier die Funktion:
So wie die ist habe ich Sie compiliert und ohne Probleme laufen lassen
läuft auch auf Win7 64-bitSpoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
_UpdateTray() ; das ist der Aufruf zu der Funktion.Func _UpdateTray()
[/autoit]
Local $iMode = Opt("WinTitleMatchMode", 4)
Local $hControl = ControlGetHandle("[CLASS:Shell_TrayWnd]", "", "[CLASSNN:ToolbarWindow321]")
Local $acSize = WinGetClientSize($hControl)
For $x = 0 To $acSize[0] Step 5
For $Y = 0 To $acSize[1] Step 5
DllCall("user32.dll", "lparam", "SendMessage", "hwnd", $hControl, "int", 0x0200, "wparam", 0, "lparam", BitOR($Y * 0x10000, BitAND($x, 0xFFFF)))
Next
Next
Opt("WinTitleMatchMode", $iMode)
EndFunc ;==>_UpdateTray -
ich bin für Thread close.
Diese Idee kann in nichts vernünftiges/legales umgesetzt werden. -
nein das geht nicht.
-
Danke an alle für die Glückwünsche.
-
könnte daran liegen,
dass das mit dem anklicken von einem GuiCtrlCreatePic so eine Sache ist ...
mein Fehler ...
Kommentar gestrichen -
also zum Einen ist dein Script-Ausschnitt nicht lauffähig.
Ich habe keine Lust das erst zurecht zu biegen.Zum Anderen ist die Entscheidung über die Ansteuerung vielleicht schon das Problem.
ich würde nie 2 unterschiedliche Funktionen nur durch die Unterscheidung 1-klick / doppelklick.
Das ist schon aus Usersicht äußerst fehlerträchtig. -
nochmal quick & dirty ...
jetzt aber mal selber das Hirn ein wenig anstrengenSpoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>FileInstall ("C:\Users\Tim\Desktop\ICrememberCFG.ini" , "ICrememberCFG.ini")
[/autoit] [autoit][/autoit] [autoit]$t_min = ''
[/autoit] [autoit][/autoit] [autoit]
$t_hour = ''
$t_day = ''
$check1 = False
$check2 = False
$check3 = False
$Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
$Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
GUISetState(@SW_SHOW)$Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
[/autoit] [autoit][/autoit] [autoit]
$Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
$Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
$Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
$Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
$Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
$Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
$Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
$Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
$Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25);Setzen des Statusses f?r Er1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Er1z = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , "5")
GUICtrlSetData ($Input1 , $Er1z)
$Er = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , "1" )
If $Er = 1 Then
GUICtrlSetState ($Checkbox1, $GUI_CHECKED)
EndIf
;Er2
$Er2z = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , "5")
GUICtrlSetData ($Input2 , $Er2z)
$Er2 = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , "1" )
If $Er2 = 1 Then
GUICtrlSetState ($Checkbox2, $GUI_CHECKED)
EndIf
;Er3
$Er3z = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , "5")
GUICtrlSetData ($Input3 , $Er3z)
$Er3 = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , "1" )
If $Er3 = 1 Then
GUICtrlSetState ($Checkbox3, $GUI_CHECKED)
EndIf_TimerDiffShow()
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister('_TimerDiffShow', 1000)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Switch $nMsg[1]
Case $Form1
Exit
Case Else
;Speichern der Einstellungen Er1
$Cb1 = GUICtrlRead ($Checkbox1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
$Ip1 = GUICtrlRead ($Input1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
;Er2
$Cb2 = GUICtrlRead ($Checkbox2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
$Ip2 = GUICtrlRead ($Input2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
;Er3
$Cb3 = GUICtrlRead ($Checkbox3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
$Ip3 = GUICtrlRead ($Input3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $nMsg[1])
GUISwitch($Form1)
EndSwitch
Case $Button1
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
GUISwitch($Form2)
Case $Button2
;Speichern der Einstellungen Er1
$Cb1 = GUICtrlRead ($Checkbox1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
$Ip1 = GUICtrlRead ($Input1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
;Er2
$Cb2 = GUICtrlRead ($Checkbox2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
$Ip2 = GUICtrlRead ($Input2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
;Er3
$Cb3 = GUICtrlRead ($Checkbox3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
$Ip3 = GUICtrlRead ($Input3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
;Switch des Fensters
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $Form2)
GUISwitch($Form1)
EndSwitch;auslesen der daten
[/autoit] [autoit][/autoit] [autoit]
$until1 = GUICtrlRead ($Input1)
$until2 = GUICtrlRead ($Input2)
$aft = GUICtrlRead ($Input3)
$after = 60 - $aft
;Erinnerung 1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until1 and $check1 = False Then
$check1 = Not $check1
MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until1 & " Minuten!")
EndIf
;Erinnerung 2
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until2 and $check2 = False Then
$check2 = Not $check2
MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until2 & " Minuten!")
EndIf
;Erinnerung 3
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $after and $check3 = False Then
$check3 = Not $check3
MsgBox (0, "Bossrunde" , "Die Bossrunde beginnt gleich!")
EndIf
If GUICtrlRead ($Label1) = 1 and $check1 = True Then $check1 = False
If GUICtrlRead ($Label1) = 1 and $check2 = True Then $check2 = False
If GUICtrlRead ($Label1) = 1 and $check3 = True Then $check3 = False
WEndFunc _TimerDiffShow()
[/autoit]
$t_day = @MDAY
$t_hour = Mod(1+Mod(@Hour,2),2)
$t_min = 60 - @MIN
If $t_hour >= 24 Then $t_hour = $t_hour - 24
If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
If GUICtrlRead($Label3) <> $t_min Then GUICtrlSetData($Label3, $t_min)
EndFunc -
quick & dirty...
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>FileInstall ("C:\Users\Tim\Desktop\ICrememberCFG.ini" , "ICrememberCFG.ini")
[/autoit] [autoit][/autoit] [autoit]$t_min = ''
[/autoit] [autoit][/autoit] [autoit]
$t_hour = ''
$t_day = ''
$check1 = False
$Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
$Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
GUISetState(@SW_SHOW)$Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
[/autoit] [autoit][/autoit] [autoit]
$Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
$Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
$Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
$Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
$Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
$Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
$Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
$Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
$Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25);Setzen des Statusses f?r Er1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Er1z = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , "5")
GUICtrlSetData ($Input1 , $Er1z)
$Er = IniRead ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , "1" )
If $Er = 1 Then
GUICtrlSetState ($Checkbox1, $GUI_CHECKED)
EndIf
;Er2
$Er2z = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , "5")
GUICtrlSetData ($Input2 , $Er2z)
$Er2 = IniRead ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , "1" )
If $Er2 = 1 Then
GUICtrlSetState ($Checkbox2, $GUI_CHECKED)
EndIf
;Er3
$Er3z = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , "5")
GUICtrlSetData ($Input3 , $Er3z)
$Er3 = IniRead ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , "1" )
If $Er3 = 1 Then
GUICtrlSetState ($Checkbox3, $GUI_CHECKED)
EndIf_TimerDiffShow()
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister('_TimerDiffShow', 1000)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Switch $nMsg[1]
Case $Form1
Exit
Case Else
;Speichern der Einstellungen Er1
$Cb1 = GUICtrlRead ($Checkbox1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
$Ip1 = GUICtrlRead ($Input1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
;Er2
$Cb2 = GUICtrlRead ($Checkbox2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
$Ip2 = GUICtrlRead ($Input2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
;Er3
$Cb3 = GUICtrlRead ($Checkbox3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
$Ip3 = GUICtrlRead ($Input3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $nMsg[1])
GUISwitch($Form1)
EndSwitch
Case $Button1
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
GUISwitch($Form2)
Case $Button2
;Speichern der Einstellungen Er1
$Cb1 = GUICtrlRead ($Checkbox1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "Er" , $Cb1)
$Ip1 = GUICtrlRead ($Input1)
IniWrite ("ICrememberCFG.ini" , "Erinnerung1" , "ErZ" , $Ip1)
;Er2
$Cb2 = GUICtrlRead ($Checkbox2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "Er" , $Cb2)
$Ip2 = GUICtrlRead ($Input2)
IniWrite ("ICrememberCFG.ini" , "Erinnerung2" , "ErZ" , $Ip2)
;Er3
$Cb3 = GUICtrlRead ($Checkbox3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "Er" , $Cb3)
$Ip3 = GUICtrlRead ($Input3)
IniWrite ("ICrememberCFG.ini" , "Erinnerung3" , "ErZ" , $Ip3)
;Switch des Fensters
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $Form2)
GUISwitch($Form1)
EndSwitch;auslesen der daten
[/autoit] [autoit][/autoit] [autoit]
$until1 = GUICtrlRead ($Input1)
$until2 = GUICtrlRead ($Input2)
$aft = GUICtrlRead ($Input3)
$after = 60 - $aft
;Erinnerung 1
If BitAND(GUICtrlRead($Checkbox1), $GUI_CHECKED) = $GUI_CHECKED and GUICtrlRead ($Label1) = 0 and GUICtrlRead ($Label3) = $until1 and $check1 = False Then
$check1 = Not $check1 ; Schalter, damit die Meldung nur einmal kommt muss für weitere Erinnerungen zum richtigen Zeitpunkt dann wieder auf den anderen Status gesetzt werden
MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until1 & " Minuten!")
EndIf
;Erinnerung 2
;~ If $Checkbox2 = $GUI_CHECKED and $timeh = 0 and $timem = $until2 Then
;~ MsgBox (0, "IC" , "Der nächste IC beginnt in " & $until2 & " Minuten!")
;~ EndIf
;~ ;Erinnerung 3
;~ If $Checkbox3 = $GUI_CHECKED and $timeh = 1 and $timem = $after Then
;~ MsgBox (0, "Bossrunde" , "Die Bossrunde beginnt gleich!")
;~ EndIf
WEndFunc _TimerDiffShow()
[/autoit]
$t_day = @MDAY
$t_hour = Mod(1+Mod(@Hour,2),2)
$t_min = 60 - @MIN
If $t_hour >= 24 Then $t_hour = $t_hour - 24
If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
If GUICtrlRead($Label3) <> $t_min Then GUICtrlSetData($Label3, $t_min)
EndFunc -
du musst das pic disablen...
Spoiler anzeigen
[autoit]#include <GuiConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Global $Dummy
[/autoit] [autoit][/autoit] [autoit]Global Const $Title = "Test"
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Global Const $Width = 580
Global Const $Height = 230
Global Const $BgColor = 0x000000
Global Const $FontSize = 8.5
Global Const $Font = "Tahoma"
Global Const $FontColor = 0xFFFFFF
Global Const $BG = @DesktopDir & "\background.bmp"$GUI = GUICreate ($Title, $Width, $Height, -1, -1)
[/autoit] [autoit][/autoit] [autoit]
GUISetBkColor($BgColor)
GUISetFont($FontSize, 400, 0, $Font)
GUICtrlCreatePic ($BG, 0, 0, 580, 230)
GUICtrlSetState(-1, $GUI_DISABLE)
GUICtrlCreateInput ("Input 1", 30, 50, 190, 19)
GUICtrlCreateInput ("Input 2", 30, 79, 190, 19)
GUICtrlCreateInput ("Input 3", 30, 140, 190, 28)
GUICtrlSetFont (-1, 13)
$Button = GUICtrlCreateButton ("Button 1", 80, 180, 90, 20)GUISetState (@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
Switch GUIGetMsg ()
Case $GUI_EVENT_CLOSE
Exit
Case $Dummy
EndSwitch
WEnd -
mal als einfaches Beispiel ...
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>$t_hour = ''
[/autoit] [autoit][/autoit] [autoit]
$t_day = ''
$Form1 = GUICreate("IC Remember", 202, 138, 192, 124)
$Label1 = GUICtrlCreateLabel("0", 24, 8, 25, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel(" h", 40, 8, 30, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label3 = GUICtrlCreateLabel("0", 70, 8, 46, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel( "min", 122, 8, 67, 52)
GUICtrlSetFont(-1, 30, 400, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Bis zum Nächsten IC", 16, 64, 177, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$Button1 = GUICtrlCreateButton("Einstellungen", 24, 96, 155, 33)
GUISetState(@SW_SHOW)$Form2 = GUICreate("Einstellungen", 200, 147, 205, 137)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
$Checkbox1 = GUICtrlCreateCheckbox("Erinnern", 8, 8, 65, 17)
$Input1 = GUICtrlCreateInput("5", 72, 8, 25, 21)
$Label6 = GUICtrlCreateLabel("Minute/n vor IC", 104, 8, 78, 17)
$Checkbox2 = GUICtrlCreateCheckbox("Erinnern", 8, 32, 65, 17)
$Label7 = GUICtrlCreateLabel("Minute/n vor IC", 104, 32, 78, 17)
$Input2 = GUICtrlCreateInput("1", 72, 32, 25, 21)
$Label8 = GUICtrlCreateLabel("Erinnerung für die Bossrunde:", 8, 56, 143, 17)
$Checkbox3 = GUICtrlCreateCheckbox("Erinnern", 8, 80, 65, 17)
$Input3 = GUICtrlCreateInput("10", 72, 80, 25, 21)
$Label9 = GUICtrlCreateLabel("Minute/n nach IC", 104, 80, 87, 17)
$Button2 = GUICtrlCreateButton("Speichern", 56, 112, 75, 25)_TimerDiffShow()
[/autoit] [autoit][/autoit] [autoit]
AdlibRegister('_TimerDiffShow', 1000)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg(1)
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Switch $nMsg[1]
Case $Form1
Exit
Case Else
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $nMsg[1])
GUISwitch($Form1)
EndSwitch
Case $Button1
GUISetState(@SW_SHOW, $Form2)
GUISetState(@SW_HIDE, $Form1)
GUISwitch($Form2)
Case $Button2
GUISetState(@SW_SHOW, $Form1)
GUISetState(@SW_HIDE, $Form2)
GUISwitch($Form1)
EndSwitch
WEndFunc _TimerDiffShow()
[/autoit]
$t_day = @MDAY
$t_hour = Mod(1+Mod(@Hour,2),2)
If $t_hour >= 24 Then
$t_hour = $t_hour - 24
EndIf
If GUICtrlRead($Label1) <> $t_hour Then GUICtrlSetData($Label1, $t_hour)
If GUICtrlRead($Label3) <> 60 - @MIN Then GUICtrlSetData($Label3, 60 - @MIN)
EndFunc