Sabtu, 28 September 2013

Counter Strike 1.6 download best PC game with free latest maps 2013

Counter Strike 1.6 download is the best PC game ever produced and Counter Strike 1.6 download is a dream of every game lover.
So today, we are sharing Counter Strike 1.6 download which has the maximum number of downloads every year as compared to any other PC game.
This is Counter Strike 1.6 download.
Counter Strike 1.6 download is a best PC game in which you can join either;the terrorist group or thecounter-terrorist group,
or end up being observers. Every group fights to finish their mission destination or dispose of the opposing group.
Counter Strike 1.6 download has a very amazing quality that while playing this game, you will yourself as you are there on the ground fighting in real.
You can choose to play from one of 8 different characters in which 4 are from terrorist group and 4 from counter-terrorist group.

These characters are shown in the following images:

Terrorist group Characters:




Counter-Terrorist group Characters:



Counter Strike 1.6 Free download has been declared as the best Online Game for the years since it is being developed.

Money Bonuses:
In this game, money bonuses are awarded to the players for:
* winning a round,
* defeating a round,
* killing an enemy,
* being the first to instruct a hostage to follow,
* rescuing a hostage,
* planting the bomb (Terrorist),
* defusing the bomb (Counter terrorist).

Download Counter Strike 1.6

Maps:

There are lots of maps which are provided with the game but few people likes to play in new maps and areas.
So for those friends, we are providing some brand new Counter Strike 1.6 maps free download.
Download it and paste it in the following folder:
Your Destination > Counter Strike 1.6 > Maps > Paste these downloaded maps here.




Download Map: Deathrace




Download Map: Aim_Easy 




Download Map: Just Zone



Download Map: Scoutknives




Download Counter Strike 1.6

Graphic Design Download Links


Graphic Design Download Links


Inkscape - Vector image editor/creator, compare to Adobe Illustrator. Win/Mac/Linux
Gimp - Bitmap image editor/creator, compare to Adobe PhotoShop. Win/Mac/Linux
Scribus - Desktop Publisher, compare to Adobe InDesign or QuarkXPress. Win/Mac/Linux
Kompozer - Graphical web page building tool (wysiwyg), compare to Adobe DreamWeaver. Win/Mac/Linux
FontForge - Font editor/creator, supports many formats. Can also convert one format to another. Win/Mac/Linux
Pencil - Simple 2D Animation. (For advanced 2D animation, see Synfig Studio). Win/Mac/Linux
Blender - 3D Imaging and Animation, compare to 3D Studio Max or Maya. Win/Mac/Linux
Sketchup - Can be used to build 3d models, compare to a simple CAD program. Free/Paid Versions. Win/Mac
IrfanVeiwer - Advanced batch image resizing, reformating, and renaming tool. (seePixResizer for a simple and quick batch resizer). Win only
Textorizer - Recreates an image using only text. Various customizable parameters. Win/
Mac/Linux 

Best Free Graphic Design Software

Whether you’re a professional designer or just want to have some fun, these free programs are for you. As far as free and open source software goes, these are some of the best quality and most competitive programs around. I’ve used a lot of the Adobe counterparts to the below software, and I’m always amazed at how these free programs can match (and in some cases exceed) the functionality of the commercial software. Give them a try if your curious.
GIMP



Gimp is a free bitmap image editor/creator similar to Adobe Photoshop. It is open source software, and will run on Windows, Mac, and Linux. Here are some things you can do with Gimp:
Touch up and enhance photos
Crop, re-size, and rotate images
Convert images from one format to another
Apply filters and effects to pictures
Create digital artwork for t-shirts or posters

Download Gimp – View Tutorials


Inkscape



Inkscape is a free vector image editor/creator similar to Adobe Illustrator. It is open source software, and will run on Windows, Mac, and Linux. Here are some things you can do with Inkscape:
Create logos and other artwork from scratch
Convert bitmap images to vector images
Draw artwork for use in animations, like cartoons
Quickly design website and interface mockups

Download Inkscape – View Tutorials

Adobe Photoshop CS6 extended 13.0 Final Version Install



Hi teman-teman .
Apakah ada orang di dunia saat ini yang tidak mendengar tentang Adobe Photoshop ?
Saat ini, Adobe Photoshop CS6 diperpanjang 13,0 menjadi kebutuhan setiap orang .
Jadi hari ini saya memutuskan untuk berbagi Adobe Photoshop CS6 13.0 Versi final dengan lengkap Download setup.With ini versi baru dan terbaru dari Adobe Photoshop , Anda dapat mengedit gambar dan Anda dapat menambahkan banyak efek dalam gambar Anda dengan sangat mudah .
Selain itu, dengan Adobe Photoshop CS6 diperpanjang 13.0 , Anda juga dapat mengubah latar belakang gambar Anda dan dapat memukau teman-teman Anda bu menempatkan latar belakang yang berbeda pada foto-foto mereka juga!
Dengan Adobe Photoshop CS6 ini diperpanjang 13.0 , Anda juga dapat menyesuaikan kecerahan , keringanan , ketajaman , warna , penghapusan mata merah dan perubahan grafis lainnya pada foto Anda dengan sangat mudah .
Singkatnya , Adobe Photoshop CS6 diperpanjang 13,0 adalah software terbaik untuk digunakan untuk foto dan editor grafis dan dapat digunakan untuk begitu banyak efek .


Saya harap kalian akan membuat baik penggunaan itu .


Sebelum mengunduh , baca persyaratan di bawah ini :


Persyaratan Sistem Windows :
Intel ® Pentium ® 4 atau AMD Athlon ® 64
Microsoft ® Windows ® XP * dengan Service Pack 3 atau Windows 7 dengan Service Pack 1
1GB RAM
1GB ruang hard-disk untuk instalasi; ruang kosong tambahan diperlukan selama instalasi ( tidak dapat menginstal pada perangkat penyimpanan removable flash)
1024x768 display (1280x800 disarankan) dengan warna 16 - bit dan 512MB VRAM
Sistem 2.0 - mampu OpenGL
DVD-ROM
Jika Anda suka upaya Software Collection , silahkan berikan komentar berharga Anda di kotak komentar di bawah ini :

Adobe Photoshop CS6 13.0

PC Game Zombie Shooter free download


Hi friends how are you all?
As you all know you can download free softwares from this blog, but today, I want to share a new PC Game with all my game lover friends.
The name of this game is "Zombie Shooter". As pretty much clear by its name that this game is about zombies.
This Zombie game is not only supposed a game of just for kids or teenagers. ThisPC game is rapidly getting popular among matures and elders.
This game is equally interested for
people of all age group.
In this game, few mad scientists with the help of their experiments, have unleasedzombies to the earth which is going to be deadly dangerous for the entire world.
You are on of those soldiers, who have given the task and powers to fight against them and to stop them from damaging earth.
The main feature of this game is, unlike other games in which you are far more equiped than your enemies, this game is totally other way round.
In this game, zombies are more powerful and equipped than you and you can only beat them with courage.
The main weapons which you are provided are mainly pistols, rifles and other few explosives.
Use them wisely to catre those deadly zombies.
This fight is not going to be as easy as it seems because zombies are more well equiped with latest technologies and deadly weapons..
So you have to fight courageously my friend!
Play & enjoy :)

Click below to start download:




Jumat, 27 September 2013

Cara memberi password pada file rar

Memberi Password Pada File Rar :
    1). Klik kanan pada file yang ingin dikompress, pilih Add to archive...
    2). Pilih tab Advanced - Set password
Cara Memberi Password Pada File Rar

    3). Masukan password, Awas Jangan Sampai Lupa!
    4). Kalau sudah, klik Ok
    5). Lalu file akan secara otomatis mulai meng-kompres,
    6). Selesai.

cara download video youtube dengan sangat mudah

Cara Download Video Di Youtube

1.Buka Link keepvid
2.masukkan URL Link video yang mau kamu download
3.tunggu sejenak
4.pilih kapasitas/jenis video yang mau kamu download
5.klik dan download deh


oke sekian posting saya tentang cara download video youtube

Semoga Bermanfaat :_

cara mengubah nama google menjadi nama kita

Berikut Cara Mengubah Logo Google Dengan Nama Kita :
  1. Buka situs : Funny Logo
  2. Ketikan nama yang sobat ingingkan  pada kolom "Enter Your Name"
  3. Lalu tentukan style yang ingin sobat pakai pada "Choose a Style" Misalnya : Google Style
  4. Kemudian klik "Create My Search Engine"
  5. Selesai.

Cara cek biaya tagihan rekening PLN VIA ONLINE

1. masuk KE SINI KAK

2. Lihat di sisi kanan bawah ada form (lihat gambar tanda bulatan merah)

informasi dan cara cek rekening listrik pln, informasi billing PLN
Cara Cek Rekening Listrik PLN / Billing PLN

2. Isi form dengan 12 Digit nomor ID pelanggan, misalnya 234689870007

4. Klik Cek , akan muncul hasilnya.

billing PLN, cara mengetahui atau mengecek berapa biaya tagihan rekening listrik pln
Gambar 2. Biaya Tagihan Rekening PLN


Kemudian jika Anda ingin mengetahui informasi tagihan listrik PLN bulan sebelumnya bisa diketahui dengan mengganti bulan dan atau tahun dengan klik tanda panah (lihat gambar 2 yang dilingkari bagian atas)
Di website resmi PLN ini, Anda juga bisa mengetahui simulasi pembayaran tagihan listrik dan simulasi biaya untuk menambah daya dan pasang baru PLN (lihat gambar 1).


Oke Sekian Post dari saya
Semoga membantu

Cara Mendapatkan Domain Gratis .tk

Oke Karena Sudah Lama gak posting,sekarang saja saya posting :)

Cara mendapatkan Domain gratis .tk

1.Kunjungi Link INI
2.Masukan Nama domain yang diinginkan
3.Klik tulisan GO
4.Lalu Lengkapi Pendaftaran seperti biasa
5.Gunakan EMAIL GMAIL biar enakk dan nyaman
6.Setelah selesai,silahkan login ( tempat login ada di halaman awal situs tadi di bagian kanan atas )
7.Setelah anda masuk diakun anda,silahkan klik TAB DOMAIN PANEL
8.Lalu pilih "Add a Domain"
9.Silahkan masukan domain yang anda inginkan
10.klik "Add New Domain"
11.Pilih Free Domain lalu Klik Next
12.Nah Domain berhasil dibuat
13.Lalu klik tulisan "Modify"
14.Untuk Cara Menghubungkan domainya tunggu postingan saya selanjutnya

Cara Setting Kustom Domain di blogger terbaru

1. Daftar dulu di DNS Afraid.
2. Jika sudah klik Domains > Add A Domain into FreeDNS.

3. Masukan nama domain Anda disitu



4. Selanjutnya Sign In ke Intuit, setting Nameserver nya menjadi:
    ns1.afraid.org
    ns2.afraid.org
    ns3.afraid.org
    ns4.afraid.org 
5. Kemudian login ke blogger.
6. Pilih blog yang akan menggunakan nama domain baru.
7. Pergi ke Setelan > Dasar
8. Pada bagian "Penerbitan" klik "Tambahkan domain khusus"
9. Sekarang klik pada bagian "Alihkan ke setelan lanjutan", ketik URL nama domain baru kamu menggunakan awalan "www"
10. Klik "Simpan". Kemudian blogger akan menampilkan error seperti ini "Kami tidak dapat memverifikasi otoritas Anda untuk domain ini. Kesalahan 14."
11. Perhatikan dua kode yang disorot pada gambar di atas. Itu adalah CNAME kepemilikan domain kamu yang nantinya akan digunakan untuk verifikasi kepemilikan domain. 
12. Kemudian pada DNS Afraid, Manage domain kamu yang tadi.
13. Atur seperti ini, masukkan IP Blogger & CNAME Blogger kamu yang tadi.
IP Blogger:
      216.239.32.21
      216.239.34.21
      216.239.36.21
      216.239.38.21
14. Selanjutnya ke Blogger lagi, masukkan domainnya & Simpan.
15. Selesai. Jika masih menampilkan pesan error, tunggu beberapa jam, kemudian ulangi lagi menambahkan nama domain kamu pada pengaturan Blogger.
Sekarang blog kamu sudah menjadi Top-Level Domain. Semoga bermanfaat.

Free Download Adobe Photoshop CS5 Full Version

Hallo Sahabat Blogger , Kali Ini Saya akan Share Adobe Photoshop CS5 Full Version .
Bagi kalian yang suka Edit Photo , Web Designer , Atau Design apapun . Silahkan Coba Adobe PhotoShop CS5 Ini :D
ScreenShoot :

  • Download : Adobe PhotoShop CS5 | 63 MB
  • Password : cirebon-cyber4rt



    Sumber : Cirebon Cyber4rt

Windows XP dipaksa PENSIUN


JAKARTA — Microsoft akan menghentikan dukungan teknis terhadap sistem operasi Windows XP. Sistem operasi yang telah berusia 12 tahun ini akan dipensiunkan pada 8 April 2014. 
Mulanya, Microsoft berencana mengakhiri dukungan terhadap Windows XP pada April 2009. Namun, karena adopsi Windows XP di dunia masih sangat tinggi, Microsoft pun memperpanjang dukungan secara global, meskipun hanya mendapat dukungan terbatas.
 
Hal ini ternyata juga terjadi di Indonesia. Business Group Lead Windows Microsoft Indonesia, Lucky Gani, mengatakan, Selasa (13/5/2013), pangsa pasar Windows XP di Indonesia masih jadi yang terbesar. 

Menurut data lembaga riset StatCounter, hingga Maret 2013, 42,65 persen komputer di Indonesia masih menjalankan Windows XP.
 
Adapun menurut estimasi Microsoft, dari 26.880.336 komputer di seluruh Indonesia, ada 11.464.463 komputer yang masih menjalankan Windows XP.
 
"Meski penggunanya masih banyak, kita akan mengakhiri Windows XP sampai April 2014. Pengguna diharap migrasi ke Windows 7 atau Windows 8. Keduanya punya sistem keamanan yang lebih kuat," kata Lucky.
 
Jika pengguna tetap bertahan pada software tua, maka Microsoft memperingatkan akan ada risiko keamanan yang membuat komputer rentan terhadap virus karena tidak adanya pembaruan sistem keamanan. Ketika ada masalah, pengguna akan sulit mendapat dukungan teknis.
 
Selain sistem operasi Windows XP, Microsoft juga akan menghentikan dukungan teknis terhadap softwareperkantoran Office 2003.

Cara Membuat Antivirus sendiri with VB 6

Pertama Buat Form kira-kira dengan Layout dibawah ini :


dengan Properti



Properti Description

Setelah mendesign Form dan mengatur Properti Object, sebelum coding , kita membutuhkan 3 buah module  .
Tambahkan 3 module                                                
Setelah mendesign Form utama serta mengatur Properties Objek , Sebelum melakukan Coding kita perlu menambahkan komponen pada Project Windows                                               
yaitu 3 buah module                                                
1.  Module 1 (name :modBrowse)                                               
2.  Module 2 (name :modCeksum)                                               
3.  Module 3 (name :modScan)                                               
                                               
1. ModBrowse : module ini digunakan untuk menampung kode-kode yang berhubungan dengan  
    fungsi Browse for Folder                                               
2. ModCeksum : module ini digunakan untuk menampung kode ceksum database internal virus 
    sebagai target antivirus kita                                               
3. ModScan      : module yang digunakan untuk menampung kode yang berhubungan dengan fungsi 
    pencarian file yang didefinisikan path-nya                                                 

ModBrowse

Private Declare Function lstrcat Lib _
    "kernel32" Alias "lstrcatA" _
    (ByVal lpString1 As String, _
    ByVal lpString2 As String) As Long
Private Declare Function SHBrowseForFolder Lib _
    "shell32" (lpBI As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib _
    "shell32" (ByVal pidList As Long, _
    ByVal lpBuffer As String) As Long
Private Declare Sub CoTaskMemFree Lib _
    "ole32.dll" (ByVal hMem As Long)
    
Private Type BrowseInfo
    lnghWnd As Long
    pIDLRoot As Long
    pszDisplayName As Long
    lpszTitle As Long
    ulFlags As Long
    lpfnCallback As Long
    lParam As Long
    iImage As Long
End Type

Private Const BIF_NEWDIALOGSTYLE As Long = &H40
Private Const BIF_EDITBOX As Long = &H10
Private Const MAX_PATH As Integer = 260
Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400


Public Function BrowseForFolder(ByVal hWndOwner As Long, _
    ByVal strPrompt As String) As String
    
    On Error GoTo ErrHandle
    
    Dim intNull As Integer
    Dim lngIDList As Long, lngResult As Long
    Dim strPath As String
    Dim udtBI As BrowseInfo
    
    With udtBI
        .lnghWnd = hWndOwner
        .lpszTitle = lstrcat(strPrompt, "")
        .ulFlags = BIF_NEWDIALOGSTYLE + BIF_EDITBOX
    End With
    
    lngIDList = SHBrowseForFolder(udtBI)
    
    If lngIDList <> 0 Then
        strPath = String(MAX_PATH, 0)
        lngResult = SHGetPathFromIDList(lngIDList, _
            strPath)
        Call CoTaskMemFree(lngIDList)
        intNull = InStr(strPath, vbNullChar)
            If intNull > 0 Then
                strPath = Left(strPath, intNull - 1)
            End If
    End If
     
    BrowseForFolder = strPath
    
    Exit Function
    
ErrHandle:
    BrowseForFolder = Empty
    
End Function

ModCeksum

Option Explicit
' Ceksum Standar by : Taufan Maulana
Dim a, b, c, d, e, f, G, h, i, j, k, l, m As Integer
Public na_virus(100) As String
Public no_virus(100) As String
Public Hasil, dataX, addres As String
Public Const R = 99
Public Function Cheksum(alamat As String) As String
Dim data As String
On Error Resume Next
Open alamat For Binary As #1
    data = Space(LOF(1))
    Get #1, , data
Close #1
If FileLen(alamat) >= 3000 Then
    dataX = Left(data, 5000)
    dataX = Replace(dataX, Chr(0), "")
    dataX = Replace(dataX, Chr(255), "")
'MsgBox Len(dataX)
Else
    dataX = Replace(data, Chr(0), "")
    dataX = Replace(data, Chr(255), "")
End If
Call Chapter1

End Function

Private Function Chapter1()
Dim x1 As Integer
If Len(dataX) >= 350 Then
    For x1 = R To 17 + R
        a = Asc(Mid(dataX, x1, 1))
        If a > 0 And a < 99 Then
            a = Hex(a)
            Exit For
        End If
    Next
    Call chapter2
Else
    terlalu_kecil ' buat fungsi yang lain
End If
End Function

Private Function chapter2()
Dim x2 As Integer
If Len(dataX) >= 350 Then
    For x2 = 17 + R To R + 25
        b = Asc(Mid(dataX, x2, 1))
        If b > 0 And b < 199 Then
            b = Hex(b)
            Exit For
        End If
    Next
    Call chapter3
End If
End Function

Private Function chapter3()
Dim x3 As Integer
If Len(dataX) >= 350 Then
    For x3 = R + 25 To R + 70
        c = Asc(Mid(dataX, x3, 1))
        If c > 0 And c < 199 Then
            c = Hex(c)
            Exit For
        End If
    Next
    Call chapter4
End If
End Function

Private Function chapter4()
Dim x4 As Integer
If Len(dataX) >= 350 Then
    For x4 = R + 7 To R + 87
        d = Asc(Mid(dataX, x4, 1))
        If d > 0 And d < 199 Then
            d = Hex(d)
            Exit For
        End If
    Next
    Call chapter5
End If
End Function


Private Function chapter5()
Dim x5 As Integer
If Len(dataX) >= 350 Then
    For x5 = 87 + R To R + 95
        e = Asc(Mid(dataX, x5, 1))
        If e > 0 And e < 199 Then
            e = Hex(e)
            Exit For
        End If
    Next
    Call chapter6
End If
End Function


Private Function chapter6()
Dim x6 As Integer
If Len(dataX) >= 350 Then
    For x6 = R + 95 To R + 140
        f = Asc(Mid(dataX, x6, 1))
        If f > 0 And f < 199 Then
            f = Hex(f)
            Exit For
        End If
    Next
    Call chapter7
End If
End Function

Private Function chapter7()
Dim x7 As Integer
If Len(dataX) >= 350 Then
    For x7 = R + 140 To R + 157
        G = Asc(Mid(dataX, x7, 1))
        If G > 0 And G < 199 Then
            G = Hex(G)
            Exit For
        End If
    Next
    Call chapter8
End If
End Function

Private Function chapter8()
Dim x8 As Integer
If Len(dataX) >= 350 Then
    For x8 = R + 157 To 165 + R
        h = Asc(Mid(dataX, x8, 1))
        If h > 0 And h < 199 Then
            h = Hex(h)
            Exit For
        End If
    Next
    Call chapter9
End If
End Function
Private Function chapter9()
Dim x9 As Integer
If Len(dataX) >= 350 Then
    For x9 = R + 165 To R + 210
        i = Asc(Mid(dataX, x9, 1))
        If i > 0 And i < 199 Then
            i = Hex(i)
            Exit For
        End If
    Next
    'Hasil = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & CStr(f) & CStr(g) & CStr(h) & CStr(i)
    Call chapter10
End If
End Function

Private Function chapter10()
Dim x10 As Integer
If Len(dataX) >= 350 Then
    For x10 = 210 + R To R + 227
        j = Asc(Mid(dataX, x10, 1))
        If j > 0 And j < 199 Then
            j = Hex(j)
            Exit For
        End If
    Next
    'Hasil = CStr(a) & CStr(b) & CStr(c) & CStr(d) & CStr(e) & CStr(f) & CStr(g) & CStr(h) & CStr(i)
    Call chapter11
End If
End Function


Private Function chapter11()
Dim x11 As Integer
If Len(dataX) >= 350 Then
    For x11 = 227 + R To R + 235
        k = Asc(Mid(dataX, x11, 1))
        If k > 0 And k < 199 Then
            k = Hex(k)
            Exit For
        End If
    Next
    Call chapter12
End If
End Function

Private Function chapter12()
Dim x12 As Integer
If Len(dataX) >= 350 Then
    For x12 = 235 + R To 285 + R
        l = Asc(Mid(dataX, x12, 1))
        If l > 0 And l < 199 Then
            l = Hex(l)
            Exit For
        End If
    Next
End If
    Hasil = CStr(a) & CStr(b) & CStr(c) & CStr(d) _
      & CStr(e) & CStr(f) & CStr(G) & CStr(h) _
       & CStr(i) & CStr(j) & CStr(k) & CStr(l)
End Function

Public Function terlalu_kecil()
Dim a1, b1, c1, d1, e1, f1, g1, h1, i1, j1 As String
If Len(dataX) >= 15 Then
    a1 = CStr(Asc(Mid(dataX, 1, 1)))
    b1 = CStr(Asc(Mid(dataX, 2, 1)))
    c1 = CStr(Asc(Mid(dataX, 3, 1)))
    d1 = CStr(Asc(Mid(dataX, 4, 1)))
    e1 = CStr(Asc(Mid(dataX, Len(dataX) / 2, 1)))
    f1 = CStr(Asc(Mid(dataX, Len(dataX) - 4, 1)))
    g1 = CStr(Asc(Mid(dataX, Len(dataX) - 3, 1)))
    h1 = CStr(Asc(Mid(dataX, Len(dataX) - 2, 1)))
    i1 = CStr(Asc(Mid(dataX, Len(dataX) - 1, 1)))
    Hasil = a1 & b1 & c1 & d1 & e1 & f1 & g1 & h1 & i1
Else
    Hasil = "FileNya Terlalu Kecil !"
End If
End Function

Public Sub nama_virus()
na_virus(0) = "word"
na_virus(1) = "M@ma Mia"
na_virus(2) = "Sipilis"
na_virus(3) = "Papa Tofa"
End Sub
Public Sub ceksum_virus()
no_virus(0) = "4C6510F24B464646464646"
no_virus(1) = "21767512AD5325344BD546E"
no_virus(2) = "261402252508C502261437"
no_virus(3) = "358F8F31919C292969295EAF"
End Sub


 ModScan

Option Explicit
Dim Total_size As Double
Public jumlah_file, JumDir As Single


Declare Function GetLogicalDrives Lib "kernel32" () As Long

Private Declare Function FindFirstFile Lib "kernel32" Alias _
"FindFirstFileA" (ByVal lpFilename As String, lpFindFileData _
As WIN32_FIND_DATA) As Long
Private Declare Function FindNextFile Lib "kernel32" Alias _
"FindNextFileA" (ByVal hFindFile As Long, lpFindFileData As _
WIN32_FIND_DATA) As Long
Private Declare Function GetFileAttributes Lib "kernel32" _
Alias "GetFileAttributesA" (ByVal lpFilename As String) As Long
Private Declare Function FindClose Lib "kernel32" _
(ByVal hFindFile As Long) As Long
Private Declare Function GetSystemDirectory Lib "kernel32" _
Alias "GetSystemDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowsDirectory Lib "kernel32" _
Alias "GetWindowsDirectoryA" _
(ByVal lpBuffer As String, ByVal nSize As Long) As Long

Const MAX_PATH = 260
Const MAXDWORD = &HFFFF
Const INVALID_HANDLE_VALUE = -1
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_DIRECTORY = &H10
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_NORMAL = &H80
Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_TEMPORARY = &H100

Private Type FILETIME
    dwLowDateTime As Long
    dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
    dwFileAttributes As Long
    ftCreationTime As FILETIME
    ftLastAccessTime As FILETIME
    ftLastWriteTime As FILETIME
    nFileSizeHigh As Long
    nFileSizeLow As Long
    dwReserved0 As Long
    dwReserved1 As Long
    cFileName As String * MAX_PATH
    cAlternate As String * 14
End Type
'-----------------------------------

Function StripNulls(OriginalStr As String) As String
    If (InStr(OriginalStr, Chr(0)) > 0) Then
        OriginalStr = Left(OriginalStr, InStr(OriginalStr, Chr(0)) - 1)
    End If
    StripNulls = OriginalStr
End Function

Function Scan(Path As String)
    Dim Filename As String
    Dim DirName As String
    Dim dirNames() As String
    Dim nDir As Integer
    Dim i As Integer
    Dim hSearch As Long
    Dim WFD As WIN32_FIND_DATA
    Dim Cont As Integer
    On Error Resume Next
    If frAntiVirus.Command2.Caption = "Scan" Then Exit Function
    If Right(Path, 1) <> "\" Then Path = Path & "\"
    nDir = 0
    ReDim dirNames(nDir)
    Cont = True
    hSearch = FindFirstFile(Path & "*", WFD)
    If hSearch <> INVALID_HANDLE_VALUE Then
        Do While Cont
        DirName = StripNulls(WFD.cFileName)
        If (DirName <> ".") And (DirName <> "..") Then
            If GetFileAttributes(Path & DirName) And _
            FILE_ATTRIBUTE_DIRECTORY Then
                dirNames(nDir) = DirName
                nDir = nDir + 1
                JumDir = JumDir + 1
                ReDim Preserve dirNames(nDir)
            End If
        End If
        Cont = FindNextFile(hSearch, WFD) 'Get next subdirectory.
        DoEvents
        Loop
        Cont = FindClose(hSearch)
    End If
    hSearch = FindFirstFile(Path & "*.*", WFD)
    Cont = True
    If hSearch <> INVALID_HANDLE_VALUE Then
        While Cont And frAntiVirus.Command2.Caption = "Stop"
            Filename = StripNulls(WFD.cFileName)
            If (Filename <> ".") And (Filename <> "..") Then
                'perhatikan pada code daerah ini [ penting ]
                Scan = Scan + (WFD.nFileSizeHigh * MAXDWORD) + _
                WFD.nFileSizeLow
                jumlah_file = jumlah_file + 1
                frAntiVirus.lblScan.Caption = Path & Filename
                addres = Path & Filename
                If UCase(Right(addres, 3)) = "EXE" Or UCase(Right(addres, 3)) = "SCR" And Len(addres) <= 2000000 Then
                    Cheksum (addres) ' cek nilai filenya
                    cek_virus ' ambil info di data_base
                End If
                Total_size = Total_size + FileLen(Path & Filename)
                frAntiVirus.lblFile.Caption = jumlah_file & " [ " & JumDir _
                & " ]"
                ' taruh aksi-aksi diatas z
            End If
            Cont = FindNextFile(hSearch, WFD) ' Get next file
            DoEvents
        Wend
        Cont = FindClose(hSearch)
    End If
    If nDir > 0 Then
        For i = 0 To nDir - 1
            Scan = Scan + Scan(Path & dirNames(i) & "\")
            DoEvents
        Next i
    End If
End Function

Function WinDir() As String
    Dim sSave As String, Ret As Long
    sSave = Space(255)
    Ret = GetWindowsDirectory(sSave, 255)
    WinDir = Left$(sSave, Ret)
End Function

Public Sub cek_virus()
Static num As Integer
Static G As ListItem
Static V_name As String
On Error Resume Next
    For num = 0 To 3
        If Hasil = "" Then Exit Sub
        If Hasil = no_virus(num) Then
           V_name = na_virus(num)
           Set G = frAntiVirus.ListView1.ListItems.Add(, , addres)
           G.SubItems(1) = V_name
           G.SubItems(2) = "Waiting User"
           Exit For
        Else
            ' do Nothing aja
        End If
    Next
End Sub

Code For frAntivirus

Double Click Form frAntiVirus

Option Explicit
' Program AntiVirus Sederhana
' Oleh Taufan Maulana . ..
' Mulai
Private Sub Check1_Click()
Dim f As Integer
If Check1.Value = 1 Then
    For f = 1 To ListView1.ListItems.Count
        ListView1.ListItems(f).Checked = True
    Next
Else
    For f = 1 To ListView1.ListItems.Count
        ListView1.ListItems(f).Checked = False
    Next
End If
End Sub

Private Sub Command1_Click()
Dim BFF As String
BFF = BrowseForFolder(Me.hWnd, _
        "Choose Drive / Directory to be Scanned :")

        If Len(BFF) > 0 Then
            Text1.Text = BFF
            Command2.Enabled = True
        End If
End Sub

Private Sub Command2_Click()
Static jum_Vir As Integer
If Len(Text1.Text) > 0 Then
    If Command2.Caption = "Scan" Then
        Command2.Caption = "Stop"
        ListView1.ListItems.Clear
        Scan (Text1.Text)
        Command2.Caption = "Scan"
    Else
        Command2.Caption = "Scan"
    End If
    jum_Vir = ListView1.ListItems.Count
    MsgBox "File Discan : " & jumlah_file & Chr(13) & _
       "Folder Dscan: " & JumDir & Chr(13) & _
       "Threat Found: " & jum_Vir & Chr(13)
Else
    MsgBox "Pilih Path address Dahulu !"
End If

jumlah_file = 0
JumDir = 0
End Sub

Private Sub Command3_Click()
Static d As Integer
If Command2.Caption = "Stop" Then
    MsgBox "Proses Scan Sedang berjalan !"
Else
    For d = 1 To ListView1.ListItems.Count
        If ListView1.ListItems(d).Checked = True Then _
        Del (ListView1.ListItems(d))
    Next
End If
End Sub

Private Sub Form_Load()
nama_virus
ceksum_virus
End Sub

Function Del(mana As String)
SetAttr mana, vbNormal
Kill mana
End Function

Private Sub lblScan_Change()
lblVir.Caption = ListView1.ListItems.Count & " virus"
End Sub

Setealah Code dibuat silahkan test Program anda dengan Klik Run /F5
Lalu Test Programnya , pilih Browse Folder yang akan discan  







 Lalu klik Scan .....



Hasil Scan


Selamat mencoba ...

Twitter Delicious Facebook Digg Stumbleupon Favorites More

 
Design by Candra-computer000 | Bloggerized by Candra Wijaya