|
|
Create you own Captcha Code in ASP.Net Captcha.aspx Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim imgSrc As New Bitmap(100, 30) For iX = 0 To imgSrc.Width - 1 Dim hiddenCode As String = (Fix(Rnd() * 100000)).ToString Dim imgFont As New Font("Arial", 14) Dim drawFormat As New StringFormat Dim x4 As Single = 5.0 + (Rnd() / 1) * (imgSrc.Width - 100) imgGraph.DrawString(hiddenCode, imgFont, imgBrush, x4, y4, drawFormat) End Sub Default.aspx
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If TextBox1.Text <> Session("hiddenCode") Then End Sub HTML
|


