<<< 返回 access911.net 编程静态资料库索引页

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

 

作者:cg1  摘自:access911.net  录入:cg1  时间:2003-3-1  浏览人次:1369


专题地址:http://access911.net/fixhtm/72FABE1E11DC.htm 如果需要更详细的评论或说明,请点击该地址。

 

简述:用Access打开IE 窗口,然后再关闭的例子,当初我用来刷猫扑币的。

 


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
Priv.....................
...........

资料库随时有更新,欲查看最新详情请单击专题地址http://access911.net/fixhtm/72FABE1E11DC.htm

 


上一篇:如何用VB or VBA 读取excel所有数据?

下一篇:如何关闭一个进程

2017年2月22日生成静态资料