Wirus?

[maciek_322]

Witam dziś całkiem przypadkiem zrobiłem coś co chyba można nazwać wirusem  program ten spowalnia komputer o jakieś 80% ( lub nawet więcej )  

Efekt chyba zostaje stały bo mój komputer ciągle zamula po odpaleniu tego pliku -0,0 

Więc tak : 

Pierwszy plik nazywamy jak chcemy wklejamy tam ten kod ; 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 324, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 32, 240, 75, 25)
$Button2 = GUICtrlCreateButton("Pomoc", 112, 240, 75, 25)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $Button1 = Run("boxy.exe")
	Case $Button2 = IsArray(5000)

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

i zapisujemy , następnie tworzymy nowy plik nazywamy go boxy wklejamy tam ten kod : 

#include <Imagesearch.au3>
$x = @DesktopHeight
$y = @DesktopWidth
$search = _ImageSearchArea("Skrzynia.png", 1, 12, 135, 1578, 617, $x, $y, 50)
$search1 = _ImageSearchArea("Prezent.png", 1, 12, 135, 1578, 617 , $x, $y, 50)


While 1
  $search = _ImageSearchArea("Skrzynia.png", 1, 12, 135, 1578, 617, $x, $y, 50) ; 
  Or $search1 = _ImageSearchArea("Prezent.png", 1, 12, 135, 1578, 617 , $x, $y, 50)
If $search = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
Sleep(100)
ElseIf @ Then
   Run("boxy.exe")
   Exit
Exitloop 
EndIf
WEnd
Run("boxy.exe")

zapisujemy go i kompilujemy do .exe

i tyle .

Ps. wie ktoś jak przywrócić komputer do stanu przed uruchomieneim tego pliku ? c; 

Ps2. Możecie dodać hotkeyseta do wyłączania ja musiałem kompa od prądu odłączyć bo takk cieło kompa że nic nie szło zrobić 

[TTTTTTOMA]

Nie znajdując "skrzyni.png" program zaczyna uruchamiać się ~10x na sekunde ?? Do tego multiplikuje się... Polecam zostawić na 10 sekund, otwarzy 10000000000 programów... Dodaj blokade myszki i klawiatury. I zostaw kompa na jakiś czas, idź do sklepu po jajka. Będzie na twardo

[Ktosiu]

Tak to bywa jak ktoś bez sensu wklei byle co do edytora i pisze że wirusa stworzył! 

[Ozzzj]

Witam dziś całkiem przypadkiem zrobiłem coś co chyba można nazwać wirusem  program ten spowalnia komputer o jakieś 80% ( lub nawet więcej )

Efekt chyba zostaje stały bo mój komputer ciągle zamula po odpaleniu tego pliku -0,0 

Więc tak : 

Pierwszy plik nazywamy jak chcemy wklejamy tam ten kod ; 

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <WindowsConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 304, 324, 192, 124)
$Button1 = GUICtrlCreateButton("Start", 32, 240, 75, 25)
$Button2 = GUICtrlCreateButton("Pomoc", 112, 240, 75, 25)
GUICtrlSetBkColor(-1, 0xC8C8C8)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
	Case $Button1 = Run("boxy.exe")
	Case $Button2 = IsArray(5000)

		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
WEnd

i zapisujemy , następnie tworzymy nowy plik nazywamy go boxy wklejamy tam ten kod : 

#include <Imagesearch.au3>
$x = @DesktopHeight
$y = @DesktopWidth
$search = _ImageSearchArea("Skrzynia.png", 1, 12, 135, 1578, 617, $x, $y, 50)
$search1 = _ImageSearchArea("Prezent.png", 1, 12, 135, 1578, 617 , $x, $y, 50)


While 1
  $search = _ImageSearchArea("Skrzynia.png", 1, 12, 135, 1578, 617, $x, $y, 50) ; 
  Or $search1 = _ImageSearchArea("Prezent.png", 1, 12, 135, 1578, 617 , $x, $y, 50)
If $search = 1 Then
   MouseMove($x, $y)
   MouseClick("Left")
Sleep(100)
ElseIf @ Then
   Run("boxy.exe")
   Exit
Exitloop 
EndIf
WEnd
Run("boxy.exe")

zapisujemy go i kompilujemy do .exe

i tyle .

Ps. wie ktoś jak przywrócić komputer do stanu przed uruchomieneim tego pliku ? c; 

Ps2. Możecie dodać hotkeyseta do wyłączania ja musiałem kompa od prądu odłączyć bo takk cieło kompa że nic nie szło zrobić

 

1. ProcessClose w pętli

2. Zrób funkcję, odpalona przez hotheyset i dodaj tam właśnie ProcessClose w pętli na boxy.exe i na ten pierwszy... :P

[TTTTTTOMA]

trochę marnujesz możliwości autoit-a ;D. Da się taką wredotę zrobić....

BlockInput(1) blokuje mysz i klawę (0 odblokowuje)

Do tego pętla uruchamiająca 5 msgboxów "obrażających" użytkownika. Wtedy program zacznie się powielać i wywali ci miliard msgboxów z bluzgami... do tego dodaj jakiś plik muzyczny z takim diabolicznym śmiechem, myszkę latającą w Random() miejsca i migający ekran (ściemnienie minimum z ściemnieniem maksimum na zmianę). No możliwości są takie