THT DUYURU

Trojan ve Virüsler Trojan ve Virüsler Hakkında Bilgiler.

takipci
chat
Seçenekler

Şaka Virüsü 2 //Suleyman37

Suleyman37 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Nereden:
GİZLİ
Mesajlar:
1.307
Konular:
222
Teşekkür (Etti):
67
Teşekkür (Aldı):
128
Ticaret:
(0) %
3
671
13-05-2017 16:19
#1
Cool
Şaka Virüsü 2 //Suleyman37
Merhaba Arkadaşlar Bugün Size Şaka Virüsü 2 yi Anlatacam İlk Olarak Yeni Metin Belgesi Açıyoruz Ve Virüsümüz Açıldığı Zaman Karşı Tarafın İyice Korkmasını İstiyoruz O Zaman Bu Tam Size Göre

Virüsümüz Açıldığı Zaman Bilgisayarın Konuşmasını İstiyorsak Şu Kodu Yazacağız .

Kod:
CreateObject ("SAPI.SpVoice").Speak "İSTEDİĞİNİZ KELİME"
Virüsümüz Açıldı Konuştu Bitti Sonrasında Hata Kodu Çıksın İstiyorum Ne Yapmalıyım?

Hata Kodunun Çıkmasını İstiyorsak Ardından Şu Kodları Ekleyeceğiz.

Kod:
X = MsgBox ( "İstediğiniz Kelime  ", 4 + 64 , "İstediğiniz Kelime ")
Bunları Yaptık Karşımızdaki Adam Zaten Bilgisayarım Hacklendi Olarak Düşünmeye Başlar Ama Size Yetmedi Gülmeye Devam Etmek İstiyorsunuz O Zaman CD Yerini Açmaya Ne Dersiniz?
Cd Yerini Açmak İçin İse Şu Kodları Ekliyoruz.

Kod:
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
Hata Kodu Açıldığı Zaman Rapor Değişkenliği İstiyorsak Önerim Şunlardır Ama Siz İstediğinizi Ekleyin.

Kod:
0 TAMAM

1  İPTA TAMAM
2 İPTAL YENİDEN DENE TAMAM
3 EVET HAYIR İPTAL
4 EVET HAYIR
5 YENİDEN VE İPTAL

16 KRİTİK SİMGE
32 YARDIM SİMGESİ
48 UYARI SİMGESİ
64 BİLGİ SİMGESİ
Ben Evet Ve Hayır Değişkenini Seçerek Devam Etmek İstiyorum Evet Ve Hayır Seçeneği İçin Şu Kodları Yazıyoruz.

Kod:
result = MsgBox ("Evet veya Hayır?", vbYesNo, "Evet hayır örneğ (DEĞİŞTİREBİLİRSİNİZ)")

Select Case result
Case vbYes
    MsgBox("Evet dediniz (Değiştirebilirsiniz)")
Case vbNo
    MsgBox("Hayır dediniz (Değiştirebilirsiniz)")
End Select
Bunları Yaptık Ondan Sonra Dosya Farklı Kaydet Dosyanıza İsim Verin Ve Sonuna " vbs " ekleyin Örnek Olarak
Kod:
Virüs.vbs
Virüs Hazırdır.

Not : Arkadaşlar Türkçe Dil Paketini Yükleyin Yoksa Bilgisayar Konuştuğu Zaman A Harflerini E Olarak Okuyabiliyor.

Yükledim Olmadı Ne Yapmalıyım?

O Zaman Yabancı Dil Paketini Yükleyiniz Kolay Gelsin
---------------------
CreateObject ("SAPI.SpVoice").Speak "HackedBySuleyman37"

OmerFarukHan, Milliyetci87 Teşekkür etti.
OmerFarukHan - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
03/2017
Nereden:
Sinop
Mesajlar:
1.612
Konular:
34
Teşekkür (Etti):
99
Teşekkür (Aldı):
124
Ticaret:
(0) %
13-05-2017 16:22
#2
Elinize sağlık
--------------------- 2019 Dönüş Vakti Olacak.
Suleyman37 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Nereden:
GİZLİ
Mesajlar:
1.307
Konular:
222
Teşekkür (Etti):
67
Teşekkür (Aldı):
128
Ticaret:
(0) %
13-05-2017 16:23
#3
Teşekkür Ederseniz
---------------------
CreateObject ("SAPI.SpVoice").Speak "HackedBySuleyman37"

Suleyman37 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Nereden:
GİZLİ
Mesajlar:
1.307
Konular:
222
Teşekkür (Etti):
67
Teşekkür (Aldı):
128
Ticaret:
(0) %
13-05-2017 16:50
#4
//güncel
---------------------
CreateObject ("SAPI.SpVoice").Speak "HackedBySuleyman37"


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler