20496.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 26 行
HTML
26 行
<html> <head> <title>如何加入检查码</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>如何加入检查码</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:kenmy@love.sina.com.tw">kenmy</a> 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>小弟请前辈们赐教了拜托！拜托！<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20496--><!--top: 20513--><li><a href="20513.html">Re: 如何加入检查码</a> <b>小v</b> <i>09:04:15 10/22/99</i>(<!--responses: 20513-->0)<ul><!--insert: 20513--></ul><!--end: 20513--></ul><!--end: 20496--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?