好的,我得到了第一部分。这只是一个注册表值。
Imports Microsoft.Win32
和实际的代码:
Dim siteString As String = "mysite.com"
Dim emptyArray() As Byte = New Byte() {} 'Works as a Zero-Length Binary Value'
Dim subKey As String = "Software\Microsoft\Internet Explorer\New Windows\Allow"
Dim rkKey As RegistryKey = Registry.CurrentUser.OpenSubKey(subKey)
Dim value As Object = rkKey.GetValue(siteString)
If value Is Nothing Then 'Check if the value is already there'
rkKey.SetValue(siteString, emptyArray, RegistryValueKind.Binary)
End If
它也适用于多个版本的 IE 和 Windows。
有人对 Google 工具栏弹出窗口拦截器有任何想法吗?
附言。很抱歉关闭单引号,但这只是让它看起来更好。