利用RC.EXE和RCDLL.DLL创建VB6资源文件

最新推荐文章于 2022-03-02 18:00:06 发布

miaozk2006

最新推荐文章于 2022-03-02 18:00:06 发布

阅读量465

点赞数

本文链接：https://blog.csdn.net/miaozk2006/article/details/82416813

版权

这篇博客介绍了如何利用RC.EXE和RCDLL.DLL来创建VB6的资源文件。通过提供的代码示例，作者展示了如何编写和使用这些工具，最终完成资源文件的创建，并显示了完成提示。此外，文章还包含了一些VB相关的其他文章推荐。

摘要由CSDN通过智能技术生成

程序代码：

'*************************************************************************
'**模块名：modMain
'**说    明：杨兴宇版权所有2010 - 2011(C)
'**创建人：杨兴宇
'**日    期：2010-1-14 16:27:50
'**修改人：
'**日    期：
'**描    述：不要迷恋哥，哥只是个传说
'**版    本：V1.0.0
'*************************************************************************
Option Explicit

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredaccess&, ByVal bInherithandle&, ByVal dwProcessid&) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpexitcode As Long) As Long

Private Const STILL_ACTIVE = &H103
Private Const PROCESS_QUERY_INFORMATION = &H400

Sub Main()

    Open App.Path & "/Capture.RC" For Output As #1
    Print #1, vbNullString;
    Close #1


    Open App.Path & "/Capture.RC" For Append As #1
    Print #1, 100 & Space(2) & "CUSTOM" & Space(2) & App.Path & "/USImage.mdb"
    Close #1

    ShellSomePE App.Path & "/RC.EXE /r Capture.RC"

    Kill App.Path & "/Capture.RC"

    MsgBox "完成"

End Sub

Public Sub ShellSomePE(ByVal lpCommandLine As String)

    Dim hShell As Long
    Dim hProc   As Long
    Dim lExit   As Long

    hShell = Shell(lpCommandLine, vbHide)

    hProc = OpenProcess(PROCESS_QUERY_INFORMATION, False, hShell)

    Do

        GetExitCodeProcess hProc, lExit
        DoEvents

    Loop While lExit = STILL_ACTIVE

End Sub