Sesli okuma virüsü

Kod: 
Dim text, speech
Set speech = CreateObject("SAPI.SpVoice")
do
text = "i am a virus"
speech.Speak text
loop
I am a virus bölümüne istediğiniz kelimeyi yazıp dosyanın sonunu .Vbs yapın.
Not: yazdığınız kelime ingilizce olmalıdır diğer dillerde saçmalıyor.
Bu dosya açıldığında bir ses sürekli yazdığınız kelimeyi tekrarlayacaktır.
Durdurmak için, cmd'ye "tskill wscript" yazın.
  • Beğen
  • Hahaha
  • Kızgın
İfadeler: destanyazan, berkfurk, İsmail6116 ve 5 kişi daha ifade bıraktı

Yorumlar

B
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me." X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ") CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! " X = MsgBox ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi ! " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ") X = MsgBox ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ") CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha " Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom loop End If X = MsgBox ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ") X = MsgBox ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ") X = MsgBox ( "Bilgisayar Hacker Tar VBScript ile bu daha iyi bence.
 
imoutofmaterial
Barsebarsebarselone dedi:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me." X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ") CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! " X = MsgBox ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi ! " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ") X = MsgBox ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ") CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha " Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom loop End If X = MsgBox ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ") X = MsgBox ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ") X = MsgBox ( "Bilgisayar Hacker Tar VBScript ile bu daha iyi bence.
Genişletmek için tıkla...
Scripti kendin yazmana gerek yok Github'dan Dark Comet indirsen zaten daha fonkisyonlu bir biçimde aynı şeyi yapar 😄
 
Under.nvid
Merak ediyorum bu bana da olmuştu Minecraft oynarken birden chatten yazıyodum tekrar ediyordu bir kadın ama sadece Minecraftta. Bilinçsiz yani bende kendi kendine olmuştu.
 
sahlepzeytin
imoutofmaterial dedi:
Scripti kendin yazmana gerek yok Github'dan Dark Comet indirsen zaten daha fonkisyonlu bir biçimde aynı şeyi yapar 😄
Genişletmek için tıkla...
Barsebarsebarselone dedi:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me." X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ") CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! " X = MsgBox ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi ! " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ") X = MsgBox ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ") CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha " Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom loop End If X = MsgBox ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ") X = MsgBox ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ") X = MsgBo [/QUOTE]
Genişletmek için tıkla...

Barsebarsebarselone dedi:
CreateObject ("SAPI.SpVoice").Speak "Hello. My name is CrazyExelans. You've been hacked by me." X = MsgBox ( "CrazyExelans Bilgisayarınızda bazı değişiklikler yapmak istiyor onaylıyormusun ? ", 4 + 64 , "WİNDOWS ") CreateObject("SAPI.SpVoice" ). Speak"So you think you can stop me? hahaha what a pity! " X = MsgBox ( "CrazyExelans Tarafından Sisteme Olan Erişiminiz Engellendi ! " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Güvenlik Duvarınız Devre Dışı Bırakıldı. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Administratör Yetkileri Sıfırlandı. " , 0 + 48 , "WINDOWS ") X = MsgBox ( "Yeni Kontrol Sahibi : CrazyExelans" , 0 + 64 , "WINDOWS ") CreateObject ("SAPI.SpVoice" ).Speak" Your computer has been hacked by CrazyExelans. I'll open your the cd room so you must be clean there hahaha " Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >=1 then do For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom For i=0 to colCDROMs.COunt -1 colCDROMs.Item(i).Eject Next ' cdrom loop End If X = MsgBox ( "Tüm Dosyalarınız Siliniyor Onaylıyormusunuz ? " , 4 + 48 , "WINDOWS ") X = MsgBox ( "Erişim Engellendi. " , 0 + 16 , "WINDOWS ") X = MsgBox ( "Tüm Dosyalarınız Silindi ! " , 0 + 64 , "WINDOWS ") X = MsgBox ( "Bilgisayar Hacker Tar VBScript ile bu daha iyi bence.
Genişletmek için tıkla...
Merhaba. Sizin virüsün ikinci bölümünü yazdım. Aşağıya bırakıyorum. Devamı niteliğinde :D

CreateObject ("SAPI.SpVoice").Speak "Hello. My name is StrongPanny. I'm here to destroy CrazyExelans, the stupid virus that has taken over your computer."
X=Msgbox("StrongPanny Bigisayarınızda bazı değişiklikler yapmak istiyor. Onaylıyor musunuz?" , 4 + 64 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Yeah. Now is the time to hack that idiot."
X=Msgbox("StrongPanny bilgisayarınızda ki virüsü yok etmeye çalışıyor." , 0 + 48 ,"WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Hey! I'm CrazyExelans. Who is dealing with me?"
CreateObject ("SAPI.SpVoice").Speak "Hello stupid. I'm your archenemy StrongPanny. I'll kick you out of this computer."
X=Msgbox("CrazyExelans virüsü kendisiyle uğraşıldığını fark etti." , 0 + 64 , "WİNDOWS")
X=Msgbox("CrazyExelans sizden aldığı yetkiler ile StrongPanny'i silmeye çalışıyor." , 2 + 16 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Is to fight a virus like me? Ha ha ha very funny StrongPanny."
CreateObject ("SAPI.SpVoice").Speak "Actually, you are very funny. I am a very powerful antivirus program produced by Pannydesk company. Viruses like you come and go."
X=Msgbox("StrongPanny ve CrazyExelans birbirlerini yok etmeye çalışıyor." , 0 + 64 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "You can't steal innocent people's information mal CrazyExelans. I will come about you."
CreateObject ("SAPI.SpVoice").Speak "Come on and see. Don't mess with my businnes, go StronPanny here."
X=Msgbox("StrongPanny CrazyExelans'tan sizden aldığı yetkileri geri alacak. Onaylıyor musunuz?" , 4 + 32 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Yes CrazyExelans. Now you're done."
CreateObject ("SAPI.SpVoice").Speak "Noooooo noooooooo"
X=Msgbox("StrongPanny CrazyExelans'ı silmeyi başardı." , 0 + 64 , "WİNDOWS")
X=Msgbox("StrongPanny CrazyExelans'ın sildiği dosyalarınızı geri yükledi." , 0 + 64 , "WİNDOWS")
X=Msgbox("Administrator yetkileri yeniden yüklendi." , 0 + 48 , "WİNDOWS")ı
CreateObject ("SAPI.SpVoice").Speak "I deleted idiot CrazyExelans and returned its files and permissions to you. From now on I'll be here to avoid getting these and other idiots into this computer. Goodbye."

Not defterine yapıştırıp .vbs olarak kaydedin.
 
CinarYilmaz
sahlepzeytin dedi:
Merhaba. Sizin virüsün ikinci bölümünü yazdım. Aşağıya bırakıyorum. Devamı niteliğinde :D

CreateObject ("SAPI.SpVoice").Speak "Hello. My name is StrongPanny. I'm here to destroy CrazyExelans, the stupid virus that has taken over your computer."
X=Msgbox("StrongPanny Bigisayarınızda bazı değişiklikler yapmak istiyor. Onaylıyor musunuz?" , 4 + 64 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Yeah. Now is the time to hack that idiot."
X=Msgbox("StrongPanny bilgisayarınızda ki virüsü yok etmeye çalışıyor." , 0 + 48 ,"WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Hey! I'm CrazyExelans. Who is dealing with me?"
CreateObject ("SAPI.SpVoice").Speak "Hello stupid. I'm your archenemy StrongPanny. I'll kick you out of this computer."
X=Msgbox("CrazyExelans virüsü kendisiyle uğraşıldığını fark etti." , 0 + 64 , "WİNDOWS")
X=Msgbox("CrazyExelans sizden aldığı yetkiler ile StrongPanny'i silmeye çalışıyor." , 2 + 16 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Is to fight a virus like me? Ha ha ha very funny StrongPanny."
CreateObject ("SAPI.SpVoice").Speak "Actually, you are very funny. I am a very powerful antivirus program produced by Pannydesk company. Viruses like you come and go."
X=Msgbox("StrongPanny ve CrazyExelans birbirlerini yok etmeye çalışıyor." , 0 + 64 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "You can't steal innocent people's information mal CrazyExelans. I will come about you."
CreateObject ("SAPI.SpVoice").Speak "Come on and see. Don't mess with my businnes, go StronPanny here."
X=Msgbox("StrongPanny CrazyExelans'tan sizden aldığı yetkileri geri alacak. Onaylıyor musunuz?" , 4 + 32 , "WİNDOWS")
CreateObject ("SAPI.SpVoice").Speak "Yes CrazyExelans. Now you're done."
CreateObject ("SAPI.SpVoice").Speak "Noooooo noooooooo"
X=Msgbox("StrongPanny CrazyExelans'ı silmeyi başardı." , 0 + 64 , "WİNDOWS")
X=Msgbox("StrongPanny CrazyExelans'ın sildiği dosyalarınızı geri yükledi." , 0 + 64 , "WİNDOWS")
X=Msgbox("Administrator yetkileri yeniden yüklendi." , 0 + 48 , "WİNDOWS")ı
CreateObject ("SAPI.SpVoice").Speak "I deleted idiot CrazyExelans and returned its files and permissions to you. From now on I'll be here to avoid getting these and other idiots into this computer. Goodbye."

Not defterine yapıştırıp .vbs olarak kaydedin.
Genişletmek için tıkla...
Dövüş!
 

Blog girdisi detayları

Ekleyen
Aslaire
Okuma süresi
1 dakika okuma
Görüntüleme
1.969
Yorumlar
18
Son güncelleme

Yazılım kategorisindeki diğer girdiler

Aslaire adlı kullanıcının diğer girdileri

Bu girdiyi paylaş

Geri
Yukarı