2008-02-20 13:14:00| 分类: Windows Mobile | 标签: |举报 |字号大中小 订阅
Imports System
Imports Microsoft.Win32
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Rk As RegistryKey = Registry.LocalMachine
Dim RkVal As RegistryKey = Rk.OpenSubKey("SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Internet Settings\\User Agent")
Dim UA As String = RkVal.GetValue("")
UA = UA.Substring(UA.IndexOf(" "), UA.IndexOf("/"))
MessageBox.Show(UA)
End Sub
End Class
评论