这个东东的作用是为了清理域名的COOKIE!Func _IEEx_ClearCookie($_object, $_mode = 0)
Local $_url
If IsObj($_object) Then
$_url = $_object.locationurl
Else
$_url = $_object
EndIf
$_url = StringRegExp($_url, '(https?://).*?([^\.\?\+:/]++(?:\.cn|\.com|\.edu|\.gov|\.int|\.mil|\.net|\.org|\.biz|\.info|\.pro|\.name|\.museum|\.coop|\.aero|\.xxx|\.idv|\.al|\.dz|\.af|\.ar|\.ae|\.aw|\.om|\.az|\.eg|\.et|\.ie|\.ee|\.ad|\.ao|\.ai|\.ag|\.at|\.au|\.mo|\.bb|\.pg|\.bs|\.pk|\.py|\.ps|\.bh|\.pa|\.br|\.by|\.bm|\.bg|\.mp|\.bj|\.be|\.is|\.pr|\.ba|\.pl|\.bo|\.bz|\.bw|\.bt|\.bf|\.bi|\.bv|\.kp|\.gq|\.dk|\.de|\.tl|\.tp|\.tg|\.dm|\.do|\.ru|\.ec|\.er|\.fr|\.fo|\.pf|\.gf|\.tf|\.va|\.ph|\.fj|\.fi|\.cv|\.fk|\.gm|\.cg|\.cd|\.co|\.cr|\.gg|\.gd|\.gl|\.ge|\.cu|\.gp|\.gu|\.gy|\.kz|\.ht|\.kr|\.nl|\.an|\.hm|\.hn|\.ki|\.dj|\.kg|\.gn|\.gw|\.ca|\.gh|\.ga|\.kh|\.cz|\.zw|\.cm|\.qa|\.ky|\.km|\.ci|\.kw|\.cc|\.hr|\.ke|\.ck|\.lv|\.ls|\.la|\.lb|\.lt|\.lr|\.ly|\.li|\.re|\.lu|\.rw|\.ro|\.mg|\.im|\.mv|\.mt|\.mw|\.my|\.ml|\.mk|\.mh|\.mq|\.yt|\.mu|\.mr|\.us|\.um|\.as|\.vi|\.mn|\.ms|\.bd|\.pe|\.fm|\.mm|\.md|\.ma|\.mc|\.mz|\.mx|\.nr|\.np|\.ni|\.ne|\.ng|\.nu|\.no|\.nf|\.na|\.za|\.aq|\.gs|\.eu|\.pw|\.pn|\.pt|\.jp|\.se|\.ch|\.sv|\.ws|\.yu|\.sl|\.sn|\.cy|\.sc|\.sa|\.cx|\.st|\.sh|\.kn|\.lc|\.sm|\.pm|\.vc|\.lk|\.sk|\.si|\.sj|\.sz|\.sd|\.sr|\.sb|\.so|\.tj|\.tw|\.th|\.tz|\.to|\.tc|\.tt|\.tn|\.tv|\.tr|\.tm|\.tk|\.wf|\.vu|\.gt|\.ve|\.bn|\.ug|\.ua|\.uy|\.uz|\.es|\.eh|\.gr|\.hk|\.sg|\.nc|\.nz|\.hu|\.sy|\.jm|\.am|\.ac|\.ye|\.iq|\.ir|\.il|\.it|\.in|\.id|\.uk|\.vg|\.io|\.jo|\.vn|\.zm|\.je|\.td|\.gi|\.cl|\.cf|\.yr|\.ac\.cn|\.ah\.cn|\.bj\.cn|\.com\.cn|\.cq\.cn|\.fj\.cn|\.gd\.cn|\.gov\.cn|\.gs\.cn|\.gx\.cn|\.gz\.cn|\.ha\.cn|\.hb\.cn|\.he\.cn|\.hi\.cn|\.hk\.cn|\.hl\.cn|\.hn\.cn|\.jl\.cn|\.js\.cn|\.jx\.cn|\.ln\.cn|\.mo\.cn|\.net\.cn|\.nm\.cn|\.nx\.cn|\.org\.cn))(?:[^\.\w]|/|$|\v)', 3)
Switch $_mode
Case 0
RunWait('RunDll32.exe InetCpl.cpl,ClearMyTracksByProcess 255')
Return 1
Case 1
$__cookie = $_object.document.cookie
Case 2
$__cookie = _WinINet_InternetGetCookieEx($_url[0] & $_url[1], Null, 8192)
EndSwitch
$__cookie = StringRegExp($__cookie, "\S*=", 3)
If @error Then Return 0
For $i = 0 To UBound($__cookie) - 1
Switch $_mode
Case 1
$_object.document.cookie = $__cookie[$i] & '; Domain=' & $_url[1] & '; Expires=Thu, 01-Jan-1970 00:00:10 GMT; Path=/'
Case 2
_WinINet_InternetSetCookie($_url[0] & $_url[1], $__cookie[$i] & '; Expires=Thu, 01-Jan-1970 00:00:10 GMT; Path=/')
EndSwitch
Next
EndFunc ;==>_IEEx_ClearCookie
|