VB2010编程新手求助

实现：
1.将Form1的AllowDrop设为True以允许读取文件

2.在Form1的DragEnter事件中，写入以下代码

If e.Data.GetDataPresent(DataFormats.FileDrop) Then '确认是文件
DIm path As String = CType(e.Data.GetData(DataFormats.FileDrop), String())(0) ‘获取路径
If path.EndsWith(".txt") Then '确认是文本文件
Dim FileData As String() = System.IO.File.ReadAllLines(path, _
System.Text.Encoding.Default) '读取数据

Dim cacheAddress As String = "" '定义变量：缓存地址
Dim url As String = "" '定义变量：打开的网页地址

For each str as String In FileData '遍历数据
If str.StartsWith("缓存") Then '确认为缓存地址
cacheAddress = str.Replace("缓存","")
End If
If str.StartsWith("网页") Then '确认为网页地址
url = str.Replace("网页","")
End If

'设置缓存地址
My.Computer.Registry.SetValue _
( "HKEY_USERS\.DEFAULT\Software\Microsoft\Windows\CurrentVersion\" & _
"Explorer\User Shell Folders","Cache", cacheAddress , _
Microsoft.Win32.RegistryValueKind.ExpandString)

' 打开网页
Webbrowser1.Navigate(url)
完

（外部文件）拖拽事件：
VB6里用OleDragDrop
至于VB.Net应该也一样吧。

DragDrop后打开txt文档，然后WB Navigate那个网页就行了。
至于改变缓存地址，修改注册表应该能实现吧