如何在没有安装NetFramework的电脑上运行.net程序

前端之家收集整理的这篇文章主要介绍了如何在没有安装NetFramework的电脑上运行.net程序前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

.net程序通常只能在安装了Net.Framework的电脑上运行,如果想在没安装Net.Framework的电脑上运行,就得在打包程序的时候,在“系统必备”对话框里选择“从与我的应用程序相同的位置下载系统必须组件”,自带Net.Framework的安装包到目标电脑上安装。可是这样一来,打包之后的程序包相当庞大,如果是Net.Framework3.5的话,打包之后有220M,即使是最基本的Net.Framework2.0,打包之后也有30M。另外,在目标电脑上安装Net.Framework所用的时间相当漫长,这也让人感到无法忍受。

能不能不安装Net.Framework,就可以在目标电脑上运行.net程序呢?

经过多次实验,我发现这可以的,必须把程序运行时必备的文件带上,并修改目标电脑上的注册表,过程相当复杂。具体方法如下:

第一步:找出程序运行时必备的文件
绝对必须的文件
mscorjit.dll, mscorlib.dll, mscorwks.dll,这三个可以在 C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727文件夹里找到,
machine.config,这个文件可以在C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/CONFIG文件夹里找到。
可能须要的文件:看你的程序引用了哪些库,VB.net的话,在 工程——属性——引用页面,点一下“未使用的引用”,然后在弹出对话框中点“移除”,然后看看剩下哪一些,一般而言是System.dll ,System.Drawing.dll 和System.Windows.Forms.dll三个,如果你用到了别的命名空间就会有别的。C#的话,直接看你的using nameapace语句引用了哪些命名空间就行了,或者在“解决方案管理器”里面也可以看到有一项是“引用”。
下面假设你的程序所引用的库为System.dll ,System.Drawing.dll 和System.Windows.Forms.dll。

第二步:把程序运行时必备的文件复制到你的程序所在的目录。
在你的程序所在的目录(如D:/myprogram/release)下新建一个名为“v2.0.50727”的文件夹,然后把mscorjit.dll, mscorlib.dll, mscorwks.dll,System.dll ,System.Drawing.dll 和System.Windows.Forms.dll复制过来,然后在这个“v2.0.50727”目录下建一个名为“CONFIG”的文件夹,把machine.config复制过来。

第三步:(第三步和第四步都是在目标电脑上进行的)
在目标电脑上创建C:/WINDOWS/Microsoft.NET/Framework/文件夹,把上面的“v2.0.50727”目录里面的内容复制到目标电脑上的C:/WINDOWS/Microsoft.NET/Framework/文件夹里面。

第四步:修改目标电脑上的注册表:
在目标电脑的HKEY_LOCAL_MACHINE/SOFTWARE/Microsoft/下创建一个名为.NETFramework的子项,然后为此子项添加一个名为"InstallRoot"的键值,其值为"C:/WINDOWS/Microsoft.NET/Framework/"

这样的话,目标电脑上就“好像”安装了Net.Framework,你的程序也就可以运行了。然而,由于第三步和第四步都必须在目标电脑上执行,总不能让目标的主人亲手来完成这些事情吧,为此我编写了一个注册程序,只要把它放到跟你的程序所在的文件夹(如D:/myprogram/release)里面,在目标电脑上双击这个程序,就可以自动完成第三步和第四步。另外编写了一个打包程序,用于自动完成第一步和第二步。

注册程序是一个Win32 APP程序,我把它放在 http://pickup.mofile.com/7553607396496035 (下载链接在这个页面的一个夹缝里),源代码如下:

#include "stdafx.h"
#include "shellapi.h"

int APIENTRY _tWinMain(HINSTANCE hInstance,
HINSTANCE hPrevInstance,
LPTSTR lpCmdLine,
int nCmdShow)
{
PHKEY k1=new HKEY;
if(::RegOpenKeyA(HKEY_LOCAL_MACHINE,"SOFTWARE//Microsoft//.NETFramework//v2.0.50727",k1)){
::RegCreateKeyA(HKEY_LOCAL_MACHINE,"SOFTWARE//Microsoft//.NETFramework//",k1);
::RegSetValueExA(*k1,"InstallRoot",1,(const BYTE *)"C://WINDOWS//Microsoft.NET//Framework//",64);
::CreateDirectoryA("C://WINDOWS//Microsoft.NET",NULL);
::CreateDirectoryA("C://WINDOWS//Microsoft.NET//Framework",NULL);
::CreateDirectoryA("C://WINDOWS//Microsoft.NET//Framework//v2.0.50727",NULL);
::CreateDirectoryA("C://WINDOWS//Microsoft.NET//Framework//v2.0.50727//CONFIG",NULL);
::SHFILEOPSTRUCTA fs1;
fs1.wFunc=2;
fs1.fFlags=0x80;
fs1.pFrom="v2.0.50727//*.*";
fs1.pTo="C://windows//microsoft.net//framework//v2.0.50727//";
::SHFileOperationA(&fs1);
fs1.pFrom="v2.0.50727//CONFIG//*.*";
fs1.pTo="C://windows//microsoft.net//framework//v2.0.50727//CONFIG//";
::SHFileOperationA(&fs1);
}
::MessageBoxA(0,"注册成功!","注册",NULL);
return FALSE;
}

打包程序是用VB.net写的,我把它放在 http://pickup.mofile.com/1500343945429788窗体有两个按钮,一个文本框和一个CheckedListBox,源代码如下:

Public Class Form1
Dim s0() As String = {"mscorjit.dll","mscorlib.dll","mscorwks.dll","System.dll","System.Drawing.dll","System.Windows.Forms.dll"}
Private Sub Button2_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button2.Click
SaveFileDialog1.ShowDialog()
Dim s1 As String = SaveFileDialog1.FileName
s1 = s1.Substring(0,s1.LastIndexOf("/"c))
TextBox1.Text = s1
End Sub

Private Sub Form1_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load
Dim dr As New DirectoryInfo("C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727")
For Each f As FileInfo In dr.GetFiles("system*.dll")
CheckedListBox1.Items.Add(f.Name)
Next
For Each f As FileInfo In dr.GetFiles("mscor*.dll")
CheckedListBox1.Items.Add(f.Name)
Next
For Each f As FileInfo In dr.GetFiles("microsoft*.dll")
CheckedListBox1.Items.Add(f.Name)
Next
For i As Integer = 0 To CheckedListBox1.Items.Count - 1
For Each s As String In s0
If s = CheckedListBox1.Items(i) Then CheckedListBox1.SetItemChecked(i,True)
Next
Next
End Sub

Private Sub Button1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles Button1.Click
Dim p1 As String = TextBox1.Text + "/v2.0.50727/"
Dim p2 As String = TextBox1.Text + "/v2.0.50727/CONFIG/"
Directory.CreateDirectory(p1)
Directory.CreateDirectory(p2)
For Each f As String In CheckedListBox1.CheckedItems
File.Copy("C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/" + f,p1 + f)
Next
File.Copy("C:/WINDOWS/Microsoft.NET/Framework/v2.0.50727/CONFIG/machine.config",p2 + "machine.config")
End Sub
End Class

原:http://hi.baidu.com/wwbmmm/blog/item/5cec007e340c720e28388a02.html

原文链接:https://www.f2er.com/vb/262161.html

猜你在找的VB相关文章