IExplorer 例子

kjgmj

''
'' IExplorer example
''
#定义 UNICODE
#引用 "disphelper/disphelper.bi"
子程序 navigate( 传值 url 为 文本 )
DISPATCH_OBJ(ieApp)
dhInitialize( TRUE )
dhToggleExceptions( TRUE )
dhCreateObject( "InternetExplorer.Application", NULL, @ieApp )
dhPutValue( ieApp, "Visible = %b", TRUE )
dhCallMethod( ieApp, ".Navigate(%s)", url )
SAFE_RELEASE( ieApp )
dhUninitialize( TRUE )
结束 子程序

navigate "www.baidu.com"

使用了disphelper.rar 请在此下载