怎样向IE页面发消息??

xmsheji 2009-03-22 03:15:40
我用sendmessage,不行。

有别的方法吗
...全文
336 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
of123 2009-03-23
  • 打赏
  • 举报
回复
你的 hwd 是什么?你要往哪里写?

xmsheji 2009-03-22
  • 打赏
  • 举报
回复
恩,楼上的代码可以最小化浏览器窗口。

但是,我的意思是给IE页面发消息,IE页面是浏览器的一个子窗口,含有文本,提交按钮,超链接什么的。这是IE页面窗口。

现在很多IM软件(如 旺旺)聊天窗口使用了IE页面,怎么把消息发到这种窗口里面啊。

sendmessage hwd,WM_SETTEXT,0,"dddd"
实现不了
HtSoft 2009-03-22
  • 打赏
  • 举报
回复
发送消息肯定是可以,WINDOW本来就是基于消息的嘛。
东方之珠 2009-03-22
  • 打赏
  • 举报
回复
[Quote=引用楼主 xmsheji 的帖子:]
我用sendmessage,不行。

有别的方法吗
[/Quote]

你怎么知道不行?请看:

'最小化所有浏览器窗口
Option Explicit

Private Const WM_SYSCOMMAND = &H112
Private Const SC_MINIMIZE = &HF020&

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) 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 Sub Command1_Click()
Dim lPrev As Long, lIE As Long
lPrev = 0
lIE = FindWindow("IEFrame", vbNullString)
While (lIE <> 0) And (lIE <> lPrev)
SendMessage lIE, WM_SYSCOMMAND, SC_MINIMIZE, 0
lPrev = lIE
lIE = FindWindow("IEFrame", vbNullString)
Wend
End Sub
esunhrh 2009-03-22
  • 打赏
  • 举报
回复
不太清楚,帮顶
是不是要用到句柄什么的

1,488

社区成员

发帖
与我相关
我的任务
社区描述
VB API
社区管理员
  • API
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧