Andai hatimu adalah system dan aku adalah Antivirusnya.
Maka aku akan membuat sebuah perlindungan penuh untuk menjaga systemmu dari serangan virus (Penganggu) yang akan menghancurkan systemmu (Hatimu) lalu aku akan membuat sebuah pesan
MsgBox “System You Is Protection By My Heart”,vbInformation,”My Heart”
Andai hatimu adalah system dan aku antivirusnya.
Maka aku akan mencari virus (Penganggu) yang menghancurkan system hatimu lalu aku akan memasukan virus (Penganggu) tersebut kedatabase hatiku, jika pada sesuatu saat system hatimu dikunjungin virus (Penganggu) tersebut maka akan aku scan sampai kepelosok hatimu agar system hatimu bersih dari gangguan dan tidak mengganggu kita berdua maka virus (Penganggu) itu akan aku DELETE tanpa ampun !!
Public Function KillVirusNow(ByVal sPathDel As String) As Long
On Error Resume Next
SetAttr sPathDel, vbNormal
DeleteFile (sPathDel)
If IsFileExist(sPathDel) = True Then
Call MsgBox("Virus Success Delete", vbCritical + vbOKOnly, "Giusppe")
Exit Function
End If
End Function
Andai hatimu adalah system dan aku antivirusnya.
Aku akan selalu menscan seluruh system hatimu sampai kepolosok-polosok agar kamu dan aku selalu tentram dipelukan hati kita berdua tanpa gangguan dari virus.
Private Sub ScanNow_Click()
Hatimu.Text = BrowseFolder(Hatiku.hwnd)
ScanNow
End If
End Sub
Andai hatimu adalah System dan aku antivirusnya.
Aku akan selalu mengawasin system hatimu pakai Process Active dan jika suatu saat ada file yang mencurigakan yang akan mengganggu kita berdua maka aku akan “Terminate” atau “Kil” file tersebut agar tidak ada penganggu yang selalu mengawasinmu.
Private Sub lvProses_Click()
Static PID As Long
PID = lvProses.SelectedItem.SubItems(1)
ListModule PID, lstModule
End Sub
Andai hatimu adalah system dan aku antivirusnya.
Jika suatu saat Registry system hatimu diacak-acak virus (Penganggu) dan tidak ada AV yang lain mampu Fix Registry kecuali aku, maka aku akan datang lalu akan melakukan Fix Registry agar hatimu kembali ke bentuk normal dan agar hatimu tidak tersakitin.
Private Sub BacaNilai()
Dim cx As Byte
For cx = 0 To 11
Select Case cx
Case 0
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableRegistryTools")
Case 1
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableTaskMgr")
Case 2
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\System", "DisableCMD")
Case 3
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoFolderOptions")
Case 4
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "Hidden")
Case 5
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced", "ShowSuperHidden")
Case 6
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\microsoft\windows\currentversion\policies\explorer", "RestrictRun")
Case 7
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoSetTaskbar")
Case 8
ckReg(cx).Value = GetDwordValue(HKEY_CURRENT_USER, _
"Software\Microsoft\Windows\CurrentVersion\Policies\Explorer", "NoTrayContextMenu")
End Select
Next
End Sub
Andai hatimu adalah system dan aku antivirusnya
Maka system hatimu wajib harus Update antivirus hatiku agar aku bisa mengenalin siapa-siapa saja yang akan bakal mengganggu hatimu disuatu saat nanti.
Private Sub Update_Click()
Dim hMsg As Long
hMsg = MsgBox("Update Procedure : " & vbCrLf & _
"1. Download My Heart File (zip)" & vbCrLf & _
"2. Extract My Heart file (zip) to My Heart Directory" & vbCrLf & _
"3. Replace My Heart old version with My Heart last version" & vbCrLf & vbCrLf & _
"Do you want to download update now?", vbQuestion + vbOKCancel, "My Heart Antivirus")
Select Case hMsg
Case vbOK
ShellExecute Me.hwnd, "Open", "http://giusppesmartsecurity.blogspot.com/", "", "", 1
Case vbCancel
Exit Sub
End Select
End Sub
Andai hatimu adalah System dan aku antivirusnya
Maka system hatimu harus mengaktifkan REAL TIME PROTECTION agar hatimu selalu terlindungin, dan kamu akan bebas menjelajahin Explore kehidupanmu dan jika REAL TIME PROTECTION-ku mendeteksi ada ancaman yang menganggu kehidupanmu maka aku akan memberikan pesan kepada mu “Quarantine Virus”, “Ignore Virus”, and “Delete Virus”
Andai hatimu adalah system dan aku antivirusnya.
Maka aku akan membuat folder UNICODE kesemua drive C:/, D:/, E:/, F:/ agar virus-virus (Penganggu) tidak bisa masuk ke folder kenangan kita berdua J
Private Sub LockHeart_Click()
CreateFolder "C:\" & ChrW$(916) & "You And Me" & ChrW$(916) & ""
CreateFolder "D:\" & ChrW$(916) & " You And Me " & ChrW$(916) & ""
CreateFolder "E:\" & ChrW$(916) & " You And Me " & ChrW$(916) & ""
CreateFolder "F:\" & ChrW$(916) & " You And Me " & ChrW$(916) & ""
End Sub
Seandainya hatimu adalah sebuah system dan aku antivirunsya.
aku akan selalu menjagamu didunia maya (diluar) pakai “Firewall” hatiku lalu aku akan pasang “Portsentry” dan mensetting “ERROR PAGE”mu. Dan aku janji disaat kamu menjelajahin dunia maya (Diluar) tidak ada yang berhasi masuk Virus,Worm,Trojan,Spyware,Macelinius kedalam hatimu.Janji dech J
Andai hatimu adalah system dan aku antivirusnya
Jika suatu saat kamu lebih banyak memberikan memory (Hati) ke AV lain dari pada Av Hatiku dan aku kekurangan memorymu (Hatimu) maka aku akan NOT RESPONTING karna hatimu lebih benyak membagi memory (Isi hati) ke Av Lain (Orang Lain) pada pada AV hatiku. Tapi janganlah kamukan bidadariku jadi harus lebih banyak keaku dehh.
Andai hatimu adalah system dan aku antivirusnya
Tapi sayang kamu bukanlah system, kamu adalah sang bidadariku yang telah membuat aku menjadi Antivirus.
Suatu saat nanti aku akan datang dan mengatakan kalau di Antivirusku (Hatiku) sudah ada nama kamu di “About” Antivirusku (Hatiku) yang bertulisan “Thanks Special To XXXXX” dan nama kamu di “About”ku tidak akan pernah dirubah sampai akhirnya system kita (Hati kita) benar-benar xxxxx.
Tidak ada komentar:
Posting Komentar