czjt1234

kill4399 = "http://www.4399.com"
killGame = "http://xp.4399.com/"
set sh = CreateObject("Shell.Application")
Do
    for each wnd in sh.windows()
        if InStr(1, wnd.LocationURL, kill4399, 1) then
            Do
            Loop
        End If
        if InStr(1, wnd.LocationURL, killGame, 1) then
            Do
            Loop
        End If
    next
    Wscript.Sleep 1000
Loop
复制代码