认证为例

[assembly: AssemblyTitle("Capsule.KillerApplication.Support")]

[assembly: AssemblyDescription("Support DLL for Killer Application")]

[assembly: AssemblyCompany("Capsule Corporation")]



[assembly: AssemblyProduct("Capsule.KillerApplication.Support")]

[assembly: AssemblyCopyright("漏 Capsule Corporation 2007, 2008")]

<?xml version="1.0" encoding="utf-8" ?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">

    <security>

      <requestedPrivileges>

        <requestedExecutionLevel level="asInvoker" uiAccess="false" />

      </requestedPrivileges>

    </security>

  </trustInfo>

</assembly>

%HOMEDRIVE%\vistatools\Mt.exe -manifest "$(ProjectDir)$(TargetFileName).manifest"

     -outputresource:"$(ProjectDir)obj\$(ConfigurationName)\$(TargetFileName);1"

%HOMEDRIVE%\vistatools\signtool.exe sign

    /f %HOMEDRIVE%\vistatools\capsulekey.pfx /p kaitokun /v

         /t http://timestamp.verisign.com/scripts/timstamp.dll

    "$(ProjectDir)obj\$(ConfigurationName)\$(TargetFileName)"

%HOMEDRIVE%\vistatools\signtool.exe sign /f

    %HOMEDRIVE%\vistatools\capsulekey.pfx /p kaitokun /v

    /t http://timestamp.verisign.com/scripts/timstamp.dll

    "$(ProjectDir)obj\$(ConfigurationName)\$(TargetFileName)"

<STAThread()> _

Public Shared Sub Main(ByVal args() As String)

    Try

        _Main(args)

    Catch ex As Exception

        Dim text As String = _

            String.Format("Unexpected exception in Killer Application:{0}({1}){0}{2}", _

            Environment.NewLine, ex.GetType().Name, ex.Message)

        EventLog.WriteEntry("Application Error", text, EventLogEntryType.Error, 1000)

        Throw

    End Try

End Sub

Application.SetUnhandledExceptionMode(UnhandledExceptionMode.ThrowException)

If SystemInformation.TerminalServerSession OrElse _

        Command.ToLower().Contains("failremote") Then

    MessageBox.Show("Terminal Server execution is not allowed.", _

        "Killer Application", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    Dim evlog As New EventLog_

        ("Application", Environment.MachineName, "Killer Application")

    evlog.WriteEntry("Terminal Server execution was attempted. _

            User was notified and application terminated.", _

         EventLogEntryType.Information)

    Return

End If

Dim pid As Long = AlreadyRunningChecker.GetSameNameProcess(False)

If pid <> 0 OrElse Command.ToLower().Contains("failmultiuser") Then

    MessageBox.Show("This application is already being run by another user.", _

        "Killer Application", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

    Dim evlog As New EventLog_

        ("Application", Environment.MachineName, "Killer Application")

    evlog.WriteEntry( _

        "Multiple user execution was attempted. _

        User was notified and application terminated.", _

         EventLogEntryType.Information)

    Return

End If



pid = AlreadyRunningChecker.GetSameNameProcess(True)

If pid <> 0 Then

    AlreadyRunningChecker.ActivateProcessMainWindow(pid)

    Return

End If

DataDirectory = ConfigurationManager.AppSettings("DataDirectory")

If String.IsNullOrEmpty(DataDirectory) Then

    DataDirectory = Path.Combine(Application.StartupPath, "Data")

    If Not Directory.Exists(DataDirectory) Then

        DataDirectory = Path.Combine(Environment.GetFolderPath( _

        Environment.SpecialFolder.CommonApplicationData), "Killer Application\Data\")

    End If

Else

    DataDirectory = Path.Combine(Application.StartupPath, DataDirectory)

End If

If Not DataDirectory.EndsWith("\") Then DataDirectory += "\"

Data Source=.\SQLEXPRESS;AttachDbFilename=

    "|DataDirectory|Database\KillerApplicationDatabase.mdf";

Integrated Security=True;User Instance=True

AppDomain.CurrentDomain.SetData("DataDirectory", DataDirectory)

AttachDbFilename="|DataDirectory|Data\Database\KillerApplicationDatabase.mdf";

Dim log As String = String.Format("Application run by {0} on {1}{2}", _

    Environment.UserName, DateTime.Now, Environment.NewLine)

File.AppendAllText(Path.Combine(DataDirectory, "log.txt"), log)

Application.EnableVisualStyles()

Application.SetCompatibleTextRenderingDefault(False)

Application.Run(New FormMain())

Try

    File.WriteAllText(Path.Combine(txtPath.Text, "KILLERAPP.TXT"), _

        "Congratulations! You have successfully created a text file _

            with Killer Application.")

    MessageBox.Show(Me.MdiParent, "Text file created successfully.", _

        "Killer Application", MessageBoxButtons.OK, MessageBoxIcon.Information)



Catch ex As UnauthorizedAccessException

    MessageBox.Show(Me.MdiParent, "Sorry, you don't have the necessary _

            permissions for creating a file here.", _

        "Killer Application", MessageBoxButtons.OK, MessageBoxIcon.Warning)



Catch ex As Exception

    Dim text As String = String.Format("Ooops. Unexpected error:{0}{0}({1}){0}{2}", _

        Environment.NewLine, ex.GetType().Name, ex.Message)

    MessageBox.Show(Me.MdiParent, text, "Killer Application", _

        MessageBoxButtons.OK, MessageBoxIcon.Error)

End Try

Dim photoPath As String = Path.Combine(Program.DataDirectory, "Photos\KaitoCute.jpg")

pictureBox.Load(photoPath)

Dim textPath As String = Path.Combine(Program.DataDirectory, "Texts\Agreement.txt")

textBox.Text = File.ReadAllText(textPath)

private const string APPNAME="Killer Application";

private const string APPFILE="KILLER APPLICATION.EXE";



private string ApplicationDataPath

{

    get { return Path.Combine(Environment.GetFolderPath

            (Environment.SpecialFolder.CommonApplicationData), APPNAME); }

}

public override void Install(System.Collections.IDictionary stateSaver)

{

    if(!EventLog.SourceExists(APPNAME))

    {

        EventLog.CreateEventSource(APPNAME, "Application");

    }



    string userGroupName=FindUserForSid.GetNormalUsersGroupName();

    AclManager manager=new AclManager(ApplicationDataPath, userGroupName, "F");

    manager.SetAcl();



    base.Install(stateSaver);

}

public override void Rollback(System.Collections.IDictionary savedState)

{

    if(EventLog.SourceExists(APPNAME))

    {

        EventLog.DeleteEventSource(APPNAME);

    }

    base.Rollback(savedState);

}

protected override void OnAfterUninstall(System.Collections.IDictionary savedState)

{

    //* Delete data files



    string path=ApplicationDataPath;

    if(Directory.Exists(path))

    {

        try

        {

            Directory.Delete(path, true);

        }

        catch(Exception ex)

        {

            MessageBox.Show(string.Format(

@"Error when trying to delete the program data folder:

({0}) {1}



Uninstall process will continue, but the folder will not be deleted.

The folder path is:

{2}", ex.GetType().Name, ex.Message, path), APPNAME + " uninstaller",

MessageBoxButtons.OK, MessageBoxIcon.Warning);

        }

    }



    //* Delete the event source



    if(EventLog.SourceExists(APPNAME))

    {

        EventLog.DeleteEventSource(APPNAME);

    }



    //* Delete file from Prefetch folder



    string prefetchPath=Path.Combine

        (Environment.ExpandEnvironmentVariables("%windir%"), "Prefetch");



    try

    {

        string[] files=Directory.GetFiles(prefetchPath, APPFILE+"*.*");

        foreach(string file in files)

        {

            File.Delete(file);

        }

    }

    catch

    {

        string prefetchDir=Path.Combine

            (Environment.ExpandEnvironmentVariables("%windir%"), "Prefetch");

        MessageBox.Show(@"Some "+APPNAME+" files may remain in the

            "+prefetchPath+" directory. " +

            "You can delete these files manually.",

            APPNAME + " uninstaller", MessageBoxButtons.OK, MessageBoxIcon.Warning);

    }



    base.OnAfterUninstall(savedState);

}

%HOMEDRIVE%\vistatools\MsiTran.exe -a "$(ProjectDir)VistaPatch2.mst" "$(BuiltOuputPath)"

%HOMEDRIVE%\vistatools\MsiTran.exe -a "$(ProjectDir)AddMsiRMFilesInUse.mst"

    "$(BuiltOuputPath)"

cscript.exe "$(ProjectDir)NoImpersonate.js" "$(BuiltOuputPath)"

<?xml version="1.0" encoding="utf-8" ?>

<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">

  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">

    <security>

      <requestedPrivileges>

        <requestedExecutionLevel level="requireAdministrator" uiAccess="false" />

      </requestedPrivileges>

    </security>

  </trustInfo>

</assembly>

%HOMEDRIVE%\vistatools\Mt.exe -manifest "$(ProjectDir)setup.exe.manifest"

    -outputresource:"$(ProjectDir)$(Configuration)\setup.exe;1"

%HOMEDRIVE%\vistatools\signtool sign /f  %HOMEDRIVE%\vistatools\capsulekey.pfx

    /p kaitokun /v /t http://timestamp.verisign.com/scripts/timstamp.dll

    "$(ProjectDir)$(Configuration)\setup.exe"

Error	1	The command "%HOMEDRIVE%\Program Files\Microsoft Visual Studio 8\SDK\v2.0\bin\Mt.exe -manifest "C:\Users\Anubhav\Desktop\killerapplication_src\Killer Application\Killer Application\Killer Application.exe.manifest" -outputresource:"C:\Users\Anubhav\Desktop\killerapplication_src\Killer Application\Killer Application\obj\Debug\Killer Application.exe;1"

%HOMEDRIVE%\Program Files\Microsoft Visual Studio 8\SDK\v2.0\bin\signtool.exe sign /f  %HOMEDRIVE%\Program Files\Microsoft Visual Studio 8\SDK\v2.0\bin\capsulekey.pfx /p kaitokun /v /t http://timestamp.verisign.com/scripts/timstamp.dll "C:\Users\Anubhav\Desktop\killerapplication_src\Killer Application\Killer Application\obj\Debug\Killer Application.exe"

" exited with code 9009.	Killer Application