代码下载地址:http://files.cnblogs.com/wuhuacong/VBActiveX.rar
由于存在一下几种特点:
1、.NET程序反编译容易,而使用一些混淆工具会导致有些程序不能运行
2、VB6开发ActiveX控件,那叫一个快,VB代码也不是很容易被反编译。
3、结合两者的特点,如果在.NET中使用了封装一些关键代码的ActiveX控件,那么程序的安全性是否好一点呢?
对于这种做法,请大家拍砖讨论,本人提供一个如何实现这种做法的思路。
一、 编写一个封装关键字符串或者实现逻辑的ActiveX控件
1、首先使用VB6创建一个ActiveX的工程项目
2、设置VB ActiveX的工程属性
3、编写类模块函数
Option Explicit
Public Function GetString() As String
GetString = "ABCDEFG"
End Function
Public Function ValidateString(ByVal str As String) As Boolean
ValidateString = False
If str = "ABCD" Then
ValidateString = True
Else
Err.Raise Err.Number, , "不正确"
End If
End Function
Public Function GetDateTime() As Date
GetDateTime = Now
End Function
注意:如果使用Err.Raise函数,在调用过程中会抛出一个异常
二、在.NET程序中引用并使用该ActiveX控件
1、创建一个Windows Form程序
2、添加ActiveX控件的引用
3、编写按钮事件及ActiveX控件调用代码
using System.Data;
using System.Drawing;
using System.Text;
using System.Windows.Forms;
namespace TestMyVBControl
{
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
private void btnTest_Click(object sender, EventArgs e)
{
MyVBControl.TestClass test = new MyVBControl.TestClass();
MessageBox.Show(test.GetString());
}
private void btnValidate_Click(object sender, EventArgs e)
{
MyVBControl.TestClass test = new MyVBControl.TestClass();
try
{
MessageBox.Show(test.ValidateString("ABCD").ToString());//正确
MessageBox.Show(test.ValidateString("ABCDE").ToString());//有错误
}
catch(Exception ex)
{
MessageBox.Show(ex.Message);
return;
}
}
private void btnGetDate_Click(object sender, EventArgs e)
{
MyVBControl.TestClass test = new MyVBControl.TestClass();
MessageBox.Show(test.GetDateTime().ToString());
}
}
}
结束,收工