怎样向IE页面发消息？？

Question

我用sendmessage，不行。有别的方法吗

Answer 1

你怎么知道不行？请看：'最小化所有浏览器窗口
Option ExplicitPrivate 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 LongPrivate 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

Answer 2

发送消息肯定是可以，WINDOW本来就是基于消息的嘛。

Answer 3

恩，楼上的代码可以最小化浏览器窗口。但是，我的意思是给IE页面发消息，IE页面是浏览器的一个子窗口，含有文本，提交按钮，超链接什么的。这是IE页面窗口。现在很多IM软件（如 旺旺）聊天窗口使用了IE页面，怎么把消息发到这种窗口里面啊。sendmessage hwd,WM_SETTEXT,0,"dddd"
实现不了

Answer 4

你的 hwd 是什么？你要往哪里写？