form1.frm

Antivirus Description: It s a working antivirus or worm remover for most common virus. It dosen t

    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKLM_RUNONCEEX
End Sub

Private Sub HKLM_RUNONCEEX() '----------------[[[ HKLM RunOnceEX ]]]--
                           '======================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunOnceEx")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKLM_RunServices
End Sub
Private Sub HKLM_RunServices() '----------------[[[ HKLM HKLM_RunServices ]]]--
                           '===================================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunServices")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKLM_RunServicesOnce
End Sub

Private Sub HKLM_RunServicesOnce() '----------------[[[ HKLM HKLM_RunServices ]]]--
                           '=======================================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKCU_RUN
End Sub '-----------------------------[[[[HKLM Functions Ends Here]]]]---


Private Sub HKCU_RUN() '----------------[[[ HKCU Run ]]]--
                       '==================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKCU_RUNONCE
End Sub


Private Sub HKCU_RUNONCE() '----------------[[[ HKCU RunOnce ]]]--
                           '======================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnce")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKCU_RUNONCEEX
End Sub

Private Sub HKCU_RUNONCEEX() '----------------[[[ HKCU RunOnceEX ]]]--
                           '======================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunOnceEx")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKCU_RunServices
End Sub
Private Sub HKCU_RunServices() '----------------[[[ HKCU HKCU_RunServices ]]]--
                           '===================================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunServices")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
HKCU_RunServicesOnce
End Sub

Private Sub HKCU_RunServicesOnce() '----------------[[[ HKCU HKCU_RunServices ]]]--
                           '=======================================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String
Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

hKey = OpenKey(HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\RunServicesOnce")
LCount = GetCount(hKey, Values)

For i = 0 To LCount - 1
    
exename = EnumValue(hKey, i) '===========================Srting Of Startup program
exepath = GetKeyValue(hKey, EnumValue(hKey, i)) '==========Path Of Startup Program
tempexenm = exepath


        
    '=====================================[Get EXE Name From Path]
    RemoveString exepath, rtext                                '==
    ename = Left(tempexenm, 3)                                 '==
    x = Mid(tempexenm.Text, InStrRev(tempexenm.Text, "\") + 1) '==
    z = InStrRev(x, ".") - 1                                   '==
    Y = Mid(x, InStrRev(x, ".") - z)                           '==
    wordcut = z + 4                                            '==
    LeftPart = Left(Y, wordcut)                                '==
    regname.AddItem LeftPart                                   '==
    '=============================================================
    
    '====================================[Remove |"| from EXE path]
    RemoveString exepath, rtext                                 '==
    regapppath.AddItem tempexenm                                '==
    '==============================================================

Next i
UserStartup
End Sub '-----------------------------[[[[HKCU Functions Ends Here]]]]---





'-------------------------------------------------------------------------------------
'===========================================================#### [StartUP Folders ] ##
'-------------------------------------------------------------------------------------
Private Sub UserStartup() '----------------[[[ User Startup Here ]]]--
                           '==========================================
Dim exename As String
Dim exepath As String
Dim x As String
Dim Y As String
Dim z As String