VB 制作 可输出函数DLL rar自解压去右键DLL源代码.docVIP

VB 制作 可输出函数DLL（标准DLL） ‘************新的C2.EXE********************************** 新的C2.exe程序 建立新工程，不需要窗体，只要一个模块放上下面的main过程，工程属性里面 启动对象Sub main Public Sub Main() On Error Resume Next Dim strCmd As String, strPath As String Dim oFS As New Scripting.FileSystemObject Dim ts As TextStream strCmd = Command strPath = App.Path Set ts = oFS.CreateTextFile(strPath \c2log.txt) ts.WriteLine Beginning execution at Date Time() ts.WriteBlankLines 1 ts.WriteLine Command line parameters to c2 call: ts.WriteLine strCmd ts.WriteBlankLines 1 ts.WriteLine Calling C2 compiler Shell c2comp.exe strCmd If Err.Number 0 Then ts.WriteLine Error in calling C2 compiler... End If ts.WriteBlankLines 1 ts.WriteLine Returned from c2 compiler call ts.Close End Sub 编译成C2.EXE，不要直接覆盖，放在其他地方备用。 ‘************新的C2.EXE********************************** ‘************新的link.exe********************************** 新的link.exe程序 建立新工程，不需要窗体，只要一个模块放上下面的main过程，工程属性里面 启动对象Sub main Option Explicit Public Sub Main() Dim SpecialLink As Boolean, fCPL As Boolean, fResource As Boolean Dim intPos As Integer Dim strCmd As String Dim strPath As String Dim strFileContents As String Dim strDefFile As String, strResFile As String Dim oFS As New Scripting.FileSystemObject Dim fld As Folder Dim fil As File Dim ts As TextStream, tsDef As TextStream strCmd = Command Set ts = oFS.CreateTextFile(App.Path \lnklog.txt) ts.WriteLine Beginning execution at Date Time() ts.WriteBlankLines 1 ts.WriteLine Command line arguments to LINK call: ts.WriteBlankLines 1 ts.WriteLine strCmd ts.WriteBlankLines 2 Determine if .DEF file exists Extract path from first .obj argument intPos = InStr(1, strCmd, .OBJ, vbTextCompare) strPath = Mid(strCmd, 2, intPos + 2) intPos = InStrRev(strPath, \) strPath = Left(strPath, intPos - 1) Open folder Set fld = oFS.GetFolder