Beiträge von *wudu*

Hallo,

in der Gridview (Veränderung) werden die Kopfdaten geladen. In der Listview (Suchwort) kommen dann jeweils zusätzliche Informationen zum Teil.
Manchmal ist eben das Suchwort vorhanden, manchmal nicht. Werde heute mal testen was es macht.

MfG

Das suchwort ist Dysprosium

Hi,

wusste nicht das ich hier was uploaden kann.
Gelobe Besserung.

Sehe leider nicht wo ich das Suchwort eintragen kann.

Hallo,

hier mal die zwei Dateien, die ich mit dem Infotool ausgelesen habe.
Hier steht der Text drinnen, nachdem ich suchen möchte:

Suchwort

und hier findet die Veränderung statt:

Veränderung

@ alpines, ich hoffe du kannst was damit anfangen.

Schönen Gruß

Hi,

nachdem ich nur die Verknüpfung auf den Stick kopiert habe, kann ich die Daten erst morgen liefern.

Schande über mich

Danke @ Bitnugger, genau das was ich gesucht habe. Leider müssen noch a paar Minuten her um alles zu verstehen.
Noch eine Frage zu deiner Func_Check

Func _Check()
	Local Static $resultPosition = 1, $x = $g_aRegion[0] + $g_aRegion[2] / 2, $y = $g_aRegion[1] + $g_aRegion[2] / 2, $tolerance = 20


	$g_iCheckSum2 = PixelChecksum($g_aRegion[0], $g_aRegion[1], $g_aRegion[2], $g_aRegion[3])
	If $g_iCheckSum1 = $g_iCheckSum2 Then Return


	ConsoleWrite('$g_iCheckSum2 = 0x' & Hex($g_iCheckSum2, 8) & @CRLF)


	AdlibUnRegister('_Check')
	AdlibUnRegister('_ToolTip')
	AdlibUnRegister('_GetMousePos')
	ToolTip('')
	;MsgBox(64, 'Achtung', 'Es hat sich was geändert!')


	Local $iSearch = _ImageSearch($g_sJPG, $resultPosition, $x, $y, $tolerance)
	ConsoleWrite('$iSearch = ' & $iSearch & @CRLF)


	If $iSearch = 0 Then
		$g_iCheckSum2 = -1
		AdlibRegister('_GetMousePos')
		AdlibRegister('_ToolTip')
		AdlibRegister('_Check')
	Else
		MsgBox(64, 'Vorsicht', '>>>>>>>>> Aufpassen <<<<<<<<<')


		;Exit
	EndIf
EndFunc

Wie bekomme ich das ganze dazu, nachdem

MsgBox(64, 'Vorsicht', '>>>>>>>>> Aufpassen <<<<<<<<<')

gefunden wurde. Wieder vorne angefangen wird ?

Schönen Gruß

Ok, dann sorry. Ich dachte das ganze hilft. Weil ich nicht verstehe warum es nicht so funktioniert wie ich meine.

Hier jetzt nochmal das script

#include 'ImageSearch.au3'
#include <MsgBoxConstants.au3>
While -1
  $checksum = PixelChecksum(7,515,39,530)
  While $checksum = PixelChecksum(7,515,39,530)
    Sleep(100)
  WEnd
  MsgBox($MB_SETFOREGROUND, "Achtung", "Es hat sich was geändert!")
  Dim $x = 1, $y = 1
  $iSearch = _ImageSearch(@ScriptDir & "\suche.jpg", 1,$x, $y, 70)
   If iSearch <> 1 Then Exit
  MsgBox(64, 'Vorsicht', 'Aufpassen' )
  Sleep(200)
WEnd

Sorry,

aber dafür ja in ner zip.
Und Virustotal.com gibt es ja auch noch.
So ist einfach alles drinnen, das man optimal testen kann.

Ich hätte mal eine kleine Testoberfläche gebastelt, weil es einfach nicht sauber läuft.

Hier mal die Dateien

#include 'ImageSearch.au3'
#include <MsgBoxConstants.au3>




func _stop()
   Exit
endFunc
HotKeySet("^{F9}","_stop")


Dim $x = 1, $y = 1


While true
$checksum = PixelChecksum(7,515,39,530)


While $checksum = PixelChecksum(7,515,39,530)
  Sleep(100)
WEnd


MsgBox(64, "Achtung", "Es hat sich was geändert!")


_ImageSearch(@ScriptDir & "\suche.jpg", 1,$x, $y, 70)
if $x = 1 Then Exit
   MsgBox(64, 'Achtung', 'Aufpassen' )


Sleep(200)


WEnd

Ok, MsgBox ist jetzt sichtbar.
Aber ich bekomme bei jedem Durchlauf auch die zweite MsgBox obwohl die suche.jpg nicht vorhanden ist.

#include 'ImageSearch.au3'

$checksum = PixelChecksum(7,515,39,530)

While $checksum = PixelChecksum(7,515,39,530)
Sleep(100)
WEnd

MsgBox(64, "Achtung", "Es hat sich was geändert!")

Dim $x = 1, $y = 1

_ImageSearch(@ScriptDir & "\suche.jpg", 1,$x, $y, 70)
if $x = 1 Then Exit
MsgBox(64, 'Vorsicht', 'Aufpassen' )

Sleep(200)

Exit

Ok, das ganze funktioniert soweit gut.
Leider kommt die MsgBox nicht in den Vordergrund. Gibt es eine Möglichkeit die MsgBox in den Vordergrund zu bekommen ?
Und wie bekomme ich das ganze in eine Endlosschleife, nachdem die MsgBox quittiert ist ?

Ok, wie gesagt bin an einer besseren Lösung auch interessiert. Aber das erst Montagabend.

Mein jetziger code für die imagesearch:

#include 'ImageSearch.au3'

Dim $x = 1, $y = 1
_ImageSearch(@ScriptDir & "\fz.jpg", 1,$x, $y, 70)
if $x = 1 Then Exit
MsgBox(64, 'Vorsicht', 'Aufpassen' )

Sleep(200)

Exit

Benötigt man für PixelChecksum auch eine dll ?
oder hat jemand ein Beispiel. Bin halt leider mit der Autoit Syntax nicht vertraut.

Ok, danke für die Info.
Komme leider erst wieder am Montag an den Rechner. Läuft das Info Tool vom USB Stick aus, oder muss ich installieren ?
Welche Infos sind wichtig ?

Hi,

@ alpines

ich möchte in einen Programm nach einen Text (Wort) suchen. Da aber von diesem Programm(sehr alten Programm) kein Quelltext vorhanden ist, bin ich auf die Idee gekommen mittels imagesearch nach diesen Wort zu suchen.
Da ich aber nicht konstant nach diesem Bild suchen möchte, möchte ich Imagesearch erst auslösen wenn sich hier

[Blockierte Grafik: http://www16.picfront.org/picture/BpjhQ5X4vvk/thb/Bereich.jpg]

etwas ändert. Ist das ganze geeignet, oder gibt es bessere Ansätze ?

Hallo Forum,

ich suche ein Möglichkeit, einen festgelegten Bereich (Koordinaten 7,515 linke Ecke bis 39,530 rechte untere Ecke) auf Veränderung zu prüfen.
Wenn eine Veränderung stattgefunden hat, möchte ich etwas mit ImageSearch suchen.

Welche Möglichkeiten gibt es ?

Schöne Grüße