regpr.frm

用VB编写注册 ocx 和 dll 文件的源码

VERSION 5.00
Begin VB.Form RegPr 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "TDMS程序注册机"
   ClientHeight    =   1110
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   3195
   Icon            =   "RegPr.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1110
   ScaleWidth      =   3195
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "注册(&R)"
      Height          =   480
      Left            =   915
      TabIndex        =   0
      Top             =   300
      Width           =   1335
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "程序正在注册中，请稍后......"
      Height          =   180
      Left            =   510
      TabIndex        =   1
      Top             =   435
      Visible         =   0   'False
      Width           =   2520
   End
End
Attribute VB_Name = "RegPr"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Command1.Visible = False
Label1.Visible = True
RegPr.Refresh

Dim a As String
Dim b As String
a = "regsvr32 "
b = App.Path + "\"

Shell (a + b + "comdlg32.dll /s")
Shell (a + b + "COMDLG32.OCX /s")
Shell (a + b + "DAO350.DLL /s")
Shell (a + b + "dao360.dll /s")
Shell (a + b + "expsrv.dll /s")
Shell (a + b + "MSCOMCT2.OCX /s")
Shell (a + b + "MSCOMCTL.OCX /s")
Shell (a + b + "msexcl35.dll /s")
Shell (a + b + "msjet35.dll /s")
Shell (a + b + "msjint35.dll /s")
Shell (a + b + "msjter35.dll /s")
Shell (a + b + "msltus35.dll /s")
Shell (a + b + "mspdox35.dll /s")
Shell (a + b + "msrd2x35.dll /s")
Shell (a + b + "mstext35.dll /s")
Shell (a + b + "msvbvm60.dll /s")
Shell (a + b + "msxbse35.dll /s")
Shell (a + b + "RICHTX32.OCX /s")
Shell (a + b + "stdole2.tlb /s")
Shell (a + b + "VB5DB.DLL /s")
Shell (a + b + "vbajet32.dll /s")
Shell (a + b + "VBAR332.DLL /s")
Shell (a + b + "FlexCell.ocx /s")
Shell (a + b + "lyftools.ocx /s")
Shell (a + b + "VB6CHS.DLL /s")
Shell (a + b + "VB6STKIT.DLL /s")
Shell (a + b + "ASYCFILT.DLL /s")
Shell (a + b + "CMDLGCHS.DLL /s")
Shell (a + b + "COMCAT.DLL /s")
Shell (a + b + "GAPI32.DLL /s")
Shell (a + b + "MSCC2CHS.DLL /s")
Shell (a + b + "MSCMCCHS.DLL /s")
Shell (a + b + "msjet40.dll /s")
Shell (a + b + "msjint40.dll /s")
Shell (a + b + "msjter40.dll /s")
Shell (a + b + "msjtes40.dll /s")
Shell (a + b + "msrd2x40.dll /s")
Shell (a + b + "msrd3x40.dll /s")
Shell (a + b + "msrepl40.dll /s")
Shell (a + b + "mswdat10.dll /s")
Shell (a + b + "mswstr10.dll /s")
Shell (a + b + "OLEAUT32.DLL /s")
Shell (a + b + "OLEPRO32.DLL /s")
Shell (a + b + "RCHTXCHS.DLL /s")
Shell (a + b + "RICHED32.DLL /s")
Shell (a + b + "bd.DLL /s")
Shell (a + b + "msxbde40.dll /s")
Shell (a + b + "mspbde40.dll /s")
Shell (a + b + "mstext40.dll /s")
Shell (a + b + "msexcl40.dll /s")
Shell (a + b + "msltus40.dll /s")
Shell (a + b + "msexch40.dll /s")

MsgBox "注册成功", , "提示"
End

End Sub

Private Sub Form_Load()
Command1.Visible = True
Label1.Visible = False
End Sub