Image search Windows 7 64bit/INI Saver

[Hussar]

Witam.

 

Mam dzisiaj dwa problemy, które są dla mnie ważna, ponieważ nie jestem w stanie przez nie dokończyć projektu, a więc...

 

_________________________________________________

 

.1 Przeszukałem cały internet, instalował include na wszystkie możliwe sposoby, nie mam już siły do tego, więc zgłaszam się z prośbą do Was, myślę, że mi pomożecie.

 

Posiadam system operacyjny Windows 7 Professional 64-bit Service Pack 1.

 

Potrzebuje ImageSearch.au3 i Imagesearch.dll do tej wersji Windowsa i konkretnej ścieżki do której mam to wkleić.

 

Po kilku próbach instalowania przeróżnych Image Search, w końcu miałem pewien moment, że w jakimś sensie działał image search, lecz nie wyszukiwał obrazka, tzn. nie było żadnych błędów, podczas odpalania kodu, tylko Else:

 

#include <ImageSearch.au3>

 

HotkeySet("{HOME}" , "st")

HotkeySet("{END}" , "en")

 

While 1

   sleep(1000)

WEnd

 

func st()

   While 1

 Global $x, $y ;A

 $image = _ImageSearch("C:\obraz.bmp' class='bbc_emoticon' alt='xD' />.bmp", 1, $x, $y, 20) ;B

 If $image = 1 Then ;C

 MsgBox(0, "FIND!", "I find your image, its position is x: "&$x&"y: "&$y)

   Else

 Msgbox(0, "Not Found!", "Unfortunately, I can't find your image, I'm sorry.")

   endif ;E

WEnd

EndFunc



func en()

   Exit

EndFunc

 

 

Myślałem, że może to być wina nie odpowiedniego formatu .bmp, więc zapisałem jako:

- Mapa bitowa monochromatyczna.

- Mapa bitowa 16-kolorowa.

- Mapa bitowa 256-kolorowa.

- Mapa bitowa 24-bitowa <== Podobno dedykowana.

 

Zapisywałem różne obrazy, nawet czasami zapisywałem w obrazie wygląd Menu Start i też nic.

 

Muszę dokończyć projekt i brakuje mi tylko i wylącznie działającego Image Search.

 

________________________________________

 

2. Drugim z moich problemów jest IniRead itd itp, a konkretnie... Problem polega na tym, że potrzebuje, by mój skrypt zapisywał, wpisywane wartości w GUI, po zakończeniu działania.

 

Niestety, kąbinowałem na tyle sposobów, że już nie mam pomysłów... Jeśli jesteście mi wstanie wytłumaczyć, jak zapisywanie wartości zastosować w InI, albo może inaczej. Potrzebuje zapisać wartości z InPutów i CheckBoxów.

 

Mile bym widział, czytelne i jasne opisy, ponieważ jestem zbyt zielony, na wasz wyimaginowany język skrypterów.

 

Dziękuje z góry za pomoc, pozdrawiam

 

[Gość]

Czemu masz to coś w ścieżce do pliku z obrazkiem?

' class='bbc_emoticon' alt='xD' />.bmp

Co do .ini i GUI: odczytujesz z GUI za pomocą GUICtrlRead, z/do ini odczytujesz/zapisujesz za pomocą IniRead/IniWrite. Przykład kodu z użyciem IniRead i IniWrite:

$pobrane = IniRead("plik.ini", "Ustawienia", "aaa", -1)
If ($pobrane == -1) Then
MsgBox(0,"BŁĄD", "Podczas czytania wartości aaa")
EndIf
$zapisane = 10
IniWrite("plik.ini", "Ustawienia", "xxx", $zapisane)

Ini:

[Ustawienia]
aaa=3.14
xxx=0

[Hussar]

@Fireho

class='bbc_emoticon' alt='xD' />.bmp

To jest brane ze wzoru, ale to też usuwałem i zostawiałem samą ścieżkę, ale niestety było to samo.

[Gość]

Nie przyjrzałem się kodowi...

 

Tworzysz dwie funkcje, w nich masz zawarte wszystko. Ale nigdzie nie wywołujesz tych funkcji. Aby się uruchomiły musisz je wywołać.

 

@down A fakt, całości kodu w code nie dał.

[Pawellek]

@Fireho

Jak nie wywoluje? Przeciez ma hotkeye zrobione.

 

 

 

 

 

2. Drugim z moich problemów jest IniRead itd itp, a konkretnie... Problem polega na tym, że potrzebuje, by mój skrypt zapisywał, wpisywane wartości w GUI, po zakończeniu działania.

 

 

OnAutoitExitRegister?

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 161, 149, 192, 124)
$Input1 = GUICtrlCreateInput("Input1", 24, 8, 121, 21)
$Input2 = GUICtrlCreateInput("Input2", 24, 40, 121, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Checkbox1", 24, 80, 81, 25)
$Checkbox2 = GUICtrlCreateCheckbox("Checkbox2", 24, 112, 97, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
OnAutoItExitRegister("ZapisDoIni")
While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

Func ZapisDoIni()
Local $inifile = @DesktopDir & "\plikini.ini"
IniWrite($inifile, "ABC", "Input1", GUICtrlRead($Input1))
IniWrite($inifile, "ABC", "Input2", GUICtrlRead($Input2))
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
	IniWrite($inifile, "ABC", "Checkbox1", "Checked")
Else
	IniWrite($inifile, "ABC", "Checkbox1", "Unchecked")
EndIf
If GUICtrlRead($Checkbox2) = $GUI_CHECKED Then
	IniWrite($inifile, "ABC", "Checkbox2", "Checked")
Else
	IniWrite($inifile, "ABC", "Checkbox2", "Unchecked")
EndIf
EndFunc

Wczytywanie juz chyba sobie zrobisz?

 

 

 

Mile bym widział, czytelne i jasne opisy, ponieważ jestem zbyt zielony, na wasz wyimaginowany język skrypterów.

 

Lepiej usun ta linijke. 

[Hussar]

@Refresh

A co do Image Search pomoże ktoś?

 

Chyba, że ma ktoś jakiś inny pomysł, jakiego kodu użyć, by skrypt widząc, np. w treści Emaila (Gmail) np. "CODE 10" wykonywał daną czynność.

[IZZER4]

POP3 i odczytanie e-maila?

[Hussar]

@IZZER4

No ok, ale jakie kody do tego zastosować, że jeżeli skrypt wyszuka w treści emaila np. "CODE 10" to zrobi daną czynność ?

[Gość]

Najprościej będzie pobawić się różnymi klientami poczty i znaleźć odpowiedni i następnie używać WinGetText/ContolGetText. Przez odpowiedni mam na myśli taki, który podczas użycia AutoIT3 Window Info będzie wyświetlał zawartość maili w zakładce Visible/Hidden Text. Mozilla Thunderbird odpada, czytanie z przeglądarki również. Najlepiej jakiś bardzo prosty klient.

[IZZER4]

@Fireho i po co tyle kombinowac?

Prosty kod pod gmaila;

$kod = 'ALFA987'
$email = InetRead("https://" & $login & ":" & $haslo & "@gmail.google.com/gmail/feed/atom")
If $email Then
        $email = BinaryToString($email)
Endif
$tresc = _StringBetween($email, "<entry>", "</entry>")

For $x = 0 To UBound($tresc) - 1
$title = _StringBeetwen($tresc[$x],'<title>','</title>')
If StringInStr($title[0],$kod) Then
$data = _StringBeetwen($title[0],'<modified>','<')
$sprawdzenie = FileRead(@scriptDir & '/daty.txt')
If not StringInStr($sprawdzenie,$data[0]) Then
;Co ma wtedy wykonac
FileWrite(@scriptdir & '/daty.txt',$data[0])
Endif
Endif
Next

Pisalem to z glowy i nie jestem pewien czy wszystko w 100% dziala bo nie mam teraz jak sprawdzic.

Oczywiscie warto dodac jakies zabezpieczenie przed errorami w razie czego, czyli zwyczajne sprawdzenie ilosci komorek itd.

Mozesz tez sie pobawic w pop3, ale tutaj nie widze zbytnio sensu skoro tresc e-maila jest taka krotka.