Imports Microsoft.Win32
Public Class Form1
Public Declare Function internetsetoption Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hinternet As Integer, ByVal dwoption As Integer, ByRef lpbuffer As Integer, ByVal dwbufferlength As Integer) As Integer
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As IntPtr, ByVal msg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer
Const INTERNET_OPTION_SETTINGS_CHANGED = 39
Const HWND_BROADCAST = 65535 '&HFFFF&
Const WM_SETTINGCHANGE = 26 ' &H1A&
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Reg As RegistryKey = Registry.CurrentUser.OpenSubKey("Software\Microsoft\Windows\CurrentVersion\Explorer\User Shell Folders", True)
Dim Cookie目录_IE As String = Reg.GetValue("Cookies")
Reg.SetValue("Cookies", "1111")
System.Threading.Thread.Sleep(200)
internetsetoption(INTERNET_OPTION_SETTINGS_CHANGED, 0, 0, 0)
Dim 测试结果 = IIf(SendMessage(Me.Handle, WM_SETTINGCHANGE, 0, 0) = 0, "失败", "成功")
System.Threading.Thread.Sleep(200)
MsgBox(测试结果)
Reg.SetValue("Cookies", Cookie目录_IE) '恢复Cookies存放目录
End Sub
End Class