close window

[flume]

I dont know much about Visual Basic, but here is what I have:

Sub Macro1()

For x = 1 To 10
ActiveDocument.FollowHyperlink Address:="http://www.spftservers.com", _
NewWindow:=False, AddHistory:=True

Next x

End

End Sub

That basicallly opens up an internet explorer window during the loop. What I want it to do is close that internet explorer window after it is opened. Also, I would preferably like it to wait 2 seconds before closing the window. I need the code for the program since I dont know much. Thank you.

Here is what my total program is to do, so if you can write better code...:

1. Open a new Mozilla/Internet Window
2. Go to a certain website
3. **Optional** Wait 5 seconds
3. Close that Window
4. Have a loop with a certain amount runs

Thanks

[RobDog888]

Welcome to the Forums.

Are you doing this in Word's VBA?

[flume]

yes i am

[RobDog888]

Why do you need it to open to the same url many times?

[flume]

im running a test for my network, and then my office.

[RobDog888]

Looks like your going to have to use some APIs to FindWindow of the correct browser instance and then PostMessage to close it. You can download the API declarations from allapi.net for the API Viewer utility.

[flume]

how do i do those? sorry im a beginner at this

[flume]

ok i got both of these could someone please help me put it together

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long


Declare Function CloseWindow Lib "user32.dll" ( _
ByVal hwnd As Long) As Long

[RobDog888]

The class name for IE is "IEFrame" so it depends on the browser your looking to close. Is it IE or FF or ??

[flume]

OK i have this:

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long

Declare Function FindWindowEx Lib "user32.dll" Alias "FindWindowExA" ( _
ByVal hWnd1 As Long, _
ByVal hWnd2 As Long, _
ByVal lpsz1 As String, _
ByVal lpsz2 As String) As Long

Declare Function CloseWindow Lib "user32.dll" ( _
ByVal hWnd As Long) As Long



Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/4/2006 by yes
'
For y = 1 To 10

For x = 1 To 1000
ActiveDocument.FollowHyperlink Address:="http://www.spftservers.com", _
NewWindow:=True, AddHistory:=True

Dim lIEFramehWnd As Long
lIEFramehWnd = FindWindow("IEFrame", vbNullString)




Next x

Next y

End

This should find the IE window, now how do i close it?

[RobDog888]

You dont need the FindWindowEx as its only for child windows.

Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" ( _
ByVal lpClassName As String, _
ByVal lpWindowName As String) As Long
 
Declare Function CloseWindow Lib "user32.dll" ( _
ByVal hWnd As Long) As Long
 
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
 
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 1/4/2006 by yes
'
Dim lIEFramehWnd As Long
 
For y = 1 To 10
    For x = 1 To 1000
        ActiveDocument.FollowHyperlink Address:="http://www.spftservers.com", _
        NewWindow:=True, AddHistory:=True
        'Make a pause
        Sleep 5000
        lIEFramehWnd = FindWindow("IEFrame", vbNullString)
        If lIEFramehWnd <> 0 Then
            CloseWindow lIEFramehWnd
        Else
            MsgBox "Cant Find IE"
        End If
    Next
Next
 
End

[flume]

ok its working, but except for closing them, its just minimizing them

[RobDog888]

I was unsure about that API but the PostMessage that I originally suggested will work.

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
ByVal wParam As Long, ByVal lParam As Long) As Long
 
Private Const WM_QUIT As Long = &H12
Private Const WM_CLOSE As Long = &H10
 
'Example usage
PostMessage lIEFramehWnd, WM_QUIT, 0&, 0&
 
'Or
PostMessage lIEFramehWnd, WM_CLOSE, 0&, 0&