如何用VB6制作光盘自启动程序!

原创 2004年09月11日 10:42:00

打开VB6建立一个窗体,代码如下:

Private Sub Label1_Click(Index As Integer)
On Error GoTo exit_err
strPath = App.Path
If Right(strPath, 1) <> "/" Then strPath = strPath & "/"
    Select Case Index
        Case 0
            Shell "NotePad.EXE " & strPath & "readme.txt", 3     '打开安装帮助的文本文件
        Case 1
            Shell "explorer.exe " & strPath, 3                                '浏览目录
        Case 2
            Shell strPath & "sql2000/autorun.exe"                          '安装SQLserver 20000
        Case 3
            Shell strPath & "EtoERP/亿图ERP.exe"                      '安装ERP系统Server
        Case 4
            End                                                                             '退出
    End Select
    Exit Sub
exit_err:
    MsgBox "找不到文件!        ", 48
End Sub

Private Sub Label1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    Label1(Index).ForeColor = &HFF&
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim i As Integer
    For i = 0 To Label1.Count - 1
      Label1(i).ForeColor = &H80000009
    Next i
End Sub

其中,label1有5个索引,功能注释中说明了!最后生成AutoRun.exe就可以刻进光盘了!

移动VR观影:如何用Unity开发一个虚拟影院

-
  • 1970年01月01日 08:00

Multimedia Builder 4.9.8

  • 2010年02月26日 11:17
  • 14.31MB
  • 下载

vb6自动更新和恢复文件的一种方法

vb6自动更新和恢复文件的一种方法Attribute VB_Name = "mdlPublic"Option Explicit//***********************************...
  • YFY
  • YFY
  • 2008-04-11 15:14:00
  • 799

VB6运行时程序动态改变控件尺寸有工程文件

  • 2013年02月21日 11:51
  • 5KB
  • 下载

如何用批处理将一程序做为系统服务每次开机都自启动

如何用一个批处理文件将一个程序做为系统服务每次开机都自启动是不是只能用sc命令命令行使用sc命令. 关于sc命令的详解,请自行查看帮助(sc /?),在此只简单提及如何加入系统服务功能. 加入服务: ...
  • wen_fj
  • wen_fj
  • 2010-07-30 09:45:00
  • 695

用VB6操纵Excel文档执行操作

通过VBA操纵Excel很容易,其实可以实现任何Excel里的操作。 Dim ex As Object Dim exwbook As Object Create file Set ex =...
  • electricperi
  • electricperi
  • 2007-05-01 13:38:00
  • 3608

Photoshop CS6 实例-用椭圆选框工具设计光盘封面

素材素材1素材2素材3步骤 打开素材1,如下图所示: 在”工具箱“中国选择”椭圆选框工具“,如下所示: 按住Shift+Alt组合键以光盘的中心为基准点绘制一个圆形选区,将光盘框选出来,如下所示: 在...
  • YuYunTan
  • YuYunTan
  • 2016-02-06 09:55:06
  • 2119

精彩编程与编程技巧-如何用VB6写COM组件(二)...

  • 2009年10月10日 23:35
  • 2KB
  • 下载

精彩编程与编程技巧-如何用VB6写COM组件(一)...

  • 2009年10月10日 23:35
  • 2KB
  • 下载

制作自动运行程序(由vb6推广引用)

这需要将要启动的应用程序路径写到注册表中具体的路径是:HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/Windows/CurrentVersion/Run只需要在上面的路径...
  • hyde82
  • hyde82
  • 2005-12-11 20:09:00
  • 1532
收藏助手
不良信息举报
您举报文章:如何用VB6制作光盘自启动程序!
举报原因:
原因补充:

(最多只允许输入30个字)