İnternet Sayfası

[mehmetemintatli]

Merhabalar

Açıkta duran tüm internet sayfalarını nasıl kapatabilirim ?

Teşekkürler

Mehmet Emin TATLI

 

[Haluk]

Merhaba;

İnternet tarayıcısı olarak Internet Explorer kullanıyorsanız;

Sub Test()
    '
    'Raider ®
    '
    Dim Prog As Object
    Dim objWMIService As Object
    Dim RunningProcesses As Object
    strComputerName = "."
    strNameSpace = "root\cimv2"
    strClassName = "win32_process "
    On Error Resume Next
    If Err.Number <> 0 Then
        MsgBox "WMI yüklenmemis,! Programdan cikilacak...", vbExclamation, "Windows Management Instrumentation"
        Exit Sub
        On Error GoTo 0
    End If
    Set objWMIService = GetObject("winmgmts:\\" & strComputerName & "\" & strNameSpace)
    Set RunningProcesses = objWMIService.ExecQuery("Select * from " & strClassName)
    For Each Prog In RunningProcesses
        If LCase(Prog.Name) Like "iexplor*" Then Prog.terminate
    Next
End Sub