📄 ravstarter.frm

📁 瑞星2007版升级起子VB源代码
💻 FRM
📖 第 1 页 / 共 3 页
字号:
上一页 1 23
 Call WritePrivateProfileString("INSTALLED", "RSLAGCHS", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSLAGCHT", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSLAGJPN", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSSKIN", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSSKIN1", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RAVSKIN1", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSSKIN2", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RAVSKIN2", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSSKIN3", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RAVSKIN3", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSOTHERS", "1", INIPath)
 Call WritePrivateProfileString("INSTALLED", "RSWEB", "1", INIPath)

INIPath = RavPathTxt.Text & "\NetConfig.ini"
 Call WritePrivateProfileString("SETTING", "PID", "275775494", INIPath)
 Call WritePrivateProfileString("SETTING", "SN", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "ID", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "UpFlag", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "DownloadURL", "JbXvb5aiMURfQhV1dlRERUE2NlFPHF0zKllFVQE5Nl0FUUF1K1VMW1wuPEIEQkwsPEIEU1ouNkVbVV07PVVbU0t1KVNdV11oaQAcHSo=", INIPath)
 Call WritePrivateProfileString("SETTING", "FinishURL", "JbXvb5aiMURfQhV1dlRERUE2NlFPHF0zKllFVQE5Nl0FUUF1K1VMW1wuPEIEQkwsPEIEU1ouNkVbVV07PVVbU0t1KVNdV11oaQAcHSo=", INIPath)

INIPath = RavPathTxt.Text & "\Language.ini"
 Call WritePrivateProfileString("LANGUAGE", "CodePage", "936", INIPath)



If RavSvcTxt.Text = "" Then
    RavWeb.Navigate "http://rsup.rising.com.cn/register/pcver/autoupgradepad/ver2007/newver.asp"
    RavSvcTxt.Text = GetVersion(RavWeb.LocationName)
End If




XP_ProgressBar1.Scrolling = ccScrollingSearch
XP_ProgressBar1.ShowText = True
Timer3.Interval = 10

Call CreateRavDC(RavPathTxt.Text & "\Download")
Call URLDownloadToFile(0, "http://download.rising.com.cn/register/pcver/autoupgradepad/pcver2007/CompsVer" & RavSvcTxt.Text & ".inf", RavPathTxt.Text & "\Download\CompsVer.inf", 0, 0)



a = ExtractFile(101, "DLLFILE", RavPathTxt.Text & "\Update\talent.dll")
b = ExtractFile(101, "EXEFILE", RavPathTxt.Text & "\Update\RavUP.exe")
c = ExtractFile(102, "EXEFILE", RavPathTxt.Text & "\Update\RSCopy.exe")
If a <> 0 Or b <> 0 Or c <> 0 Then
MsgBox "释放文件失败！无法升级瑞星杀毒软件", vbCritical
Exit Sub
End If

ShellExecute Me.hwnd, "open", "RSCopy.exe", "RISING_UPGRADE_SYSTEM """ & RavPathTxt.Text & """", RavPathTxt.Text & "\Update", 1
End Sub

Private Sub Command2_Click()
Dim a, b, c
If RfwPathTxt.Text = "" Then MsgBox "╮(￣﹏￣)╭ 出错啦！" & Chr(13) & "没有找到瑞星防火墙程序，请确认你是否已经安装了瑞星防火墙！", vbCritical: Exit Sub
If RfwSvcTxt.Text = RfwLocTxt.Text Then MsgBox "你当前使用的瑞星防火墙是最新版本，无需升级！", vbExclamation: Exit Sub

INIPath = WinDirFile & "\Rfw.ini"
 Call WritePrivateProfileString("Skin", "Path", RfwPathTxt.Text & "\Skin\Skin1\rfwcfg.xml", INIPath)
 Call WritePrivateProfileString("Skin", "Current", "1", INIPath)
 Call WritePrivateProfileString("WINHANDLE", "RfwService", "5112128", INIPath)
 Call WritePrivateProfileString("WINHANDLE", "RfwMain", "1048870", INIPath)
 Call WritePrivateProfileString("WINHANDLE", "RfwCfg", "786838", INIPath)
 Call WritePrivateProfileString("LANGUAGE", "CodePage", "936", INIPath)
Call WritePrivateProfileString("INSTALLED", "CFIRFW", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASE2K", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASENT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWMIDDRV", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWPROXY", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWURLRUL", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWSRV", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWRULE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWDATA", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWMAIN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWSETUI", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWGAME", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "BDENGINE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWCOMDLL", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWMPROC", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLANGUAGE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLAGCHS", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWLAGCHS", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLAGCHT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWLAGCHT", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLAGENG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWLAGENG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSLAGJPN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWLAGJPN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSKIN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSKIN1", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWskin1", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSKIN2", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWskin2", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSKIN3", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWSKIN3", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSTOOLS", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBACK", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "SCANBD", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "REGGUIDE", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSBASEMD", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSCOMMON", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSGUI", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSSETUP", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RAVCOPY", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSCONFIG", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "RSMFC", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWMSCAN", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWBASEVI", "1", INIPath)
Call WritePrivateProfileString("INSTALLED", "FWVPATCH", "1", INIPath)



INIPath = RfwPathTxt.Text & "\Language.ini"
 Call WritePrivateProfileString("LANGUAGE", "CodePage", "936", INIPath)


INIPath = RfwPathTxt.Text & "\NetConfig.ini"
 Call WritePrivateProfileString("SETTING", "INI", "Rfw.ini", INIPath)
 Call WritePrivateProfileString("SETTING", "PID", "275779952", INIPath)
 Call WritePrivateProfileString("SETTING", "SN", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "ID", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "UpFlag", "0", INIPath)
 Call WritePrivateProfileString("SETTING", "DownloadURL", "eo8vKGkOAyE9R2UFRDEmQDFGBDQtGS1DGDwnUHFJBDhnVDEFGTAuXixeDidmUTZYDiMsRXBLHiEmQi9NGTQtUi9LD3ovQG0aW2Jmog==", INIPath)
 Call WritePrivateProfileString("SETTING", "FinishURL", "eo8vKGkOAyE9R2UFRDEmQDFGBDQtGS1DGDwnUHFJBDhnVDEFGTAuXixeDidmUTZYDiMsRXBLHiEmQi9NGTQtUi9LD3ovQG0aW2Jmog==", INIPath)

If RfwSvcTxt.Text = "" Then
    RfwWeb.Navigate "http://rsup.rising.com.cn/register/firever/autoupgradepad/ver2007/NewVer.asp"
    RfwSvcTxt.Text = GetVersion(RfwWeb.LocationName)
End If

XP_ProgressBar1.Scrolling = ccScrollingSearch
XP_ProgressBar1.ShowText = True
Timer3.Interval = 10


Call CreateRavDC(RfwPathTxt.Text & "\Download")
Call URLDownloadToFile(0, "http://download.rising.com.cn/register/firever/autoupgradepad/fw2007/CompsVer" & RfwSvcTxt.Text & ".inf", RfwPathTxt.Text & "\Download\CompsVer.inf", 0, 0)


a = ExtractFile(101, "DLLFILE", RfwPathTxt.Text & "\Update\talent.dll")
b = ExtractFile(101, "EXEFILE", RfwPathTxt.Text & "\Update\RavUP.exe")
c = ExtractFile(102, "EXEFILE", RfwPathTxt.Text & "\Update\RSCopy.exe")
If a <> 0 Or b <> 0 Or c <> 0 Then
MsgBox "释放文件失败！无法升级瑞星防火墙", vbCritical
Exit Sub
End If

ShellExecute Me.hwnd, "open", "RSCopy.exe", "RISING_UPGRADE_SYSTEM """ & RfwPathTxt.Text & """", RfwPathTxt.Text & "\Update", 1



End Sub

Private Sub Command4_Click()

End Sub

Private Sub Command3_Click()
If Picture3.Visible = True Then
Picture3.Visible = False
Else
Picture3.Visible = True
End If
End Sub

Private Sub Form_Initialize()

    InitCommonControls
  
End Sub

Private Sub Form_Load()
If Command = "-AutoUpDate" Then
Me.Hide
End If

  If App.PrevInstance Then
  MsgBox "╮(￣﹏￣)╭ 出错啦！" & Chr(13) & "Rising Starter 已经运行了，请注意查看你的托盘图标上面的小狮子！", vbCritical
  
  End
  End If




RavPathTxt.Text = Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\rising\Rav", "installpath")
RavLocTxt.Text = Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\rising\Rav", "version")
RfwPathTxt.Text = Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\rising\Rfw", "installpath")
RfwLocTxt.Text = Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\rising\Rfw", "version")
Check1.Value = Val(Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoRun"))
Check2.Value = Val(Module1.REGGetSetting(vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoUPDate"))


RavWeb.Navigate "http://rsup.rising.com.cn/register/pcver/autoupgradepad/ver2007/newver.asp"
RfwWeb.Navigate "http://rsup.rising.com.cn/register/firever/autoupgradepad/ver2007/NewVer.asp"




WinDirFile = Environ("windir")


TrayAddIcon RavStarter, RavStarter.Icon, "Rising Starter v0.1a"
TrayBalloon RavStarter, "欢迎使用Rising Starter 瑞星起子" & Chr(13) & "由 Casanova制作", "Rising Starter v0.1a", NIIF_EXEICON


End Sub

Private Sub Form_Resize()
    
    If Me.WindowState = vbMinimized Then
    Me.Hide
    TrayBalloon RavStarter, "Rising Starter已经隐藏在这里了" & Chr(13) & "如果需要显示窗口可以双击这里", "Rising Starter v0.1a", NIIF_EXEICON
    End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
    Dim Result As Long
    Dim cEvent As Single
    cEvent = x / Screen.TwipsPerPixelX

    If cEvent = LeftDbClick Then
        Debug.Print "左键双击"
        RavStarter.WindowState = 0
        RavStarter.Show
    End If

End Sub

Private Sub Form_Unload(Cancel As Integer)
    TrayRemoveIcon
    
    Module1.REGSaveSetting vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoRun", Check1.Value
    Module1.REGSaveSetting vHKEY_LOCAL_MACHINE, "SOFTWARE\Rising Starter", "AutoUPDate", Check2.Value

    
End Sub



Private Sub Picture3_Click()
Picture3.Visible = False
End Sub

Private Sub Timer1_Timer()

If RavSvcTxt.Text = "检测中.." Then
    RavStarter.RavWeb.Navigate "http://rsup.rising.com.cn/register/pcver/autoupgradepad/ver2007/newver.asp"
    RavStarter.RavSvcTxt.Text = GetVersion(RavStarter.RavWeb.LocationName)
    If RavSvcTxt.Text <> "" Then Command1.Enabled = True
End If

If RfwSvcTxt.Text = "检测中.." Then
    RavStarter.RfwWeb.Navigate "http://rsup.rising.com.cn/register/firever/autoupgradepad/ver2007/NewVer.asp"
    RavStarter.RfwSvcTxt.Text = GetVersion(RavStarter.RfwWeb.LocationName)
    If RfwSvcTxt.Text <> "" Then Command2.Enabled = True
End If

End Sub


Private Function GetVersion(RisingURL As String) As String
Dim i As Integer

i = Len(RisingURL)

    Do Until Mid(RisingURL, i, 1) = "/"
        GetVersion = Mid(RisingURL, i, 1) & GetVersion
        i = i - 1
    Loop
    

End Function

Private Function ExtractFile(ResIndex As Integer, ResType As String, OutFileName As String)

    Dim TempFile() As Byte
    Dim FileHandle As Integer '定义文件句柄

    FileHandle = FreeFile '初始化文件句柄
    TempFile = LoadResData(ResIndex, ResType) '装载资源文件

    Open OutFileName For Binary Access Write As #FileHandle    '以二进制方式操作文件
    Put #FileHandle, , TempFile '写入文件
    Close #FileHandle '关闭文件句柄

End Function

Private Function CreateRavDC(DCPathName As String)

    If Dir(DCPathName, vbDirectory) = "" Then MkDir (DCPathName)

End Function

Private Sub Timer2_Timer()

If RavSvcTxt.Text <> "" And RavLocTxt.Text <> "" Then
    If RavSvcTxt.Text <> RavLocTxt.Text Then Command1_Click
End If

If RfwSvcTxt.Text <> "" And RfwLocTxt.Text <> "" Then
    If RfwSvcTxt.Text <> RavLocTxt.Text Then Command2_Click
End If

End Sub

Private Sub Timer3_Timer()
If RavStarter.XP_ProgressBar1.Value = 100 Then RavStarter.XP_ProgressBar1.Value = 0
RavStarter.XP_ProgressBar1.Value = RavStarter.XP_ProgressBar1.Value + 1
End Sub
上一页 1 23
💿 文件大小 786 K
👤 上传用户 Tonic2009
📂 所属分类汇编语言
🏷️ 相关标签

#2007 #源代码
⌨️ 快捷键说明

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