İPUCU

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

Seçenekler

Şaka Virüsü 2 //Suleyman37

13-05-2017 16:19
#1
Suleyman37 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Nereden:
GİZLİ
Mesajlar:
1.299
Teşekkür (Etti):
68
Teşekkür (Aldı):
123
Konular:
217
Ticaret:
(0) %
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
Kullanıcı İmzası
CreateObject ("SAPI.SpVoice").Speak "HackedBySuleyman37"

OmerFarukHan, Milliyetci87 Teşekkür etti.

13-05-2017 16:22
#2
Üyelik tarihi:
03/2017
Nereden:
Sinop
Mesajlar:
1.615
Teşekkür (Etti):
101
Teşekkür (Aldı):
126
Konular:
34
Ticaret:
(0) %
Elinize sağlık
Kullanıcı İmzası
2019 Dönüş Vakti Olacak.
13-05-2017 16:23
#3
Suleyman37 - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
06/2016
Nereden:
GİZLİ
Mesajlar:
1.299
Teşekkür (Etti):
68
Teşekkür (Aldı):
123
Konular:
217
Ticaret:
(0) %
Teşekkür Ederseniz
Kullanıcı İmzası
CreateObject ("SAPI.SpVoice").Speak "HackedBySuleyman37"

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


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı