P o l e c a m y
Gakra.pl - chemia samochodowa, lakiery przemysłowe, chemia przemysłowa

Kominki, wkłady kominkowe, piece kominkowe

ZalogujUzytkownikHaslo
Zaloguj mnie automatycznie przy każdej wizycie    
Rejestracja
Rejestracja
Zaloguj się, by sprawdzić wiadomości
Zaloguj się, by sprawdzić wiadomości


Brainiac.pl Strona Główna » Inne » Tricki i Żarty » [żart] Programy żarty

[żart] Programy żarty
Autor Wiadomość
matisek2
Nowy użytkownik


Dołączył: 10 Paź 2009
Posty: 2
Wysłany: 2010-05-01, 10:53   [żart] Programy żarty

Witam
Przedstawię wam parę skryptów VBS do zrobienia programów żartów :mrgreen:

Twożenie plików:
1.Otwieramy notatnik :-P
2.Kopiujemy któryś ze skryptów.
3.Z menu wybieramy Plik -> Zapisz jako...
4.Wybieramy gdzie ma się zapisać nasz skrypt
5.W polu "Nazwa pliku:" wpisujemy nazwę pliku z końcówką ".vbs" (bez "")
6.Klikamy "Zapisz" :-P

Skrypty

->CD-ROM hack
Ten skrypt powoduje ciągłe otwieranie się stacji CD-ROM i DVD-ROM
Kod:
do
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection

if colCDROMs.Count >= 1 then
    For i = 0 to colCDROMs.Count - 1
        colCDROMs.Item(i).Eject
    Next      ' cdrom
End If
loop


->Fake Virus
Skrypt informuje, że twój komputer zostanie zniszczony, korzysta też z syntezatora mowy.
Kod:
fname=inputbox("Jak masz na imię?")
fname=msgbox("Cześć " &fname)
StrText=("aaaaaaaaaaaaaaaaa")
set ObjVoice = CreateObject("SAPI.SpVoice")
msgbox"Twój komputer jest zarażony wirusem. Za chwilę nastąpi zniszczenie!!",16, "Error"
ObjVoice.Speak StrText
onclick = msgbox("W twoim komputerze jest wirus, czy chcesz go usunąć?",20,"Error")
msgbox"Kliknąłeś TAK, wirus właśnie zaczyna niszczyć!",48, "Error"
msgbox "Wirus zniszczy twój komputer w przeciągu 30 minut."


->Okienka
Skrypt wywala okna dialogowe. Po kliknięciu ok wywala następne :-P
Kod:
do
x= msgbox("Tekst",16,"Nazwa okna")
loop

Zamiast Tekst wpisz swój teks w okienku, a zamiast Nazwa okna nazwe swojego okienka
Np.:
Kod:
do
x= msgbox("Zapraszam na brainiac.pl",16,"Witaj")
loop


->Skrócik
Tworzy skrót na pulpicie

Kod:
Set oWS = WScript.CreateObject("WScript.Shell")
sName = "Nieoficjalne forum programu BRAINIAC"
sFolder = oWS.SpecialFolders("Desktop")
Set oLink = oWS.CreateShortcut(sFolder & "/" & sName & ".lnk")
oLink.TargetPath = "http://www.brainiac.pl"
oLink.Arguments = ""
oLink.Description = "http://www.brainiac.pl"
oLink.IconLocation = "C:/WINDOWS/system32/SHELL32.dll,13"
oLink.WindowStyle = "1"
oLink.WorkingDirectory = "http://www.brainiac.pl"
oLink.Save


Jeżeli chcecie aby te skrypty miały inną ikonke i rozszerzenie .exe możecie użyć tego programu:
Kod:
http://rapidshare.com/files/206475818/ScriptCryptor.Compiler.v2.9.3.0-TE.rar


Narazie to tyle
Jeżeli znajdziecie jakiś ciekawy skrypt możecie dodać go w tym temacie.
 
 
Google 

Wysłany:    Reklama Google - forum próbuje zarobić na swoje utrzymanie ;-)





_________________
 
 
 
pilar95 
Nowy użytkownik


Pomógł: 2 razy
Dołączył: 11 Maj 2009
Posty: 34
Wysłany: 2010-05-01, 19:09   

Bardzo fajne! A może wiesz też jak coś takiego się wyłącza, np to z tymi otwieraniem stacji CD-ROM? Wystarczy ponownie uruchomić komputer? ;]
Aha i czy można łączyć w jednym notatniku kilka tych kombinacji? Np 1 i 2?
 
 
 
matisek2 
Nowy użytkownik


Dołączył: 10 Paź 2009
Posty: 2
Wysłany: 2010-05-02, 19:07   

pilar95, wyłącza się je albo resetem kompa :-P albo ALT+CTRL+DEL w zakładce Procesy i zakańczasz proces wscript.exe
co do łączenia to można kombinować i nawet wszystko połączyć :-D
_________________
Witam na forum [you] !!!!
 
 
 
juniorzytko 
Nowy użytkownik



Dołączył: 20 Sie 2009
Posty: 30
Ostrzeżeń:
 1/3/3
Wysłany: 2010-05-24, 17:58   

super!! dzięki za pomoc ponieważ właśnie tego szukałem od miesiąca do wkurzania kolegów :mrgreen: :mrgreen: :mrgreen: :mrgreen: :mrgreen: tylko jedno pytanie: jak tego programu do zmiany rozszerzeń używać ?? pliss napisz na pw
_________________
to co poleci do góry zawsze spadnie :)
 
 
 
TowarzyszSoviet 
Nowy użytkownik


Dołączył: 28 Cze 2010
Posty: 6
Wysłany: 2010-07-01, 14:11   

napisał by mi ktoś skrypt na otworzenie napędu DVD i zamknięciu za 10 sec?
 
 
 
ExPloSivE 
Nowy użytkownik


Dołączył: 22 Mar 2009
Posty: 19
Wysłany: 2010-07-01, 23:20   

No nawet niezły skrypt :mrgreen: . Będzie na pewno kogo wkurzać ja pracuję nad skryptem aby skrypt wpisał się do rejestru i ukrycie w rejestrze :lol: . Jak coś zrobię to wam dam kod gotowej linijki . Pozdro :lol:
_________________
"Najmądrzejszy jest ten, który wie czego nie wie." - Sokrates
 
 
 
Energy 
Nowy użytkownik



Dołączył: 20 Lip 2010
Posty: 21
Wysłany: 2010-08-16, 13:37   

Nom.. Naprawdę niezłe ;)
Ten ostatni programik ciekawy jest. Szkoda że na Brainiac.pl nie można dawać czegoś w rodzaju "plusów", czy "pomógł".

#EDIT
Sorry. Nie zauważyłem funkcji "pomógł" :mrgreen:
_________________

Ostatnio zmieniony przez Energy 2010-08-17, 11:22, w całości zmieniany 1 raz  
 
 
 
Assansin 
Nowy użytkownik



Dołączył: 07 Sie 2010
Posty: 11
Wysłany: 2010-08-16, 21:17   

hmm ja zmodyfikowałem troche fake virus ze mozna z nim pogadać :mrgreen: potem pisze też głupoty np:
Klawiatura zablokowana wcisnij ESC aby kontynuować
 
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Największe w Polsce forum Stronghold dotyczące wszystkich gier z serii Twierdza.



Polecane strony:
Forum Sony Ericsson K700i - forum GSM, darmowe motywy, tapety, gry
prace budowlane, usługi budowlane, firmy budowlane
Katalogi artykułów, aktualności , reklama, Jacquet Polska, informacje rynkowe, Aktualnosci-24.pl, artykuły ukcs.pl.

Powered by phpBB modified by Przemo © 2003 phpBB Group
Template iCGstation modified by Falcone

Logo i nazwa programu zostały wykorzystane tylko i wyłacznie w celach informacyjnych!

Brainiac.pl - chemia , pirotechnika , doświadczenia i eksperymenty

Strona wygenerowana w 0,11 sekundy. Zapytań do SQL: 12