form1.frm

来自「Antivirus Description: It s a working a」· FRM 代码 · 共 1,829 行 · 第 1/5 页

FRM
1,829 行
字号
12345
    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
12345

form1.frm - 源码说明

本页面展示了「Antivirus Description: It s a working antivirus or worm remover for most common virus. It dosen t」中的 form1.frm 源码文件，采用 FRM 编程语言编写，共 1,829 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与反病毒相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?