pink鯖の宣伝書き込みを何とかしてくれ

>>135
URLにpinktower.comが含まれなければ大丈夫ってことなんですか？
それじゃime.nuバスターを書き換えてpinktower.comバスター作ったので
これを試してみては？使い方はIEMenuExtで。

<script language="VBScript">
' pinktower.comを外してジャンプ
' Ver. 1.00
' Copyright (C) 2001 geroimo.

Dim strUrl
Dim objEvent
Dim objEventElement

'On Error Resume Next
Set objEvent = external.menuArguments.event
Set objEventElement = external.menuArguments.document.elementFromPoint(objEvent.clientX, objEvent.clientY)

strUrl = objEventElement.href
if InStr(strUrl,"http://pinktower.com")<>0 then
strUrl = "http://" & Right(strUrl,Len(strUrl)-21)
external.menuArguments.open strUrl
Else
external.menuArguments.open strUrl
End if
</script>