vb添加注册表项

用VB把这个.reg文件添加到注册表

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置]
"启动运行"=dword:00000001
"启动侦听"=dword:00000001
"启动最小化"=dword:00000001
"欢迎信息"="你Y又来了!!!"
"访问目录"="C:\\"
"密码"=""
"端口"=dword:00000015
"用户"="anon"
"线程数量"=dword:00000064
"退出信息"="再来揍死你!!!"
"创建目录"=dword:00000001
"删除文件"=dword:00000001
"下载文件"=dword:00000001
"文件更名"=dword:00000001
"文件上载"=dword:00000001

Sub regDim WshShell As ObjectSet WshShell = CreateObject("wscript.shell")With WshShell.regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\启动运行", "dword:00000001".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\启动侦听", "dword:00000001".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\启动最小化", "dword:00000001".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\欢迎信息", "你Y又来了!!!".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\访问目录", "C:\\".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\密码", "".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\端口", "dword:00000015".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\用户", "anon".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\线程数量", "dword:00000064".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\退出信息", "再来揍死你!!!".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\创建目录", "dword:00000001".regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\删除文件", “dword:00000001”.regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\下载文件", “dword:00000001”.regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\文件更名", “dword:00000001”.regwrite "HKEY_CURRENT_USER\Software\20cnFTP服务器\Vstart\设置\文件上载", “dword:00000001”'加入到注册表End Sub