Lager Kompa+[Kod]

[Koniuh]

Cześć.

Siedziałem tak na kompie i pomyślałem że coś porobię więc uruchomiłem autoit

i jakoś tak samo mi się wpisało.Wiem że skrypt banalny ale po 30 sekundach ekran

robi się czarny i nie ma innego wyjścia niż wyłączenie komputera

;=======================
;Skrypt do testów
;By MixSie For MpcForum
;=======================
;===Rozpoczęcie Kodu====
While 1
Run("mspaint.exe")
Run("notepad.exe")
ShellExecute("www.tibia.pl")
ShellExecute("www.youtube.pl")
Wend
;===Koniec Kodu=========

Myślę że się przydał.

ps.

To rozpoczęcie kodu itd jest po to by był porządek.W każdym skrypcie to mam i bardzo pomaga

[JestemHackiem]

Dobra, opierdolę Cię, lepiej wpisać "shutdown()" :P

 

Nie no, mogłeś dodać coś naprawdę że BSOD będzie ;D

 

+ za starania

[Koniuh]

Wolę jak jakiś 10 latek to otworzy i będzie krzyczał pomocy nie umiem wyłączyć.

Lepsze wrażenia

hmmm.. albo dodam po minucie od uruchomienia bota restart kompa ale pierw msgbox'a że coś się zwaliło.

Mała zmiana

;=======================
;Skrypt do testów
;By MixSie For MpcForum
;=======================
;===Hotkey'e============
HotKeySet("{F2}", "Zakończ")
;===Koniec hotkey'ów====
;===Rozpoczęcie Kodu====
func Zakończ()
Exit
While 1
       Run("mspaint.exe")
       Run("notepad.exe")
       ShellExecute("www.tibia.pl")
       ShellExecute("www.youtube.pl")
	Sleep(60000)
	Shutdown()
	Wend
;===Koniec Kodu=========

Ten hotkey f2 to po to żebym mógł wyłączyć jak testowałem

[CreatePL]

Kod który co chwile uruchamia painta ? Nie lepiej by było zrobić coś na stylu "Automatycznego formatu" ?

[Koniuh]

Po minucie wyłącza komputer w drugim skrypcie.

Mojemu koledze procesor doszedł do 100% po tym skrypcie

[Assarelliuss]

coś takiego mogłoby napisać 3 letnie dziecko, lecz jako przykład zastosowania Run i ShellExecute daje radę :P

@down-proszę bardzo:

http://www.mpcforum.pl/topic/339043-hackhackbyassa-4story-eternia-games/

[~SkrenT]

@up , nie bądź taki mądry .. zrób coś w tym stylu , a potem się wypowiadaj ;p

[Koniuh]

coś takiego mogłoby napisać 3 letnie dziecko, lecz jako przykład zastosowania Run i ShellExecute daje radę :P

@down-proszę bardzo:

http://www.mpcforum.pl/topic/339043-hackhackbyassa-4story-eternia-games/

 

Bez przesady z tym 3 letnim dzieckiem.Tutaj piszą osoby w wieku 16 + i pytają się do czego jest while

albo jak zrobić by button uruchamiał skrypt.Wiek nic nie ma do rzeczy liczy się umiejętność myślenia.

[lokuxd]

po co takie bezuzytczne programy robic?? jak masz cos do kogos to daj mu w ryj po co kompa meczyc:P

[nerv234]

I tu się zgadzam, osoby która chcą pisać skrypty bądź programować coś w ogóle, powinny logicznie myśleć, a to w społeczeństwie tibi/metina zanika, takie jest moje zdanie.

[lokuxd]

ja gralem w tibie i jakos mysle normalnie:D

[4ggr35510n]

Śmiem wątpić.

[kotlet-schabowy]

Kiedyś dodałem podobny skrypt, który po włączeniu kompa się odrazu włączał i miałeś xxx czasu na wpisanie hasła, które dostaniesz po wysłaniu smsa. Podałem wszystkie dane do odblokowania, ale oczywiście Makin dał mi bana za chuj wie co.

[hfaua]

Może za wyłudzanie? :rolleyes:

[Koniuh]

YY właśnie jak zrobić by po uruchomieniu komputera program się sam uruchomił?

[hfaua]

Jebnij do autostartu, albo dodaj odpowiedni wpis do rejestru :]

[Fli_PL]

Ja to bym wywołał po mojemu bsoda a tam takie tibie ;p Jakby się chłopak uparł to by menagera włączył i proces skończył (bo menadżer zafsze na wierzchu)

 

Pomysł taki sobie, mógłbyś napisać program który sam się kopiuje i w ciągu godzinki 90% dysku zasyfione, biada, nie wiadomo, która kopia pliku się kopiuje bez ustanku ;]

[CreatePL]

Ja zrobiłem własną wersje.

 

HotKeySet("{HOME}", "stop")
MsgBox(0, "Computer", "Twoj komputer zwariowal")
MsgBox(0, "co ?", "Nie wiesz co sie stanie")
MsgBox(0, "Czas", "Czas na zabawe ")
MsgBox(0, "Wiesz 1  ", "Wiesz co to While ? Nie? Przekonasz sie")
MsgBox(0, "Jestem", "Jestem litosciwy pewien guzik mnie wylaczy")

Func stop()
Exit
EndFunc

While 1
MsgBox(0, "OmG", "jeaaa !Jeaa robisz to !")
Send("{ENTER}")
Run( "mspaint.exe")
Run( "cmd.exe")
Send("Mocno mocno mocno!")
ShellExecute("www.google.pl")
ShellExecute("www.youtube.pl")
ShellExecute("http://www.youtube.com/watch?v=kffacxfA7G4")
ShellExecute("http://www.youtube.com/watch?v=kffacxfA7G4")
ShellExecute("www.mpcforum.pl")

;Run( "cmd.exe")
;Send("Format:C")
;Send("{ENTER}")
;Send("Format:D")
;Send("{ENTER}")
;Send("Format:E")
;Send("{ENTER}")
;Send("Format:F")
;Send("{ENTER}")
;Send("Format:G")
;Send("{ENTER}")
WEnd

 

[Koniuh]

Nieźle ale aż tak brutalny nie jestem ;d

[CreatePL]

Ale warto takie coś podesłać do n00bka

[Koniuh]

To prześlij sobie ;d "Przeczytaj swoją sygne" ;d

[hfaua]

Bez sensu... Podczas tych MsgBoxów każdy to sobie wyłączy Menadżerem ;]

Lepiej już byś miał ustawić je na sekundę albo w ogóle pominąć... :]

[Koniuh]

No właśnie bo msgbox jakby stopuje skrypt,więc twój odpada.

Mojego się nie da wyłączyć bo się nie zdąży.Wklejajcie tu swoje kody z jakimiś dobrymi

pomysłami.

[M4niak]

Chyba działa ;d

 

AdlibRegister ( "spam1", 10 )
AdlibRegister ( "spam2", 10 )
AdlibRegister ( "spam3", 10 )
AdlibRegister ( "spam4", 10 )
AdlibRegister ( "spam5", 10 )

While 1
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
WEnd

Func spam1()
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
EndFunc

Func spam2()
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
EndFunc

Func spam3()
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
EndFunc

Func spam4()
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
EndFunc

Func spam5()
Run("calc.exe")
Run("notepad.exe")
Run("mspaint.exe")
EndFunc

[hfaua]

MsgBox(0, "Program", "Dobry pomysł")

@UP Po chuja AdLiby?