c# 验证码组件 可vb，asp，net调用
今天公司要求用C#写个验证码组件，让asp可以调用，在网上找了一堆资料，终于给我给搞出来了，因为本人第一次写组件，也是第一次发表文章，所有可能说的不是很好，大家请见谅。
csdn上有这么篇文章，想学习写组件的可以去看看：http://blog.csdn.net/KimmKing/archive/2008/12/04/3445233.aspx，因为本人就是仿照这个写的验证码组件，因为怕上面的文章丢失，我就在这里简单说下创建的过程：
1、创建一类库
2、实现一个类（具体代码下面详写）
3、给文件签名
方法：选择开始菜单中Vistual Studio目录下的Vistual Studio Tools下的Vistual Studio 命令提示。使用sn -k c:\myKey.snk生成签名文件。在项目上右键，点击属性，选择签名，选中为程序集签名，选择myKey.snk文件。
4、生成解决方案
在项目目录的\TestCom\bin\Debug中可以找到TestCom.dll
5、生成tlb类库
在Visual Studio命令提示符下，切换到此目录。
输入tlbexp TestCom.dll /out:TestCom.tlb
6、注册类型库
输入regasm TestCom.dll /tlb: TestCom.tlb /codebase，将类型库导入到注册表。提示成功注册了类型，说明操作成功，此时TestCom .dll可以作为一个com来使用。
7、添加dll到GAC
输入gacutil /i TestCom.dll，将此.net程序集添加到GAC。
这样创建组件的所有工作就完成了。剩下的就是调用了
在vb和net里面调用：导入dll，实例化对象就可以使用了
（Dim a As New TestCom.Class1）a.方法
（TestCom.Class1 aa = new TestCom.Class1（））aa.方法
在asp调用：
<%
SET s = CreateObject("TestCom.Class1")
s.test()
%>
以上就是我找到的创建组件的资料，那么现在就开始编写验证码组件的代码吧
首先编写类库：
using System;
using System.Collections.Generic;
using System.Text;
using System.Runtime.InteropServices;
using System.Drawing;
using System.Security;
namespace TestComs
{
[ComVisible(true)]
public interface iClass1
{
string DoCode(int num);
byte[] DoImg(string code);
}
[ComVisible(true)]
[ClassInterface(ClassInterfaceType.AutoDual)]
public class Class1 : iClass1
{
private double PI2;
public Class1()
{
PI2 = 6.
相关文档：
Private Sub Form_load()
'判断程序是否已经运行
If App.PrevInstance
Then
MsgBox "本程序已经运行！", vbInformation Or vbOKOnly, "提示信息"
Unload
Me
Exit Sub
&n ......
1、Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As
Integer)
Cancel = True
End Sub
2、Private Sub
Form_Unload(Cancel As Integer)
Cancel = ......
今天同学装了一个xampp.来使用FTP和Mysql. 但是他是使用ASP.net来进行网页开发的,然后又不想另外装IIS,叫我帮他弄. 上网Google一下,发现国外有人发过教程了,不过是英文的.整理了一下和自己配置完成的心得重新发出来. 首先,你要上xampp的官网上下载安装xampp,安装过程官网有详细的说明. 安装完成后,确定你的xampp能成功� ......
这段代码的功能是：将一个数组打乱顺序，显示出来，让每一次显示的顺序都不一样。
<%
Dim tt
tt=Split("1,2,3,4,5,6",",")
'随机排序
leng=UBound(tt)
randomize
for ii=0 to leng-1
b=int(rnd()*leng)
temp=tt(b)
tt(b ......
http://topic.csdn.net/t/20060401/19/4656391.html
Private Declare Function GetCurrentProcess Lib "kernel32" () As Long
Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Const IDLE_PRIORITY_CLASS = &H40 '新进程应该有非常低的 ......
