📄 20513.html

📁 VB技巧问答10000例 VB技巧问答10000例
💻 HTML
字号:
<html>  <head>    <title>Re: 如何加入检查码</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>Re: 如何加入检查码</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 小v on October 22, 1999 at 09:04:15:<p>In Reply to: <a href="20496.html">如何加入检查码</a> posted by kenmy on October 21, 1999 at 21:09:00:<p>: 如何加入检查码<br>: 例如：<p>: 我将以下的程式码编辑成 ABC.EXE，但是我想在这个档案执行时<br>: 去 RUN 检查程式，但是我不晓得要加在哪里所以贴出例题请前辈<br>: 们帮我解惑一下谢谢！<p>: ●●主程式●●<p>: Private Sub Command1_Click()<br>: A$ = Left$(App.Path, 2) + "程式的目录"<br>: myShellExecute 0, lpOperation_open, "执行档名", , A$<br>: Unload Form1<br>: End Sub<p>: Private Sub Command2_Click()<br>: Shell "说明文件"<br>: ret = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)<br>: End Sub<p>: Private Sub Command3_Click()<br>: Unload Form1 <br>: End Sub<p>: Private Sub Form_Load()<br>: ret = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)<br>: End Sub<p>: ●●检查程式●●<p>: Sub CHECKCDKEY1()<br>: B$ = Left$(App.Path, 2) + "程式的目录"<br>: On Error GoTo 12345<br>: Open " BMP 档" For Binary As #1 '检查是否有这个档案<br>: Close #1<br>: Call CHECKCDKEY2 '档案找到了，但要检查是否坏了<br>: Exit Sub<p>: 12345: '根本没有这个档案<br>: MsgBox "请支持原版软体！"<br>: Unload Form1<br>: End<br>: End Sub<p>: Sub CHECKCDKEY2() '确认档案是否坏了的复程式<br>: B$ = Left$(App.Path, 2) + "程式的目录"<br>: Dim TEMP As Byte<br>: On Error GoTo KEYFOUND <br>: Open " BMP 档" For Binary As #1<br>: Get #1, 3000, TEMP<br>: MsgBox "请支持原版软体！"<br>: Unload Form1<br>: End<br>: Close #1<br>: Exit Sub<p>: KEYFOUND:<br>: (但是我想再加入一个副程式要开档成功才是正版，并且确认无误之<br>:  后才执行主程式)<br>: End Sub<p>: 小弟请前辈们赐教了拜托！拜托！<p>你可以新增一个module, 将检查函数放在module里:<p>Sub Main()<br>if CHECKCDKEY1() then<br>   if CHECKCDKEY2() Then<br>      form1.show<br>   else<br>      msgbox "xxxxx"<br>   endif<br>else<br>   msgbox "xxxxxx"<br>endif<br>end<br>End Sub<p> 然后将该专案的启动件物设为Main()<br>注: 请将CHECKCDKEY1 CHECKCDKEY2 改成function, 检查成功就传回True, 否则传回False<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20513--></ul><!--end: 20513--><br><hr size=7 width=75%><p></body></html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -