VB如何編寫自我保護？ VB 如何編寫終止語句

可以有兩種型別：

在 msgbox 中"esta repetir numero nota"

在下面新增：退出子

或退出

在 msgbox 中"esta repetir numero nota"

在下面新增。 exit sub

否則，迴圈將繼續。

目的是查詢陣列中的最大數字。

將標準模組新增到專案中，然後再次新增它：

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

舉個簡單的例子，目的是找到陣列中的最大數字。

將標準模組新增到專案中，然後再次新增它：

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

這樣，您就可以在應用程式中的任何位置使用它。

x = val(a)

上面表示式的意思是，如果 a 是空字串，則 x 為 0

如果它是乙個空物件，則說它是乙個文字框：if"" then "0"

如果是VB，基本不需要加shelling，因為VB是不能反編譯的，而且反編譯的都是sink編碼，破解它並不比寫乙個新的容易多少。

可以反編譯，一般是混淆器，.許多網狀填料會不穩定，因此請謹慎使用。

不管有沒有打包，在記憶體中執行都是一樣的，可以通過記憶體除錯來破解。

最安全的加密方式是虛擬機器，基本無法解決，但價格不錯......

打包是怕軟體被反編譯，或者軟體有一些特殊功能，更強大的外殼會不被防毒軟體識別，也就是說打包有時候可以免除殺傷，如果你編造的東西不是唯一的，別人編不出來的，或者你沒有任何特殊目的， 不需要打包，網際網絡下的打包軟體一般都算是病毒，如果非要新增的話，可以自己研究乙個打包器，或者乾脆用C程式設計，是無法反編譯的。

打包一般會報毒，你把程式編譯成exe，就可以用打包軟體進行打包了。

VB 打包可以使用 Virbox Protector 工具完成。 虛擬化、混淆、碎片化、加密等 一鍵打包，即可選擇功能。

所謂強制關機，並不是說不可能阻斷它，這種**是不存在的，唯一的辦法就是在VB程序關機後，使用第三方軟體自動再次執行VB程式。

這是乙個 VBS 迴圈。

do...loop 或 for....接下來等等，以下是做....迴圈語句標準簡介。

do...loop 語句。

當條件為 true 或條件變為 true 之前重複語句塊。

do [ condition]

statements]

exit do]

statements]

loop 還可以使用以下語法：

dostatements]

exit do]

statements]

loop [ condition]

引數。 condition

值為 true 或 false 的數值或字串表示式。 如果條件為 null，則該條件被視為 false。

statements

當條件為 true 時重複執行的乙個或多個命令。

說明。 退出 do 只能在 do 中使用。迴圈控制語句，提供另乙個出口 do....

圈。 你可以在做....在迴圈語句中將任何退出 do 放在任何位置通常與條件判斷語句相同，例如 if....

then） 將控制權傳遞給緊跟在迴圈語句之後的語句。

當用於巢狀時，do....迴圈，出口將控制權傳遞給它所在的迴圈上方的巢狀迴圈。

下面是乙個如何使用 do....loop 語句。

do until defresp = vbno

mynum = int (6 * rnd + 1) '生成介於 1 和 6 之間的隨機數。

defresp = msgbox (mynum & "想要另乙個號碼？ ", vbyesno)

loopdim check, counter

check = true: counter = 0 '初始化變數。

do '外迴圈。

do while counter < 20 '內迴圈。

counter = counter + 1 '增加計數器。

if counter = 10 then '如果條件為真......

check = false '將標誌值設定為 false。

exit do '終止內部迴圈。

end if

looploop until check = false '立即終止外迴圈。

用 do 迴圈編寫，這很簡單：

i = 1do while i < 2

print "你處於乙個無休止的迴圈中！ "

loop

寫乙個無限迴圈太容易了：它們太麻煩了，寫起來太麻煩了。 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 "密碼有誤，請重新輸入，你還是有的" & 3 - a & "機會"

elseif a = 2 then

msgbox "對不起，我沒有權利使用它，因為我犯了 3 次錯誤"

unload me

end if

elseif text1 = "123" thenmsgbox "歡迎！ "

a = 0 '可用與否。

end if

end sub

首先，將變數 x 設定為等於輸入錯誤數，如果大於 3，則程式將終止 dim x 作為整數

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

x = x + 1

xif x > 3 then

endend if

end if

end sub