新聞財經娛樂♬資訊 News Economy

 
I have one VBA  program with 2003 Excel which is working successfully  in one
of my Window XP computer. But when I try to run it on my other
Window XP computer that is not working at all since I found it never pass one
do loop statement like as follows , the loop is for deleteing all
IE browser windows before running other part of program, and all IE window handle  is found
by findwindow() API function.
When I'm debugging it  step by step with F8 function key and  going to findwindow() code area  that is working and window handle id is okay and matched to the target opening IE browser window

But when going to SendMessageString code, it never report any bug or error by VBA, and it can NOT
close the IE window broswer with hdlg ,window ID.

I don't know why it doesn't work on the second WIndow XP computer but it works
fine on the first computer both computer are installed with same IE and WIndow XP system(SP3 profession one computer  and home edition version on the other)
and same 2003 MS office(excel)


The only message I can have  when the SendMessageString code is running, it would sound one loud beep sound or tone on my speaker. So I suspect it is error , and other API function in my
program is working and never have beep sound on my speaker when it is running.

Please advise any suggestion
Other alternative for SendMessageString to close IE window in API function ?

Duncan

API function of SendMessageString is not working on the following code===================================================Private Declare Function SendMessageSTRING Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As LongPrivate Const WM_CLOSE = &H10Dim hdlg as longDo until hdlg=0hdlg=Findwindow("IEframe",vbNullString)debug.print hex(hdlg)SendMessageString hdlg, WM_CLOSE,0,0Loop                                  

1:2:3:4:5:6:7:8:9:10:11:

I would try the following on two machines to see if it works the same:

' DeclaresPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As LongPrivate Const WM_CLOSE = &H10' Code to insert wherever you have itDim hdlg as longhdlg = 1Do until hdlg = 0    hdlg = Findwindow("IEframe", vbNullString)    Debug.Print Hex(hdlg)    If hdlg <> 0 Then SendMessage hdlg, WM_CLOSE, 0, 0Loop                                          

1:2:3:4:5:6:7:8:9:10:11:12:13:14:15: