Beiträge von Schnitzel

**Schnitzel**

häng doch bitte mal das logfile zum download an.

**Schnitzel**

Alles gute zum Geburtstag Alina.

Feier schön und genieß deinen Tag

**Schnitzel**

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.

**Schnitzel**

@Spiesi: wozu brauchste das script denn?
Mausklicks einfach so ausführen ist meistens sehr fehleranfällig...

Ineluki:

Zitat von Ineluki

MouseGetPos()

nö, mausposition ermitteln hat egtl nichts damit zu tun, außer ich hab Spiesi falsch verstanden

**Schnitzel**

also die udf ist richtig geil.
und damit kannste genau das machen
link

**Schnitzel**

Auch von mir noch alles gute L3viathan.

**Schnitzel**

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

**Schnitzel**

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

**Schnitzel**

Hilft dir das weiter?

[autoit]

ControlMove()
ControlGetPos()

[/autoit]

**Schnitzel**

Zitat von MR.Multibot

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

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
ExitLoop
EndSwitch
WEnd

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

Func Bilder()
GUICtrlSetImage($Pic1, $bilder[Random(0, UBound($bilder), 1)]); ein zufallsbild setzen
EndFunc ;==>Bilder

[/autoit]

**Schnitzel**

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

**Schnitzel**

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>
#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
EndFunc

[/autoit]

edit: _GUICtrlButton_Click entfernt

**Schnitzel**

lass das mal lieber weg:

Spoiler anzeigen

[autoit]

Sleep(2000)
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")

[/autoit]

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

**Schnitzel**

bin mir jetzt nicht ganz sicher, aber sowas wie:

[autoit]

GUICtrlSetImage
; oder
Guictrlsetdata

[/autoit]

sollte die Lösung sein

**Schnitzel**

Zitat von Buckiuxx

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

**Schnitzel**

und include-once brauchst du bei ner setup datei nicht.
include-once ist nur für include dateien, also quelltextdateien

**Schnitzel**

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

**Schnitzel**

Sry dass ich nichts gepostet hatte.

bin selten in Talk unterwegs^^

**Schnitzel**

Alles geht

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>

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

Global $Combo1, $Slider1, $Slider2
_Einstellungen()

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

Func _Einstellungen()
$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")
EndIf

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

Opt("GUIOnEventMode", 0)

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

_SM_SetVisualStyle(1)
$settinggui = GUICreate("Settings", 518, 190, -1, -1, -1, BitOR(0x00000080, 0x00000010))

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

GUISetBkColor($vGUIColor, $settinggui)
$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)
EndIf

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

If $setting2 = "yes" Then
GUICtrlSetState($modus2, 1)
;~ GUICtrlSetState($modus2, $GUI_DISABLE)
EndIf

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

GUISetState(@SW_SHOW, $settinggui)

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

AdlibRegister("MoveWindow", 20)

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

While 1
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_CHECKED

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

Case $save

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

If GUICtrlRead($modus1) = 1 Then
IniWrite($INI, "Setting 1", "run", "yes")
$setting1 = "yes"
Else
IniWrite($INI, "Setting 1", "run", "no")
$setting1 = "no"
EndIf

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

If GUICtrlRead($modus2) = 1 Then
IniWrite($INI, "Setting 2", "run", "yes")
$setting2 = "yes"
Else
IniWrite($INI, "Setting 2", "run", "no")
$setting2 = "no"
EndIf

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

ExitLoop
;Exit
EndSwitch
Sleep(10)
WEnd

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

GUIDelete($settinggui)
AdlibUnRegister("MoveWindow")
Sleep(100)

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

;~ GUISetState(@SW_ENABLE, $hGui)
;~ GUISetState(@SW_SHOW, $hGui)

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

_SM_SetVisualStyle(1)
EndFunc ;==>_Einstellungen

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

Func _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyle

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

Func MoveWindow()
$read1 = GUICtrlRead($Slider1)
$read2 = GUICtrlRead($Slider2)
Switch GUICtrlRead($Combo1)
Case "Rechts"
WinMove("Settings", "", @DesktopWidth - 518 - $read2, $read1)
Case "Links"
WinMove("Settings", "", $read2, $read1)
EndSwitch
EndFunc

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

geä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

**Schnitzel**

so z.b.

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <WindowsConstants.au3>

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

Global $Combo1, $Slider1, $Slider2
_Einstellungen()

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

Func _Einstellungen()
$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")
EndIf

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

Opt("GUIOnEventMode", 0)

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

_SM_SetVisualStyle(1)
$settinggui = GUICreate("Settings", 518, 190, -1, -1, -1, BitOR(0x00000080, 0x00000010))

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

GUISetBkColor($vGUIColor, $settinggui)
$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)
EndIf

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

If $setting2 = "yes" Then
GUICtrlSetState($modus2, 1)
;~ GUICtrlSetState($modus2, $GUI_DISABLE)
EndIf

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

GUISetState(@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
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_CHECKED

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

Case $save

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

If GUICtrlRead($modus1) = 1 Then
IniWrite($INI, "Setting 1", "run", "yes")
$setting1 = "yes"
Else
IniWrite($INI, "Setting 1", "run", "no")
$setting1 = "no"
EndIf

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

If GUICtrlRead($modus2) = 1 Then
IniWrite($INI, "Setting 2", "run", "yes")
$setting2 = "yes"
Else
IniWrite($INI, "Setting 2", "run", "no")
$setting2 = "no"
EndIf

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

ExitLoop
;Exit
Case $Combo1
MoveWindow()
EndSwitch
Sleep(10)
WEnd

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

GUIDelete($settinggui)
AdlibUnRegister("MoveWindow")
Sleep(100)

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

;~ GUISetState(@SW_ENABLE, $hGui)
;~ GUISetState(@SW_SHOW, $hGui)

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

_SM_SetVisualStyle(1)
EndFunc ;==>_Einstellungen

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

Func _SM_SetVisualStyle($b_Enable);turn on or of visual styles, able to color groups, checkboxes
Return DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", $b_Enable * 7) ; 7 = Enable, 0 = Disable
EndFunc ;==>_SM_SetVisualStyle

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

Func MoveWindow()
$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

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

Beiträge von Schnitzel

stehe mal wieder kurz vor einem nervenzusammenruch -> serverlog durchsuchen geht nicht!

Alina hat Geburtstag ...

[Beendet] µitLight März

Aktuelle Mausposition in Script einbinden

Bei Hotkeyset den Hotkey selbst definieren.

Alles Gute, L3viathan

Dateiübertragungsprogramm

Controls abhänig voneinander verschieben

Controls abhänig voneinander verschieben

Guictrlcreatepic

Stringencrypt - Serialkeys

Guictrlcreatepic

Guictrlcreatepic

Guictrlcreatepic

kurze frage zu Fileinstall

kurze frage zu Fileinstall

WM-Tippspiel

[AutoIt.de] goes Filme raten

Slider Zentrierung & Abstand des GUI'S

Slider Zentrierung & Abstand des GUI'S