Menggunakan Visual Basic Scripting untuk ngerjain kompy temen

      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



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 :
  1. Masuk ke Task Manager.
  2. Pilih Prosses.
  3. Cari "wscript.exe" , 
  4. End Prosses "wscript.exe"/
  5. Komputer telah kembali normal.

Menggunakan Visual Basic Scripting untuk ngerjain kompy temen Menggunakan Visual Basic Scripting untuk ngerjain kompy temen Reviewed by Ampru Mizan on July 24, 2011 Rating: 5

7 comments:

  1. gan coba donk saya dikasih filenya yang udah jadi...

    saya buat dari script di atas ngga work...

    ReplyDelete
  2. ;)) okey tinggalin email km aj, ditunggu ya coz smentara lagy mudik ney gk bwa laptop....:X

    ReplyDelete
  3. normalinnya pakai skrip vs juga:
    Dim 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

    ReplyDelete
  4. normalinnya juga pakai file vbs, misalnya stop.vbs

    Dim 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

    ReplyDelete
  5. wah kereen banget sob, kreatif dah.. :D

    bisa 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.. ^^

    ReplyDelete
  6. udah di Follow mas, urutan 6, follback ya.. terima kasih.. ^^

    ReplyDelete

Powered by Blogger.