Beiträge von Schnitzel
-
-
Alles gute zum Geburtstag Alina.
Feier schön und genieß deinen Tag
-
Wow.
Ich hätte zwar schon gedacht dass ich gut dabei bin aber das nicht...Danke den beiden Organisatoren: MatthiasG. und Leviathan.
Wirklich ne super Sache dass ihr euch Wettbewerbe einfallen lässt und euch die Zeit nehmt sie auszuwerten.
Ist sicher ne Menge arbeit. Wirklich toll.
Das war wirklich ein sehr intressanter µLight.
Hat richtig Spaß gemacht sich den Algo auszudenken. -
@Spiesi: wozu brauchste das script denn?
Mausklicks einfach so ausführen ist meistens sehr fehleranfällig...MouseGetPos()
nö, mausposition ermitteln hat egtl nichts damit zu tun, außer ich hab Spiesi falsch verstanden
-
also die udf ist richtig geil.
und damit kannste genau das machen
link -
Auch von mir noch alles gute L3viathan.
-
Kev sagt es zwar auf etwas komische art aber er hat schon recht.
Bitte beschreibe dein Problem genauer.
Man weiß überhaupt nicht wo du Probleme hast.
Und mit script gehts immer am besten
-
Mir ist gerade noch was besseres eingefallen
Position setzen mit:
[autoit]GUICtrlSetPos()
[/autoit]und statt ControlGetPos() kannst du auch die positionen der Controls immer in eine Variable (bestenfalls ein Array) speichern
erscheint mir schöner. Bzw so würds ich machen
-
Hilft dir das weiter?
[autoit]
[/autoit]
ControlMove()
ControlGetPos() -
ehm ja es func so schon aber man kann den Button trotzdem nich drücken!
natürlich kann man.
das geht doch:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 394, 187, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_SYSMENU, $WS_DLGFRAME, $WS_POPUP, $WS_GROUP, $WS_CLIPSIBLINGS), BitOR($WS_EX_TRANSPARENT, $WS_EX_WINDOWEDGE))
$MonthCal1 = GUICtrlCreateMonthCal("2010/06/15", 184, 8, 196, 164)
$Button1 = GUICtrlCreateButton("Exit", 16, 136, 150, 35, $WS_GROUP, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("E:\Bilder\Wallpaper\32577.jpg", 0, 0, 393, 185, BitOR($SS_NOTIFY, $WS_GROUP, $WS_CLIPSIBLINGS))
$Label2 = GUICtrlCreateLabel("20:24:25", 16, 8, 150, 47, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 36, 800, 0, "Digital")
$Button2 = GUICtrlCreateButton("Button2", 168, 24, 1, 9, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $bilder[3] = ["E:\Bilder\Wallpaper\32577.jpg", "E:\Bilder\Wallpaper\46923.jpg", "E:\Bilder\Wallpaper\46952.jpg"]; die pfade in einem array speichern
AdlibRegister("Bilder", 1000)While 1
[/autoit] [autoit][/autoit] [autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ExitLoop
EndSwitch
WEndFunc Bilder()
[/autoit]
GUICtrlSetImage($Pic1, $bilder[Random(0, UBound($bilder), 1)]); ein zufallsbild setzen
EndFunc ;==>Bilder -
mach ne ini auf nem server und zu jedem serial einen key "verwendet" oder wie auch immer
wenn der key verwendet auf 1 steht darf er nicht genommen werden ansonsten schon.
ist zwar billig aber geht
-
du überschreibst mit der funktion dien bild immer 3mal und am schluss wird immer das 3te gesetzt
du musst entweder zufällig eins setzen lassen oder mit einem counter immer wieder durchzählen
ersteres würde so in etwa gehn
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit]
#include <DateTimeConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#Region ### START Koda GUI section ### Form=
$Form1_1 = GUICreate("Form1", 394, 187, -1, -1, BitOR($WS_MINIMIZEBOX,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_CLIPSIBLINGS), BitOR($WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE))
$MonthCal1 = GUICtrlCreateMonthCal("2010/06/15", 184, 8, 196, 164)
$Button1 = GUICtrlCreateButton("Exit", 16, 136, 150, 35, $WS_GROUP, $WS_EX_STATICEDGE)
GUICtrlSetFont(-1, 14, 800, 0, "MS Sans Serif")
$Pic1 = GUICtrlCreatePic("E:\Bilder\Wallpaper\32577.jpg", 0, 0, 393, 185, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Label2 = GUICtrlCreateLabel("20:24:25", 16, 8, 150, 47, -1, $WS_EX_CLIENTEDGE)
GUICtrlSetFont(-1, 36, 800, 0, "Digital")
$Button2 = GUICtrlCreateButton("Button2", 168, 24, 1, 9, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Global $bilder[3] = ["E:\Bilder\Wallpaper\32577.jpg", "E:\Bilder\Wallpaper\46923.jpg", "E:\Bilder\Wallpaper\46952.jpg"]; die pfade in einem array speichern
AdlibRegister( "Bilder", 1000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ExitLoop
EndSwitch
WEnd
Func Bilder()
GUICtrlSetImage($Pic1, $bilder[Random(0, Ubound($bilder), 1)]); ein zufallsbild setzen
EndFuncedit: _GUICtrlButton_Click entfernt
-
lass das mal lieber weg:
Spoiler anzeigen
[autoit]Sleep(2000)
[/autoit]
GUICtrlSetImage($Pic1, "E:\Autoit\UHR\46923.jpg")
Sleep(2000)
GUICtrlSetImage($Pic1, "E:\Autoit\UHR\46952.jpg")
Sleep(2000)
GUICtrlSetImage($Pic1, "E:\Autoit\UHR\32577.jpg")Wärend Sleep frägt er natürlich nicht ab ob Exit gedrückt wurde.
Und sieh dir stattdessen mal das an
[autoit]Adlibregister()
[/autoit]Edit: HopFail: deine lösung hat nichts mit dem Problem zu tun
ein Exit bewirkt bei dir das gleiche wie ein Exitloop...
-
bin mir jetzt nicht ganz sicher, aber sowas wie:
[autoit]GUICtrlSetImage
[/autoit]
; oder
Guictrlsetdatasollte die Lösung sein
-
braucht man dann nicht wohl include zum einbinden?...
oder müssen die dateien gar nicht per include eingebunden werden?nö include ist nur für quelltextdateien, also udf's und so weiter.
In die exe einbinden tut er sie auch wenn du "nur" fileinstall verwendest
-
und include-once brauchst du bei ner setup datei nicht.
include-once ist nur für include dateien, also quelltextdateien -
hab mich gerade noch registriert und den ersten spieltag durchgetippt.
leider durfte ich um 15:58 nichtmehr für südafrika stimmen. so ne sauerrei
-
Sry dass ich nichts gepostet hatte.
bin selten in Talk unterwegs^^
-
Alles geht
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <SliderConstants.au3>
#include <WindowsConstants.au3>Global $Combo1, $Slider1, $Slider2
[/autoit] [autoit][/autoit] [autoit]
_Einstellungen()Func _Einstellungen()
[/autoit] [autoit][/autoit] [autoit]
$vGUIColor = 0x161616
$INI = @ScriptDir & "\Data\Einstellungen.ini"
$setting1 = IniRead($INI, "Setting 1", "run", "")
$setting2 = IniRead($INI, "Setting 2", "run", "")
If Not FileExists(@ScriptDir & "\Data\") Then
DirCreate(@ScriptDir & "\Data\")
EndIf
If Not FileExists(@ScriptDir & "\Data\Bilder\") Then
DirCreate(@ScriptDir & "\Data\Bilder")
EndIf
If Not FileExists($INI) Then
IniWrite($INI, "Copyright", "Titel", "(C) Alexander F. 2010 - 2011")
EndIfOpt("GUIOnEventMode", 0)
[/autoit] [autoit][/autoit] [autoit]_SM_SetVisualStyle(1)
[/autoit] [autoit][/autoit] [autoit]
$settinggui = GUICreate("Settings", 518, 190, -1, -1, -1, BitOR(0x00000080, 0x00000010))GUISetBkColor($vGUIColor, $settinggui)
[/autoit] [autoit][/autoit] [autoit]
$cancel = GUICtrlCreateButton("Exit", 263, 160, 247, 20, 0)
$save = GUICtrlCreateButton("Save", 10, 160, 247, 20, 0)
_SM_SetVisualStyle(0)
$settings = GUICtrlCreateGroup("Einstellungen", 8, 8, 497, 145)
GUICtrlSetColor(-1, 0xFFFFFF)
$label123 = GUICtrlCreateLabel("Allgemein", 16, 32, 54, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus1 = GUICtrlCreateRadio("Setting 1 ?", 16, 56, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus2 = GUICtrlCreateRadio("Setting 2 ?", 16, 80, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Icon1 = GUICtrlCreateIcon("", -0, 32, 104, 32, 32)
$Label1 = GUICtrlCreateLabel("Ausrichtung des Docks", 128, 32, 114, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
_SM_SetVisualStyle(1)
$Combo1 = GUICtrlCreateCombo("Links", 256, 24, 129, 25)
GUICtrlSetData(-1, "Rechts")
$Label2 = GUICtrlCreateLabel("Zentrierung", 136, 75, 61, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
$Slider1 = GUICtrlCreateSlider(240, 72, 140, 21, $TBS_NOTICKS)
GUICtrlSetBkColor($Slider1, $vGUIColor)
GUICtrlSetLimit($Slider1, @DesktopHeight)
$Slider2 = GUICtrlCreateSlider(256, 112, 140, 21, $TBS_NOTICKS)
GUICtrlSetBkColor($Slider2, $vGUIColor)
_SM_SetVisualStyle(0)
$Label3 = GUICtrlCreateLabel("Abstand des Bildschirms", 136, 112, 118, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
If $setting1 = "yes" Then
GUICtrlSetState($modus1, 1)
;~ GUICtrlSetState($modus1, $GUI_DISABLE)
EndIfIf $setting2 = "yes" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($modus2, 1)
;~ GUICtrlSetState($modus2, $GUI_DISABLE)
EndIfGUISetState(@SW_SHOW, $settinggui)
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("MoveWindow", 20)
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg($settinggui)
Case -3
ExitLoop
Case $cancel
ExitLoop
Case $modus1
BitAND(GUICtrlRead($modus1), $GUI_CHECKED) ;= $GUI_CHECKED
Case $modus2
BitAND(GUICtrlRead($modus2), $GUI_CHECKED) ;= $GUI_CHECKEDCase $save
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($modus1) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
IniWrite($INI, "Setting 1", "run", "yes")
$setting1 = "yes"
Else
IniWrite($INI, "Setting 1", "run", "no")
$setting1 = "no"
EndIfIf GUICtrlRead($modus2) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
IniWrite($INI, "Setting 2", "run", "yes")
$setting2 = "yes"
Else
IniWrite($INI, "Setting 2", "run", "no")
$setting2 = "no"
EndIfExitLoop
[/autoit] [autoit][/autoit] [autoit]
;Exit
EndSwitch
Sleep(10)
WEndGUIDelete($settinggui)
[/autoit] [autoit][/autoit] [autoit]
AdlibUnRegister("MoveWindow")
Sleep(100);~ GUISetState(@SW_ENABLE, $hGui)
[/autoit] [autoit][/autoit] [autoit]
;~ GUISetState(@SW_SHOW, $hGui)_SM_SetVisualStyle(1)
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_EinstellungenFunc _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
[/autoit] [autoit][/autoit] [autoit]
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyleFunc MoveWindow()
[/autoit] [autoit][/autoit] [autoit][/autoit]
$read1 = GUICtrlRead($Slider1)
$read2 = GUICtrlRead($Slider2)
Switch GUICtrlRead($Combo1)
Case "Rechts"
WinMove("Settings", "", @DesktopWidth - 518 - $read2, $read1)
Case "Links"
WinMove("Settings", "", $read2, $read1)
EndSwitch
EndFuncgeändert hab ich in zeile 50 ein limit für den slider gesetzt, in zeile 69 die zeit auf 20 ms und die formel bei winmove
-
so z.b.
Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <SliderConstants.au3>
#include <WindowsConstants.au3>Global $Combo1, $Slider1, $Slider2
[/autoit] [autoit][/autoit] [autoit]
_Einstellungen()Func _Einstellungen()
[/autoit] [autoit][/autoit] [autoit]
$vGUIColor = 0x161616
$INI = @ScriptDir & "\Data\Einstellungen.ini"
$setting1 = IniRead($INI, "Setting 1", "run", "")
$setting2 = IniRead($INI, "Setting 2", "run", "")
If Not FileExists(@ScriptDir & "\Data\") Then
DirCreate(@ScriptDir & "\Data\")
EndIf
If Not FileExists(@ScriptDir & "\Data\Bilder\") Then
DirCreate(@ScriptDir & "\Data\Bilder")
EndIf
If Not FileExists($INI) Then
IniWrite($INI, "Copyright", "Titel", "(C) Alexander F. 2010 - 2011")
EndIfOpt("GUIOnEventMode", 0)
[/autoit] [autoit][/autoit] [autoit]_SM_SetVisualStyle(1)
[/autoit] [autoit][/autoit] [autoit]
$settinggui = GUICreate("Settings", 518, 190, -1, -1, -1, BitOR(0x00000080, 0x00000010))GUISetBkColor($vGUIColor, $settinggui)
[/autoit] [autoit][/autoit] [autoit]
$cancel = GUICtrlCreateButton("Exit", 263, 160, 247, 20, 0)
$save = GUICtrlCreateButton("Save", 10, 160, 247, 20, 0)
_SM_SetVisualStyle(0)
$settings = GUICtrlCreateGroup("Einstellungen", 8, 8, 497, 145)
GUICtrlSetColor(-1, 0xFFFFFF)
$label123 = GUICtrlCreateLabel("Allgemein", 16, 32, 54, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus1 = GUICtrlCreateRadio("Setting 1 ?", 16, 56, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$modus2 = GUICtrlCreateRadio("Setting 2 ?", 16, 80, 97, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
$Icon1 = GUICtrlCreateIcon("", -0, 32, 104, 32, 32)
$Label1 = GUICtrlCreateLabel("Ausrichtung des Docks", 128, 32, 114, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
_SM_SetVisualStyle(1)
$Combo1 = GUICtrlCreateCombo("Links", 256, 24, 129, 25)
GUICtrlSetData(-1, "Rechts")
$Label2 = GUICtrlCreateLabel("Zentrierung", 136, 75, 61, 20)
GUICtrlSetColor(-1, 0xFFFFFF)
$Slider1 = GUICtrlCreateSlider(240, 72, 140, 21, $TBS_NOTICKS)
GUICtrlSetBkColor($Slider1, $vGUIColor)
$Slider2 = GUICtrlCreateSlider(256, 112, 140, 21, $TBS_NOTICKS)
GUICtrlSetBkColor($Slider2, $vGUIColor)
_SM_SetVisualStyle(0)
$Label3 = GUICtrlCreateLabel("Abstand des Bildschirms", 136, 112, 118, 17)
GUICtrlSetColor(-1, 0xFFFFFF)
GUICtrlCreateGroup("", -99, -99, 1, 1)
If $setting1 = "yes" Then
GUICtrlSetState($modus1, 1)
;~ GUICtrlSetState($modus1, $GUI_DISABLE)
EndIfIf $setting2 = "yes" Then
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($modus2, 1)
;~ GUICtrlSetState($modus2, $GUI_DISABLE)
EndIfGUISetState(@SW_SHOW, $settinggui)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]AdlibRegister("MoveWindow", 200); alle 200 millisekuden sollte genügen
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
[/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg($settinggui)
Case -3
ExitLoop
Case $cancel
ExitLoop
Case $modus1
BitAND(GUICtrlRead($modus1), $GUI_CHECKED) ;= $GUI_CHECKED
Case $modus2
BitAND(GUICtrlRead($modus2), $GUI_CHECKED) ;= $GUI_CHECKEDCase $save
[/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($modus1) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
IniWrite($INI, "Setting 1", "run", "yes")
$setting1 = "yes"
Else
IniWrite($INI, "Setting 1", "run", "no")
$setting1 = "no"
EndIfIf GUICtrlRead($modus2) = 1 Then
[/autoit] [autoit][/autoit] [autoit]
IniWrite($INI, "Setting 2", "run", "yes")
$setting2 = "yes"
Else
IniWrite($INI, "Setting 2", "run", "no")
$setting2 = "no"
EndIfExitLoop
[/autoit] [autoit][/autoit] [autoit]
;Exit
Case $Combo1
MoveWindow()
EndSwitch
Sleep(10)
WEndGUIDelete($settinggui)
[/autoit] [autoit][/autoit] [autoit]
AdlibUnRegister("MoveWindow")
Sleep(100);~ GUISetState(@SW_ENABLE, $hGui)
[/autoit] [autoit][/autoit] [autoit]
;~ GUISetState(@SW_SHOW, $hGui)_SM_SetVisualStyle(1)
[/autoit] [autoit][/autoit] [autoit]
EndFunc ;==>_EinstellungenFunc _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
[/autoit] [autoit][/autoit] [autoit]
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyleFunc MoveWindow()
[/autoit] [autoit][/autoit] [autoit][/autoit]
$read1 = GUICtrlRead($Slider1)
$read2 = GUICtrlRead($Slider2)
Switch GUICtrlRead($Combo1)
Case "Rechts"
WinMove("Settings", "", @DesktopWidth - 518 - $read2, (@DesktopHeight - 190) * $read1 / 100)
Case "Links"
WinMove("Settings", "", $read2, (@DesktopHeight - 190) * $read1 / 100)
EndSwitch
EndFunc