修改注册表
Dim OperationRegistry
Set OperationRegistry=WScript.CreateObject("WScript.Shell")
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1001",0,"REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1004",0,"REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1200",0,"REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1201",0,"REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\1405",0,"REG_DWORD"
OperationRegistry.RegWrite "HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\Zones\3\2201",0,"REG_DWORD"
Air Hogs Elite Helix X4遥控飞行器
http://www.cnblogs.com/zery/p/3438845.html