Skocz do zawartości

  • 👋 Witaj na MPCForum!

    Przeglądasz forum jako gość, co oznacza, że wiele świetnych funkcji jest jeszcze przed Tobą! 😎

    • ✅ Pełny dostęp do działów i ukrytych treści
    • ✅ Możliwość pisania i odpowiadania w tematach
    • ✅ System prywatnych wiadomości
    • ✅ Zbieranie reputacji i rozwijanie swojego profilu
    • ✅ Członkostwo w jednej z największych społeczności graczy

    👉 Dołączenie zajmie Ci mniej niż minutę – a zyskasz znacznie więcej!

    Zarejestruj się teraz

Wyłączenie Komputera

Daniel1209

Rekomendowane odpowiedzi

Daniel1209 Pasjonat

Daniel1209

Opublikowano
Pasjonat

Daniel1209

Opublikowano

Witam mam skrypt który szuka obrazek, chcę tak zrobić ze jeśli nie znajdzie obrazka to skrypt się kończy a jeżeli znajdzie obrazek to wyłącza komputer.

Oto mój skrypt proszę go tak z edytować żeby działało jak napisałem. 

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
Sleep(10000)
$x1=0
$y1=0

$result = _ImageSearch(".bmp",1,$x1,$y1,0)
if $result=1 Then
   MouseMove($x1,$y1,3)
EndIf

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

co masz szukać, gdzie ma szukać, co ile ma szukać ?

 

to co napisałeś to same zbędne rzeczy bez ładu i składu

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Daniel1209 Pasjonat

Daniel1209

Opublikowano
Pasjonat

Daniel1209

  • Autor
Opublikowano

mój pełen skrypt

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <ImageSearch.au3>
MsgBox(0, "Witam", "Bot zaraz sie uruchomi")
WinWaitClose("Witam")
Sleep(10000)
MouseClick("left", 57, 254, 2)
sleep("15000")
MouseClick("left", 648, 448)

jak skończy klikać chcę aby szukał obrazka w przeglądarce na stronie głównej, jeżeli znajdzie to ma wyłączyć kompa a jeżeli nie znajdzie to ma zakończyć swoją pracę

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

to po co te ruchy myszką ! ?

 

nadal nic nie wiadomo co ma szukać, jak ma szukać ( po wyglądzie, połozeniu w czym ) i po co klikać myszką jak ma tylko szukać , a do obsługi przeglądarki aż nie trzeba takich skomplikowanych skryptów od tego są dopowiednie polecenia dla IE w autoit

 

od siebie dodam tylko bo sprawdzić nie moge jak działa, jakoś ta biblioteka odmawia współpracy z systemami 64 bitowymi :(

 

While 1

$result = _ImageSearch("obraz.bmp",1,$x,$y,1,1)
if $result = 1 then
   msgbox(0,"Result","Found!") ; co ma robić jak znajdzie
else
  msgbox(0,"Result","Not Found!") ; co ma robić jak nie znajdzie
endif

WEnd

 

 

 

ok, ciąg dalszy dopisany nocą, okazało się ze jest jednak działająca biblioteka pod 64bit :)

 

#include <ImageSearch.au3>

Global $x
Global $y


While 1
$result = _ImageSearch("c:/obraz.bmp", 1, $x, $y, 1, 1)
If $result = 1 Then
	MouseMove($x, $y, 3)
	MouseClick("left", $x, $y)
	Sleep(100)
	MouseClick("left", $x, $y) ; 2X BO KLIKAŁEM W IKONE NA PULPICIE

;		MsgBox(0, "Result", "Found!") ; co ma robić jak znajdzie
stop1()
Else

;		MsgBox(0, "Result", "Not Found!") ; co ma robić jak nie znajdzie
stop()
EndIf
WEnd

Func stop1()
Exit
EndFunc   ;==>stop1

Func stop()
Sleep(1000) ; tu funkcja do restartu po znalezieniu
Shutdown(5) ; UWAGA ZAMKNIE BEZ PYTANIA WSZYSTKIE PROGRAMY I SYSTEM !! 
EndFunc   ;==>stop

 

tylko dodać funkcje na uruchomienie przegladarki z dopowiednią stroną i skrypt gotowy

 

reszte dopisze jak się wyśpie

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Daniel1209 Pasjonat

Daniel1209

Opublikowano
Pasjonat

Daniel1209

  • Autor
Opublikowano

Mam w mojej miejscowości sieć internetową (legalną) do której można się połączyć tylko koło 14 a ja wtedy w szkole jestem i skrypt jest poto ze komp sie o 14 włączy dzieki odpowiedniej opcji w BIOSIE następnie bot musi włączyć Mozillę Firefox następnie kliknąć loggin po czym jak wyświetli sie obrazek ze nie udało się połączyć z siecią to komp ma sie wyłączyć a jeżeli uda sie połączyć z internetem to skrypt niema juz nic robić

 

A co do skryptu który podałeś to niestety ale działa źle ponieważ czy znajdzie obrazek czy nie to i tak wyłącza komputer

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

skrypt działa właściwie, tylko sprawdza cały czas w pętli, usuń : While 1 i Wend bedzie raz sprawdzał

 

 

teraz wiadomo co i jak przynajmniej ma robic

 

zainstaluj to w FF http://repo.hyperstruct.net/mozrepl/1.0/mozrepl.xpi

tu FF.au3 , skopiuj do Include

tu masz obsługe FF ff.a3u z http://english.documentation.ff-au3.thorsten-willert.de/ i zmodyfikuj skrypt

 

wszystko zrobisz bez klikania myszką , narazie masz zarys gotowego skryptu, po staremu z szukaniem obrazka

 

#include <ImageSearch.au3>
#include <FF.au3>

Global $x
Global $y

_FFStart("http://jakisadres.xx/") ; otworzenie FF z adresem 
Sleep(10000)
; logowanie, wstaw sobie klikanie w logowanie jak nie potrafisz rozpisac obsługi FF 
; FF pamięta chasło i login dla konktetnej strony to ci wypełni
MouseClick("left", 57, 254, 2)
sleep("15000")
MouseClick("left", 648, 448)
; po zalogowaniu sprawdzenie obrazka i uruchomienie funkcji szukaj, dopiszemy potem 
sleep(10000)


Func szukaj()
$result = _ImageSearch("c:/obraz.bmp", 1, $x, $y, 1, 1)
If $result = 1 Then
	; co ma robić jak znajdzie
	stop1()
Else
	; co ma robić jak nie znajdzie
	stop()
EndIf
EndFunc   ;==>szukaj

Func stop1()
Sleep(1000)
MsgBox(0, "Result", "Not Found! Nie znalziono, kończy program")
Sleep(5000)
Exit
EndFunc   ;==>stop1

Func stop()
Sleep(1000)
MsgBox(0, "Result", "Found! Znaleziono, wyłacza komputer")
;	Shutdown(5)
Sleep(5000)
Exit
EndFunc   ;==>stop

 

jednak wszystko i tak mozna zmodyfikowac tak by zrezyfnować z ImageSearch, o tym pomyslimy później

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Daniel1209 Pasjonat

Daniel1209

Opublikowano
Pasjonat

Daniel1209

  • Autor
Opublikowano

hmm to jest gotowy skrypt ?? po mimo że obrazek jest otwarty to bot go nie znajduje, czeka te 10sec po klikaniu a następnie się wyłącza

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

a masz identycznie jak ja wszystko ? nie dałes nawet własnego skryptu , mozesz mieć inne ścieżki do obrazka , inne ustawienia ekranu itp, a jak mniemam napewno masz i inny system niż ja i czy napewno masz zainstalowaną obsługe ImageSearch ącznie ze skopiowaniem skryptu jak i dll ?

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

dziób tukana Budowniczy

dziób tukana

Opublikowano
Budowniczy

dziób tukana

Opublikowano

obrazek może sie pojawić ale nie musi... i wszystko sie sypie ;)

użyj pingów

If (Ping("www.onet.pl",250)) Then
Msgbox(0,"Status","Jestes online." & @cr & " Nie potrzeba sie logowac")
;exit
endif

If not (Ping("www.onet.pl",250)) Then
Msgbox(0,"Status","Error. Masz problem. Brak neta")
endif

 

a to co tam 3 posty wyżej narysowane to zdaje sie w 17 linii licząc od góry brakuje: 

szukaj()

lub jak to woli 

call("szukaj")

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

nie brakuje tylko skrypt nie napisany do konca bez uruchomienia wyszukiwania , czasu brak , skryp dokoncze w niedziele po południu albo wieczorem :)

wystarczy dopisać :

 

Whele 1
    szukaj()
Wend

 

nic nie da, tu łaczy na zasadzie logowania do sieci poprzez strone www i dopiero przyznaje adres ip i łączy do netu

 

u mnie działa wyśmienicie ,

zrobiłem obrazek jednej z ikonek na pulpicie ( musi być zapisany jako bmp 24-bitowy ! ) PrintScn , otwierasz Painta , Ctrl+v , wycinasz obrazek który ma szukać i zapisujesz.

skopiowałem standartową biblioteke do katalogu windows32, nie dzałało i wywalało błędy , po przeglądnięciu forum dodałem wersje dla systemów 64-bitowych ( mam w7u 64-bit )

 

jak pisałem skrypt nalezy edytowac i poprawic na własne potrzeby , mam dwa monitory 1660x1050 to i inne parametry klików były by u mnie stąd automatyczne wyszukiwanie i klikanie w pierwszej wersji

szukało ikony, klikało 2x jak znalazło i konczyło , jak nie znalazło wyłączyło kompa

 

jednym z warunków właściwego szukania obszar szukany musi być widoczny w czasie szukania i nie zakryty zadnym otwartym okienkiem

 

#include <ImageSearch.au3>

Global $x
Global $y


While 1
       $result = _ImageSearch("c:/obraz.bmp", 1, $x, $y, 1, 1)
       If $result = 1 Then
               MouseMove($x, $y, 3)
               MouseClick("left", $x, $y)
               Sleep(100)
               MouseClick("left", $x, $y) ; 2X BO KLIKAŁEM W IKONE NA PULPICIE

;               MsgBox(0, "Result", "Found!") ; co ma robić jak znajdzie
stop1()
       Else

;               MsgBox(0, "Result", "Not Found!") ; co ma robić jak nie znajdzie
stop()
       EndIf
WEnd

Func stop1()
       Exit
EndFunc   ;==>stop1

Func stop()
       Sleep(1000) ; tu funkcja do restartu po znalezieniu
       Shutdown(5) ; UWAGA ZAMKNIE BEZ PYTANIA WSZYSTKIE PROGRAMY I SYSTEM !! 
EndFunc   ;==>stop

 

 

ostatnia wersja skryptu jest tylko zakonczeniem programu, brak całej obsługi FF i uruchomienia na koncu funkcji sprawdzania

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Daniel1209 Pasjonat

Daniel1209

Opublikowano
Pasjonat

Daniel1209

  • Autor
Opublikowano

Niestety ale w praktyce jedna nie działa, problem polega na tym że jak znajdzie tekst ze zdjęcia w przeglądarce to na niego najeżdża klikając co daje że to zaznacza i przez to jest podświetlony na niebiesko i komputer się nie wyłącza

 

To jest okno logowania a czerwony tekst na dole oznacza ze nie udało się połączyć, na zdjęciu BMP do skryptu są 2 ostatnie wyrazy tej czerwonej linijki tekstu

niepolonczono.th.jpg

 

Uploaded with ImageShack.us

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano 
#include <ImageSearch.au3>

Global $x
Global $y

Sleep(10000)	; czekanie na załadowanie przeglądarki dobiezr czas
			; tak by po starcie  otworzyła się przegladarka i załadowało okno

MouseMove(111, 111, 3) ; 111 zamień i ustaw koordynaty przycisku OK
MouseClick("left", 111, 111)

Sleep(10000) ; czeka na logowanie po kliknięciu

$result = _ImageSearch("c:/obraz.bmp", 1, $x, $y, 1, 1)
If $result = 1 Then
Sleep(3000)
stop1(); co ma robić jak znajdzie
Else
stop() ;co ma robić jak nie znajdzie
EndIf

Func stop1()
       MsgBox(0, "Result", "Found!")
Exit ; zamyka program i kończy,  do testu MsgBox
EndFunc   ;==>stop1

Func stop()
Sleep(1000)
MsgBox(0, "Result", "Not Found!") ;  zamyka kompa, do testu MsgBox
;      Shutdown(5) ; UWAGA ZAMKNIE BEZ PYTANIA WSZYSTKIE PROGRAMY I SYSTEM !!
EndFunc   ;==>stop

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

I ♥ BMX Specjalista

I ♥ BMX

Opublikowano
Specjalista

I ♥ BMX

Opublikowano

Jeśli chodzi o wyłanczanie komputera to możesz stworzyć na pulpicie skrót

 

shutdown -s -t sec-c "Tu pisz tekst który się wyświetli"

 

 

sec- czas w sekundach po którym się wyłączy komputer

I dać w programiku że jak nie znajdzie tego co ma to uruchamia stworzony skrót..

Ja tak mam zrobione i komputer wyłącza zawsze w 100%

RobeM Arcymistrz

RobeM

Opublikowano
Arcymistrz

RobeM

Opublikowano

AutoIt na funkcje wyłaczenia komputera Shutdown(5) więc nie potrzeba dodatkowych czy zewnętrznych poleceń

If you = stupid then

insert(foot.in.your.ass)

end if

licznik-54-96732-stat.png

Zarchiwizowany

Ten temat przebywa obecnie w archiwum. Dodawanie nowych odpowiedzi zostało zablokowane.

Tematy
×
×
  • Dodaj nową pozycję...