AutoHotKey ImageSearch Bild zu klein?

Hallo,

Ich habe das script:

	F::
	        MouseGetPos, xpos, ypos
			ImageSearch, BonesX, BonesY, 0, 0, A_ScreenHeight, A_ScreenWidth, Bones.png
		    if(ErrorLevel = 2)
		    {
			    MsgBox, not found
		    }
		    else if(ErrorLevel = 1)
		    {
				MsgBox, not found
		    }
		    else if(ErrorLevel = 0)
		    {
			    MouseMove, %BonesX%, %BonesY%
				Click
				MouseMove, %xpos%, %ypos%
		    }
		return

und das funktionier auch bei großen Bildern aber bei kleinen, wie diesen, nicht:

Bild zum Beitrag

gibt es da irgend einen Trick, dass es auch für kleinere geht?

vielen Dank im voraus!

1 Antwort

Vom Fragesteller als hilfreich ausgezeichnet

HeboScrub

30.12.2021, 10:49

Die Größe des Bildes ist egal. Meistens liegt das Problem darin, dass das Quellbild (auf deinem Bildschirm) nicht exakt mit dem Suchbild übereinstimmt.

Manchmal liegt es an dem Hintergrund, manchmal an der Schattierungen im Bild welches teilweise transparent ist und somit einige Pixel nicht immer die gleiche Farbe haben.

Falls er andere Bilder findet und dieses Suchbild nicht, dann könntest du versuchen das Suchbild noch weiter zu verkleinern, bis er es findet. Besteht natürlich das Risiko, dass er beim ganz kleinen Suchbild (mit wenigen Pixeln) mehr als nur eine Stelle findet, da wahrscheinlich dieses Muster mehrfach auf dem Bildschirm gibt.

Falls du dich mit Bildbearbeitungsprogrammen auskennst (z.B. geht auch die Freeware "Paint.NET"), dann könntest erneut ein Screenshot machen von dem Quellbild, welches AHK nicht findet, dieses über das Suchbild legen und die nur Differenzen anzeigen lassen. Damit könnte man rausfinden welche Pixeln sich ändern.

KACKBIENCHEN

Fragesteller

31.12.2021, 11:24

okay danke

Liebe Community, ich habe versucht eine Schiebepuzzle aus Zahlen in Excel zu programmieren. Den Text seht ihr unten. Jedoch sobald ich auf Ausführen (Wiedergabe-Button) drücke, kommt folgender Fehler:

Laufzeitfehler '424':
Objekt erforderlich

Könnt ihr mir bitte helfen den Fehler zu finden?

Vielen Dank im Vorraus
Lamio13

Dim xpos As Integer   
Dim ypos As Integer  
Dim AlleKnoepfe(1 To 15) As CommandButton

Private Sub UserForm_Initialize()
Set AlleKnoepfe(1) = CommandButton1
Set AlleKnoepfe(2) = CommandButton2
...  
Set AlleKnoepfe(14) = CommandButton14
Set AlleKnoepfe(15) = CommandButton15
End Sub

Sub FindMich(ich As String)
    Dim ii As Integer
    Dim jj As Integer

    For jj = 1 To 4
                 For ii = 1 To 4
                      If (Cells(jj, ii) = ich) Then
                         xpos = ii
                          ypos = jj
                          ii = 5
                          jj = 5
                      End If
                 Next ii
    Next jj
End Sub
Private Sub KannMichBewegen()

    'untersuche, ob rechts frei ist
    If (Cells(ypos, xpos + 1) = "") Then
        Cells(ypos, xpos + 1) = Cells(ypos, xpos)
        Cells(ypos, xpos + 1) = ""
    End If

End Sub

Sub VerschiebMich(SchubladenNummer As Integer)
    'untersuche, ob rechts frei ist
    If (xpos < 4) Then
            If (Cells(ypos, xpos + 1) = "") Then
                Cells(ypos, xpos + 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob unten frei ist
    If (ypos < 4) Then
            If (Cells(ypos + 1, xpos) = "") Then
                Cells(ypos + 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

    'untersuche, ob links frei ist
    If (xpos > 1) Then
            If (Cells(ypos, xpos - 1) = "") Then
                Cells(ypos, xpos - 1) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Left = AlleKnoepfe(SchubladenNummer).Left + AlleKnoepfe(SchubladenNummer).Width
            End If
    End If

    'untersuche, ob oben frei ist
    If (ypos > 1) Then
            If (Cells(ypos - 1, xpos) = "") Then
                Cells(ypos - 1, xpos) = Cells(ypos, xpos)
                Cells(ypos, xpos) = ""
                AlleKnoepfe(SchubladenNummer).Top = AlleKnoepfe(SchubladenNumemr).Top + AlleKnoepfe(SchubladenNummer).Height
            End If
    End If

End Sub

Private Sub CommandButton1_Click()
    FindMich (CommandButton1.Caption)
    VerschiebMich (1)
    End Sub
...

...zur Frage

AutoHotkey 100x Loop?

Servus, ich habe für AHK folgenden Script geschrieben und er funktioniert.

Er läuft einmal durch, es werden die Zahlen "5, 6, 7" auf dem Numpad gedrückt, und das war's.

Ich möchte aber, dass jene Zahlenfolge immer wieder geschrieben wird. So lange, bis ich wieder Strg+5 drücke und dann erst der Loop beendet wird.

Was habe ich falsch gemacht?

#MaxThreadsPerHotkey 2
$^5::
toggle := !toggle
Loop
{
if toggle
{
Send, {Numpad5 down}
Sleep, 20
Send, {Numpad5 up}
Sleep,1000
Send, {Numpad6 down}
Sleep, 20
Send, {Numpad6 up}
Sleep,1000
Send, {Numpad7 down}
Sleep, 20
Send, {Numpad7 up}
Return
}
else
{
break
}
}

...zur Frage

C#, Ein Teil des Pfades konnte nicht gefunden werden?

Guten Tag,

Mein Programm soll eine Datei auf den Desktop kopieren, umbenennen und dann starten, dazu habe ich folgenden Code:

//Datei + Ziel festlegen
            string Name = "NoRecoil-R6S.exe";
            string Path = Environment.SpecialFolder.Desktop.ToString();
            string Stream = System.IO.Path.Combine(System.Windows.Forms.Application.StartupPath, "Resources");
            //Auf Desktop kopieren             string Datei = System.IO.Path.Combine(Stream, Name);             string destFile = System.IO.Path.Combine(Path, Name);             if (System.IO.File.Exists(Datei))             {                 try                 {                     System.IO.File.Copy(Datei, destFile, true);

                    if (System.IO.File.Exists(Datei))
                    {
                        //Umbenennen
                        if (System.IO.File.Exists(destFile + ".exe"))
                        {
                            System.IO.File.Move(destFile, destFile + code + ".exe");
                            //Starten
                            if (System.IO.File.Exists(Path + code + ".exe"))
                            {
                                Process.Start(Path + code + ".exe");
                                this.Hide();
                            }
                            else
                            {
                                MessageBox.Show("File does not exist on Desktop.");
                            }
                        }
                        else
                        {
                            MessageBox.Show("File does not exist on Desktop.");
                        }
                    }
                    else
                    {
                        MessageBox.Show("Failed to copy script!");
                    }
                }
                catch (Exception ex)
                {
                    string Error = Convert.ToString(ex);
                    MessageBox.Show(Error);
                }
            }
            else
            {
                MessageBox.Show("Script not found in resources.");
            }

Jedoch scheitert es beim Kopieren auf den Desktop. Als Fehlermeldung erhalte ich immer, dass ein Teil des Pfades nicht gefunden werden konnte. Als nicht gefundener Pfad steht dann:

Desktop\NoRecoil_R6S.exe

Aber die Datei muss er dort ja nicht finden. Die muss dahin kopiert werden?

...zur Frage

Autohotkey 2 Tasten aufeinmal?

Wie schriebt man ein Script, sodass 2 Tasten aufeinmal gedrückt werden? Ich möchte, wenn ich Maustaste 5 drücke, dass MB5 und "D" gedrückt wird. Weiß einer, wie man das macht? Danke im voraus. :)

...zur Frage

AutoHotKey frage?

wie würde ich so etwas machen:

%Var%::

Weil so geht es nicht aber ich würde es gerne so haben das wenn ich den Buchstaben drücke von der variable ich dahinter das machen kann vielen Dank im vorraus(falls überhaupt jemand ahk fragen beantwortet)!

...zur Frage

Python: Doppeltes if-statement vereinfachen?

Folgender Code:

if (a) and (not b):
  ...

if (b) and (not a):
  ...

else:
  ...

Kann man das vereinfachen?

Danke im Vorraus!

...zur Frage

VBA if range then else?

Wenn ich den Entfernen Button aklicke kommt die MsgBox "Da steht nicht".
Die soll aber erst kommen wenn da wirklich nichts steht.
Kann mir jemand helfen?

...zur Frage

VBS Variable in eine .txt Datei schreiben?

Hallo liebe Community,

Ich habe gestern mit vbs angefangen und habe eine Frage:Wie kann ich eine Variable in eine .txt Datei schreiben

script:

text = inputbox("Du:")

set fs = createobject("scripting.filesystemobject")

set file = fs.openTextFile("a.vbs", 8, true)

test = text

file.writeline ""

file.writeline "if text = test then"

file.writeline "msgbox(test)"

file.writeline "else"

Die Ausgabe ist:

if text = test then

msgbox(text)

else

Nun soll test aber der Inhalt der Inputbox sein aber,text soll text bleiben.

Bitte mit Erklärung,bin nunmal anfänger

...zur Frage

VBA Intersect Bereich in Bereich überprüfen statt Zelle in Bereich?

Hallo,

wie kann ich mit der Methode Application.Intersect zwei Bereiche miteinander Vergleichen?

Normalerweise kann ich ja z.b. mit :

If Not Application.Intersect(Target, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

Überprüfen ob eine Zelle in einem benannten Bereich ausgewählt oder sontiges ist.

Das klappt mit:

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

leider nur mittelmäßig.

Beispiel:

'''''''''''''''''''''''''''''''''''''1.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B2 

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = Keine MsgBox - richtig

'''''''''''''''''''''''''''''''''''''2.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis A10  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = MsgBox erscheint - richtig

'''''''''''''''''''''''''''''''''''''3.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis B1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle A1 bis C1  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

'''''''''''''''''''''''''''''''''''''4.
Set Bereich = Range("B1:B10")

'Ich markiere Zelle B1 bis B15  

If Not Application.Intersect(Selection.Address, Bereich) Is Nothing Then
Msg "Nicht innerhalb"

'Ergebnis = keine MsgBox - falsch, das soll nicht passieren

Wie schaff ich es, dass die MsgBox immer dann auftaucht, wenn mindestens eine Zelle nicht im Bereich ist?
Also der Markierte Bereich MUSS mit jeder Zelle im Definierten Bereich liegen.

Und eine Lösung ohne 'Split' oder Umwege wäre mir lieb, außer es gibt halt keine andere xD

...zur Frage

VBA Inputbox Werte verrechnen?

Moin Leute,

anbei eine kurze Aufgabenstellung. Ich konnte den ersten Teil bereits erfolgreich lösen, leider scheitere ich aber daran den Inputwert mit der zugehörigen prozentzahl zu multiplizieren.

Folgende Aufgabenstellung:

Schreiben Sie eine Prozedur zur Ermittlung des Zinssatzes für eine Geldanlage. Liegt der anfänglich angelegte Geldbetrag über 10.000,00 €, beträgt der Zinssatz 3 %, liegt er über 20.000,00 €, beläuft sich der Zinssatz auf 3,5 % ansonsten liegt er bei 2,75 %. Verwenden Sie eine If-Else-Anweisung. Der Eingangsbetrag ist über eine Inputbox zu erhalten. Der gültige Zinssatz und das Resultat ist über eine MsgBox anzuzeigen.

Mein Fortschritt:

Sub test2()

Dim Zahl As Double

Zahl = InputBox("Gebe Sie eine Zahl ein")

If Zahl > 20000 Then

MsgBox (("3,5%"))

ElseIf Zahl > 10000 Then

MsgBox (("3%"))

ElseIf Zahl <= 10000 Then

MsgBox (("2,75%"))

End If

End Sub

...zur Frage

C#-MessageBox wird immer doppelt angezeigt?

Hierbei wird die Schließen-MsgBox immer doppelt angezeigt:

private void Form1_FormClosing(object sender, FormClosingEventArgs e)
{
   DialogResult result = MessageBox.Show("Wollen Sie das Programm wirklich beenden?", "Schließen bestätigen", MessageBoxButtons.YesNo, MessageBoxIcon.Question);
     if (result == DialogResult.Yes)
     {
       Application.Exit();
     }
    else if (result == DialogResult.No)
    {
       e.Cancel = true;
    }

Das sollte aber nicht so sein.

...zur Frage

Batch Datei - Pingbefehl

Hallo zusammen :) Ich versuche mit seit heute für die Firma folgendes Programm zusammen zu reimen. Es soll eine Pingabfrage von 10 - 128 starten und mir die nicht zu erreichenden IP's in eine Textdatei schreiben.

@echo off

color c

set /a n=10

:repeat

set /a n+=1

echo 10.46.101.%n%

ping -n 2 -w 50 10.46.101.%n%

if @echo Zielnetz nicht erreichbar. else @echo " IP nicht erreichbar. IP: 10.46.101.%n% "> ipaddresses.txt

if %n% lss 130 goto repeat

pause

exit

Mein Problem ist folgendes, ich weiß nicht wie ich das if und else richtig setze. Eine Abfrage mit Errorlevel wie z.B. die: IF %errorlevel% EQU 1 (@echo " IP nicht erreichbar. IP: 10.46.101.%n% "> ipaddresses.txt) ist leider nicht möglich, da auchg wenn der Zielhost nicht erreichbar ist trotsdem Datenpakete ankommen und somit meistens keine Pakete fehlen. Es würde einfach nichts in der Textdatei stehen, obwohl bei manchen der Zielhost nicht erreichbar ist.

Wie realisiere ich das if und else?

Freue mich über sinn- und verständnisvolle Antworten :)

Mit freundlichen Grüßen

Cedric :)

...zur Frage

Excel VBA Blattschutz Passwort umgangen?

Hallo,

Ich habe folgendes Problem.

Ich habe einen Button mit dem man den Blattschutz de/aktivieren kann.

Jedoch kann man das PW umgehen, indem man einfach das Fenster schliest, indem man das PW eingibt.

Hat da jemand eine ahnung, wie ich das ausbessern kann?

Macro:

Private Sub CommandButton1_Click()

If MsgBox("Blattschutz aufheben/aktivieren?", vbYesNo) = vbYes Then

Else: Exit Sub

[...Aktion ausführen...]

End If

On Error GoTo PW

If ActiveSheet.ProtectContents = True Then

ActiveSheet.Unprotect

' einblenden:

ActiveWindow.DisplayHeadings = True

Else

ActiveSheet.Protect Password:="+1516", DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFormattingRows:=True

' ausblenden:

ActiveWindow.DisplayHeadings = False

End If

Exit Sub

PW:

MsgBox "Falsches Passwort"

End Sub

...zur Frage

Excel VBA UserForm "Passwort ändern" funktioniert nicht?

Ich komme echt nicht weiter bei so einem einfachen Code! :(

Das Problem ist, dass die UserForm einmal funktioniert, aber beim zweiten Mal sagt er "Das Passwort ist nicht korrekt", obwohl es das eigentlich sein müsste. Per Direktbereich abgefragt ergibt sich dann immer, dass das Passwort auf "" steht. Findet jemand im Code den Fehler?

PS: "NeuesPasswort1" steht für die obere, "NeuesPasswort2" für die untere Reihe.

Option Explicit

Sub CheckBoxAltesPasswort_Click()
  If CheckBoxAltesPasswort.Value = True Then
    TextBoxAltesPasswort.PasswordChar = ""
    Else
      TextBoxAltesPasswort.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort1_Click()
  If CheckBoxNeuesPasswort1.Value = True Then
    TextBoxNeuesPasswort1.PasswordChar = ""
    Else
      TextBoxNeuesPasswort1.PasswordChar = "*"
  End If
End Sub

Sub CheckBoxNeuesPasswort2_Click()
  If CheckBoxNeuesPasswort2.Value = True Then
    TextBoxNeuesPasswort2.PasswordChar = ""
    Else
      TextBoxNeuesPasswort2.PasswordChar = "*"
  End If
End Sub

Sub CommandButtonAbbrechen_Click()
  Me.Hide
End Sub

Sub CommandButtonSpeichern_Click()
  If TextBoxAltesPasswort.Value <> AltesPasswort Then
    MsgBox ("Das Passwort ist nicht korrekt.")
    Exit Sub
  End If
  If TextBoxNeuesPasswort1.Value <> TextBoxNeuesPasswort2.Value Then
    MsgBox ("Die Passwörter stimmen nicht überein.")
    Exit Sub
  End If
  If Len(TextBoxNeuesPasswort1.Value) < 5 Then
    MsgBox ("Bitte wählen Sie ein Passwort mit mindestens 5 Zeichen.")
    Exit Sub
  End If
  NeuesPasswort = TextBoxNeuesPasswort1.Value
  Passwort = NeuesPasswort
  Me.Hide
End Sub

Sub UserForm_Activate()
  AltesPasswort = Passwort
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen