Rilis XCODE ezine #15 [15 Maret 2010] + mirror link

[kucingpunk]

om mau nanya di xcode15 kan ad bonus yg mengenai scrip iseng vbs itu fungsinya buat ap?? trus cara ngembalikinnya gmna??? :putusasa: :putusasa:

[poni]

om mau nanya di xcode15 kan ad bonus yg mengenai scrip iseng vbs itu fungsinya buat ap?? trus cara ngembalikinnya gmna??? :putusasa: :putusasa:

source asli

Code: Select all

Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.exe$" 'ekstensi file yang akan direname
.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, ".SURYAexe") 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

gampang . tinggal di reverse aja. di script .vbs tersebut hanya ubah ekstensi file di drive D:/
jadi pakai code dibawah ini . simpan jadi reverseIsenk.vbs

pakai source ini untuk kembalikan ekstensinya

Code: Select all

Dim Drive, Root, fname
Drive = "D" 'drive yg akan diproses
Set Root = CreateObject("Scripting.FileSystemObject"). _
GetDrive(Drive).RootFolder
Set fname = New RegExp
With fname
.Pattern = "\.SURYAexe$" 'ekstensi file yang akan direname
.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, ".exe) 'hasil renamenya
End If
Next
For Each SubFolder In Folder.SubFolders
Call Rename(SubFolder, RegExp)
Next
End Sub

[phatinjo]

izin sedot bang.... boleh ngga aku share di blog aku.....????? :kaca:

[Adye Ahmad]

izin sedoott gan,,
sekalian mau tanya, cara hacking game naruto shippuden app on fb bagaimana?
ada Tools nya kah yang sejenis??

[boyzzz99]

TOLONG DUNK XCODE EZINE #15 NA DI UPLOAD DI IDWS ATO MEDIAFIRE .......

[poni]

@ atas, ada yang salah dengan ziddu???

[shinobu]

terima kasih bapak penganten baruuu :malumalu:
aye udah dunlut :licik:

[bleckock]

izin download ya kakak.. :maaf:

[xephion]

gk bisa dunlud dari ziddu neh..
baru 1 mb langsung terputus/..

mirror udah di apus tuh..


ada yang mirrorin ulang gk??/
please kk..

[cupuabiz]

kok ga bisa dibalikin lagi sih kk, dah coba bikin reverseIsenk.vbs. gmn caranyaaa ???? tolong di bls y kk