How to add verification code in Easy Language

. Version 2. Assembly window assembly 1

. Assembly variable verification code, text type. Subroutine_Button 1_ was clicked on the drawing board 1. Clear (0, 0, Artboard 1. Width, Artboard 1. Height)

Set random number seed ()

Artboard 1. Write text line (subroutine 1 ())

Artboard 1. Brush thickness = 1

. Counting cycle head (take random number (10, 25), )

Artboard 1. Brush color = take random number (2 , 255)

Drawing board 1. Draw a straight line (take a random number (1, drawing board 1. width), take a random number (1, drawing board 1. width), take a random number (1, drawing board 1. width) ), take a random number (1, drawing board 1.width))

. Counting loop end ()

. Counting loop head (2000, )

Drawing board 1. Draw points (take a random number (1, 200), take a random number (1, 200), take a random number (1, 255))

. Count loop tail ()

Continuous assignment (false, edit box 1. disabled, button 2. disabled)

Edit box 1. Get focus (). Subroutine subroutine 1, text type

. The user taken by the local variable, text type. Counting loop head (6, )

The user taken = the user taken + Take the middle of the text ("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789", take the random number (1, 62 ), 1)

. End of counting loop ()

Edit box 2. Content = fetched user

Return (fetched user)

Fetched user="".Subroutine__start window_created_button 1_was clicked().Subroutine_button 2_was clicked.Judgment starts (edit box 1. content=edit Box 2. Content)

InfoBox("Correct", 0, )

.Default

InfoBox("Error", 0, )

_Button 1_ was clicked ()

. Judgment ended