Кто нить может сказать почему не срабатывает Navigate? Код (Text): include 'win32ax.inc' section '.code' code readable writable executable include 'defines.inc' IEID GUID 0002DF01-0000-0000-C000-000000000046 BrowserID GUID D30C1661-CDAF-11D0-8A3E-00C04FC9E26E vVar VARIANT VT_EMPTY szUrl du 'http://microsoft.com',0 pIWebBrowser IWebBrowser2 entry $ invoke CoInitialize,0 invoke CoCreateInstance,IEID,0,CLSCTX_LOCAL_SERVER,BrowserID,pIWebBrowser test eax,eax jne .exit cominvk pIWebBrowser,put_Visible,1 cominvk pIWebBrowser,Navigate,szUrl,vVar,vVar,vVar,vVar invoke CoUninitialize .exit: invoke ExitProcess,0 defines.inc Код (Text): struc GUID def { match d1-d2-d3-d4-d5, def \{ .Data1 dd 0x\#d1 .Data2 dw 0x\#d2 .Data3 dw 0x\#d3 .Data4 db 0x\#d4 shr 8,0x\#d4 and 0FFh .Data5 db 0x\#d5 shr 40,0x\#d5 shr 32 and 0FFh,0x\#d5 shr 24 and 0FFh,0x\#d5 shr 16 and 0FFh,0x\#d5 shr 8 and 0FFh,0x\#d5 and 0FFh \} } CLSCTX_INPROC_SERVER = 0x1 CLSCTX_INPROC_HANDLER = 0x2 CLSCTX_LOCAL_SERVER = 0x4 CLSCTX_INPROC_SERVER16 = 0x8 CLSCTX_REMOTE_SERVER = 0x10 CLSCTX_INPROC_HANDLER16 = 0x20 CLSCTX_INPROC_SERVERX86 = 0x40 CLSCTX_INPROC_HANDLERX86 = 0x80 CLSCTX_ESERVER_HANDLER = 0x100 CLSCTX_NO_CODE_DOWNLOAD = 0x400 CLSCTX_NO_CUSTOM_MARSHAL = 0x1000 CLSCTX_ENABLE_CODE_DOWNLOAD = 0x2000 CLSCTX_NO_FAILURE_LOG = 0x4000 CLSCTX_DISABLE_AAA = 0x8000 CLSCTX_ENABLE_AAA = 0x10000 CLSCTX_FROM_DEFAULT_CONTEXT = 0x20000 CLSCTX_ALL = CLSCTX_INPROC_SERVER + CLSCTX_INPROC_HANDLER + CLSCTX_LOCAL_SERVER CLSCTX_INPROC = CLSCTX_INPROC_SERVER + CLSCTX_INPROC_HANDLER CLSCTX_SERVER = CLSCTX_INPROC_SERVER + CLSCTX_LOCAL_SERVER VT_EMPTY = 0 VT_NULL = 1 VT_I2 = 2 VT_I4 = 3 VT_R4 = 4 VT_R8 = 5 VT_CY = 6 VT_DATE = 7 VT_BSTR = 8 VT_DISPATCH = 9 VT_ERROR = 10 VT_BOOL = 11 VT_VARIANT = 12 VT_UNKNOWN = 13 VT_DECIMAL = 14 VT_I1 = 16 VT_UI1 = 17 VT_UI2 = 18 VT_UI4 = 19 VT_I8 = 20 VT_UI8 = 21 VT_INT = 22 VT_UINT = 23 VT_VOID = 24 VT_HRESULT = 25 VT_PTR = 26 VT_SAFEARRAY = 27 VT_CARRAY = 28 VT_USERDEFINED = 29 VT_LPSTR = 30 VT_LPWSTR = 31 VT_RECORD = 36 VT_FILETIME = 64 VT_BLOB = 65 VT_STREAM = 66 VT_STORAGE = 67 VT_STREAMED_OBJECT = 68 VT_STORED_OBJECT = 69 VT_BLOB_OBJECT = 70 VT_CF = 71 VT_CLSID = 72 VT_BSTR_BLOB = 0fffh VT_VECTOR = 1000h VT_ARRAY = 2000h VT_BYREF = 4000h VT_RESERVED = 8000h VT_ILLEGAL = 0ffffh VT_ILLEGALMASKED = 0fffh VT_TYPEMASK = 0fffh struct VARIANT vt dw ? wr1 dw ? wr2 dw ? wr3 dw ? union dvar dd ? vars rb 8 ends ends interface IWebBrowser2,\ QueryInterface,\ AddRef,\ Release,\ GetTypeInfoCount,\ GetTypeInfo,\ GetIDsOfNames,\ Invoke,\ GoBack,\ ;;; GoForward,\ GoHome,\ GoSearch,\ Navigate,\ Refresh,\ Refresh2,\ Stop,\ get_Application,\ get_Parent,\ get_Container,\ get_Document,\ get_TopLevelContainer,\ get_Type,\ get_Left,\ put_Left,\ get_Top,\ put_Top,\ get_Width,\ put_Width,\ get_Height,\ put_Height,\ get_LocationName,\ get_LocationURL,\ get_Busy,\ Quit,\ ;;;; ClientToWindow,\ PutProperty,\ GetProperty,\ get_Name,\ get_HWND,\ get_FullName,\ get_Path,\ get_Visible,\ put_Visible,\ get_StatusBar,\ put_StatusBar,\ get_StatusText,\ put_StatusText,\ get_ToolBar,\ put_ToolBar,\ get_MenuBar,\ put_MenuBar,\ get_FullScreen,\ put_FullScreen,\ Navigate2,\ ;;; QueryStatusW,\ ExecW,\ ShowBrowserBar,\ get_ReadyState,\ get_Offline,\ put_Offline,\ get_Silent,\ put_Silent,\ get_RegistaerAsBrowser,\ put_RegisterAsBrowser,\ get_RegistaerAsDropTarget,\ put_RegisterAsDropTarget,\ get_TheaterMode,\ put_TheaterMode,\ get_AddressBar,\ put_AddressBar,\ get_Resizable,\ put_Resizable
