DLL Exports

DLL的创建
首先，用VC集成开发界面中的“新建”，新建一个项目。无论是VC6.0还是VC.NET，都有建立DLL项目的选项。只不过有些稍有不同，例如VC.NET中就有ISAPI DLL，扩展存储过程DLL等，这些都不在讨论的范围。例如我们建立了一个用静态连接MFC库的DLL项目，名称为mydll
然后，编辑mydll.cpp文件，在其中加入我们自己的函数void go()。注意，不需要在mydll.h中声明它，而需要将函数头变成如下样子：
extern “c” __declspec(dllexport) void go()
{
//code……
}
dllexport表示这个函数是由外部调用的。
由于是否带参数，要影响到外部调用的方式，因此，我们再声明一个带参数的函数：
extern “c” __declspec(dllexport) void went(CString str)
{
//code……
}
OK，下面编译连接形成mydll.dll文件。
DLL的调用
好，下面我们就用VC写个程序调用它。在调用的函数中，首先要获得DLL的句柄，有如下语句：
HINSTANCE     dllinstance;
dllinstance=::LoadLibrary(strDllUrl);
if(dllinstance==NULL) AfxMessageBox("can't open dll file");
其中strDllUrl是mydll.dll路径的字符串，这样程序才能找到它。::LoadLibrary获得参数标识的DLL文件的句柄。
获得句柄后，下面要获得函数地址以便执行它。有如下语句：
FARPROC  proc;
proc=GetProcAddress(dllinstance,"go");
if(proc==NULL) AfxMessageBox("can't find function");
else proc();
FARPROC是一个远程过程指针，通过GetProcAddress获得函数的地址。它的两个参数就是dll文件句柄和函数的名字了。
然后FARPROC就可以和go一样的使用了，它就是go ,go 就是它。
而对于带参数的DLL中的函数，调用方法有所不同。因为对函数的调用是通过对它地址的引用进行的，这样，传入参数对不对，在函数调用程序的编译和联接过程中，无法知道其正确性。因此，要在调用程序中对DLL中带参数的函数做个声明，如mydll中的went,我们要做个声明如下：
typedef void (FAR __cdecl *MYWENT)(CString);
然后以类型MYWENT声明变量既可调用，如下：
MYWENT myproc;
myproc =(MYWENT)GetProcAddress(dllinstance,"go");
if(myproc ==NULL) AfxMessageBox("can't find function");
else myproc (“o-----yeah---------”);
注意声明的时候呢，由于DLL中WENT的定义为C语言调用规范，因此MYWENT前一定要用__cdecl，而VC中常用的__stdcall是PASCAL调用规范，不可以的。一定要注意。

最近在公司里做了一个手机的项目，需要JAVA程序在发送短信的时候和第三方的短信服务器连接。短信接口是用C++写的。琢磨了三天，大致搞懂了JNI的主体部分。先将心得整理，希望各位朋友少走弯路。
首先引用一篇文章，介绍一个简单的JNI的调用的过程。
JAVA以其跨平台的特性深受人们喜爱，而又正由于它的跨平台的目的，使得它和本地机器的各种内部联系变得很少，约束了它的功能。解决JAVA对本地操作的一种方法就是JNI。
JAVA通过JNI调用本地方法，而本地方法是以库文件的形式存放的（在WINDOWS平台上是DLL文件形式，在UNIX机器上是SO文件形式）。通过调用本地的库文件的内部方法，使JAVA可以实现和本地机器的紧密联系，调用系统级的各接口方法。
简单介绍及应用如下：
一、JAVA中所需要做的工作
在JAVA程序中，首先需要在类中声明所调用的库名称，如下：
static {
System.loadLibrary(“goodluck”);
}
在这里，库的扩展名字可以不用写出来，究竟是DLL还是SO，由系统自己判断。
还需要对将要调用的方法做本地声明，关键字为native。并且只需要声明，而不需要具 体实现。如下：
public native static void set(int i);
public native static int get();
然后编译该JAVA程序文件，生成CLASS，再用JAVAH命令，JNI就会生成C/C++的头文件。
例如程序testdll.java，内容为：
public class testdll
{
static
{
System.loadLibrary("goodluck");
}
public native static int get();
public native static void set(int i);
public static void main(String[] args)
{
testdll test = new testdll();
test.set(10);
System.out.println(test.get());
}
}
用javac testdll.java编译它，会生成testdll.class。
再用javah testdll，则会在当前目录下生成testdll.h文件，这个文件需要被C/C++程序调用来生成所需的库文件。
二、C/C++中所需要做的工作
对于已生成的.h头文件，C/C++所需要做的，就是把它的各个方法具体的实现。然后编译连接成库文件即可。再把库文件拷贝到JAVA程序的路径下面，就可以用JAVA调用C/C++所实现的功能了。
接上例子。我们先看一下testdll.h文件的内容：
/* DO NOT EDIT THIS FILE - it is machine generated */
#include
/* Header for class testdll */
#ifndef _Included_testdll
#define _Included_testdll
#ifdef __cplusplus
extern "C" {
#endif
/*
* Class: testdll
* Method: get
* Signature: ()I
*/
JNIEXPORT jint JNICALL Java_testdll_get (JNIEnv *, jclass);
/*
* Class: testdll
* Method: set
* Signature: (I)V
*/
JNIEXPORT void JNICALL Java_testdll_set (JNIEnv *, jclass, jint);
#ifdef __cplusplus
}
#endif
#endif
在具体实现的时候，我们只关心两个函数原型
JNIEXPORT jint JNICALL Java_testdll_get (JNIEnv *, jclass); 和
JNIEXPORT void JNICALL Java_testdll_set (JNIEnv *, jclass, jint);
这里JNIEXPORT和JNICALL都是JNI的关键字，表示此函数是要被JNI调用的。而jint是以JNI为中介使JAVA的int类型与本地的int沟通的一种类型，我们可以视而不见，就当做int使用。函数的名称是JAVA_再加上java程序的package路径再加函数名组成的。参数中，我们也只需要关心在JAVA程序中存在的参数，至于JNIEnv*和jclass我们一般没有必要去碰它。
好，下面我们用testdll.cpp文件具体实现这两个函数：
#include "testdll.h"
int i = 0;
JNIEXPORT jint JNICALL Java_testdll_get (JNIEnv *, jclass)
{
return i;
}
JNIEXPORT void JNICALL Java_testdll_set (JNIEnv *, jclass, jint j)
{
i = j;
}
编译连接成库文件，本例是在WINDOWS下做的，生成的是DLL文件。并且名称要与JAVA中需要调用的一致，这里就是goodluck.dll 。把goodluck.dll拷贝到testdll.class的目录下，java testdll运行它，就可以观察到结果了。
我的项目比较复杂，需要调用动态链接库，这样在JNI传送参数到C程序时，需要对参数进行处理转换。才可以被C程序识别。
大体程序如下：
public class SendSMS {
static
{
System.out.println(System.getProperty("java.library.path"));
System.loadLibrary("sms");
}
public native static int SmsInit();
public native static int SmsSend(byte[] mobileNo, byte[] smContent);
}
在这里要注意的是，path里一定要包含类库的路径，否则在程序运行时会抛出异常：
java.lang.UnsatisfiedLinkError: no sms in java.library.path
at java.lang.ClassLoader.loadLibrary(ClassLoader.java:1491)
at java.lang.Runtime.loadLibrary0(Runtime.java:788)
at java.lang.System.loadLibrary(System.java:834)
at com.mobilesoft.sms.mobilesoftinfo.SendSMS.(SendSMS.java:14)
at com.mobilesoft.sms.mobilesoftinfo.test.main(test.java:18)
Exception in thread "main"
指引的路径应该到.dll文件的上一级，如果指到.dll，则会报：
java.lang.UnsatisfiedLinkError: C:\sms.dll: Can't find dependent libraries
at java.lang.ClassLoader$NativeLibrary.load(Native Method)
at java.lang.ClassLoader.loadLibrary0(ClassLoader.java:1560)
at java.lang.ClassLoader.loadLibrary(ClassLoader.java:1485)
at java.lang.Runtime.loadLibrary0(Runtime.java:788)
at java.lang.System.loadLibrary(System.java:834)
at com.mobilesoft.sms.mobilesoftinfo.SendSMS.(SendSMS.java:14)
at com.mobilesoft.sms.mobilesoftinfo.test.main(test.java:18)
Exception in thread "main"
通过编译，生成com_mobilesoft_sms_mobilesoftinfo_SendSMS.h头文件。（建议使用Jbuilder进行编译，操作比较简单！）这个头文件就是Java和C之间的纽带。要特别注意的是方法中传递的参数jbyteArray，这在接下来的过程中会重点介绍。
/* DO NOT EDIT THIS FILE - it is machine generated */
#include
/* Header for class com_mobilesoft_sms_mobilesoftinfo_SendSMS */
#ifndef _Included_com_mobilesoft_sms_mobilesoftinfo_SendSMS
#define _Included_com_mobilesoft_sms_mobilesoftinfo_SendSMS
#ifdef __cplusplus
extern "C" {
#endif
/*
* Class: com_mobilesoft_sms_mobilesoftinfo_SendSMS
* Method: SmsInit
* Signature: ()I
*/
JNIEXPORT jint JNICALL Java_com_mobilesoft_sms_mobilesoftinfo_SendSMS_SmsInit
(JNIEnv *, jclass);
/*
* Class: com_mobilesoft_sms_mobilesoftinfo_SendSMS
* Method: SmsSend
* Signature: ([B[B)I
*/
JNIEXPORT jint JNICALL Java_com_mobilesoft_sms_mobilesoftinfo_SendSMS_SmsSend
(JNIEnv *, jclass, jbyteArray, jbyteArray);
#ifdef __cplusplus
}
#endif
#endif
对于我要调用的C程序的动态链接库，C程序也要提供一个头文件，sms.h。这个文件将要调用的方法罗列了出来。
/*
* SMS API
* Author: yippit
* Date: 2004.6.8
*/
#ifndef MCS_SMS_H
#define MCS_SMS_H
#define DLLEXPORT __declspec(dllexport)
/*sms storage*/
#define SMS_SIM 0
#define SMS_MT 1
/*sms states*/
#define SMS_UNREAD 0
#define SMS_READ 1
/*sms type*/
#define SMS_NOPARSE -1
#define SMS_NORMAL 0
#define SMS_FLASH 1
#define SMS_MMSNOTI 2
typedef struct tagSmsEntry {
int index; /*index, start from 1*/
int status; /*read, unread*/
int type; /*-1-can't parser 0-normal, 1-flash, 2-mms*/
int storage; /*SMS_SIM, SMS_MT*/
char date[24];
char number[32];
char text[144];
} SmsEntry;
DLLEXPORT int SmsInit(void);
DLLEXPORT int SmsSend(char *phonenum, char *content);
DLLEXPORT int SmsSetSCA(char *sca);
DLLEXPORT int SmsGetSCA(char *sca);
DLLEXPORT int SmsSetInd(int ind);
DLLEXPORT int SmsGetInd(void);
DLLEXPORT int SmsGetInfo(int storage, int *max, int *used);
DLLEXPORT int SmsSaveFlash(int flag);
DLLEXPORT int SmsRead(SmsEntry *entry, int storage, int index);
DLLEXPORT int SmsDelete(int storage, int index);
DLLEXPORT int SmsModifyStatus(int storage, int index); /*unread -> read*/
#endif
在有了这两个头文件之后，就可以进行C程序的编写了。也就是实现对JNI调用的两个方法。在网上的资料中，由于调用的方法实现的都比较简单，（大多是打印字符串等）所以避开了JNI中最麻烦的部分，也是最关键的部分，参数的传递。由于Java和C的编码是不同的，所以传递的参数是要进行再处理，否则C程序是会对参数在编译过程中提出警告，例如；warning C4024: 'SmsSend' : different types for formal and actual parameter 2等。
Sms.c的程序如下：
#include "sms.h"
#include "com_mobilesoft_sms_mobilesoftinfo_SendSMS.h"
JNIEXPORT jint JNICALL Java_com_mobilesoft_sms_mobilesoftinfo_SendSMS_SmsInit(JNIEnv * env, jclass jobject)
{
return SmsInit();
}
JNIEXPORT jint JNICALL Java_com_mobilesoft_sms_mobilesoftinfo_SendSMS_SmsSend(JNIEnv * env, jclass jobject, jbyteArray mobileno, jbyteArray smscontent)
{
char * pSmscontent ;
//jsize theArrayLengthJ = (*env)->GetArrayLength(env,mobileno);
jbyte * arrayBody = (*env)->GetByteArrayElements(env,mobileno,0);
char * pMobileNo = (char *)arrayBody;
printf("[%s]\n ", pMobileNo);
//jsize size = (*env)->GetArrayLength(env,smscontent);
arrayBody = (*env)->GetByteArrayElements(env,smscontent,0);
pSmscontent = (char *)arrayBody;
printf("

我感觉声音的播放比较简单。我们从播放声音开始。为什么我这么觉得？我也不知道。
这里是展示最最最最最简单的DirectX播放声音的例子，我尽量省略了无关的代码。最后的代码只有19行，够简单了吧？

准备工作：
1.安装了DirectX SDK（有9个DLL文件）。这里我们只用到MicroSoft.DirectX.dll 和 Microsoft.Directx.DirectSound.dll
2.一个WAV文件。（这样的文件比较好找，在QQ的目录里就不少啊。这里就不多说了。）名字叫SND.WAV，放在最后目标程序的同个目录下面

开始写程序啦。随便用个UltraEdit就好了。

1.引入DirectX 的DLL文件的名字空间：
using Microsoft.DirectX;
using Microsoft.DirectX.DirectSound;

2.建立设备。在我们导入的Microsoft.DirectX.DirectSound空间中，有个Device的类。这个是表示系统中的声音设备。
Device dv=new Device();

3.设置CooperativeLevel。因为windows是多任务的系统，设备不是独占的，所以在使用设备前要为这个设备设置CooperativeLevel。调用Device的SetCooperativeLevel方法：其中，第一个参数是一个Control，第二个参数是个枚举类型。
在这个程序中，Control我随便弄了个参数塞进去（很汗吧！）。如果在windows程序中，可以用this代替。第二个参数就是优先级别，这里表示优先播放。
dv.SetCooperativeLevel((new UF()),CooperativeLevel.Priority);

4.开辟缓冲区。对于上面的声音设备，他有个自己的缓冲区，叫主缓冲区。系统中，一个设备有唯一的主缓冲区。由于windows是多任务（又是这个！），所以可以有几个程序同时利用一个设备播放声音，所以每个程序都自己开辟一个二级缓冲区，放自己的声音。
系统根据各个程序的优先级别，按照相应的顺序分别去各个二级缓冲区中读取内容到主缓冲区中播放。这里，我们为SND.WAV开辟一个缓冲区。
其中，第一个参数表示文件名（傻瓜都看出来了！），第二个就是需要使用的设备。
SecondaryBuffer buf=new SecondaryBuffer(@"snd.wav",dv);

5.接下来就可以播放啦。第一个参数表示优先级别，0是最低的。第2个参数是播放方式，这里是循环播放。
buf.Play(0,BufferPlayFlags.Looping);

6.由于命令行程序没有消息循环，执行完代码就退出了，所以，我们需要暂停程序。
Console.Read();

7.关键的部分已经完了，这里只是交代一下刚才的那个倒霉的new UF() 是什么东西。这个完全是为了应付SetCooperativeLevel的参数要求。我不知道这样做有什么附作用（各位如果因此把声卡烧了…………^_^|||）
class UF:Form{}

8.代码写完啦~~~。下面可以编译了，这里编译比较复杂点。
csc /r:directX\MicroSoft.DirectX.dll;directX\Microsoft.Directx.DirectSound.dll dxsnd.cs

这里，我把2个DLL文件放在当前目录的directx目录下（这个是我自己建的，你只需要指出这2个文件的位置就可以了。）
顺便把我的目录结构说明一下：
|
|--dxsnd.cs
|--snd.wav
|--
|
|--MicroSoft.DirectX.dll
|--Microsoft.Directx.dll

 

下面是完整代码：
//dxsnd.cs
using System;
using Microsoft.DirectX;
using Microsoft.DirectX.DirectSound;
using System.Windows.Forms;
namespace test1
{
class test
{
public static void Main(string [] args)
{
Device dv=new Device();
dv.SetCooperativeLevel((new UF()),CooperativeLevel.Priority);
SecondaryBuffer buf=new SecondaryBuffer(@"snd.wav",dv);
buf.Play(0,BufferPlayFlags.Looping);
Console.ReadLine();
}
class UF:Form{}
}
}

Microsoft.CSharp.CSharpCodeProvider provider = new Microsoft.CSharp.CSharpCodeProvider();

            System.CodeDom.Compiler.ICodeCompiler comp = provider.CreateCompiler();

            System.CodeDom.Compiler.CompilerParameters cp = new System.CodeDom.Compiler.CompilerParameters();

            cp.ReferencedAssemblies.Add("system.dll")  ;
            cp.ReferencedAssemblies.Add("system.data.dll")  ;
            cp.ReferencedAssemblies.Add("system.xml.dll")  ;
            cp.GenerateExecutable  =  false  ;
            cp.GenerateInMemory  =  true  ;

            string code = @"using System; 
                            using System.Data;   
                            using System.Xml;      
                            public  class Judgement
                            {        
                                 public  object  GetJude()
                                 {   
                                      return  ("  +  expression  +  @");   
                                 }   
                            }" ;
            System.CodeDom.Compiler.CompilerResults cr = comp.CompileAssemblyFromSource(cp,code);
            System.Diagnostics.Debug.Write(code);

            if(cr.Errors.HasErrors)
            {
                System.Text.StringBuilder errorMsg = new System.Text.StringBuilder();
              
                foreach(System.CodeDom.Compiler.CompilerError err in cr.Errors)
                {
                    errorMsg.Append(err.ErrorText );
                }
                System.Diagnostics.Debug.WriteLine(errorMsg.ToString());
              
                throw new System.Exception("编译错误:  "  +  errorMsg.ToString());
                //return false;
            }
            else
            {
                System.Reflection.Assembly  tmp = cr.CompiledAssembly;
                object _Compiled  =  tmp.CreateInstance("Judgement");
                System.Reflection.MethodInfo mi = _Compiled.GetType().GetMethod("GetJude");
               
                return mi.Invoke(_Compiled,null);
            }

在 Setup Project Property 里 Prerequisites...
1. 顶上 Create setup program to install prerequisite components打上勾
2. 中间列表 .Net Framework 2.0打上勾 (Windows Install 3.1也是）
3. 下面 Download prerequisites from the same location as my application也打上勾

    Dim ofd As OpenFileDialog = New OpenFileDialog()
    ofd.Filter = _
        "Executable files (*.exe;*.dll;*.ocx)|" & _
        "*.exe;*.dll;*.ocx|" & _
        "Drivers (*.sys;*.drv;*.fnt)|" & _
        "*.sys;*.drv;*.fnt|" & _
        "All files (*.*)|*.*"
    ofd.FilterIndex = 1
    ofd.ShowReadOnly = False
    ofd.RestoreDirectory = True
    If ofd.ShowDialog() = DialogResult.OK Then
        If ofd.FileName.Length > 0 Then
            ' 显示文件版本信息。
            DisplayFileInfo(ofd.FileName)
        End If
    End If

private void button1_Click(object sender, System.EventArgs e)
{
AppDomainSetup ads = new AppDomainSetup();
ads.ShadowCopyFiles = "true";
AppDomain.CurrentDomain.SetShadowCopyFiles();
Evidence adevidence = AppDomain.CurrentDomain.Evidence;
AppDomain newDomain = AppDomain.CreateDomain("newDomain", adevidence, ads);
newDomain.SetShadowCopyFiles();

byte[] rawAssembly = loadFile("ClassLibrary2.dll");
Assembly asm = newDomain.Load(rawAssembly, null);

object obj = asm.CreateInstance("ClassLibrary2.Form1");
(obj as Form).ShowDialog();

obj = null;
asm = null;

AppDomain.Unload(newDomain);
newDomain = null;
}

private byte[] loadFile(string filename)
{
FileStream fs = new FileStream(filename, FileMode.Open);
byte[] buffer = new byte[(int)fs.Length];
fs.Read(buffer, 0, buffer.Length);
fs.Close();
fs = null;
return buffer;
}

library  SASWinHook;  
 
{  
   SASWinHook  
   copyrights  by  Liu  Yang  LYSoft  http://lysoft.7u7.net  2006.1.1  
 
   usage:  only  need  to  inject  this  dll  to  WinLogon.exe  
}  
 
uses  Windows,  Messages;  
 
{$R  *.res}  
 
var  
   FHandle:  THandle;  
   OldAppProc:  Pointer;  
 
function  HookProc(hHandle:  THandle;  uMsg:  Cardinal;  
   wParam,  lParam:  Integer):  LRESULT;  stdcall;  
var  K,  C:  Word;    //  wndproc  
begin  
   if  uMsg  =  WM_HOTKEY  then  
         begin  
               K  :=  HIWORD(lParam);  
               C  :=  LOWORD(lParam);  
               //  press  Ctrl  +  Alt  +  Del  
               if  (C  and  VK_CONTROL<>0)  and  (C  and  VK_MENU  <>0)  and  (  K  =  VK_DELETE)  
                     then  Exit;      //  disable  Ctrl  +  Alt  +  Del  
         end;  
   Result  :=  CallWindowProc(OldAppProc,  hHandle,  
       uMsg,  wParam,  lParam);  
end;  
 
procedure  EntryPointProc(Reason:  Integer);  
begin  
   case  reason  of  
       DLL_PROCESS_ATTACH:  
           begin    //  hook  SAS  window  wndproc  
               FHandle  :=  FindWindow('SAS  window  class',  'SAS  window');  
               if  not  IsWindow(FHandle)  then  Exit;    //  is  window  found?  
               //  save  old  wndproc  
               OldAppProc  :=  Pointer(GetWindowLong(FHandle,  GWL_WNDPROC));  
               //  set  new  wndproc  
               SetWindowLong(FHandle,  GWL_WNDPROC,  Cardinal(@HookProc));  
           end;  
       DLL_PROCESS_DETACH:  
           begin  
               if  FHandle  >  0  then  
                     begin    //  unhook  
                         if  Assigned(OldAppProc)  then  
                               SetWindowLong(FHandle,  GWL_WNDPROC,  LongInt(OldAppProc));  
                         OldAppProc  :=  nil;  
                     end;  
           end;  
       end;  
end;  
 
begin  
   OldAppProc  :=  nil;  
   FHandle  :=  0;  
   DllProc  :=  @EntryPointProc;  
   EntryPointProc(DLL_PROCESS_ATTACH);  
end.  

Imports   System.Runtime.InteropServices

...
Class   ...

<StructLayout(LayoutKind.Sequential)>   _
Private   Class   DEVNAMES
                Dim   wDriverOffset   As   Short
                Dim   wDeviceOffset   As   Short
                Dim   wOutputOffset   As   Short
                Dim   wDefault   As   Short
End   Class


      Sub   ...
            Dim   hDev   As   IntPtr
            Dim   devnames   as   New   DEVNAMES()
            devnames.XXXX   =   XXXX   '设置  

            hDev   =   Marshal.AllocHGlobal(Marshal.SizeOf(devnames))
            Marshal.StructureToPtr(devnames,   hDev,   False)
            PageSettings.SetHdevmode(hDev)
            Marshal.FreeHGlobal(hDev)
      End   Sub

End   Class
------------------------------------------------------------------------------------------------------------------------

Imports   System.Drawing.Printing
Imports   System.Runtime.InteropServices

Public   Class   Class1
        Private   Declare   Function   GlobalFree   Lib   "kernel32"   Alias   "GlobalFree"   (ByVal   hMem   As   IntPtr)   As   Integer

        Private   ps   As   PageSettings   =   New   PageSettings()
        Private   pr   As   PrinterSettings   =   New   PrinterSettings()

        Public   mDevMode   As   New   DEVMODE()
 
        Public   Sub   PrintOut()
                Dim   ip   As   IntPtr   =   pr.GetHdevmode
                Marshal.PtrToStructure(ip,   mDevMode)
                GlobalFree(ip)
        End   Sub

End   Class

<StructLayout(LayoutKind.Sequential)>   _
Public   Class   DEVMODE
        <VBFixedString(32),   System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,   SizeConst:=32)>   Dim   dmDeviceName   As   String
        Dim   dmSpecVersion   As   Short
        Dim   dmDriverVersion   As   Short
        Dim   dmSize   As   Short
        Dim   dmDriverExtra   As   Short
        Dim   dmFields   As   Integer
        Dim   dmOrientation   As   Short
        Dim   dmPaperSize   As   Short
        Dim   dmPaperLength   As   Short
        Dim   dmPaperWidth   As   Short
        Dim   dmScale   As   Short
        Dim   dmCopies   As   Short
        Dim   dmDefaultSource   As   Short
        Dim   dmPrintQuality   As   Short
        Dim   dmColor   As   Short
        Dim   dmDuplex   As   Short
        Dim   dmYResolution   As   Short
        Dim   dmTTOption   As   Short
        Dim   dmCollate   As   Short
        <VBFixedString(32),   System.Runtime.InteropServices.MarshalAs(System.Runtime.InteropServices.UnmanagedType.ByValTStr,   SizeConst:=32)>   Dim   dmFormName   As   String
        Dim   dmUnusedPadding   As   Short
        Dim   dmBitsPerPel   As   Integer
        Dim   dmPelsWidth   As   Integer
        Dim   dmPelsHeight   As   Integer
        Dim   dmDisplayFlags   As   Integer
        Dim   dmDisplayFrequency   As   Integer
End   Class

使用VS2005制作安装包。
1．在“新建项目”对话框的左侧树状图中选择“Other Project Types”->“Setup and Deployment”节点，在右侧选择“Web Setup Project”。
 
2．在Solution Explorer中在Solution上点右键，选择“Add”->“Existing Web Site”，将存放编译好的Web网站的文件夹加入Solution中。
 
如果添加使用aspnet_compiler编译好的网站，有可能会出现下面的提示框，点击“是”就行。
 

3．再添加一个新的“Class Library”，名称“CreateDB”，用以创建数据库的操作。
 

删除默认生成的“class1.cs”，在这个项目上点右键，选择“Add”->“New Item”，在弹出的对话框中选择“Installer Class”，点击OK。
 
在类中添加如下代码：
private void ExecuteSql(string connectionString, string databaseName, string sql)
{
SqlConnection sqlConnection = new SqlConnection(connectionString);
SqlCommand sqlCommand = new SqlCommand(sql, sqlConnection);
try
{
sqlCommand.Connection.Open();
sqlCommand.Connection.ChangeDatabase(databaseName);
sqlCommand.ExecuteNonQuery();
}
catch (Exception exception)
{
throw exception;
}
finally
{
sqlCommand.Connection.Close();
}
}

public override void Install(System.Collections.IDictionary stateSaver)
{
string server = this.Context.Parameters["server"];
string database = this.Context.Parameters["dbname"];
string user = this.Context.Parameters["user"];
string password = this.Context.Parameters["pwd"];
string targetDir = this.Context.Parameters["targetdir"];

try
{
string connectionString = String.Format("data source={0};user id={1};password={2};persist security info=false;packet size=4096",
server, user, password);

//create db
ExecuteSql(connectionString, "master", "CREATE DATABASE " + database);

//set user
string setUserString = "sp_addlogin 'XXXXXX', 'XXXXXX', 'XXXXXX'";
string setAccessString = "sp_grantdbaccess 'XXXXXX'";
string setRole = "sp_addrolemember 'db_owner', 'XXXXXX'";

//create new user login
try
{
ExecuteSql(connectionString, "master", setUserString);
}
catch { }

//set default database
try
{
ExecuteSql(connectionString, "XXXXXX", setAccessString);
}
catch { }

//set read role
try
{
ExecuteSql(connectionString, "XXXXXX", setRole);
}
catch { }

//create table,store produce......
Process osqlProcess = new Process();
osqlProcess.StartInfo.FileName = targetDir + "osql.exe";
osqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -d {3} -i {4}createdb.sql",
user, password, server, database, targetDir);
osqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
osqlProcess.Start();
osqlProcess.WaitForExit();
osqlProcess.Close();

//add data
osqlProcess.StartInfo.Arguments = String.Format(" -U {0} -P {1} -S {2} -d {3} -i {4}insertdata.sql",
user, password, server, database, targetDir);
osqlProcess.StartInfo.WindowStyle = ProcessWindowStyle.Hidden;
osqlProcess.Start();
osqlProcess.WaitForExit();
osqlProcess.Close();

}
catch (Exception exception)
{
throw exception;
}

try
{
string configFile = targetDir + "/Web.config";
if (!File.Exists(configFile))
{
throw new InstallException("没有找到配置文件。");
}

XmlDocument xmlDoc = new XmlDocument();
xmlDoc.Load(configFile);

GC.Collect();
File.Delete(configFile);
GC.Collect();

foreach (XmlNode xmlNode in xmlDoc["configuration"]["connectionStrings"].ChildNodes)
{
if (xmlNode.Name == "add")
{
if (xmlNode.Attributes["name"].Value == "DBConnection")
{
xmlNode.Attributes["connectionString"].Value = String.Format("Data Source={0};Initial Catalog={1};Persist Security Info=True;User ID=XXXXXX;Password=XXXXXX",
server, database);
}
if (xmlNode.Attributes["name"].Value == "UserManageServicesConnection")
{
xmlNode.Attributes["connectionString"].Value = String.Format("Data Source={0};Initial Catalog={1};Persist Security Info=True;User ID=XXXXXX;Password=XXXXXX",
server, database);
}
}
}
xmlDoc.Save(configFile);
}
catch (Exception exception)
{
throw exception;
}
4．在“Web Setup Project”项目上点右键，选择“Add”->“Project Output”，选择Project“CreateDB”，选择“Primary Output”，点击OK。重复上述动作，将选择刚才添加的Web Site，选择“Content Files”，点击OK。
 

 

5．在“Web Setup Project”项目上点右键，选择“Add”->“File”，将创建数据库表、存储过程和视图的脚本createdb.sql加入。重复，将向数据表中添加基础数据的脚本insertdata.sql加入。重复，将程序osql.exe加入。
6．在“Web Setup Project”项目上点右键，选择“Add”->“Merge Module”，在弹出的对话框中选择“VC_User_CRT71_RTL_X86_---.msm”，点击OK。添加这个VC运行库是因为在一台干净的机器上测试的时候发现osql.exe这个程序需要这个库。
7．在“Web Setup Project”项目上点右键，选择“Properties”，在弹出的对话框中可以设置一些安装程序的属性。点击按钮“Prerequisites”，在弹出的对话框中选中“.NET Framework 2.0”和“Windows Installer 3.1”，选中“Download prerequisites from the same location as my application”。这样就可以把这些组件和应用程序打包在一起，安装的时候自动检测并安装了。如果需要部署的计算机如果没有打过最新的补丁的话，是没有“Windows Installer 3.1”的，如果没有这个组件，“.NET Framework 2.0”是不能安装的。
  
8．在“Web Setup Project”项目上点右键，选择“View”->“Custom Actions”，在出现的树状图的节点“Install”上点右键，选择“Add Custom Actions”。在弹出的对话框中“Look in”中选择“Web Application Folders”，在下面选择“Primary output from CreateDB (Active)”，点击OK。
 

9．在“Web Setup Project”项目上点右键，选择“View”->“User Interface”，在出现的树状图节点“Install”的子节点“Start”上点击右键，选择“Add Dialog”，在弹出的对话框中选择“TextBoxes(A)”。
 
在新添加的节点“TextBoxes (A)”上点击右键，选择“Properites Window”，依次设置Edit*Property属性为“CUSTOMTEXTA1”，“CUSTOMTEXTA2”，“CUSTOMTEXTA3”和“CUSTOMTEXTA4”。

10．在刚刚建立的“Primary output from CreateDB (Active)”节点上点右键，选择“Properties Window”，设置“CustomActionData”属性为“/dbname=[CUSTOMTEXTA1] /server=[CUSTOMTEXTA2] /user=[CUSTOMTEXTA3] /pwd=[CUSTOMTEXTA4] /targetdir="[TARGETDIR]\"”。