如何保护VB.NET代码不被修改

保护VB.NET代码不被修改,最简单的就是 编译。

成都创新互联长期为超过千家客户提供的网站建设服务，团队从业经验10年，关注不同地域、不同群体，并针对不同对象提供差异化的产品和服务；打造开放共赢平台，与合作伙伴共同营造健康的互联网生态环境。为锦州企业提供专业的成都网站制作、做网站、外贸营销网站建设，锦州网站改版等技术服务。拥有10余年丰富建站经验和众多成功案例,为您定制开发。

对外仅提供编译后的应用程序（库），别人就不能修改了。

.net软件,用什么软件加密狗加密,能防止代码反编译？

.Net软件

特点,

些强

编译工具

.Net

执行文件进行反编译操作,并

相应

IL代码甚至

源代码

即使

采用混淆工具

及强命名工具

能

根本

解决问题,代码依

容易

Reflectoer等工具反编译源代码

软件加密狗：威步(WIBU)

CodeMeter,AxProtector(for.net)两款软件加密狗性能非

错

反编译

问题,与传统

代码混淆工具（Obfuscator）

同,AxProtector

完全阻止

.NET

程序集（由

C#,

VB.NET,

Delphi.NET,

ASP.Net…

等语言编写）

反编译

通俗

讲,AxProtector

破解者

您

.NET

代码

间构建

强

防破解保护屏障,

基于

Windows

基于

MSIL

兼容格式文件

原始

.NET

代码完整

加密

封装

本

代码内,

论何

都

释放

硬盘,

于破解者

见

与单纯

.net加密软件

同,AxProtector与CodeMeter硬件加密狗配套餐使用,采用

更

严密

密钥管理,及

先进

AES、RSA、ECC等加密算

存储或传输密钥,保证通讯安全

.Net代码编译

.class

包含

源代码

所

信息（

包括注释）,尤其

其

保存

调试信息

候

所

按照

式编译

.class

文件

非

轻易

反编译

般软件

发商

采用

种叫做混淆器

工具

混淆器

作用

编译

代码进行混淆,使

其

反编译或者反编译

代码混乱难懂

由于混淆器

混淆

名称或流程,

能防止源代码

反编译,

混淆器

作用

增加

反编译

难度,

终

结

治标

治本

于

些掌握工具

说几乎

透明

AxProtector

款真

意义

加密源代码、防止反编译

.net软件加密软件

AxProtector加密

.net原代码,任何

候原代码都

能

原

硬盘

采用AxProtector加密

.net代码

程序调用或执行某

段函数

候,才能通

AxProtectorClass

内存

解密

返

程序

执行,运行

迅速立即加密

种随机加密、按需解密原代码

功能,能

防止.Net程序

反编译,同

能够

防止API加密点

摘除

效

保证

源代码

执行效率

安全性

求VB.net程序源代码 绘图板、二十一点游戏、计算器、井字棋游戏、屏幕保护程序等

说明：1.共有4个文本框其，其中三个是填入或输出数据的（名称分别是：txta txtb txtc），剩下的那个是符号(txtd)2.共7个按钮，4个是符号按钮，一个计算，一个清零．这是我弄的程序”袖珍计算器”代码也是自己编写的，代码如下：通用声明Dim j As Integer '定义j为整型

Private Sub Text1_Change()End SubPrivate Sub Command1_Click()

txtfuhao.Text = "+" '将”＋”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command2_Click()

txtfuhao.Text = "-" ''将”-”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command3_Click()

txtfuhao.Text = "×" '将”×”显示到文本框txtfuhao.Text中

End SubPrivate Sub Command4_Click()

txtfuhao.Text = "÷" 将”÷”'显示到文本框txtfuhao.Text中

End Sub

Private Sub Command5_Click()

Dim a, b, c As Integer

a = Val(txta.Text) '将txta.Text里的内容转化为数值型,然后再赋给a

b = Val(txtb.Text) '将txtb.Text里的内容转化为数值型,然后再赋给b

If txtfuhao.Text = "+" Then '运算过程

c = a + b '运算过程

ElseIf txtfuhao.Text = "-" Then '运算过程

c = a - b '运算过程

ElseIf txtfuhao.Text = "÷" Then '运算过程

c = a / b '运算过程

ElseIf txtfuhao.Text = "×" Then '运算过程

c = a * b '运算过程

Else

j = MsgBox("您输入的符号不正确", vbOKOnly, "错误信息")

End If

txtc.Text = c '将运算结果c输出到文本框txtc中

End SubPrivate Sub Command6_Click()

txta.Text = "" '将空字符输入到文本框内（刷新）

txtb.Text = "" '将空字符输入到文本框内（刷新）

txtc.Text = "" '将空字符输入到文本框内（刷新）

txtfuhao.Text = "" '将空字符输入到文本框内（刷新）

End SubPrivate Sub Command7_Click()

End '结束程序

End SubPrivate Sub Form_Load()End Sub

vb.net 屏幕保护程序

系统就有这个屏保啊!~!

Option EXPlicit

Dim quitflag As Boolean '声明终止程序标志变量

Dim lleft

'声明隐藏或显示鼠标的API函数

Private Declare Function ShowCursor Lib "user32"

(ByVal bShow As Long) As Long

'检测鼠标单击或移动

Private Sub Form_Click()

quitflag = True

End Sub

Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single)

Static xlast, ylast

Dim xnow As Single

Dim ynow As Single

xnow = X

ynow = Y

If xlast = 0 And ylast = 0 Then

xlast = xnow

ylast = ynow

Exit Sub

End If

If xnow xlast Or ynow ylast Then

quitflag = True

End If

End Sub

'检测按键

Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)

quitflag = True

End Sub

Private Sub Form_Load()

Dim X As Long

lleft = 0

'横向滚动文字的起始X坐标

If App.PrevInstance = True Then

'用APP对象的PrevInstance属性

Unload Me

'防止同时运行屏幕保护程序的两个实例

Exit Sub

End If

Select Case Ucase$(Left$(Command$, 2))

'装载命令行参数

Case "/S" '在显示器属性对话框中单击了

预览按钮或屏幕保护程序被系统正常调用。

Show

'全屏显示Form1窗体

Randomize

'初始化随机数生成器

X = ShowCursor(False)

'隐藏鼠标

BackColor = VBBlack

Do

Timer2.Enabled = True

'启动Timer2 ,显示屏幕保护滚动文字

DoEvents

'转让控制权,以便检测鼠标和按键行为

Loop Until quitflag = True

'运行屏幕保护滚动文字直至有鼠标和按键行为

Timer2.Enabled = False

'终止滚动文字

Timer1.Enabled = True

'启动Timer1,退出屏幕保护程序

Case Else

Unload Me

Exit Sub

End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)

Dim X

X = ShowCursor(True)

'显示鼠标

End Sub

Private Sub Timer1_Timer()

Unload Me

'退出屏幕保护程序

End Sub

Private Sub Timer2_Timer()

显示横向滚动文字

lleft = lleft + 100

If lleft = 11810 Then

lleft = 0

Lab1.Top = Int(Rnd * 7000)

End If

Lab1.Left = lleft

Timer2.Enabled = False

End Sub

各位网友好，vb.net现用到了哪个版本，现升级到了什么版本。vb.net与VB有什么不同，现VB是过时了吗？

vb.net的最新版本号是2010，和VB有很大不同，基本上你可以把它看成是全新的语言，VB6不再升级了，如果把VC作为一个成熟的语言，那么VB.NET和VC.NET是同等地位，而VB6只能算是一个玩具，仅仅作为培训对编程的认识有用。

如何用VB.NET写一个简单的屏幕保护程序？

在窗体上建立2个文本框text1和text2，一个按钮command1，text1里面输入你要转换的字符串，text2里面显示结果，代码如下：

Dim MyString As String

Dim EveryStr(50) As String

Dim TargetStr As String

Private Sub Command1_Click()

MyString = Text1

For i = 1 To Len(MyString)

EveryStr(i) = Right(Left(MyString, i), 1)

If Asc(EveryStr(i)) 123 And Asc(EveryStr(i)) 96 Then EveryStr(i) = \"_\"

If Asc(EveryStr(i)) 91 And Asc(EveryStr(i)) 64 Then EveryStr(i) = \"_\"

TargetStr = TargetStr EveryStr(i)

Next i

Text2 = TargetStr

TargetStr = \"\"

End Sub

引号前面怎么自动给加了个“\”？用的时候请手动把那几个“\”去掉

名称栏目：vb.net源码保护 c#代码保护
文章分享：http://csdahua.cn/article/hpdgpd.html