手机探索者开发实录—制作MobileX插件的安装包

手机探索者开发实录—制作MobileX插件的安装包

转载时请注明出处和作者联系方式
作者联系方式：李先静 <xianjimli at hotmail dot com>

制作安装包有很多方法，但我喜欢最简单的方法，所以选择了iexpress。它是Windows自带的，简单易用，当然功能也很简单，它把所有文件打包成一个EXE文件，运行时解压到一个临时目录，然后运行指定的程序，其它的事情都要自己做了。

VBScript也是我很喜欢的脚本，虽然我一年中也难得用它一次。但它非常容易上手，也不需要在IDE里开发，而且功能强大，操作COM组件真是得心应手。所以我决定用VBScript作为安装脚本，让安装程序在解压完成时调用。Install.vbs内容如下：

1. 'Mobile Explorer for MobileX installer
2. 
   
3. set shl = CreateObject("WScript.Shell")
4. set fso = CreateObject("Scripting.FileSystemObject")
5. set sha = CreateObject("Shell.Application")
6. 
   
7. install_path = shl.ExpandEnvironmentStrings("%ProgramFiles%") + "/mobile_me"
8. system_root = shl.ExpandEnvironmentStrings("%SystemRoot%") + "/system32"
9. 
   
10. if fso.FolderExists(install_path) then
11.     fso.DeleteFolder(install_path)
12. end if
13. 
    
14. fso.CreateFolder(install_path)
15. 
    
16. set folder = fso.GetFolder("./")
17. set files = folder.files
18. 
    
19. for each file in files
20.     file.Copy(install_path + "/" + file.name)
21. next
22. 
    
23. filenames = Split("libexpat.dll,mehost.dll,mobilex_me.dll", ",")
24. for x=0 to UBound(filenames)
25.     set file = fso.GetFile(install_path + "/" + filenames(x))
26.     file.Copy(system_root + "/" + filenames(x))
27. next
28. sha.ShellExecute  install_path + "/WceRndis.inf",  "", "", "install", 1
29. sha.ShellExecute  install_path + "/WceIS.inf", "", "", "install", 1
30. sha.ShellExecute  install_path + "/wceusbsh.inf", "", "", "install", 1
31. shl.Run "regsvr32 """ + system_root + """/mobilex_me.dll", , true
32. 
    

uninstall.vbs:

1. 'Mobile Explorer for MobileX uninstaller
2. 
   
3. set shl = CreateObject("WScript.Shell")
4. set fso = CreateObject("Scripting.FileSystemObject")
5. 
   
6. install_path = shl.ExpandEnvironmentStrings("%ProgramFiles%") + "/mobile_me"
7. system_root = shl.ExpandEnvironmentStrings("%SystemRoot%") + "/system32"
8. 
   
9. shl.Run "regsvr32 /u """ + system_root + """/mobilex_me.dll", , true
10. 
    
11. On   Error   Resume   Next
12. if fso.FolderExists(install_path) then
13.     fso.DeleteFolder(install_path)
14. end if
15. 
    
16. filenames = Split("libexpat.dll,mehost.dll,mobilex_me.dll", ",")
17. for x=0 to UBound(filenames)
18.     filename=system_root + "/" + filenames(x)
19.     if fso.FileExists(filename) then
20.         fso.DeleteFile(filename)
21.     end if
22. next

~~end~~