frmkiller.frm

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

End Function
Private Sub driv()                                                                 '###
Dim sDrives As String
Dim curDrive As String                                                             '###
Dim drvType As String
sDrives = GetAllDrives()                                                           '###
Do Until sDrives = Chr(0)
    DoEvents                                                                       '###
    curDrive = StripNulls(sDrives)
    alldrives.AddItem UCase(curDrive) '--Add Drive letters to the listbox          '###
Loop
End Sub                                                                            '###
'
'======================================================================================
'--------------------------------------------------------------------------------------


'                               __________X0X___________


'======================================================================================
'---------------------------[[[ File Attribute Section ]]]-----------------------------
'======================================================================================
Private Function StripNulls(sDriveList As String) As String
  Dim i As Integer
  Dim sDrive As String
  i = 1
  Do                                                                              '####
    DoEvents
    If Mid$(sDriveList, i, 1) = Chr$(0) Then
      sDrive = Mid$(sDriveList, 1, i - 1)
      sDriveList = Mid$(sDriveList, i + 1, Len(sDriveList))                       '####
      StripNulls = sDrive
      Exit Function
    End If
    i = i + 1                                                                     '####
  Loop
End Function
Sub SetFileNa(FileNa As String)
On Error Resume Next
    Dim Attr As Long                                                              '####
    lblPath = FileNa
    Attr = GetAttr(FileNa)
    chkReadOnly = -((Attr And vbReadOnly) <> 0)
    chkHidden = -((Attr And vbHidden) <> 0)                                       '####
    chkSystem = -((Attr And vbSystem) <> 0)
    chkArchive = -((Attr And vbArchive) <> 0)
End Sub
Private Sub setatt()
On Error Resume Next
chkReadOnly = 0                                                                   '####
chkHidden = 0
chkSystem = 0
chkArchive = 0
                                                                                  '####
    Dim Attr As VbFileAttribute
    If chkReadOnly Then Attr = Attr Or vbReadOnly
    If chkHidden Then Attr = Attr Or vbHidden
    If chkSystem Then Attr = Attr Or vbSystem                                     '####
    If chkArchive Then Attr = Attr Or vbArchive
    Call SetAttr(lblPath, Attr)
End Sub
'======================================================================================
'--------------------------------------------------------------------------------------


'                               __________X0X___________


'======================================================================================
'--------------------------[[[ Search & Delete Functions ]]]---------------------------
'======================================================================================
Private Sub searchautoinf() '-----------------------------[[[ Search Autoruns ]]]------
Dim i As Integer
Dim yesauto As String
Dim file2chk As String
Dim filp As String
For i = 0 To alldrives.ListCount - 1
thepath = alldrives.List(i)
'MsgBox thepath'-------------------------------------------------------------------Test
'==============
file2chk = thepath & "autorun.inf" '------------------------------File Path declaretion
fil = file2chk
yesauto = FileExists(file2chk) '------------------------------Cheack the file Existence
lblpat = thepath

'--------------------------------------------
    If yesauto = True Then              '----
        SetFileNa (fil.Text)            '----
        lblfl = "Found : Autorun.inf"   '----------------------------------------------
        LoadText theautorun, fil.Text   '----=[[Search & Load Autorun.inf in text box]]
    Else                                '----------------------------------------------
        lblfl = "No Autorun.inf Found"  '----
    End If                              '----
'--------------------------------------------

'-------------------------------------------------------
If yesauto = True Then autopaths.AddItem fil.Text  '----
If yesauto = True Then                             '----
    frmmain.thefpath = thepath & "Autorun.inf"     '----
    theex = ""                                     '-----------------------------------
    theex = ReadWriteINI("GET", "Autorun", "open") '----===[[Autorun & exe listing]]===
    filess.AddItem theex.Text                      '-----------------------------------
    filp = thepath & theex                         '----
    epath.AddItem filp                             '----
End If                                             '----
'-------------------------------------------------------

Next i
changeattribauto
End Sub
'======================================================================================
'--------------------------------------------------------------------------------------


'                               __________X0X___________


'======================================================================================
'----------------------------[[[ File Attribut Functions ]]]---------------------------
'======================================================================================
Private Sub changeattribauto() '------------------------[[[ Set Autorun.inf Attrbute ]]]
Dim i As Integer
Dim attset As String

'-----------------------------------------
For i = 0 To autopaths.ListCount - 1 '----
attset = autopaths.List(i)           '----
fil = attset                         '-------------------------------------------------
SetFileNa (fil.Text)                 '----=========[[[Autometic Attribute Changes]]]===
setatt '--------Attribut             '-------------------------------------------------
'msgbox("Done")                      '----
Next i                               '----
'-----------------------------------------

changeattribexe

End Sub
Private Sub changeattribexe() '--------------------------------[[[ Set EXE Attribute ]]]
Dim i As Integer
Dim attset As String
Dim killfile As String
Dim souchk As String

'-------------------------------------
'-------------------------------------
For i = 0 To epath.ListCount - 1 '----
attset = epath.List(i)           '----
fil = attset                     '-----------------------------------------------------
SetFileNa (fil.Text)             '----=============[[[Autometic Attribute Chenges]]]===
setatt '--------Attribut         '-----------------------------------------------------
'msgbox("Done")                  '-----
                                  '----
'souchk = Right(App.Path, 1)      '----
                                  '-----------------------
'        If souchk = "\" Then     '--------------------|  |
 '           ppath = App.Path & "taskkill.exe "       '|  |
  '      Else                                         '|  |
   '         ppath = App.Path & "\taskkill.exe "      '|  |
    '    End If                                       '|  |
                                                      '|  |
'killfile = ppath & fil                               '|  |
'thepath = killfile                                   '|  |
'DOShell thepath, 0                                   '|  |
                                                      '|  |
Next i                                                '|  |
'---------------------------------------------------------
'-------------------------------------------------------
killmall
End Sub
'======================================================================================
'--------------------------------------------------------------------------------------


'                               __________X0X___________


'======================================================================================
'--------------------------------[[[File Killing Function]]]---------------------------
'======================================================================================
Private Sub killmall()
Dim i As Integer
Dim attset As String
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

'--------------------------------------------------------------
For i = 0 To filess.ListCount - 1                          '---
attset = filess.List(i)                                    '---
fil = attset                                               '---
delexe = fil                                               '---
souchk = Right(App.Path, 1)                                '---
                                                           '---
    If souchk = "\" Then                                   '---------------------------
        deldir = App.Path & "taskkill.exe "                '---==[   EXE File Killing
    Else                                                   '---------------------------
        deldir = App.Path & "\taskkill.exe "               '---== Function Here   ]
    End If                                                 '---------------------------
                                                           '---
                                                           '---
thepath = deldir & frmmain.rtext & delexe & frmmain.rtext  '---
DOShell thepath, 0                                         '---
                                                           '---
                                                           '---
Next i                                                     '---
'--------------------------------------------------------------
deleteautor
End Sub
'======================================================================================
'--------------------------------------------------------------------------------------


'                               __________X0X___________



'======================================================================================
'-----------------------------[[[File Deletetion Function]]]---------------------------
'======================================================================================
Private Sub deleteautor()
Dim i As Integer
Dim attset As String
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

'--------------------------------------------------------------
For i = 0 To autopaths.ListCount - 1                       '---
attset = autopaths.List(i)                                 '---
fil = attset                                               '---
delexe = fil                                               '---
souchk = Right(App.Path, 1)                                '---
                                                           '---
    If souchk = "\" Then                                   '---------------------------
        deldir = App.Path & "dels.exe /nologo /nr /nw "    '---==[Autorun File Deleting
    Else                                                   '---------------------------
        deldir = App.Path & "\dels.exe /nologo /nr /nw "   '---==Function Here]
    End If                                                 '---------------------------
                                                           '---
                                                           '---
thepath = deldir & frmmain.rtext & delexe & frmmain.rtext  '---
DOShell thepath, 0                                         '---
                                                           '---
                                                           '---
Next i                                                     '---
'--------------------------------------------------------------
deleteexe
End Sub
Private Sub deleteexe()
Dim i As Integer
Dim attset As String
Dim delx As String
Dim delexe As String
Dim deldir As String
Dim souchk As String

'--------------------------------------------------------------
For i = 0 To epath.ListCount - 1                           '---
attset = epath.List(i)                                     '---
fil = attset                                               '---
delexe = fil                                               '---
souchk = Right(App.Path, 1)                                '---
                                                           '---
    If souchk = "\" Then                                   '---------------------------
        deldir = App.Path & "dels.exe /nologo /nr /nw "    '---==[   EXE File Deleting
    Else                                                   '---------------------------
        deldir = App.Path & "\dels.exe /nologo /nr /nw "   '---== Function Here   ]
    End If                                                 '---------------------------
                                                           '---
                                                           '---
thepath = deldir & frmmain.rtext & delexe & frmmain.rtext  '---
DOShell thepath, 0                                         '---
                                                           '---
                                                           '---
Next i                                                     '---
'--------------------------------------------------------------
sendmsg

End Sub
'======================================================================================
'--------------------------------------------------------------------------------------
Private Sub sendmsg() '---------------------------[[[ Status Masseg ]]]----------------
Dim x As Integer
For i = 0 To epath.ListCount - 1
txtmsg = txtmsg & vbNewLine & "The Autorun File : " & epath.List(i) & " is deleted."
Next i
If txtmsg = "" Then
MsgBox "Congratulations! No Autorun had been detected.", vbInformation, "Autorun Files"
Else
MsgBox txtmsg, vbCritical, "Warning"
End If
If mnuwhat = "1" Then
    frmmain.Visible = True
    frmkiller.Visible = False
Else
    frmkiller.Visible = False
    frmregwriter.Visible = True
    
End If
End Sub