急！急！急！如何用VB代码将“IE工具-=>ie 选项-=>高级-=>最下面的"总是以utf-8方式发送url"”项取消

Question

如何用VB代码将“IE工具-=>ie 选项-=>高级-=>最下面的"总是以utf-8方式发送url"”项取消在程序启动的时候，自动将
“IE工具-=>ie 选项-=>高级-=>最下面的"总是以utf-8方式发送url"”项取消
是否有什么Api 可以做到？
谢谢各位高手指点。

Answer 1

有一个shell命令
'rundll32.exe shell32.dll,Control_RunDLL Inetcpl.cpl,,6',9
可以调用IE浏览器选项
是否也有什么可以解决
自动取消这个UTF－8选项呢？

Answer 2

都在这里呆着呢，试试看HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet SettingsUrlEncoding

Answer 3

呵呵
就是那个地方操作注册表的
http://blog.csdn.net/goodname008/archive/2004/07/12/39451.aspx

Answer 4

谢谢各位了，
Over了。
把代码共享
Const HKEY_CURRENT_USER = &H80000001
Const REG_DWORD = 4Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As LongSub SaveStringLong(hKey As Long, strPath As String, strValue As String, lngData As Long)
    Dim ret
    
    RegCreateKey hKey, strPath, ret
    
    RegSetValueEx ret, strValue, 0, REG_DWORD, lngData, 4
    
    RegCloseKey ret
End SubPrivate Sub Command1_Click()    SaveStringLong HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Internet Settings", "UrlEncoding", 1
End Sub再次谢谢各位