# 如何加入检查码

Posted by kenmy on October 21, 1999 at 21:09:00:

如何加入检查码
例如：

我将以下的程式码编辑成 ABC.EXE，但是我想在这个档案执行时
去 RUN 检查程式，但是我不晓得要加在哪里所以贴出例题请前辈
们帮我解惑一下谢谢！

●●主程式●●

Private Sub Command1_Click()
A$ = Left$(App.Path, 2) + "程式的目录"
myShellExecute 0, lpOperation_open, "执行档名", , A$
Unload Form1
End Sub

Private Sub Command2_Click()
Shell "说明文件"
ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)
End Sub

Private Sub Command3_Click()
Unload Form1
End Sub

Private Sub Form_Load()
ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)
End Sub

●●检查程式●●

Sub CHECKCDKEY1()
B$ = Left$(App.Path, 2) + "程式的目录"
On Error GoTo 12345
Open " BMP 档" For Binary As #1 '检查是否有这个档案
Close #1
Call CHECKCDKEY2 '档案找到了，但要检查是否坏了
Exit Sub

12345: '根本没有这个档案
MsgBox "请支持原版软体！"
Unload Form1
End
End Sub

Sub CHECKCDKEY2() '确认档案是否坏了的复程式
B$ = Left$(App.Path, 2) + "程式的目录"
Dim TEMP As Byte
On Error GoTo KEYFOUND
Open " BMP 档" For Binary As #1
Get #1, 3000, TEMP
MsgBox "请支持原版软体！"
Unload Form1
End
Close #1
Exit Sub

KEYFOUND:
(但是我想再加入一个副程式要开档成功才是正版，并且确认无误之
后才执行主程式)
End Sub

小弟请前辈们赐教了拜托！拜托！

Follow Ups:

- Re: 如何加入检查码 小v 09:04:15 10/22/99 (0)