Genial einfaches Tool zur Web Recherche - Smartclip

Hallo @Tuxedo !

Zitat von Tuxedo

Mit der Notation habe ich noch so meine Schwierigkeiten

Was ist daran so kompliziert ?
Ich habe Dir in meinem Beitrag 18 (falls Du den gelesen hast) doch die gängigen Präfixe aufgelistet. Du denkst Dir 'sprechende' Variablennamen aus, und setzt das Präfix davor - Fertig. Falls Du es mal vergessen solltest, dann passiert ja nichts.

Zitat von Tuxedo

MustDeclareVars verwende deahalb nicht mehr weil es mich schon öfters zum verzweifeln brachte

Opt('MustDeclareVars', 1) würde ich aber wirklich empfehlen.
Dazu bedarf es nur etwas Planung, also :
- welche Variablen möchte ich global verwenden -> am Anfang des Skriptes Global deklarieren
- welche Variablen brauche ich lediglich in der jeweiligen Funktion -> Local deklarieren

Diese Planung hat auch den Vorteil, dass kein Wildwuchs bei den Variablen entsteht !

Gruß Musashi

Hallo @Musashi und @Tuxedo,

Zitat von Musashi

Opt('MustDeclareVars', 1) würde ich aber wirklich empfehlen.
Dazu bedarf es nur etwas Planung, also :
- welche Variablen möchte ich global verwenden -> am Anfang des Skriptes Global deklarieren

Als ich anfing, habe ich auch so gearbeitet, weil ich mir irgendwelche Videos angeschaut habe, in denen das so proklamiert wurde. Heute halte ich das für einen Fehler. Opt('MustDeclareVars', 1) halte ich persönlich für unnötig. Wer es aber zur Selbstdisziplinierung braucht, soll es ruhig nutzen.

Für mich hat sich herausgestellt, dass man einfach immer versuchen sollte, alles so lokal wie möglich zu halten - sich also immer Gedanken machen sollte, was man wo mit einer Variable machen möchte. Dann sollte man die Variable genau da (oder direkt darüber) deklarieren, wo man sie initialisiert/braucht.

Wenn man bei späteren Änderungen eine Variable löscht, hat man die Deklaration auch direkt im Blick. Der andere Weg führt für mich eher dazu, dass ungenutzte Variablen deklariert werden. (Am Ende sind das aber natürlich alles persönliche Vorlieben).

Zitat von Tuxedo

MustDeclareVars verwende deahalb nicht mehr weil es mich schon öfters zum verzweifeln brachte, dafür achte ich sehr gut auf mögliche Fehler,da wäre mal eine UDF angebracht die einfach alle gefunden Variablen selbstständig im Scriptkopf Global oder in der Funktion als Lokale Variablen erstellen würde, aber das ist für mich noch zu viel des guten eine UDF zu erstellen, die sollte frei von Fehlern sein.

Das wird sicher nicht kommen. Kann auch nicht klappen. Wenn du lokal einen Variablennamen verwenden möchtest, den du schon global benutzt, wie soll irgendein Skript wissen, dass du hier aber nicht der globalen Variable einen neuen Wert zuweisen möchtest, sondern eine neue lokale Variable einführen willst oder umgekehrt? Das ginge nur, wenn du das Deklarieren und das Initialisieren - also die Wertzuweisung - strikt trennen würdest. Wenn eine Variable oder mehrere Variablen ohne Zuweisung in einer Zeile stünden, könnte es natürliche einen Gültigkeitsbereich ausmachen und die Zeile ergänzen.
Wer aber diese Disziplin an den Tag legt, braucht sicher nicht so einen fehleranfälligen Kram

Die Notation stellst du dir scheinbar ziemlich schwierig vor. Fang einfach mal langsam damit an. Sich wenigstens halbwegs an Konventionen zu halten hat Vorteile. Das hilft dir mit gewissem Abstand selbst, dich wieder in deinem Skript zurecht zu finden, wenn du nach Monaten etwas ändern willst. Es hilft aber auch anderen Programmierern, die sich deinen Code ansehen sollen, wenn du mal Probleme hast. Gerade bei fremden Code hilft es, schnell zu verstehen, was der Programmierer hier wollte bzw. womit er arbeiten wollte.
Das ist jetzt aber keine Aufforderung, das in diesem Skript nachträglich zu implementieren. Ich wollte es (wie alle anderen bisher auch) nur anmerken .

Folgendes habe ich aus dem Post von BugFix. Ich habe es nicht getestet und labere vielleicht Quatsch. Warte mal auf Widerspruch von anderen:

Zitat von Tuxedo

Ich bin mir nicht sicher evtl. ist das Problemgenau das Send("^c") , ich weiß nur, daß die Funktion "Kopieren" Probleme hat wenn ich die nachfolgende Sleep(100) entferne. Ob das mit dem Send-Befehl zusammenhängt weiß ich nicht. Aber wenn die Sleep(100) fehlt, kopiert mir das Script keine Bilder mehr sondern nur der Link landet dann im Clipboard.

Die Wartepause ist notwendig. Die Erfahrung habe ich auch schon gemacht, als ich mir mal einen Clipboard-Manager schreiben wollte. Ich weiß, deine Zwischenablage ist nicht leer sondern der Link erscheint, statt dem Bild. Mir hat aber dennoch geholfen eine Schleife statt einem festen Sleep zu nehmen (weil sich die notwendige Zeit unterscheiden kann.

; Statt dem hier:


If ClipGet() <> "" Then ;Da ich hier ändern musste kann jetzt der gleiche Einrtag mehrmals kopiert werden
	$Clip[$Cstep] = ClipGet()


	SplashTextOn("Titel", "Clip " & $Cstep & " wurde gespeichert", 270, 50, MouseGetPos(0), MouseGetPos(1), 17, "Arial", 14, 400)
	$TimerKurz = TimerInit()


	$Cstep += 1
EndIf


; Habe ich etwa so etwas verwendet:


Local $hTimer = TimerInit(), $fDiff
Do
	Sleep(50)
	$Clip[$Cstep] = ClipGet()
	$fDiff = TimerDiff($hTimer)
Until $Clip[$Cstep] <> "" Or $fDiff > 3000


If $Clip[$Cstep] == "" Then
	; Wir haben ein Problem. Was tun?
Else
	SplashTextOn("Titel", "Clip " & $Cstep & " wurde gespeichert", 270, 50, MouseGetPos(0), MouseGetPos(1), 17, "Arial", 14, 400)
	$TimerKurz = TimerInit()


	$Cstep += 1
EndIf

Zitat von Tuxedo

Aber das Drücken der Control-Taste während des Link Kopierens sollte die Funktion BildCopy aufrufen,
aber ohne Sleep(100) wird stattdessen in die Funktion Kopieren gesprungen(ich verstehe einfach nicht warum).

Ich glaube hier liegt eine falsche Klammersetzung vor. Du hast die komplette Abfrage umklammert. Ich denke du musst die <> Abfrage von der der Not-Abfrage abkapseln, da das zum Fehler führt.
Also If (ClipGet() <> "") And Not _IsPressed("11", $hUser32) Then F_LinkCopy().
Allerdings wäre es wohl klarer, wenn du die Bedingungen etwas trennen würdest (BugFix hatte das auch ähnlich angemerkt). Zusammen mit der Folgezeile könnte das so aussehen:

If ClipGet() <> "" Then
	If _IsPressed("11", $hUser32) Then
		F_BildCopy()
	Else
		F_LinkCopy()
	EndIf
EndIf

PS: Wie geschrieben. Das habe ich einfach mal nach Codeansicht geschrieben. Ich bin hier aber definitiv nicht die hellste Leuchte. Daher fordere ich Wachsamkeit von allen Lesern

Vorab @Tuxedo !
Dieser Beitrag richtet sich weniger an Dich. Du hast klar zum Ausdruck gebracht, dass die Themen 'Notation' und 'Deklaration' für Dich z.Zt. keine Priorität haben. Das respektiere ich selbstverständlich, und werde dazu keine weiteren Kommentare mehr abliefern.

Zitat von Tuxedo

Wenn ihr schon die Variabledeklaration anprangert dann lasst mich doch wissen was genau euch daran nicht gefällt.

Eigentlich war nur diese Bitte von Dir der Grund, warum ich das so ausführlich beschrieben habe. Na ja, vielleicht kannst Du das später noch mal gebrauchen .

@autoiter !

Zitat von autoiter

Als ich anfing, habe ich auch so gearbeitet, weil ich mir irgendwelche Videos angeschaut habe, in denen das so proklamiert wurde. Heute halte ich das für einen Fehler. Opt('MustDeclareVars', 1) halte ich persönlich für unnötig. Wer es aber zur Selbstdisziplinierung braucht, soll es ruhig nutzen.

Das darf natürlich jeder so sehen, wie er möchte. Die Nutzung von 'MustDeclareVars' als Zeichen von fehlender Selbstdisziplin zu werten, würde ich, bei größeren Skripten, aber nicht unterschreiben.
Interessanterweise hat auch @BugFix in seinen Skriptkommentaren 'MustDeclareVars' vorgeschlagen, und wer würde es wagen, @BugFix fehlende Disziplin zu unterstellen .

Gruß Musashi

Zitat von autoiter

Ich denke du musst die <> Abfrage von der der Not-Abfrage abkapseln, da das zum Fehler führt.
Also If (ClipGet() <> "") And Not _IsPressed("11", $hUser32) Then F_LinkCopy().

Nein musst du nicht, die <, >, <=, >=, =, == haben eine höhere Präferenz und werden dem And vorgezogen. Du kannst hier die Klammern komplett weglassen.
Das Not hingegen hat eine höhere Präferenz und sollte bei einigen Abfragen ausgeklammert werden.

Beispiel: Not 5 = 2 ==> 0 = 2 ==> False Not (5 = 2) ==> Not False ==> True

Ich habe sowieso Bauchschmerzen damit, dass du die Änderungen der Zwischenablage über Tastenkombinationen abgreifst.
Es gibt alternativ die Möglichkeit auf Event-Ebene zu arbeiten. Heißt: Windows sagt deinem Skript Bescheid wenn sich an der Zwischenablage was ändert.
Genau dafür gibt es ja auch die in AutoIt mitgelieferte Clipboard-UDF.
Schau dir am besten mal das Beispiel in der AutoIt-Hilfe zu _WinAPI_AddClipboardFormatListener an (eventuell musst du dort noch die erste _WinAPI_GetVersion-Abfrage entfernen)

Hallo @AspirinJunkie,

Ich wollte auch mal so etwas ähnliches machen und wollte dazu auch die Clipboard UDF verwenden. Jedoch habe ich nicht geschnallt, wie man etwa mit Bildern umgeht und unterscheidet, dass es sich nicht etwa um eine kopierte Pfadangabe sondern tatsächlich um eine Bilddatei handelt. Weißt du das?

Zitat von autoiter

Ich wollte auch mal so etwas ähnliches machen und wollte dazu auch die Clipboard UDF verwenden. Jedoch habe ich nicht geschnallt, wie man etwa mit Bildern umgeht und unterscheidet, dass es sich nicht etwa um eine kopierte Pfadangabe sondern tatsächlich um eine Bilddatei handelt.

Du schaust einfach was drinne steht, wenn du einen String hast, dann ist es doch der Pfad. Sollte eine Bitmap drinne gespeichert sein, so ist es ein Bild.

Hallo @Tuxedo !
Ich habe noch eine entpackte Version von SmartClip 1.68 bei mir gefunden. Ich Zip das mal, und hoffe, es hilft Dir weiter.

Gruß Musashi

Hallo @Tuxedo !

Ich habe noch mal in meinem Downloadordner nachgesehen.
Anbei die von Dir geposteten Originalversionen Smartclip_1.68.zip und Multi-Clip_v1.68.zip.

In Zukunft daran denken : Man braucht 3 Dinge - Freunde, Gesundheit und Sicherheitskopien .

Gruß Musashi

Deshalb backupt man die alte Version in einen Ordner und arbeitet an einer Kopie.

Jetzt weißt du es für die Zukunft besser.

Zeichne doch ein Bild auf eine transparente GUI und platziere diese über der Maus.
Dann machst du die GUI durchklickbar und fertig.

Zitat von Tuxedo

Weiß jemand von Euch ob es eine einfache Möglichkeit gibt eine Kleine Grafik max 32x32 Pixel an einen Cursor
zu binden

So etwa?

#include <WinAPI.au3>
#include <WindowsConstants.au3>


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


Global $x, $y, $x_maus, $y_maus


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


$s_Bild_Breite = 32 ; Breite Mausbild


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


$s_Bild_Hoehe = 32 ; Höhe Mausbild   


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


$s_Mauszeiger = "Dein_Wunschbild.jpg" ; BMP/JPG/GIF


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


$hwnd = GUICreate("Mouse Layer", @DesktopWidth, @DesktopHeight, Default, Default, $WS_POPUP, BitOR($WS_EX_LAYERED, $WS_EX_TOPMOST, $WS_EX_TRANSPARENT, $WS_EX_COMPOSITED))
GUISetBkColor(0xFFFFFF)


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


$x_Bewegung = ($s_Bild_Breite / 2)
$y_Bewegung = ($s_Bild_Hoehe * 0.3)
$Maus = GUICtrlCreatePic($s_Mauszeiger, $s_Bild_Breite, $s_Bild_Hoehe, $s_Bild_Breite, $s_Bild_Hoehe, Default, $WS_EX_LAYERED)
_WinAPI_SetLayeredWindowAttributes($hwnd, 0xFFFFFF, 255)


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


Func _Mauszeiger()
	$pos = MouseGetPos()
	$x = $pos[0]
	$y = $pos[1]
	$x_maus = $x - $x_Bewegung
	$y_maus = $y - $y_Bewegung
	GUICtrlSetPos($Maus, $x_maus, $y_maus)
EndFunc   ;_Mauszeiger()


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


GUISetState(@SW_SHOW)


; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +


While 1
	Sleep(22)
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case -3
			Exit
	EndSwitch
	_Mauszeiger()
WEnd
; ++++++++++ +++++++++ ++++++++ +++++++ ++++++ +++++ ++++ +++ ++ +