Access911.net   |   a9BBS   |   OTaA System  
  搜索文章:  
Access911欢迎您光临  
   主页      上传      繁體版       论坛     
设为首页  |  加入收藏   
  
你现在的位置:文章索引 -> 文章分类 -> VBA  
 首页|  近日更新|  下载  |  文章索引  |  搜索|  术语|  承接工程|  
 
系统正在加载内容,请耐心等待...
 
 查询
 窗体
 报表
 
 
 VBA
 函数
 ADO/DAO/ADO.NET
 API
 ADP
 安全
 发布
 OA
 ASP/ASP.NET
 其他语言
 控件
 DELPHI
 C#/.Net
 本站
 其他
 小例程
 常用软件
 参考文档
 业主作品
 网友大作
 
 
友情链接
 access911.net
 
访问人次
 1702611
 
站长 E-Mail
 net911@sina.com
 access911@gmail.com
 
RSS 订阅

显示附加信息 >>>

如何用access开一个ie窗口,然后再关闭?

作者:cg1  摘自:access911.net  :cg1  更新日期:2003-3-1  浏览人次:

 

Option Compare Database
'引用Microsoft Internet Control来实现对IE的调用
'原理:先用FindWindow找到程序窗体,然后用SendMessage向这个窗口应答。

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_SYSCOMMAND = &H112
Private Const SC_MINIMIZE = &HF020&
Private Const WM_CLOSE = &H10
Private Declare Function DestroyWindow Lib "user32" (ByVal hwnd As Long) As Long
Dim windowsH As Long

Private Sub open_mop()
    Dim ie As New InternetExplorer
    ie.Visible = True
    ie.Navigate "http://www.mopsite.com"
    SendMessage ie.hwnd, WM_SYSCOMMAND, SC_MINIMIZE, "&O"
    windowsH = ie.hwnd
    Debug.Print ie.hwnd

    'PostMessage ie.hwnd, WM_CLOSE, 0, 0        '关闭窗口

End Sub

Private Sub close_mop()
    a = FindWindow(vbNullString, "猫扑的大杂烩 - Microsoft Internet Explorer")
    Debug.Print a
    b = PostMessage(a, WM_CLOSE, 0, 0)
    Debug.Print b
End Sub


 

 
相关文章
     没有手动相关文章
     如何关闭一个进程
 
评论
     查看或发表更多的评论,请单击这里。
 
 
 
 
 
   
  Access911.net   |   a9BBS   |   OTaA System   |
建站日期:2000年4月2日  |  设计施工:陈格 ( access911 & cg1 )
 Copyright © 2000 - 2003 COMET, 陈格 保留所有权利