问题：给我个教程的地址


最好答案：表网站大全 蓝色在线――注册表中转站 * 本站是1个关于注册表的综合***,站长每天从internet及各大电脑报刊,杂志,网站收罗注册表的精华内容,博采众长.现收集有win98,winnt,win[本站原创]常维护技巧,注册表维护,硬盘维护及网上免费赚钱等. VAST星际战队 * 星际文化 星际下载 星际补丁 版本升级 游戏文化 注册表下载 星际联赛。电脑技巧 * 黑客初步,网吧攻防,收费系统破解,windows技巧,注册表技巧,软件推荐! 小菜园子 * flash动画,oicq贴图,人物彩色绘画,精彩屏保,注册表,心理测试,恶作剧. 小霖的个人主页 * 本网站是1个有关西班牙风情和注册表的网站. 阳光地带 * 供给c语言、dreamweaver教程、GIF素材库注册表。无言感激――千禧绝版 * 网友照片,婚配测试,恋爱测试,星座运程,足球世界,注册表,dhtml,javascript,css,表情故事心叶办公室 * 注册表修改网上城居民用电视机直销 * 接待您光临电视机直销广场，购物时请输入您的注册名和暗码。如果您是初次光临，请您先填写注册表格，以便我们将您的信息存入数据库。小小主页 * 本网页主要是介绍一些操作系统的基础知识,施用方面的小技巧,注册表的修改,各类操作系统的命令详解,硬件、名词、缩简语的详解,一些趣闻, NetBook * 计算机专业图书下载、精品软件、windows注册表修改技巧


其他回答1： 这是设自动运行的注册表子程序 以作参考
先引用 c:/windows/system32/wshom.ocx
Private Sub SetAutoRun(ByVal Autorun As Boolean)
Dim WshShell As New WshShell
If Autorun Then
WshShell.RegWrite "自由贸易港CU/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/POSTOOL", App.Path & "/" & App.EXEName & ".exe"
Else
WshShell.RegDelete "自由贸易港CU/SOFTWARE/Microsoft/Windows/CurrentVersion/Run/POSTOOL"
End If
Set WshShell = Nothing
End Sub