# Re: 如何加入检查码

Posted by 小v on October 22, 1999 at 09:04:15:

In Reply to: 如何加入检查码 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

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

你可以新增一个module, 将检查函数放在module里:

Sub Main()
if CHECKCDKEY1() then
if CHECKCDKEY2() Then
form1.show
else
msgbox "xxxxx"
endif
else
msgbox "xxxxxx"
endif
end
End Sub

然后将该专案的启动件物设为Main()
注: 请将CHECKCDKEY1 CHECKCDKEY2 改成function, 检查成功就传回True, 否则传回False

Follow Ups: