云外归鸟工作室网站

标题: IExplorer 例子 [打印本页]

作者: kjgmj 时间: 2011-1-19 11:09
标题: IExplorer 例子
本帖最后由 kjgmj 于 2011-4-5 20:17 编辑

''
'' 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 请在此下载

欢迎光临云外归鸟工作室网站 (http://www.ywgn.net/)