📄 ravstarter.frm
字号:
BackStyle = 0 'Transparent
Caption = "官方最新版本"
Height = 180
Index = 0
Left = 1800
TabIndex = 5
Top = 120
Width = 1080
End
End
End
Begin SHDocVwCtl.WebBrowser RfwWeb
Height = 255
Left = 840
TabIndex = 1
Top = 4320
Visible = 0 'False
Width = 615
ExtentX = 1085
ExtentY = 450
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
Begin SHDocVwCtl.WebBrowser RavWeb
Height = 255
Left = 240
TabIndex = 0
Top = 4320
Visible = 0 'False
Width = 615
ExtentX = 1085
ExtentY = 450
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = "http:///"
End
End
Attribute VB_Name = "RavStarter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://http://zy.5ip8.cn (诚信286网络交易平台)
'****************************************************************************
'================================================================================================
' 瑞星2007版升级起子
' 作者：Casanova
' QQ:237971972
' E-Mail:ljmails@gmail.com
' 本代码仅限用于学习哦交流之用
' 禁止用于商业用途
' 请勿抹去作者信息，谢谢
'================================================================================================
Option Explicit
Private Declare Function LoadImage Lib "user32" Alias "LoadImageA" (ByVal hInst As Long, ByVal lpsz As String, ByVal dwImageType As Long, ByVal dwDesiredWidth As Long, ByVal dwDesiredHeight As Long, ByVal dwFlags As Long) As Long
Private Const LR_LOADFROMFILE = &H10
Private Const LR_LOADMAP3DCOLORS = &H1000
Private Const IMAGE_ICON = 1
Private Declare Function Shell_NotifyIcon Lib "shell32.dll" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Long
Private Const NIF_MESSAGE = &H1
Private Const NIF_ICON = &H2
Private Const NIF_TIP = &H4
Private Const NIF_STATE = &H8
Private Const NIF_INFO = &H10
Private Const NIM_ADD = &H0
Private Const NIM_MODIFY = &H1
Private Const NIM_DELETE = &H2
Private Const NIM_SETFOCUS = &H3
Private Const NIM_SETVERSION = &H4
Private Const NIM_VERSION = &H5
Private Const WM_USER As Long = &H400
Private Const NIN_BALLOONSHOW = (WM_USER + 2)
Private Const NIN_BALLOONHIDE = (WM_USER + 3)
Private Const NIN_BALLOONTIMEOUT = (WM_USER + 4)
Private Const NIN_BALLOONUSERCLICK = (WM_USER + 5)
Private Const NOTIFYICON_VERSION = 3
Private Const NIS_HIDDEN = &H1
Private Const NIS_SHAREDICON = &H2
Private Const WM_NOTIFY As Long = &H4E
Private Const WM_COMMAND As Long = &H111
Private Const WM_CLOSE As Long = &H10
Private Const WM_MOUSEMOVE As Long = &H200
Private Const WM_LBUTTONDOWN As Long = &H201
Private Const WM_LBUTTONUP As Long = &H202
Private Const WM_LBUTTONDBLCLK As Long = &H203
Private Const WM_MBUTTONDOWN As Long = &H207
Private Const WM_MBUTTONUP As Long = &H208
Private Const WM_MBUTTONDBLCLK As Long = &H209
Private Const WM_RBUTTONDOWN As Long = &H204
Private Const WM_RBUTTONUP As Long = &H205
Private Const WM_RBUTTONDBLCLK As Long = &H206
Private Enum bFlag
NIIF_NONE = &H0
NIIF_INFO = &H1
NIIF_WARNING = &H2
NIIF_ERROR = &H3
NIIF_EXEICON = &H4
NIIF_GUID = &H5
NIIF_ICON_MASK = &HF
NIIF_NOSOUND = &H10
End Enum
Private Type NOTIFYICONDATA
cbSize As Long
hwnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeoutAndVersion As Long
szInfoTitle As String * 64
dwInfoFlags As Long
End Type
Private Enum TrayRetunEventEnum
MouseMove = &H200
LeftUp = &H202
LeftDown = &H201
LeftDbClick = &H203
RightUp = &H205
RightDown = &H204
RightDbClick = &H206
MiddleUp = &H208
MiddleDown = &H207
MiddleDbClick = &H209
BalloonClick = (WM_USER + 5)
End Enum
Private ni As NOTIFYICONDATA
Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Private Declare Function WritePrivateProfileString Lib "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Sub InitCommonControls Lib "comctl32.dll" ()
Dim WinDirFile As String
Public VerUrlAdd As String
Private INIPath As String
Private Sub TrayAddIcon(ByVal MyForm As Form, ByVal MyIcon As Long, ByVal ToolTip As String, Optional ByVal bFlag As bFlag)
With ni
.cbSize = Len(ni)
.hwnd = MyForm.hwnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.uCallbackMessage = WM_MOUSEMOVE
.hIcon = MyIcon
.szTip = ToolTip & vbNullChar
End With
Call Shell_NotifyIcon(NIM_ADD, ni)
End Sub
Private Sub TrayRemoveIcon()
Shell_NotifyIcon NIM_DELETE, ni
End Sub
Private Sub TrayBalloon(ByVal MyForm As Form, ByVal sBaloonText As String, sBallonTitle As String, Optional ByVal bFlag As bFlag)
With ni
.cbSize = Len(ni)
.hwnd = MyForm.hwnd
.uID = vbNull
.uFlags = NIF_INFO
.dwInfoFlags = bFlag
.szInfoTitle = sBallonTitle & vbNullChar
.szInfo = sBaloonText & vbNullChar
End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
Private Sub TrayTip(ByVal MyForm As Form, ByVal sTipText As String)
With ni
.cbSize = Len(ni)
.hwnd = MyForm.hwnd
.uID = vbNull
.uFlags = NIF_ICON Or NIF_TIP Or NIF_MESSAGE
.szTip = sTipText & vbNullChar
End With
Shell_NotifyIcon NIM_MODIFY, ni
End Sub
Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function
Private Sub Check1_Click()
If Check1.Value = 1 Then
Module1.Install
Else
Module1.Unstall
End If
Module1.REGSaveSetting vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoRun", Check1.Value
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Timer2.Enabled = True
Timer2.Interval = 60000
Else
Timer2.Interval = 0
Timer2.Enabled = False
End If
Module1.REGSaveSetting vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoUPDate", Check2.Value
End Sub
Private Sub Command1_Click()
Dim a, b, c
If RavPathTxt.Text = "" Then MsgBox "╮(￣﹏￣)╭ 出错啦！" & Chr(13) & "没有找到瑞星杀毒软件程序，请确认你是否已经安装了瑞星防火墙！", vbCritical: Exit Sub
If RavSvcTxt.Text = RavLocTxt.Text Then MsgBox "你当前使用的瑞星杀毒软件是最新版本，无需升级！", vbExclamation: Exit Sub
INIPath = WinDirFile & "\Rav.ini"
Call WritePrivateProfileString("Skin", "Path", RavPathTxt.Text & "\Skin\Skin1\Rav.xml", INIPath)
Call WritePrivateProfileString("Skin", "Current", "1", INIPath)
Call WritePrivateProfileString("Handle", "RavExe0", "3408136", INIPath)
Call WritePrivateProfileString("LANGUAGE", "CodePage", "936", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSCENTER", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RAVTIMER", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSENGINE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSCOMMON", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSMFC", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSGUI", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "SCANNER", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSETUP", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RAVCOPY", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSRAV", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "PRESCAN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "LOGORAV", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSCONFIG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "VIRUSLOG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MENUEXT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "CFIRAVUP", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "BDENGINE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MCENTER", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASE2K", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASENT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "CRAVSTUB", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONFILE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONMAIL", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONMEMO", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONREG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONLEAK", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "MONWEB", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "PLUGGROUP", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSPLUGIN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "INBUILD", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSTOOLS", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSTORE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "SCANBD", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSHDBACK", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "BACKRAV", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RAVUSB", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "REGGUIDE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSREGRPR", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSAGENT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "VIRSBASE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSVPATCH", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "VIRUSREP", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSRESOURCE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLANGUAGE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLAGENG", "1", INIPath)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -