Cara Menghapus Virus Shortcut

virus shortcut  cukup membuat kita binggung dan terganggu , jadi virus ini memang harus dibasmi jauh-jauh dari planet komputer kita.

Mau tau caranya, berikut ini langkah-langkahnya :

1. Sebelumnya matikan dulu proses system restore.

2. Matikan proses dari file Wscript yang terletak di C:\Windows\System32, dengan cara menggunakan tools seperti CProcess, HijackThis atau dapat juga menggunakan Task Manager dari Windows.

3. Setelah dimatikan proses dari Wscript tersebut, kita harus men-delete atau me-rename dari file tersebut agar tidak digunakan untuk sementara oleh virus tersebut.
Sebagai catatan, kalau kita me-rename dari file Wscript.exe tersebut dengan otomatis, maka akan dikopikan lagi di folder tersebut. Oleh sebab itu, kita harus mencari di mana file Wscript.exe yang lainnya, biasanya ada di C:\Windows\$NtServicePackUninstall$, C:\Windows\ServicePackFiles\i386.

Tidak seperti virus-virus VBS lainnya, kita bisa mengganti Open With dari file VBS menjadi Notepad, virus ini berextensi MDB yang berarti adalah file Microsoft Access. Jadi Wscript akan menjalankan file DATABASE.MDB seolah-olah dia adalah file VBS.

4. Delete file induknya yang ada di C:\Documents and Settings\\My Documents\database.mdb, agar setiap kali komputer dijalankan tidak akan me-load file tersebut. Dan jangan lupa kita buka juga MSCONFIG, disable perintah yang menjalankannya.

5. Sekarang kita akan men-delete file-file Autorun.INF. Microsoft.INF dan Thumb.db. Caranya, klik tombol START, ketik CMD, pindah ke drive yang akan dibersihkan, misalnya drive C:\, maka yang harus kita lakukan adalah:

Ketik C:\del Microsoft.inf /s, perintah ini akan men-delete semua file microsoft.inf di seluruh folder di drive C:. Sementara kalau mau pindah drive tinggal diganti nama drivenya saja contoh: D:\del Microsoft.inf /s.

Untuk file autorun.inf, ketik C:\del autorun.inf /s /ah /f, perintah akan men-delete file autorun.inf (syntax /ah /f) digunakan karena file tersebut memakai attrib RSHA, begitu juga untuk file Thumb.db lakukan juga hal yang sama.

6. Untuk men-delete file-file selain 4 file terdahulu, kita harus mencarinya dengan cara search file dengan ekstensi .lnk ukurannya 1 kb. Pada 'More advanced options' pastikan option 'Search system folders' dan 'Search hidden files and folders' keduanya telah dicentang.

Harap berhati-hati, tidak semua file shortcut / file LNK yang berukuran 1 kb adalah virus, kita dapat membedakannya dari ikon, size dan tipenya. Untuk shortcut yang diciptakan virus ikonnya selalu menggunakan icon 'folder', berukuran 1 kb dan bertipe 'shortcut'. Sedangkan folder yang benar harusnya tidak memiliki 'size' dan tipenya adalah 'File Folder'.

7. Fix registry yang sudah diubah oleh virus. Untuk mempercepat proses perbaikan registry salin script dibawah ini pada program 'notepad' kemudian simpan dengan nama 'Repair.inf'. Jalankan file tersebut dengan cara:

- Klik kanan repair.inf
- Klik Install
[Version]
Signature="$Chicago$"
Provider=Vaksincom Oyee

[DefaultInstall]
AddReg=UnhookRegKey
DelReg=del

[UnhookRegKey]
HKLM, Software\CLASSES\batfile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\comfile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\exefile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\piffile\shell\open\command,,,"""%1"" %*"
HKLM, Software\CLASSES\regfile\shell\open\command,,,"regedit.exe "%1""
HKLM, Software\CLASSES\scrfile\shell\open\command,,,"""%1"" %*"
HKLM, SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon, Shell,0, "Explorer.exe"
HKLM, SYSTEM\ControlSet001\Control\SafeBoot, AlternateShell,0, "cmd.exe"
HKLM, SYSTEM\ControlSet002\Control\SafeBoot, AlternateShell,0, "cmd.exe"

[del]
HKLM,SOFTWARE\Microsoft\Windows\CurrentVersion\Run, Winupdate
HKCU,SOFTWARE\Microsoft\Windows\CurrentVersion\Run, explorer

menghilangkan virus shortcut mso.sys dengan notepad

Virus mso.sys merupakan virus yang cukup menjengkelkan bagi saya, bagaimana tidak setiap kali di hapus muncul kembali, di kill dari task manager maka akan muncul lagi . Dalam task manager virus ini menuju ke rundll32.exe dalam direktori windows .
Setiap kali virus ini berjalan maka akan membuat sebuah shorcut yang menuju ke mso.sys, setiap kali flashdisk di tancapkan maka virus ini akan menginfeksi flashdisk tersebut dengan shorcut beberapa macam nama, serta mso.sys sebagai masternya. Jika komputer kita melakukan autorun pasti akan terinfeksi virus ini. virus ini dapat menyebar melalu lan, folder sharing dll. maka cukup sulit jika menghilangkan virus ini dalam sebuah workgroup yang cukup besar namun jangan kuwatir saya akan menjelaskan dengan cara mudah dan  simple pakai anti virus atau tidak bisa saja.


Cara penghapusan virus shortcut, mso.sys ( cara velshadow team ) :

1. Matikan Lan, jika ada yang di sharing "JANGAN" di sharing dulu. mengantisipasi agar tidak terinfeksi lagi.
2. Matikan Autorun http://blog.velshadow.com/2011/01/cara-mematikan-autorun-windows.html agar saat kita membuka flashdisk / hardisk lain tidak otomatis terbaca.
3. Unhide file file "agar virus yang ter hidden dapat terlihat" bisa pakai fitur smadav
   Download smadav pro http://blog.velshadow.com/2010/10/key-crack-keygen-smadav-pro-83.html
   masuk ke menu smadav > Tools > System editor > Centang semua > "Restart explorer"
4. Master virus ini bernama "mso.sys" dalam Hardisk C:/, D:/ dll maka hapus file tersebut jika tidak bisa kill dulu melalui task manager bernama "rundll32.exe" pada username nama komputer, jika tidak ingin menghapusnya maka bisa menggunakan fasilitas "notepad" buka file "mso.sys" pada hardisk C:/,D:/, dst dan pada flasdisk dengan notepad hilangkan tulisan di dalamnya maka akan menjadi "kosong".
5. hapus sisa - sisa shortcut dalam hardisk. dan folder "Recycle" yang berisi virus shorcut di dalamnya.
6. hapus startup yang menuju "Recycle.ink" ini menuju ke "mso.sys" atau master virus tadi . dengan cara RUN ketik "msconfig" > startup > uncheck "Recycle"
7. coba lakukan restart ada shortcut lagi dalam hardisk atau tida, jika tidak ada maka virus tsb sudah hilang dari komputer anda .

Jika task manager ter disable kunjungi link di bawah ini
http://blog.velshadow.com/2009/05/taskmanager-disable-administrator.html
Jika ada pertanyaan silahkan berkomentar ,

hapus autorun menggunakan notepad

Sebagian besar orang memiliki masalah autorun dengan flash/hard drive mereka, itu karena modifikasi dari file autorun.inf. Anda hanya perlu membuat file bat dengan sintaks berikut seperti yang disebutkan di bawah ini.

Salin dan sisipkan ini ke Notepad dan menyimpannya sebagai antivirus.bat atau whatever.bat (apapun namanya) 

tskill ctfmon

attrib -s -h -r c:\autorun.inf
attrib -s -h -r D:\autorun.inf
attrib -s -h -r E:\autorun.inf
attrib -s -h -r F:\autorun.inf
attrib -s -h -r G:\autorun.inf
attrib -s -h -r H:\autorun.inf
attrib -s -h -r I:\autorun.inf
attrib -s -h -r J:\autorun.inf

del c:\autorun.inf
del d:\autorun.inf
del e:\autorun.inf
del f:\autorun.inf
del g:\autorun.inf
del h:\autorun.inf
del I:\autorun.inf
del J:\autorun.inf

attrib -s -h -r c:\Recycled\ctfmon.exe
attrib -s -h -r D:\Recycled\ctfmon.exe
attrib -s -h -r E:\Recycled\ctfmon.exe
attrib -s -h -r F:\Recycled\ctfmon.exe
attrib -s -h -r G:\Recycled\ctfmon.exe
attrib -s -h -r H:\Recycled\ctfmon.exe
attrib -s -h -r I:\Recycled\ctfmon.exe
attrib -s -h -r J:\Recycled\ctfmon.exe

del c:\Recycled\ctfmon.exe
del D:\Recycled\ctfmon.exe
del E:\Recycled\ctfmon.exe
del F:\Recycled\ctfmon.exe
del G:\Recycled\ctfmon.exe
del H:\Recycled\ctfmon.exe
del I:\Recycled\ctfmon.exe
del J:\Recycled\ctfmon.exe

attrib -s -h -r "C:\Documents and Settings\Administrator\Start Menu\Programs\Startup\ctfmon.exe"
del "C:\Documents and Settings\Administrator\Start Menu\Programs\Startup\ctfmon.exe"

tskill explorer
explorer
pause

Kali ini saya akan mengajarkan kepada kalian bagaimana caranya menjadikan foto kita sebagai background dari blog yang kita miliki. Sebagai contoh saya akan menggunakan blog yang saya miliki di Blogger.

1. Login ke dashboard account Blogger kalian, lalu klik menu “Layout” di blog yang ingin kalian edit tampilan layoutnya, setelah itu klik menu “Edit HTML”.
2. Sekarang kalian harus meng-upload foto yang ingin kalian jadikan background dari blog kalian tersebut ke suatu lokasi hosting di internet, sebagai contoh kalian bisa meng-uploadnya ke situs ImageShacks. Setelah fotonya berhasil terupload maka nanti kalian akan diberi tahu URL foto kalian tersebut.
3. Balik lagi ke halaman Blogger kalian tadi, lalu copy kode CSS berikut:

<style type="text/css">

<!--

body {

    background-image: url(Ganti dengan URL foto kalian);

}

-->

</style>

Mengedit template Blogger untuk mengganti background menggunakan foto Setelah di-copy kodenya lalu kalian paste-kan kode tersebut ke template Blogger kalian tepatnya sebelum kode (lihat gambar di samping ini jika bingung) dan jangan lupa untuk mengganti tulisan “Ganti dengan URL foto kalian” di dalam kode tersebut menggunakan URL foto kalian yang telah kalian upload sebelumnya ke ImageShacks. Setelah itu kalian klik menu “Save Template” kemudian buka blog kalian tersebut untuk melihat perubahan layout yang telah kalian lakukan.

contoh tabel link

peran indonesia dalam organisasi internasional dalam bidang pbb

Nama :jaka
Kelas :xi ti
peranan organisasi indonesia dalam internasional asean, kaa, pbb dalam meningkatkan hubungan internasional
Organisasi ini bertujuan untuk meningkatkan pertumbuhan ekonomi, ... Y Struktur ASEAN Berdasarkan KTT Kuala Lumpur 1977. Dalam KTT kedua di Kuala Lumpur bulan Agustus .... ļ Membahas kerjasama & hubungan internasional dlm bidang ekonomi, politik, ...PERANAN PBB TERHADAP DUNIA. ļ Mengurangi ketegangan dunia setelah ...
(5) Bekerja sama dengan lebih efektif dalam meningkatkan penggunaan pertanian serta Peran Indonesia terhadap PBB. Republik Indonesia tidak hanya menerima bantuan melalui kerja sama dalam konferensi Asia Afrika, ASEAN maupun gerakan Non Blok. ILO adalah organisasi internasional yang bergerak dalam bidang
Dia mengoptimalkan peran Indonesia di PBB dengan jabatan itu. Dia menjelaskan bahwa KAA telah turut meletakkan dasar bagi upaya dekolonisasi di bekas . Ini sangat relevan dalam konteks hubungan Indonesia-Inggris, terutama karena Mantan Direktur Organisasi Internasional, Deplu (2001-2002) yang mengecap
Akhir-akhir ini penyelesaian ketegangan atau konflik di kawasan ASEAN relatif lebih baik bila C. bangsa di kawasan ini tidak memiliki karakter kekerasan terhadap sesama . Salah satu asas dalam hubungan internasional adalah perjanjian itu mengikat negara-negara yang . B. menggantikan peranan organisasi PBB
25 Apr 2005 Meningkatkan hubungan dan interaksi bilateral reguler tingkat tinggi sebagai memperkuat peran PBB dalam menjaga dan meningkatkan perdamaian dan keamanan Menegaskan kembali peran ASEAN dalam membangun kerjasama regional Memperkuat kerjasama dalam organisasi internasional untuk menjamin
Peranan Indonesia dalam ASEAN sangat besar di antaranya sebagai berikut. . UNICEF adalah Organisasi Dana Perkembangan anak-anak Internasional PBB. .Meningkatkan hubungan kerja sama di bidang ekonomi antar anggota Gerakan Non Blok
4.4 Mengkaji peranan organisasi internasional (ASEAN, PBB) dalam peranan organisasi Internasional dalam meningkatkan hubungan Internasional. yang Otentik dan Rumusan Pan-casila yang Otentik, Jakarta: PN Balai Pusta-ka.
4.4 Mengkaji peranan organisasi internasional (ASEAN, PBB) dalam meningkatkan hubungan internasional. o Organisasi Internasional. o Pengertian organisasi
4.4 Mengkaji peranan organisasi internasional (ASEAN, PBB) dalam meningkatkan hubungan internasional. Organisasi Internasional
Peraturan Ka Polri No. Pol 10 tahun 2007, tentang amanat pasal 45 UU PTPPO tentang . Rencana Kerja 2007-2009 untuk Implementasi ASEAN Declaration Against Selain itu adanya organisasi masyarakat dan organisasi Internasional yang perdagangan orang dengan lebih meningkatkan peran dan fungsi sektor baik di
www.jakabachelor.blogspot.com

kode ponsel nokia dan sony

Nokia
1. *#30# : Menampilkan “private number” yang menghubungi anda.
2. *#73# : Mereset timer dan high score game. (hanya pada ponsel tertentu).
3. *#7780# : Untuk mengembalikan ke settingan pabrik / Soft reset.
4. *#2820# : Alamat IP perangkat Bluetooth.
5. Xx# : Akses cepat ke nomer atau nama pada address book anda.
6. *#0000# : Menampilkan versi resmi ponsel, baris pertama menunjukkan versi
softwarenya, lalu baris kedua menampilkan tanggal pembuatan software dan baris ketiga
menunjukkan tipe kompresi software yang digunakan.
7. *#9999# : Sebagai alternatif apabila kode *#0000# tidak berfungsi.
8. *#06# : Melihat nomor IMEI ( International Mobile Equipment Identity ).
9. *#21# : Mengecek nomer pengalihan “ All calls “
10. *#43# : Mengecek status “Call waiting”.
11. *#67705646# : Mengganti operator logo pada 3310 dan 3330,
12. *#746025625# : Menampilkan status SIM Clock. Jika ponsel anda mendukung fitur
penghematan energi, akan keluar tulisan “ SIM Clock Allowed”, artinya anda akan
mendapat waktu stand by yang lebih.
13. *#92702689# : Menampilkan : 1. Serial Number, 2. Date Made, 3. Purchase date, 4.
Date of last repair , 5. Transfer user data. Pada beberapa ponsel setelah menggunakan
fitur ini anda harus merestart ponsel.


Sony Ericsson
1. *#06# : Melihat IMEi
2. *#0000# : Mereset kembali ke bahasa Inggris
3. >*<<*<* : Service menu, menampilkan versi software ponsel,. Tekan tombol Yes
berulang kali untuk melihat semua data software dan tekan > untk melihat semua teks
yang terdapat pada ponsel.
4. <**< : Untuk mengunci SIM Card.
PDF created with FinePrint pdfFactory Pro trial version http://www.fineprint.com

MERUBAH CURSOR

Saya yakin, Anda pasti bosan dengan cursor berbentuk panah itu. Dengan trik kali ini, Anda bisa mengganti cursor panah tersebut dengan gambar-gambar yang menarik setiap kali blog Anda dibuka. Caranya pun sangat mudah.

Langsung saja, begini caranya:

1. Pilih tab “Tata Letak”.
2. Klik “tambah gadget” baik itu berada di bawah, atas atau samping.
3. Pilih “HTML/JavaScript”
4. Copy kode di bawah ini pada tempat pengetikan:
<style type="text/css">body {cursor:url("http://www.123cursors.com/freecursors/7676.gif"),default}</style>
5. Nah, ganti alamat cursor http://www.123cursors.com/freecursors/7676.gif tersebut dengan alamat cursor yang lain. Untuk mengetahui alamat cursor yang lain, kunjungilah www.123cursors.com dan pilih cursor yang Anda inginkan. Supaya lebih mudah, cari berdasarkan kategori. Bila Anda sudah menemukan, copy alamat cursornya dengan cara klik kanan pada gambar cursor tersebut, lalu pilih “copy image location”.
Mudah kan?

ciri-ciri khutbah jum'at

baca selengkapnya

memmbuat melayang animasi

Pasti pada bingung nih, apa maksudnya dan kenapa judulnya begitu, sebenarnya aku sendiri juga bingung mau ngasih judul apa untuk trik yang berikut ini. Setelah aku pikir-pikir :t eee.. nggak nemu-nemu juga judul yang cocok, ya udah deh aku asal aja kasih judul gitu. Trus apa maksudnya dari judul tersebut dan trik apa yang akan dibahas?
Gini, untunya itu gini :D trik nyoba ngebahas gimana cara membuat "ANU" itu selalu berada di pojok (bisa atas, bawah, kiri, kanan) meskipun "scroll bar" ditarik kemana-mana. "Scroll bar" itu apa sih? itu lho kotak kecil panjang yang ada disamping itu, yg biasanya ditarik kebawah dan keatas supaya bisa ngelihat isi blog yang kepanjangan. Trus maksudnya "ANU" itu apa? "ANU" itu maksudnya bisa gambar atau photo kamu, animasi, Jam, Hit Counter, Shoutbox, Kalender, Adsense, Iklan, Widget-widget dan lain-lain. Kalo untuk di blog ini aku pasang gambar sonic yg sedang lari-lari (pojok kiri bawah). Nha udah tahu kan maksudnya. Kalo dah tahu dan pingin mencobanya mari ikuti trik berikut ini:

1. Login ke blogger trus klik "Layout -->> Edit HTML
2. Cari kode ini ]]></b:skin> kalo dah ketemu taru kode berikut ini di atasnya.

#trik_pojok {
position:fixed;_position:absolute;bottom:0px; left:0px;
clip:inherit;
_top:expression(document.documentElement.scrollTop+
document.documentElement.clientHeight-this.clientHeight); _left:expression(document.documentElement.scrollLeft+ document.documentElement.clientWidth - offsetWidth); }

3. Text yang dicetak tebal adalah posisinya, kalo pingin ganti di posisi pojok kanan bawah tinggal text "left" diganti dengan "right". Begitu juga tulisan "bottom", jika pingin di posisi atas bisa diganti dengan "top".
4. Langkah selanjutnya yaitu letekkan script berikut ini sebelum kode </body>

<div id="trik_pojok"><a href="http://trik-tips.blogspot.com">
<img src="http://kendhin.890m.com/soniclari.gif" border="0" /></a></div>

"http://trik-tips.blogspot.com" adalah link. ganti dengan link kamu.
"http://kendhin.890m.com/soniclari.gif" adalh lokasi gambarmu. ganti dengan lokasi gambar kamu.

5. Jika kamu pingin yang ada disitu bukan gambar tetapi jam/kalender/hit counter/widget-widget yg lain, maka ganti text yang berwarna merah dengan script widget-widget tersebut.
6. Simpan hasil kerja kamu dan lihat hasilnya.

contoh proposal

Contoh Proposal Bantuan Dana untuk mengajukan bantuan dana kepada sponsor, baik buat pengadaan sarana olagraga, pembangunan mesjid, kegiatan-kegiatan sosial dilingkungan tempat kita bekerja, lingkungan masyarakat, acara 17 agustusan maupun untuk kegiatan-kegiatan dan acara-acara yang lainnya. Silahkan mendownloadnya dan mengedit.

Download contoh Proposal 17 Agustusan
Download contoh Proposal Bantuan Dana Lengkap (Telah Jadi)

cara ubah icon blog sia

Jika kita membuka suatu website atau blog maka seringkali kita menjumpai ada sebuah gambar atau icon pada address bar (kotak untuk mengetikkan alamat web). Dan jika kita punya blog di Blogspot maka icon default yang akan tampil adalah gambar seperti ini :
Bagi kamu yang tidak puas dengan icon/gambar tersebut, kamu bisa menggantinya dengan gambar sesuai dengan keinginanmu. caranya sangat mudah, yaitu dengan membuat gambar (gif, jpg, ico, dan lain2) dengan ukuran kira2 24x42 pixel sampai 32x32 pixel (sebenarnya ukurannya bebas sih, tapi biar filenya kecil dan proses membukanya cepat). Setelah itu .....
masuk ke "Layout --> Edit HTML" trus tempatkan script berikut sebelum kode </head>

<link href='http://kendhin.890m.com/sonictrik.gif' rel='SHORTCUT ICON'/>

ganti huruf yang dicetak tebal dengan lokasi gambar dimana kamu menyimpannya. Kamu bisa menyimpan gambarmu di 000webhost atau bisa juga di photobucket dan juga di imageshack atau kalo kamu tidak mau pusing dibawah ini ada beberapa contoh icon/gambar beserta dengan linknya.

Latihan membuat game dengan VB

Latihan membuat game dengan VB

Kali ini kita kita akan belajar membuat game yang nantinya bisa kamu kembangkan sendiri.Penulis hanya membuat sample ini supaya kamu bisa menciptakan sendiri game yang lebih bagus.Game ini sangat simple dengan tampilan 2 dimensi menggunakan scipt kode di VB. Ada tiga option yang bisa dipilih yaitu :
1) Start
2) Options
3) The Game
Komponen yang digunakan
1) Timer Control
2) Picture Control
3) Label Control
4) Windows Media ocx
Untuk bermain game ini hanya menggunakan tombol arah serta tombol spasi. Silakan mencoba sendiri..
Dan berikut sample codenya

Option Explicit
Dim u, d, l, r, showm As Boolean
Dim x, y As Integer
Dim mx, my As Integer
Dim ex, ey As Integer
Dim score As Long
Dim fuel As Integer
Dim es As Integer

Private Sub Form_Load()'MediaPlayer1.playerApplication = App.Path & "\sfx\fire.wav"
'MediaPlayer2.FileName = App.Path & "\sfx\Explosion.wav"
'MediaPlayer3.FileName = App.Path & "\sfx\mainsound.mp3"lblScore.Caption = "0"x = 0
y = 0ex = -100
ex = -100es = 10fuel = 1
End Sub

Private Sub Form_Paint()
shooter.SetFocus
End Sub

Private Sub shooter_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 49 Then speed = speed - 1
If speed <= 0 Then speed = 0 If speed > 30 Then speed = 30

If KeyCode = 50 Then speed = speed + 1
If KeyCode = vbKeyLeft Then l = True
If KeyCode = vbKeyRight Then r = True
If KeyCode = vbKeyUp Then u = True
If KeyCode = vbKeyDown Then d = True
If KeyCode = vbKeySpace Then
If Not showm Then
fireit
End If
End If
If KeyCode = vbKeyEscape Then Unload Me: End
End Sub

Private Sub shooter_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyLeft Then l = False
If KeyCode = vbKeyRight Then r = False
If KeyCode = vbKeyUp Then u = False
If KeyCode = vbKeyDown Then d = False
End Sub

Private Sub Timer1_Timer()Static ch As Boolean
ch = Not chIf ch Then
shooter.Picture = Picture2.Picture
Else
shooter.Picture = Picture3.Picture
End If
End Sub

Private Sub
Timer2_Timer()
If l Then
x = x - speed
If x < x =" 0" x =" x">= Me.ScaleWidth - 100 Then x = Me.ScaleWidth - 100

End If

If u Then
y = y - speed
If y < y =" 0" y =" y">= Me.ScaleHeight - 100 Then y = Me.ScaleHeight - 100
End If

Label5.Caption = "X = " & x
Label6.Caption = "Y = " & y

shooter.Left = x
shooter.Top = y

Label3.Caption = CStr(speed)

If showm Then

mx = mx + 20
If mx > Me.ScaleWidth Then
showm = False
fire.Visible = False

End If

fire.Left = mx
fire.Top = my

If (my > ey And my <> ex) Then
score = score + 10
showm = False
SetEn
End If

Else
fire.Visible = False

End If

ex = ex - es
en.Left = ex
If ex < -200 Then SetEn en.Top = ey End If lblScore = CStr(score) Label8.Caption = "EX = " & ex Label7.Caption = "EY = " & ey If (y > ey - 40 And y <> ex And x < fuel =" fuel"> 1 Then MediaPlayer2.Play
Picture1.BackColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)

SetEn Select Case fuel

Case 2
Image1.Picture = LoadPicture(App.Path & "\data\fuel50.gif")

Case 3
Image1.Picture = LoadPicture(App.Path & "\data\fuel20.gif")

Case 4
Image1.Picture = LoadPicture(App.Path & "\data\game-over.gif")

End Select

If fuel = 4 Then

MsgBox "Game Over", vbCritical, "Shooter"
Unload Me
Form2.Show

End If

End If
End Sub

Private Sub fireit()
'MediaPlayer1.Play
showm = Truemx = shooter.Left + 100
my = shooter.Top + 50
fire.Visible = True
End Sub

Public Sub SetEn()
ey = Int(Rnd * Me.ScaleHeight) - 100

ex = Me.ScaleWidth
en.Left = ex
en.Top = ey

End Sub

Private Sub Timer3_Timer()
es = es + 5
End Sub

Berikut source code yang sudah jadi <dwonload>