愿意和我做友情链接的，请发消息！
小小的一个空间，闲暇的时候贴上一篇，有兴趣的可以一睹！

PS：貌似写外挂是那么回事！、、

老东西了。。。收藏下！

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwP

比如你想看getmodulefilenamea这个函数的原型
只要按住ctrl然后点击就可以看到了！
function GetModuleFileNameA; external kernel32 name 'GetModuleFileNameA';
function GetModuleFileNameW; external kernel32 name 'GetModuleFileNameW';

-------------
网络看到的一些FLASH播放器，或者说是FLASH控件编程做得很简单，基本上不支持拖放，于是自己动手了下，找了相关资料！
-----------------

THE CODE：
Private Sub Command1_Click()
Dim FileNameD As String
CommonDialog1.ShowOpen
      FileNameD = CommonDialog1.FileName
     If FileNameD = "" Then
     Exit Sub
     Else
   

要做课程设计啊！
那可是头疼的事情，画图（PROE）+原理（热处理+强度+尺寸）！
喜欢机械设计的朋友可以与我讨论哦。
呵呵。

模块：
Option Explicit
Private Declare Function CreateToolhelp32Snapshot Lib "kernel32" (ByVal dwFlags As Long, ByVal th32ProcessID As Long) As Long
Private Declare Function Process32First Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Private Declare Function Process32Next Lib "kernel32" (ByVal hSnapShot As Long, lppe As PROCESSENTRY32) As Long
Public Declare Function TerminateProcess Lib "kernel32" (

转载标明来处：http://hi.baidu.com/cfan_/blog/item/bed8601b9ac837f0ae513344.html
废话不多说了，把你的net framework什么版本都卸载了，然后卸载你的CAD，删除临时目录下的AUTODESK文件夹，重启电脑，重新安装CAD。
OK，一切解决！

昨天看见了甲壳虫那里关于远程控制的免杀，其中用加密字符串来躲过杀软，还有个叫“小坏”的发了个远控的源码，里面有个“JIEMIDE“的函数，居然删除了，起始加密函数都差不多，我们只要自己写个就可以，现在到网上收集几个，还有那灰鸽子里面有个加密的模块，也可以调用，奇怪的是，我昨天找了FF115那个远控里的加密函数，试验了点东西，我的卡巴2010版居然报毒呵呵！看来要自己写加密函数了。

这里就收集几个，大家自己去扩展思路吧！

PS:常用函数不记得~

一、数据类型转换函数

　　在我们编写程序当中，根据不同情况，会使用到多种数据类型。当要对不同的类型进行操作时，必须要将不同的类型转换成同样的类型。因此熟练地掌握数据类型的转换是非常重要的。

　　1.FloatToStr

　　功能说明：该函数用于将“浮点型”转换成“字符型”。

　　参考实例：

　　Edit1.Text := FloatToStr(1.981);