4 hizmet ayı
Bu gün sizlere basit bir şaka virüsü oluşturmayı göstereceğim.
Önce herhangi bir metin editörünü açıyoruz biz bu konuda en basit şekilde yapacağımız için notpad üzerinden göstereceğim.
Size verdiğim kodu yeni bir dosya açıp oraya yapıştırın.
Kod:
Kod:
Dim var<br><br>' Loop until var is equal to 6<br>Do Until var = 6<br> var = MsgBox("Are you an idiot?", vbQuestion + vbYesNo, "Your PC Hacked")<br>Loop<br><br>' Loop for the "Haha, I knew it!" message box<br>Do<br> var = MsgBox("Haha, I knew it!", vbInformation, "Your PC Hacked")<br>Loop While var = vbOK
şimdi üst kısımdan dosya ve farklı kaydete basıyoruz
Kayıt türünü tüm dosyalar yapıyoruz
Dosya adını istediğiniz bir isim ve .vbs yapıyoruz
kaydete basıyoruz.
Harika virüümüz hazır
Önce herhangi bir metin editörünü açıyoruz biz bu konuda en basit şekilde yapacağımız için notpad üzerinden göstereceğim.
Size verdiğim kodu yeni bir dosya açıp oraya yapıştırın.
Kod:
Kod:
Dim var<br><br>' Loop until var is equal to 6<br>Do Until var = 6<br> var = MsgBox("Are you an idiot?", vbQuestion + vbYesNo, "Your PC Hacked")<br>Loop<br><br>' Loop for the "Haha, I knew it!" message box<br>Do<br> var = MsgBox("Haha, I knew it!", vbInformation, "Your PC Hacked")<br>Loop While var = vbOK
şimdi üst kısımdan dosya ve farklı kaydete basıyoruz
Kayıt türünü tüm dosyalar yapıyoruz
Dosya adını istediğiniz bir isim ve .vbs yapıyoruz
kaydete basıyoruz.
Harika virüümüz hazır