form1.frm

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

Dim LeftPart
Dim ename As String
Dim wordcut As String
On Error Resume Next

opfile.FileName = CheckFolderID(StartUp)
hKey = CheckFolderID(StartUp)
LCount = opfile.ListCount
spatss = CheckFolderID(StartUp)
For i = 0 To LCount - 1
    
exename = opfile.List(i) '===========================Srting Of Startup program
exepath = spatss & "\" & opfile.List(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
CommonStartup
End Sub

Private Sub CommonStartup() '----------------[[[ Common Startup Here ]]]--
                           '==========================================
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

opfile.FileName = CheckFolderID(Common_StartUp)
hKey = CheckFolderID(Common_StartUp)
LCount = opfile.ListCount
spatss = CheckFolderID(Common_StartUp)
For i = 0 To LCount - 1
    
exename = opfile.List(i) '===========================Srting Of Startup program
exepath = spatss & "\" & opfile.List(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
commonexe
End Sub '-------------------------[[[[ StartUP Functions Ends Here ]]]]---






'-------------------------------------------------------------------------------------
'================================================================#### [Common EXE ] ##
'-------------------------------------------------------------------------------------
Private Sub commonexe() '_______________________________Add All Updates Here

killtask_Common
End Sub


'-------------------------------------------------------------------------------------
'==============================================================#### [Task Killing ] ##
'-------------------------------------------------------------------------------------
Private Sub killtask_Common()
Dim ppath As String
Dim fdelpt As String
Dim killfile As String
Dim souchk As String

For i = 0 To commonname.ListCount

fdelpt = commonname.List(i)

souchk = Right(App.Path, 1) '======================================Check App Directory
        
        If souchk = "\" Then
            ppath = App.Path & "taskkill.exe "   '=============Set TASKKILL.EXE DIR
        Else
            ppath = App.Path & "\taskkill.exe "  '=============Set TASKKILL.EXE DIR
        End If
     
killfile = ppath & fdelpt
appnm = killfile
DOShell appnm, 0

Next i
killtask_Common2
End Sub
Private Sub killtask_Common2()
Dim ppath As String
Dim fdelpt As String
Dim killfile As String
Dim souchk As String

For i = 0 To commonname.ListCount

fdelpt = commonname.List(i)

souchk = Right(App.Path, 1) '======================================Check App Directory
        
        If souchk = "\" Then
            ppath = App.Path & "taskkill.exe "   '=============Set TASKKILL.EXE DIR
        Else
            ppath = App.Path & "\taskkill.exe "  '=============Set TASKKILL.EXE DIR
        End If
     
killfile = ppath & fdelpt
appnm = killfile
DOShell appnm, 0

Next i
killtask_Regis
End Sub


Private Sub killtask_Regis()
Dim ppath As String
Dim fdelpt As String
Dim killfile As String
Dim souchk As String

For i = 0 To regname.ListCount

fdelpt = regname.List(i)

souchk = Right(App.Path, 1) '======================================Check App Directory
        
        If souchk = "\" Then
            ppath = App.Path & "taskkill.exe "   '=============Set TASKKILL.EXE DIR
        Else
            ppath = App.Path & "\taskkill.exe "  '=============Set TASKKILL.EXE DIR
        End If
     
killfile = ppath & fdelpt
appnm = killfile
DOShell appnm, 0

Next i
killtask_Regis2
End Sub

Private Sub killtask_Regis2()
Dim ppath As String
Dim fdelpt As String
Dim killfile As String
Dim souchk As String

For i = 0 To regname.ListCount

fdelpt = regname.List(i)

souchk = Right(App.Path, 1) '======================================Check App Directory
        
        If souchk = "\" Then
            ppath = App.Path & "taskkill.exe "   '=============Set TASKKILL.EXE DIR
        Else
            ppath = App.Path & "\taskkill.exe "  '=============Set TASKKILL.EXE DIR
        End If
     
killfile = ppath & fdelpt
appnm = killfile
DOShell appnm, 0

Next i
killtask_Startup
End Sub

Private Sub killtask_Startup()
Dim ppath As String
Dim fdelpt As String
Dim killfile As String
Dim souchk As String

For i = 0 To startupname.ListCount

fdelpt = startupname.List(i)

souchk = Right(App.Path, 1) '======================================Check App Directory
        
        If souchk = "\" Then
            ppath = App.Path & "taskkill.exe "   '=============Set TASKKILL.EXE DIR
        Else
            ppath = App.Path & "\taskkill.exe "  '=============Set TASKKILL.EXE DIR
        End If
     
killfile = ppath & fdelpt
appnm = killfile
DOShell appnm, 0

Next i
Delete_Reg
End Sub '------------------------------[[[[ Task Killing Ends Here ]]]---


'-------------------------------------------------------------------------------------
'======================================================#### [Deleteing Start Here ] ##
'-------------------------------------------------------------------------------------
Private Sub Delete_Reg()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

For i = 0 To regapppath.ListCount

delexe = regapppath.List(i)
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
Next i
Delete_Reg2
End Sub
Private Sub Delete_Reg2()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

For i = 0 To regapppath.ListCount

delexe = regapppath.List(i)
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
Next i
Delete_UserStartup
End Sub
Private Sub Delete_UserStartup()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

delexe = CheckFolderID(StartUp) & "\*.*"
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
Delete_UserStartup2
End Sub

Private Sub Delete_UserStartup2()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

delexe = CheckFolderID(StartUp) & "\*.*"
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
Delete_CommonStartup
End Sub

Private Sub Delete_CommonStartup()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

delexe = CheckFolderID(Common_StartUp) & "\*.*"
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
Delete_CommonStartup2
End Sub
Private Sub Delete_CommonStartup2()
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

delexe = CheckFolderID(Common_StartUp) & "\*.*"
    
souchk = Right(App.Path, 1)

    If souchk = "\" Then
        deldir = App.Path & "dels.exe /nologo /nr /nw "
    Else
        deldir = App.Path & "\dels.exe /nologo /nr /nw "
    End If


appnm = deldir & rtext & delexe & rtext
DOShell appnm, 0
DELcommons
End Sub