Option Explicit
Dim OBJ_FSO
Dim OBJ_Browser
Dim STR_ProgramName
Set OBJ_FSO = CreateObject("Scripting.FileSystemObject")
For Each OBJ_Browser In CreateObject("Shell.Application").Windows
STR_ProgramName = OBJ_FSO.GetFileName(OBJ_Browser.FullName)
If LCase(STR_ProgramName) = "iexplore.exe" Then
WScript.Echo OBJ_Browser.LocationURL
End If
Next
Scriptのダウンロードは こちら です。
m4m chat phone free rochester ny gay says:
naked gay chat rooms https://newgaychat.com/
2022/09/03, 07:48gay chat free no cost says:
free gay chat fcn free chat network https://gaychatcams.net/
2022/09/03, 13:11snap chat gay shoutouts says:
boy self sucking chat room gay chum’s brother calhoun couldn’t stop https://gaychatspots.com/
2022/09/03, 16:31free sacramento gay chat says:
free gay chat rooms https://gay-live-chat.net/
2022/09/03, 19:59gay masturbation chat says:
free gay adult chat https://chatcongays.com/
2022/09/04, 02:47whosaguy gay chat room says:
geek gay chat https://gayphillychat.com/
2022/09/04, 09:18gay video cam chat broadcast self says:
gay chat rooms phoenix https://gaychatnorules.com/
2022/09/04, 12:54free gay chat says:
gay boy teen webcam chat https://gaymusclechatrooms.com/
2022/09/04, 17:39gay web chat rooms says:
free cookeville tn gay chat rooms https://free-gay-sex-chat.com/
2022/09/04, 20:49with midnight raids and chat-room traps, egypt launches sweeping crackdown on gay community says:
gay chat free no cost https://gayinteracialchat.com/
2022/09/05, 04:44