Beiträge von Tweaky

Danke

Hoffe mal, dass genauso viele Tipper beim Bundesliga-Tippspiel am Start sind

Ah ok, gar nicht gewusst, dass es das bei GUISetOnEvent gibt.

Wieder was dazugelernt

Kanashius

Danke nun funktioniert es.

Velted

Ich würde aber gerne Opt("GUIOnEventMode", 1) aktiviert lassen.

Ich habe eine GUI. Dort verstecke ich einen Button.

Wie kann man verhindern, dass man per Drag & Drop eine Datei auf den versteckten Button ziehen kann?
Klar könnte man abfragen, ob der button versteckt ist.
Dies würde allerdings nicht klappen, wenn ich 2 Button übereinander liegen habe und immer einen von beiden verstecke.

#Region    ;************ Includes ************
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WinAPISysWin.au3>
#EndRegion ;************ Includes ************

Opt("GUIOnEventMode", 1)

Global $hGui = GUICreate("test", 150, 200, -1, -1, -1, $WS_EX_ACCEPTFILES)
Global $idButton_1 = GUICtrlCreateButton("Button 1", 10, 10, 60, 30)
Global $idButton_2 = GUICtrlCreateButton("Button 2", 10, 60, 60, 30)
Global $idButton_beenden = GUICtrlCreateButton("Beenden", 10, 110, 60, 30)
Global $idLabel = GUICtrlCreateLabel("", 80, 35, 50, 35)

GUISetState(@SW_SHOW)

Sleep(2000)
GUICtrlSetState($idButton_1, $GUI_HIDE + $GUI_NODROPACCEPTED)

GUIRegisterMsg($WM_DROPFILES, "On_WM_DROPFILES")

GUISetOnEvent($GUI_EVENT_CLOSE, "_beenden")
GUICtrlSetOnEvent($idButton_beenden, "_beenden")


While 1
	Sleep(10)
WEnd


Func On_WM_DROPFILES($hWnd, $msg, $wParam, $lParam)
	Local $aFileList, $nSize, $pFileName, $tPoint, $hCtrl

	$tPoint = _WinAPI_DragQueryPoint($wParam)
	If Not DllStructGetSize($tPoint) Then Return     ;window border
	$hCtrl = _WinAPI_ChildWindowFromPointEx($hWnd, $tPoint)

	If $hCtrl = ControlGetHandle($hGui, "", $idButton_1) Then
		GUICtrlSetData($idLabel, "Button 1")
	ElseIf $hCtrl = ControlGetHandle($hGui, "", $idButton_2) Then
		GUICtrlSetData($idLabel, "Button 2")
	EndIf
	_WinAPI_DragFinish($wParam)
	_WinAPI_MessageBeep(0)         ;Ton erzeugen

	Return
EndFunc   ;==>On_WM_DROPFILES

Func _beenden()
	Exit
EndFunc   ;==>_beenden

Zitat von SOLVE-SMART

Hoffe das du guten, vielen Support dazu bekommst.

Danke für dein Lob.
Leider bekomme ich aktuell (bzw. schon seit längerem) 0,0 Support zu dem Thema

Hi,
falls ihr beim benutzen der deutschen Hilfe Rechtschreibfehler, Formatfehler und inhaltliche Fehler findet, wäre es nett dass ihr diesen dann auch hier meldet.
Dann können wir diese korrigieren.
Bitte nur Fehler der Hilfedatei 3.3.16.1 2025.02.16 melden.

Hi,

es gibt eine neue Version der deutsch / englischen Hilfe für AutoIt 3.3.16.1.
Deutsche Offlinehilfe (Hilfe / au3.api / Beispiele)
Deutsche Onlinehilfe

Schaut euch die Hilfe bitte genau an.
Fehler könnt ihr dann hier melden.
Gibt es eine deutsche Funktionsbeschreibung, so wird diese direkt angezeigt und man kann man durch das Flaggen-Symbol rechts oben von deutsch auf englisch umstellen.
Gibt es noch keine deutsche Funktionsbeschreibung so wird direkt die englische Funktionsbeschreibung angezeigt.
In der offline-Version gibt es 2 Farbversionen. 1x normal und 1x DarkMode
Diese Dateien können hier übersetzt werden.
Danke an alle Übersetzer und Helfer.
Viel Spaß damit

---------------

Zitat von Andy

Ich hoffe, Tweaky liest hier mit.

Nein mache ich nicht .

Aber schreibt einfach hier rein was ich genau wie ändern soll. Ich übernehms dann 1:1.

sollte passen

Mit _FileReadToArray() einlesen und dann mit StringLen() jede Zeile zählen.

Ersetze mal

$ret = StringSplit($ret, "&")

durch

$ret = StringSplit($ret[2], "&")

Dann solltest du weiter kommen.

ok danke

UEZ

Hast du zufällig eine Lösung gefunden?

_SQLite_QueryFinalize($hQuerys)

War genau richtig. Danke

Danke euch beiden.

Um zu prüfen, ob es Änderungen gibt verwende ich nun:

_SQLite_TotalChanges()

Dies funktioniert.

Um die Anzahl zu zählen verwende ich folgendes:

_SQLite_Query(..., "select count(*) from cookies", $hQuerys)
_SQLite_FetchData($hQuerys, $sOut)

Dies funktioniert soweit auch.

Allerdings kann ich anschließend den Ordner, in dem sich die sql-Datei befindet, nicht löschen.

_SQLite_Startup()
$hSqlite = _SQLite_Open(...)
_SQLite_Query($hSqlite, "select count(*) from moz_historyvisits", $hQuerys) ;hier liegt das Problem
_SQLite_FetchData($hQuerys, $sOut)
_SQLite_Close($hSqlite)
_SQLite_Shutdown()

DirRemove(..., 1) ;Dies funktioniert nicht
MsgBox(0,0,0)

Es liegt am Befehl "_SQLite_Query".

Erst wenn ich die MsgBox bestätige (also das Skript komplett beendet ist), kann ich den Ordner löschen.

Warum?

Ich habe SQLite doch korrekt beendet.

So funktioniert es.

$GUI = GUICreate("""-"" Fenster zum Darstellen von Bildern", 1920, 1080, 0, 0, BitOR($WS_POPUP, $WS_MAXIMIZE)) ;Die Hauptgui

OK das ist wirklich übersichtlicher.

Kann ich es herausfinden, ob denn was gelöscht wurde?

Kann ich herausfinden, wie viele Einträge verhanden sind?

Hatte vergessen zu erwähnen, dass die Kriterien von 2 Spalten geprüft werden müssen.

Deshalb habe ich es so gemacht.

#include <Array.au3>
Global $aExceptions[4][2], $sAusnahme_func

$aExceptions[1][0] = 1
$aExceptions[1][1] = 2
$aExceptions[2][0] = 5
$aExceptions[2][1] = 50
$aExceptions[3][0] = 6
$aExceptions[3][1] = 9

;~ _ArrayDisplay($aExceptions)

For $w = 1 To UBound($aExceptions) - 1
    If $w <> 1 Then $sAusnahme_func &= " AND "
    $sAusnahme_func &= '(' & 'name <> ' & '"' & $aExceptions[$w][0] & '"' & " OR host_key <> " & '"' & $aExceptions[$w][1] & '"' & ')'
Next

Local $sSQL = '"DELETE FROM moz_historyvisits where ' & $sAusnahme_func & '"'
ConsoleWrite($sSQL & @CRLF)

Oder habt ihr eine einfachere Lösung?

Ok daran habe ich auch schon gedacht.

Dachte es gibt vielleicht eine Möglichkeit: Zeilenweise durchlaufen und dann prüfen ob die Bedinungen erfüllt sind.

Hi,

ich weiß, dass ich z. B. mit

_SQLite_Exec($hSqlite, "delete from moz_historyvisits where visit_type <> 7 AND visit_type <> 2")

Zeilen einer SQlite-Datei mit Ausnahmen (hier <>7 und <>2) löschen kann.

Nun habe ich allerdings mehrere Ausnahmen die in einem dynamischen Array stehen.

Wie bekomme ich dies nun in den obigen Befehl reingequetscht.