📄 lesson1511.htm
字号:
<html>
<head>
<title>看雪学苑</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
.p8 { font-size: 8pt}
.p9 { font-size: 9pt}
a:hover { color: #00FF00}
a { text-decoration: none}
.p12 { font-size: 12pt; font-weight: bold; color: #FF3333}
-->
</style>
</head>
<body bgcolor="#FFFFFF" text="#000000" link="#3366FF" vlink="#3366FF" alink="#000000">
<a name="top"></a>
<script src="fubiao.js" tppabs="http://toye.dihou.org/img/fubiao.js"></script>
<table width="80%" border="1" cellspacing="0" cellpadding="0" align="center" bgcolor="#99CCFF" bordercolorlight="#99CCFF" bordercolordark="#99CCFF">
<tr>
<td width="72%" class="p9"><a href="javascript:if(confirm('http://toye.yeah.net/ \n\n这个文件不能通过 Teleport Pro 取回, 因为 它被访问于一个域或在它的起始地址边界外部的路径上. \n\n你想从服务器打开它吗?'))window.location='http://toye.yeah.net/'" tppabs="http://toye.yeah.net/">看雪教学</a></td>
<td width="10%" class="p9"> </td>
<td width="10%"><a href="index.htm" tppabs="http://toye.dihou.org/index.htm" class="p9">返回<br>
首页 <br>
</a></td>
<td width="8%"><a href="molu.htm" tppabs="http://toye.dihou.org/molu.htm" class="p9">返回<br>
目录 </a></td>
</tr>
</table>
<table width="80%" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="#FFFF33">
<td>
<div align="center"><span class="p"><span class="p"><span class="p12">第十三课<font color="#FF3333">
<b>Visual Basic程序</b></font></span></span><span class="p12"></span></span></div>
</td>
</tr>
</table>
<table width="80%" cellspacing="0" align="center">
<tr class="p9">
<td width="25%" bgcolor="#CCFFFF">
<div align="center"><a href="lesson1510.htm" tppabs="http://toye.dihou.org/lesson1510.htm">解释语言介绍</a></div>
</td>
<td width="25%" bgcolor="#FFFFFF">
<div align="center">用SOFTICE</div>
</td>
<td width="25%" bgcolor="#CCFFFF">
<div align="center"><a href="lesson1521.htm" tppabs="http://toye.dihou.org/lesson1521.htm">用SmartCheck</a></div>
</td>
<td colspan="2" bgcolor="#CCFFFF" width="25%">
<div align="center"></div>
<div align="center"><a href="lesson1531.htm" tppabs="http://toye.dihou.org/lesson1531.htm">习题</a></div>
</td>
</tr>
</table>
<table width="80%" cellspacing="0" align="center" border="0">
<tr class="p9">
<td height="8" width="32%">
<div align="center">①<font color="#FF6699">VB程序crack理论</font></div>
</td>
<td height="8" width="35%">
<div align="center">②<font color="#000000"><a href="lesson1512.htm" tppabs="http://toye.dihou.org/lesson1512.htm">razzia
破解教学</a></font></div>
</td>
<td height="8" width="33%">
<div align="center">③<font color="#000000"><a href="lesson1513.htm" tppabs="http://toye.dihou.org/lesson1513.htm">VB拆解教程</a></font></div>
</td>
</tr>
</table>
<p><span class="p9"><font face="Times New Roman" color="#FF3366"><font color="#000000">一、<a href="#1">SOFTICE配制</a></font></font><font color="#000000"><u><font face="宋体"><br>
</font></u></font></span><font color="#000000"><span class="p9"><font face="Times New Roman">二、VB dll</font>
<font face="宋体">常用函数</font></span><br>
<span class="p9"><font face="Times New Roman"> 1</font> <font face="宋体">、<a href="#21">字符处理函数</a></font></span><br>
<span class="p9"><font color="#000000"><span class="p9"><font face="Times New Roman"> </font></span></font><font face="Times New Roman">2</font>
<font face="宋体">、<a href="#22">警告窗口函数</a></font><a href="#22"> </a></span><br>
<span class="p9"><font face="Times New Roman">三、<a href="#3">VB字串格式</a></font>
<br>
四、<a href="#4">oleaut32.dll<span class="p9">简介 </span></a><br>
</span><font face="Times New Roman"><span class="p9"><span class="p9">五、<a href="#5">Visual Basic
程序比较方法</a></span></span></font><a href="#5"></a></font></p>
<p><font color="#000000"><span class="p9"><font face="Times New Roman"><u><b><font color="#FF3366"><a name="1"></a>一、SOFTICE</font></b></u></font><font color="#FF3366"><b><u><font face="宋体">
配制</font> </u></b></font></span></font></p>
<p> <span class="p9"><font face="宋体" color="#000000"> 虽然大部分</font> <font face="Times New Roman" color="#000000">VB</font>
<font face="宋体" color="#000000">程序仍调用</font> <font face="Times New Roman" color="#000000">Win32 API</font>
<font face="宋体" color="#000000">函数，但如想在</font> <font face="Times New Roman" color="#000000">VB dll</font>
<font face="宋体" color="#000000">运行库中设断的话，你就必须把</font> <font face="Times New Roman" color="#000000">VB dll</font>
<font face="宋体" color="#000000">运行库加入</font> <font face="Times New Roman" color="#000000">SOFTICE</font>
<font face="宋体" color="#000000">配制里去。具体你可参考第五课中的《</font> <font face="Times New Roman" color="#000000">SOFTICE</font>
<font face="宋体" color="#000000">安装及使用》。</font> </span></p>
<p> <span class="p9"><font face="宋体" color="#000000">下例是在</font> <font face="Times New Roman" color="#000000">win95/98</font>
<font face="宋体" color="#000000">下你把相关的</font> <font face="Times New Roman" color="#000000">VB DLL</font>
<font face="宋体" color="#000000">运行库加入</font> <font face="Times New Roman" color="#000000">winice.dat</font>
<font face="宋体" color="#000000">配制文件里。</font> <font face="Times New Roman" color="#000000">(</font>
<font face="宋体" color="#000000">部分</font> <font face="Times New Roman" color="#000000">)</font>
</span></p>
<p> </p>
<p> <span class="p9"><font face="Times New Roman" color="#000000">;</font> <font face="宋体" color="#000000">注意分号后是描述语言，不被执行。每次只装载需要的一种</font>
<font face="Times New Roman" color="#000000">VB dll</font> <font face="宋体" color="#000000">，最好不要同时装载两个以上，把要装载那种</font>
<font face="Times New Roman" color="#000000">VB dll</font> <font face="宋体" color="#000000">那一行的分号去掉，重新启动即可。另外，判断软件是何种</font>
<font face="Times New Roman" color="#000000">VB dll</font> <font face="宋体" color="#000000">有几种方法，最直接一种用</font>
<font face="Times New Roman" color="#000000">WDasm89</font> <font face="宋体" color="#000000">查看，还有一种方法是用十六进制工具打开程序观察。或用</font>
<font face="Times New Roman" color="#000000">SOFTICE</font> <font face="宋体" color="#000000">跟进去（用</font>
<font face="Times New Roman" color="#000000">bpx hmemcpy)</font> <font face="宋体" color="#000000">，稍转一圈，你观察一下调试窗口领空处会出现何种</font>
<font face="Times New Roman" color="#000000">VB DLL</font> <font face="宋体" color="#000000">即可。</font>
</span></p>
<table width="100%" cellspacing="0" align="center">
<tr bgcolor="#F2FFFF">
<td>
<p><span class="p9"><font face="Times New Roman" color="#000000">; EXP=c:\windows\system\msvbvm60.dll ; Visual Basic 6</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">;
EXP=c:\windows\system\msvbvm50.dll ; Visual Basic 5</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">; EXP=c:\windows\system\vb40032.dll ; Visual Basic 4(32-bit)</font>
<br>
</span><span class="p9"><font face="Times New Roman" color="#000000">; EXP=c:\windows\system\vb40016.dll
;Visual Basic 4(16-bit)</font> <font face="宋体" color="#000000">较少见</font>
<font face="Times New Roman" color="#000000"> </font> <br>
</span><span class="p9"><font face="Times New Roman" color="#000000">; EXP=c:\windows\system\vbrun300.dll
; Visual Basic 3</font> </span></p>
<p></p>
</td>
</tr>
</table>
<p> <span class="p9"><font face="Times New Roman" color="#000000"> </font>
</span><span class="p9"><font face="宋体" color="#000000">这样配制好后，重新启动，就可设</font>
<font face="Times New Roman" color="#000000">VB</font> <font face="宋体" color="#000000">运行库中各函数的断点了。</font></span>
</p>
<p> <span class="p9"><font face="Times New Roman" color="#000000">--------------------------------------------------------------------------------</font>
</span> </p>
<p> <b><font color="#FF3366"><span class="p9"><font face="Times New Roman"><u>二、VB dll</u></font>
<u><font face="宋体">常用函数</font></u></span></font></b></p>
<p> <span class="p9"><font face="Times New Roman" color="#0000FF"><a name="21"></a>1</font>
<font face="宋体" color="#0000FF">、字符处理</font><font color="#0000FF">函数</font>
</span></p>
<p class="p9"> <span class="p9"><font face="Times New Roman" color="#000000">MultiByteToWideChar, rtcR8ValFromBstr, WideCharToMultiByte, __vbaStrCmp, __vbaStrComp, __vbaStrCopy, __vbaStrMove, __vbaVarTstNe .</font>
</span></p>
<p> <span class="p9"><font face="宋体" color="#000000"><b><span class="p8">注意:这些函数前的下划线</span></b></font>
<span class="p8"><b><font face="Times New Roman" color="#000000">__</font> <font face="宋体" color="#000000">是由两根短线</font>
<font face="Times New Roman" color="#000000">_</font> <font face="宋体" color="#000000">组成的，不要弄错。</font>
<font face="宋体" color="#000000">如果你是</font> <font face="Times New Roman" color="#000000">crack VB6</font>
<font face="宋体" color="#000000">程序，你应在断点前增加</font> <font face="Times New Roman" color="#000000">msvbvm60!</font>
<font face="宋体" color="#000000">。</font> </b></span></span><span class="p8"><b><font color="#000000"><span class="p9"><font face="宋体">如：</font>
<font face="Times New Roman"> bpx msvbvm60!__vbastrcomp </font></span></font></b></span></p>
<p> </p>
<p> <span class="p9"><font face="宋体" color="#000000">一些常用字符串函数</font>：</span></p>
<table width="100%" cellspacing="0" bordercolorlight="#666666" bordercolordark="#FFFFFF" bgcolor="#EBEBEB" border="1">
<tr>
<td width="14%"><span class="p9"><font face="Times New Roman" color="#FF3366">Val()</font></span></td>
<td width="36%"><span class="p9"><font face="宋体" color="#000000">转换字符串为数字</font></span></td>
<td width="12%"><span class="p9"><font face="Times New Roman" color="#FF3399">Rtrim$()</font><font face="Times New Roman" color="#000000"></font></span></td>
<td width="38%"><span class="p9"><font face="宋体" color="#000000">去除字符串左边空格</font></span></td>
</tr>
<tr>
<td width="14%"><span class="p9"><font face="Times New Roman" color="#FF3399">Str$()</font><font face="Times New Roman" color="#000000"> </font></span></td>
<td width="36%"><span class="p9"><font face="宋体" color="#000000">转换数字为字符串</font></span></td>
<td width="12%"><span class="p9"><font face="Times New Roman" color="#FF3399">Trim$()</font></span></td>
<td width="38%"><span class="p9"><font face="宋体" color="#000000">去除字符串两边空格</font></span></td>
</tr>
<tr>
<td width="14%"><span class="p9"><font face="Times New Roman" color="#FF3399">Left$()</font><font face="Times New Roman" color="#000000"> </font></span></td>
<td width="36%"><span class="p9"><font face="宋体" color="#000000">按要求从左取字符。例如：</font>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -