VBScript atau lengkapnya Visual Basic Scripting Edition adalah sebuah bahasa skrip yang diinterpretasikan saat dieksekusi yang dikembangkan oleh Microsoft Corporation pada tahun 1996 yang seringnya digunakan dalam penjelajah web Internet Explorer (dapat digunakan mulai versi Internet Explorer 3.0). VBScript merupakan sebuah bahasa skrip turunan dari bahasa pemrograman Visual Basic for Applications (VBA) yang digunakan di dalam Microsoft Office dan beberapa platform pengembangan buatan Microsoft lainnya. VBScript menghilangkan beberapa fungsi dari VBA, seperti halnya fungsi I/O berkas dan akses langsung terhadap sistem operasi untuk menyediakan sebuah platform yang aman untuk mengembangkan aplikasi berbasis web dengan menggunakan platform Active Server Pages (ASP). Internet Explorer merupakan penjelajah web pertama yang menyediakan dukungan terhadap kode skrip yang ditulis dalam bahasa VBScript. VBScript dapat dijalankan di atas Windows 9x/ME, Windows 2000, Windows XP, Windows Server 2003, Windows Vista, Windows Server 2008 serta beberapa platform UNIX.
Kayak begitulah preview penjelasannya. nah dengan .VBS Code kamu bisa iseng ngerjain kompy temen dan bikin dia bengong kayak orang bloon coz di kira komputernya lg error. Caranya gampang coz kamu tinggal copas codenya ke notepad lau save as "namafile.vbs", pada namafile silahkan ketik sesuka mu. Berikut Daftar Code .vbs yang bisa kamu copy:
Enter Key Repeat:
Set wshShell = wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "~(enter)"
loop
Backspace Repeat:
MsgBox "Let's go back a few steps"
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{bs}"
loop
Caps Lock Repeat:
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
loop
CD Rom Opener:
Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromcollection
do
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
wscript.sleep 100
loop
Java Codes:
Edit Any Website: javascript: document.body.contentEditable = 'true'; document.designMode = 'on'; void 0 (paste in URL bar)
Moving Images:
javascript:R=0; x1=.1; y1=.05; x2=.25; y2=.24; x3=1.6; y3=.24; x4=300; y4=200; x5=300; y5=200; DI=document.getElementsByTagName('img'); DIL=DI.length; function A(){for(i=0; i-DIL; i++){DIS=DI[ i ].style; DIS.position='absolute'; DIS.left=(Math.sin(R*x1+i*x2+x3)*x4+x5)+ 'px'; DIS.top=(Math.cos(R*y1+i*y2+y3)*y4+y5)+' px'}R++}setInterval('A()',5); void(0); (paste in URL bar)
Youtube:
Watch Videos In Higher Quality: &fmt=18 (paste after URL text)
Make You Videos Full Youtube Dimensions:
yt:crop=16:9 (zooms in on the 16:9 area, removes windowboxing)
yt:stretch=16:9 (fixes anamorphic content by scaling to 16:9)
yt:stretch=4:3 (fixes 720x480 content that is the wrong aspect ratio by scaling to 4:3)
yt:quality=high (default to a high quality stream, depending on availability)
(paste in Tags section)
Other:
Virus ShutDown Code:
shutdown -s -t (time in seconds) -c "What you want to come up in the box"
Aim Change Away Status:
aim:goaway?message=your+message+here
INGAT!!! CARA BUWAT NGE-NORMALIN KOMPUTERNYA :
- Masuk ke Task Manager.
- Pilih Prosses.
- Cari "wscript.exe" ,
- End Prosses "wscript.exe"/
- Komputer telah kembali normal.
Menggunakan Visual Basic Scripting untuk ngerjain kompy temen
Reviewed by Ampru Mizan
on
July 24, 2011
Rating:
b-(
ReplyDeletegan coba donk saya dikasih filenya yang udah jadi...
ReplyDeletesaya buat dari script di atas ngga work...
;)) okey tinggalin email km aj, ditunggu ya coz smentara lagy mudik ney gk bwa laptop....:X
ReplyDeletenormalinnya pakai skrip vs juga:
ReplyDeleteDim objProcess
Dim strComputer
Dim strProcessKill
Dim objWMIService
Dim colProcess 'As Object
strComputer = "."
strProcessKill = "'Wscript.exe'"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess In colProcess
objProcess.Terminate
Next
namain apa saja skript ini dengan ekstensi.vbs
normalinnya juga pakai file vbs, misalnya stop.vbs
ReplyDeleteDim objProcess
Dim strComputer
Dim strProcessKill
Dim objWMIService
Dim colProcess 'As Object
strComputer = "."
strProcessKill = "'Wscript.exe'"
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcess = objWMIService.ExecQuery("Select * from Win32_Process Where Name = " & strProcessKill)
For Each objProcess In colProcess
objProcess.Terminate
Next
wah kereen banget sob, kreatif dah.. :D
ReplyDeletebisa buat iseng nih ke temen.. hahaha.. :D
ehh tapi cara mengembalikan seperti semulanya bagaimana ya sob ? apakah file tersebut harus di hapus dulu atau dimatikan di task managernya ? ^^ terima kasih.. ^^
udah di Follow mas, urutan 6, follback ya.. terima kasih.. ^^
ReplyDelete