Beiträge von bernd670

**bernd670**

Er bleibt wohl im If-Teil hängen nachdem $Err auf True gesetzt ist kommt er da nicht mehr raus.

Tipp: Man sollte niemals von Hand Variablen verändern die von einer For ... Next Schleife als Zähler benutzt wird benutzt wird und schon garnicht auf Werte die die Variable nie annehmen kann! Dafür nimmt man in der Regel While ... WEnd oder Do ... Until - Schleifen.

**bernd670**

Besteht das Problem noch? Die Frage wurde, glaube ich, erst gestellt nach dem das Thema auf gelöst gesetzt wurde. Wenn ja, dann bitte das Thema wieder auf offen stellen.

Ich konnte auf jeden Fall keinen Fehler feststellen, bei mir werden die Dateiname korrekt in die Ini geschrieben.

Ein paar Anmerkungen habe ich aber denn noch:

Folgende Anweisung ist unötig:

[autoit]

Case $msg = $gui_event_close
Exit
ExitLoop

[/autoit]

Weil nach dem Exit-Befehl nichts mehr ausgeführt wird, ExitLoop wird also nie erreicht.
__________________________________________________________

Die Funktion

[autoit]

Func endscript()
$cu = MsgBox(0, "Remember", $msg)
WinSetOnTop($cu, "Remeber", 1) ; muss übrigens "Remember" heissen
EndFunc

[/autoit]

kann man auch so schreiben

[autoit]

Func endscript()
$cu = MsgBox(262144, "Remember", $msg)
EndFunc

[/autoit]

Einfach mal in der Hilfe lesen was es für Mögiichkeiten gibt.
__________________________________________________

Und zu letzt noch ein Schreibfehler:

[autoit]

FileCreateShortcut(@AutoItExe, @StartupDir & "\" & $script & ".ink")

[/autoit]

es muss "lnk" heissen und nicht "ink".

**bernd670**

So, ich habe jetzt noch ein paar korrekturen vorgenommen, ein paar Sicherheitsabfragen eingebaut, auf dem Spielfeld kann man jetzt mit den Cursortasten navigieren und eine Zeitanzeige die startet sobald die 1. Zahl eingegeben wurde.

Edit: Dateianhang entfernt -> veraltet

**bernd670**

Ich glaube Du verstehst das falsch! Es wird nicht dem PC vorgespielt das ein User Admin ist, sondern das Programm läuft unter mit einer Adminkennung. So als würde man mit "Ausführen als..." ein Programm starten.

Das RunAsSet aber nur auf die Befehle Run und RunWait Auswirkung hat sorgt die Routine dafür, falls das Programm von einem normalen Benutzer gestartet wurde, dass das Programm nochmal mit Adminrechten gestartet wird.

**bernd670**

Einfach den Style $ES_WANTRETURN hinzufügen!

[autoit]

#include <GUIConstants.au3>

GUICreate("My GUI edit")

$myedit=GUICtrlCreateEdit ("Erste Reihe" & @CRLF & "Zweite Reihe", 10,10,380,190,BitOR($ES_WANTRETURN,$ES_AUTOVSCROLL))

GUISetState ()

GUICtrlSetData ($myedit, @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF,1)

While 1
$msg = GUIGetMsg()

If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend

[/autoit]

**bernd670**

Hallo!

Wenn Du das Programm von Hand startest bist Du dann mit Adminrechten angemeldet?

Dann schreibe mal folgende Zeilen ganz an den Anfang von deinem Programm und probiers dann.

[autoit]

If Not IsAdmin() Then
RunAsSet("domänenadmin", "domäne", "passwort")
Run(@ScriptFullPath, @ScriptDir, @SW_HIDE)
RunAsSet()
Exit
EndIf

[/autoit]

Diese Zeilen sorgen dafür das das komplette Programm mit Adminrechten ausgeführt wird!

Edit: Die Paramter für RunAsSet müssen nartülich noch angepasst werden

**bernd670**

es muss heissen

[autoit]

Case $msg = $cancel

[/autoit]

und

[autoit]

Case $msg = $okl

[/autoit]

**bernd670**

Das Problem liegt in der Funktion WM_Notify_Events, einfach die Funktion durch diese ersetzen dann sollte es gehen!

[autoit]

; WM_NOTIFY event handler
Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam);NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3)
Switch $wParam

Case $listView
If $event = $NM_CLICK And _GUICtrlListViewGetCurSel($listView) > -1 Then ; Einfachklick links auf eine Zeile -> für Doppelklick $NM_CLICK duch $NM_DBCLCK ersetzen
If _GUICtrlListViewGetCheckedState ($listView, _GUICtrlListViewGetCurSel($listView)) Then
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 0) ; Checkbox deaktivieren
Else
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 1) ; Checkbox aktivieren
Endif
_GUICtrlListViewSetItemSelState($listView, _GUICtrlListViewGetCurSel($listView), 0) ; Zeilenmarkierung aufheben
EndIf

EndSwitch
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>WM_Notify_Events

[/autoit]

**bernd670**

Zitat

Original von skyteddy
...

Bernd. Jow, deine Ergänzungen haben schon mal was! Danke
Aber es hat noch irgendwie nen gravierenden Fehler, nämlich immer dann, wenn ich nicht den Doppelklick benutze, sondern die Haken einzeln setze, dann werden manchmal ganz wüste Mehrfachselektionen gemacht. Weißt Du warum?

Nen Finish-Knopf einbauen schaffe ich wahrscheinlich noch, aber wie frage ich dann die angehakten Elemente ab?

Besten Dank nochmal!
R@iner

Für

Doppelklick muss Du

[autoit]

If $event = $NM_CLICK Then

[/autoit]

durch

[autoit]

If $event = $NM_DBLCLK Then

[/autoit]

ersetzen

auf die angehakten Elemente kann man z.B. so zugreifen:

[autoit]

For $iIndex = 0 To _GUICtrlListViewGetItemCount($listView) - 1
If _GUICtrlListViewGetCheckedState($listView,$iIndex) Then
<Aktionen>
EndIf
Next

[/autoit]

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#Include <GuiListView.au3>

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

Global Const $WM_NOTIFY = 0x004E
;ListView Events
Global Const $NM_FIRST = 0
Global Const $NM_LAST = (-99)
Global Const $NM_OUTOFMEMORY = ($NM_FIRST - 1)
Global Const $NM_CLICK = ($NM_FIRST - 2)
Global Const $NM_DBLCLK = ($NM_FIRST - 3)
Global Const $NM_RETURN = ($NM_FIRST - 4)
Global Const $NM_RCLICK = ($NM_FIRST - 5)
Global Const $NM_RDBLCLK = ($NM_FIRST - 6)
Global Const $NM_SETFOCUS = ($NM_FIRST - 7)
Global Const $NM_KILLFOCUS = ($NM_FIRST -
Global Const $NM_CUSTOMDRAW = ($NM_FIRST - 12)
Global Const $NM_HOVER = ($NM_FIRST - 13)
Global Const $NM_NCHITTEST = ($NM_FIRST - 14)
Global Const $NM_KEYDOWN = ($NM_FIRST - 15)
Global Const $NM_RELEASEDCAPTURE = ($NM_FIRST - 16)
Global Const $NM_SETCURSOR = ($NM_FIRST - 17)
Global Const $NM_CHAR = ($NM_FIRST - 18)
Global Const $NM_TOOLTIPSCREATED = ($NM_FIRST - 19)

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

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

; Run the GUI until the dialog is closed
GUISetState()

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

;Register WM_NOTIFY events
GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

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

While 1
$msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
ExitLoop

case $msg = $listView
MsgBox(0,"","ListView")

Case $msg = $ButSelAll
if BitAND(GUICtrlRead($ButSelAll),$GUI_CHECKED) = $GUI_CHECKED Then
$bAllChecked = 1
Else
$bAllChecked = 0
Endif

For $iIndex = 0 To _GUICtrlListViewGetItemCount($listView) - 1
_GUICtrlListViewSetCheckState ( $listView, $iIndex, $bAllChecked)
Next

Case $msg = $ButFinish
$Output = ""
For $iIndex = 0 To _GUICtrlListViewGetItemCount($listView) - 1
If _GUICtrlListViewGetCheckedState($listView,$iIndex) Then $Output &= String($iIndex + 1) & " "
Next

If StringLen($Output) Then
MsgBox(0,"","Zeilen " & $Output & "sind markiert!")

EndIf

case Else
;;;;;;;;

EndSelect
Wend

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

; WM_NOTIFY event handler
Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam);NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3)
Switch $wParam

Case $listView

If $event = $NM_CLICK Then ; Doppelklick ist $NM_DBLCLK
If _GUICtrlListViewGetCheckedState ($listView, _GUICtrlListViewGetCurSel($listView)) Then
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 0) ; Checkbox deaktivieren
Else
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 1) ; Checkbox aktivieren
Endif
_GUICtrlListViewSetItemSelState($listView, _GUICtrlListViewGetCurSel($listView), 0) ; Zeilenmarkierung aufheben, kann bei Doppelklick deaktiviert werden
EndIf

EndSwitch
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>WM_Notify_Events

[/autoit]

**bernd670**

Mit ListView hast Du dir gleiche eine schwersten ausgesucht!

Um hier klicks abzufangen muss man einen neuen Eventhandle registrieren. Ich habe mal die Grundfunktion hinzugefügt.

Schau die in der Hilfe mal die Funktionen an die mit _GUICtrlListView... beginnen!

Spoiler anzeigen

[autoit]

#include <GuiConstants.au3>
#Include <GuiListView.au3>

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

Global Const $WM_NOTIFY = 0x004E
;ListView Events
Global Const $NM_FIRST = 0
Global Const $NM_LAST = (-99)
Global Const $NM_OUTOFMEMORY = ($NM_FIRST - 1)
Global Const $NM_CLICK = ($NM_FIRST - 2)
Global Const $NM_DBLCLK = ($NM_FIRST - 3)
Global Const $NM_RETURN = ($NM_FIRST - 4)
Global Const $NM_RCLICK = ($NM_FIRST - 5)
Global Const $NM_RDBLCLK = ($NM_FIRST - 6)
Global Const $NM_SETFOCUS = ($NM_FIRST - 7)
Global Const $NM_KILLFOCUS = ($NM_FIRST -
Global Const $NM_CUSTOMDRAW = ($NM_FIRST - 12)
Global Const $NM_HOVER = ($NM_FIRST - 13)
Global Const $NM_NCHITTEST = ($NM_FIRST - 14)
Global Const $NM_KEYDOWN = ($NM_FIRST - 15)
Global Const $NM_RELEASEDCAPTURE = ($NM_FIRST - 16)
Global Const $NM_SETCURSOR = ($NM_FIRST - 17)
Global Const $NM_CHAR = ($NM_FIRST - 18)
Global Const $NM_TOOLTIPSCREATED = ($NM_FIRST - 19)

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

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

;Register WM_NOTIFY events
GUIRegisterMsg($WM_NOTIFY, "WM_Notify_Events")

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

While 1
$msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
ExitLoop

case $msg = $listView
MsgBox(0,"","ListView")

EndSelect
Wend

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

; WM_NOTIFY event handler
Func WM_Notify_Events($hWndGUI, $MsgID, $wParam, $lParam)
#forceref $hWndGUI, $MsgID, $wParam
Local $tagNMHDR, $event, $hwndFrom, $code
$tagNMHDR = DllStructCreate("int;int;int", $lParam);NMHDR (hwndFrom, idFrom, code)
If @error Then Return
$event = DllStructGetData($tagNMHDR, 3)
Switch $wParam

Case $listView

If $event = $NM_CLICK Then ; Doppelklick ist $NM_DBLCLK
If _GUICtrlListViewGetCheckedState ($listView, _GUICtrlListViewGetCurSel($listView)) Then
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 0) ; Checkbox deaktivieren
Else
_GUICtrlListViewSetCheckState ( $listView, _GUICtrlListViewGetCurSel($listView), 1) ; Checkbox aktivieren
Endif
EndIf

EndSwitch
$tagNMHDR = 0
$event = 0
$lParam = 0
EndFunc ;==>WM_Notify_Events

[/autoit]

**bernd670**

Auf nicht gleich kann man so prüfen:

[autoit]

If Hex($sro,6) <> "000000" then

[/autoit]

oder eine Klammer setzen:

[autoit]

If Not (Hex($sro,6) = "000000") then

[/autoit]

**bernd670**

Dafür hättest Du noch eine Längenangabe bei der Hex-Funkton gebraucht!

[autoit]

If Hex($sro,6) = "000000" Then

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

**bernd670**

Hallo und :willkommen:;

zu Frage 1:
Da Hex() einen String zurückgibt muss Du das FFFFFF in Anführungszeichen setzten "FFFFFF"!

zu Frage 2:

den Teil der Wiederholt werden soll in eine Funktion packen.

z.B.:

[autoit]

Funktion1()

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

If dasunddas = dasundas Then
<Anweisungen>
Else
Funktion1()
EndIf

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

Func Funktion1()

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

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

EndFunc

[/autoit]

**bernd670**

Klar!

Vorher:

Spoiler anzeigen

[autoit]

; GameChange -> Neues Spiel wurde gewählt
Func GameChange()
$strGame = GUICtrlRead($CBGames)
For $iIndex = 1 To $arGames[0][0]
If $arGames[$iIndex][0] == $strGame Then ExitLoop
Next

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

For $iZeile = 0 To 8
For $iSpalte = 0 To 8
$iWert = StringMid($arGames[$iIndex][1], $iZeile * 9 + $iSpalte + 1, 1)
If $iWert <> 0 Then
GUICtrlSetData($arSudokuFeld[$iZeile][$iSpalte], $iWert)
GUICtrlSetStyle($arSudokuFeld[$iZeile][$iSpalte], BitOR($ES_CENTER, $ES_NUMBER, $ES_READONLY))
Else
GUICtrlSetData($arSudokuFeld[$iZeile][$iSpalte], "")
GUICtrlSetStyle($arSudokuFeld[$iZeile][$iSpalte], BitOR($ES_CENTER, $ES_NUMBER))
EndIf
Next
Next
$begonnen = False
EndFunc ;==>GameChange

[/autoit]

Nachher:

Spoiler anzeigen

[autoit]

; GameChange -> Neues Spiel wurde gewählt
Func GameChange()
$strGame = GUICtrlRead($CBGames)
For $iIndex = 1 To $arGames[0][0]
If $arGames[$iIndex][0] == $strGame Then ExitLoop
Next

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

For $iZeile = 8 To 0 Step - 1 ; Änderung
For $iSpalte = 8 To 0 Step - 1 ; Änderung
$iWert = StringMid($arGames[$iIndex][1], $iZeile * 9 + $iSpalte + 1, 1)
If $iWert <> 0 Then
GUICtrlSetData($arSudokuFeld[$iZeile][$iSpalte], $iWert)
GUICtrlSetStyle($arSudokuFeld[$iZeile][$iSpalte], BitOR($ES_CENTER, $ES_NUMBER, $ES_READONLY))
Else
GUICtrlSetData($arSudokuFeld[$iZeile][$iSpalte], "")
GUICtrlSetStyle($arSudokuFeld[$iZeile][$iSpalte], BitOR($ES_CENTER, $ES_NUMBER))
EndIf
Next
Next
$begonnen = False
EndFunc ;==>GameChange

[/autoit]

**bernd670**

Frontpage ist wohl die schlechteste alternive um eine Homepage zu erstellen! Davon würde ich die Finger lassen. Da die meisten Anbieter eh ein LAMPP-System anbieten solltest du dir lieber mal Joomla oder ähnliche CMS anschauen.

**bernd670**

Hallo Alina,

bei Koda wird dadurch aber nur die Reihenfolge geändert in der die Controls erzeugt werden, die stimmt bei mir ja!

Es liegt scheinbar an der Zuweisung der ControlID an das 2-dimensionale Array, ich habe es mal testweise ohne Array gemacht und dann stimmt die Reihenfolge! :hammer: :hammer:

Jetzt probier ich es noch mal mit einem 1-dimensionalen Array!

Edit:

So der Fehler liegt scheinbar an der Funktion GuiCtrlSetStyle, wenn man GuiCtrlSetStyle auf ein Array anwendet wird beim 1. Zugriff das Array umsortiert, danach nicht mehr. Ich habe aber eine Möglichkeit gefunden den Fehler zu umgehen, wenn man die Schleife rückwärts laufen lässt passiert ncihts!

Edit: Dateianhang entfernt -> veraltet

**bernd670**

Ich muss jetzt nur noch hinbekommen das der Cursor beim drücken der Tabulatortaste in der richtigen Reihenfolge durch das Sudokufeld springt! Oder ist das nur bei mir so?

Ich verstehe noch nicht warum der Cursor rückwärts springt, normalerwese wird doch Taborder in der Reihenfolge festgelegt in der die Controls erstellt werden!?

Alina, dann wünsche ich dir doch mal viel Erfolg bei der Arbeitssuche!

**bernd670**

Hallo!

GUISetOnEvent ist nur für Events die die Form betreffen wie Close, Minimize, Maximize usw. Für Controls muss GUICtrlSetOnEvent benutzt werden!

Das gleiche Problem hattest Du doch vor kurzem schon einmal!?

**bernd670**

Hier stehen alle Codes!

Virtual-Key Codes

Man muss nur wissen welche Tasten das auf der US-Tastatur sind!

Code

ä = 0xDE -> For the US standard keyboard, the 'single-quote/double-quote' key
ö = 0xC0 -> For the US standard keyboard, the '`~' key
ü = 0xBA -> For the US standard keyboard, the ';:' key

**bernd670**

Ich hab's eben noch mal auf XP Pro SP2 getestet -> läuft ohne Probleme!

Beiträge von bernd670

Sudoku-/Schleifen-Problem

Wer findet den Fehler oO

Sudoku

Ein nicht nachvollziehbares Problem

Zeilenumbruch durch <Enter>

Ein nicht nachvollziehbares Problem

Wer findet den Fehler oO

Anfängerfragen zu Listen in GUIs

Anfängerfragen zu Listen in GUIs

Anfängerfragen zu Listen in GUIs

Vorgang wiederholen

Vorgang wiederholen

Vorgang wiederholen

Sudoku

Homepage

Sudoku

Sudoku

GUIOnEventModus TreeviewItem abfangen?

IfPressed

IfPressed