How does VB write self protection? vb how to write a termination statement

There can be two kinds:

in msgbox"esta repetir numero nota"

Add below: exit sub

Or exit for

in msgbox"esta repetir numero nota"

Add below. exit sub

Otherwise the cycle continues.

The purpose is to find the maximum number in an array.

Add a standard module to your project, and then add it again:

function maxnum(x() as double) as double

dim i as integer

maxnum=x(lbound(x())

for i=lbound(x())to ubound(x())if maxnumend function

To give you a simple example, the purpose is to find the maximum number in an array.

Add a standard module to your project, and then add it again:

function maxnum(x() as double) as double

dim i as integer

maxnum=x(lbound(x())

for i=lbound(x())to ubound(x())if maxnumend function

This way you can use it anywhere in the app.

x = val(a)

The meaning of the above expression is that if a is an empty string, then x is 0

If it's an empty object, say it's a text box: if"" then "0"

If it's VB, there's basically no need to add shelling, because VB can't be decompiled, and the decompiled ones are all sink encoding, and it's not much easier to crack it than writing a new one.

Can be decompiled, generally obfuscators, .Many net packings will be unstable, so use with caution.

Regardless of whether it is packed or not, running in memory is the same, and it can be cracked by memory debugging.

The most secure encryption method is a virtual machine, which is basically unsolvable, but the price is good...

Packing is afraid that the software will be decompiled, or the software has some special functions and a more powerful shell will not be recognized by the antivirus software, that is, the packing can sometimes be exempted from killing, if you make up something that is not unique and others can't make up, or you don't have any special purpose, there is no need to pack, the packer software under the Internet is generally considered a virus, if you have to add it, you can study a packer by yourself, or you simply use c programming, you can't decompile.

Packing will generally report poison, you compile the program into exe, and you can use the packing software to pack.

VB packing can be done using the tool, Virbox Protector. Virtualization, obfuscation, fragmentation, encryption, etc. One-click packing, you can select functions.

The so-called forced shutdown does not mean that it is impossible to block it, this kind of ** does not exist The only way is to use third-party software to automatically run the VB program again after the VB process is shut down.

It's a VBS cycle.

do...loop or for....Next etc., the following is do....Introduction to the loop statement standard.

do...loop statement.

Repeat a block of statements when the condition is true or before the condition becomes true.

do [ condition]

statements]

exit do]

statements]

loop can also use the following syntax:

dostatements]

exit do]

statements]

loop [ condition]

Parameter. condition

A numeric or string expression with a value of true or false. If the condition is null, the condition is treated as false.

statements

One or more commands that are repeatedly executed when the condition is true.

Illustrate. exit do can only be used in do....loop control statement, provide another exit do....

loop. You can do it in do....Placing any exit do anywhere in the loop statement is usually the same as a conditional judgment statement such as if....

then) to pass control to the statement immediately following the loop statement.

When used for nested do....loop, the exit do passes control to the nested loop above the loop it is in.

Here's an example of how to use do....loop statement.

do until defresp = vbno

mynum = int (6 * rnd + 1) 'Produces random numbers between 1 and 6.

defresp = msgbox (mynum & "Want another number? ", vbyesno)

loopdim check, counter

check = true: counter = 0 'Initialize variables.

do 'Outer circulation.

do while counter < 20 'Inner circulation.

counter = counter + 1 'Increase the counter.

if counter = 10 then 'If the condition is true....

check = false 'Set the flag value to false.

exit do 'Terminate the inner loop.

end if

looploop until check = false 'Immediately terminate the outer circulation.

Write with a do loop, it's easy :

i = 1do while i < 2

print "You're in an endless loop! "

loop

It's too easy to write an endless loop: they're too cumbersome to write. dim a as integerfor i = 1 to 10

i = 1next i

dim a as integer

private sub command1_click()if text1 <>"123" thenif a < 2 then

a = a + 1

text1 = ""

msgbox "The password is wrong, please re-enter it, you still have it" & 3 - a & "chances"

elseif a = 2 then

msgbox "Sorry, I don't have the right to use it because I made an error 3 times"

unload me

end if

elseif text1 = "123" thenmsgbox "Welcome! "

a = 0 'Available or not.

end if

end sub

First, set the variable x to be equal to the number of input errors, and if it is greater than 3, the program will be terminated dim x as integer

private sub command1_click()if <>"111" then

x = x + 1

xif x > 3 then

endend if

end if

end sub