用asp获取微软安全更新列表的代码 小偷程序

代码如下:

<%
Function Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.CreateObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function
Set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")
m_queryURL = "http://www.microsoft.com/china/technet/security/current.mspx"
XMLHTTP.Open "GET", m_queryURL, false
XMLHTTP.send()
s = XMLHTTP.responseBody
aa = Bytes2bStr(s,"GB2312")
Set re = New RegExp
re.Pattern = "<span class=""label"">.*?<\/span>"
re.Global = True
re.IgnoreCase = true
re.MultiLine = false
set matches = re.Execute(aa)
dim tmp
tmp = ""
for each match in matches
tmp = tmp&match.value
next
tmp = Replace(tmp,"href=""","target=_blank href=""http://www.microsoft.com")
set fso = server.CreateObject("scripting.filesystemobject")
set f = fso.OpenTextFile(server.mappath("Microsoft.html"),2,true)
f.write(tmp)
f.close
set fso = nothing
response.Redirect "Microsoft.html"
%>

赞 (0)

相关推荐

  • 用asp获取微软安全更新列表的代码 小偷程序

    复制代码 代码如下: <% Function Bytes2bStr(vin,cSet) Dim BytesStream,StringReturn Set BytesStream = Server.CreateObject("ADODB.Stream") BytesStream.Type = 2 BytesStream.Open BytesStream.WriteText vin BytesStream.Position = 0 BytesStream.CharSet = cSet

  • PHP 获取MSN好友列表的代码(2009-05-14测试通过)

    复制代码 代码如下: <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="zh" lang="zh&qu

  • asp获取当前网页地址的代码

    当前页地址  <%dim urlname  urlname=Request.ServerVariables("QUERY_STRING")%>  <%=Request.ServerVariables("SCRIPT_NAME")%><%if urlname<>"" then%>?<%=urlname%><%end if%>

  • php下通过IP获取地理位置的代码(小偷程序)

    复制代码 代码如下: function get_ip_place() { $ip=file_get_contents("http://fw.qq.com/ipaddress"); $ip=str_replace('"',' ',$ip); $ip2=explode("(",$ip); $a=substr($ip2[1],0,-2); $b=explode(",",$a); return $b; } 上面来自开源中国写的真XXX,新闻我都

  • vbs 搜索代理地址实现代码[小偷程序]

    复制代码 代码如下: '1.输入url目标网页地址,返回值getHTTPPage是目标网页的html代码 function getHTTPPage(url) dim Http set Http=CreateObject("MSXML2.XMLHTTP") Http.open "GET",url,false Http.send() if Http.readystate<>4 then exit function end if getHTTPPage=byt

  • asp获取远程网页的指定内容的实现代码

    代码如下: 复制代码 代码如下: <% '用ASP获取远程目标网页指定内容,代码由广州网站建设http://www.jb51.net提供 On Error Resume Next Server.ScriptTimeOut=9999999 Function getHTTPPage(Path) t = GetBody(Path) getHTTPPage=BytesToBstr(t,"GB2312") End function Function Newstring(wstr,strng

  • ASP 获取腾讯IP地址的代码

    提问: 复制代码 代码如下: <script type=text/javascript src=http://fw.qq.com/ipaddress></script> <script type=text/javascript> var hehe1=IPData[2] var hehe2=IPData[3] alert(hehe1); alert(hehe2); document.write(IPData.join(' ')); </script> 如何用A

  • asp.net 新闻列表样式代码

    新闻列表: 复制代码 代码如下: <div class="news_list"> <asp:Repeater ID="gsxw" runat="server" DataSourceID="GetNewsByType"> <ItemTemplate> <ul> <li><span> <%# Convert.ToDateTime(Eval("N

  • C++访问注册表获取已安装软件信息列表示例代码

    C++访问注册表获取已安装软件信息列表示例代码

    复制代码 代码如下: // ---------------------------------------------------------------// FlieNmae: //   SofInfo.h// Remark://   通过读取注册表获得本机已安装软件信息.// ---------------------------------------------------------------#pragma once#include <vector> struct SoftInfo

  • PowerShell函数中使用$PSBoundParameters获取输入参数列表实例

    本文介绍在自定义PowerShell函数时,有一个$PSBoundParameters的变量可以获取到输入参数列表.获取输入参入列表对我们进行功能调试有很大的帮助. 当我们在执行一个函数时,可以使用输入参数的值,但我在PowerShell中,参数有的是必选,有的是可选,那么我们怎么知道用户真实的输入了哪些参数呢? 在PowerShell函数中,有一个全局变量$PSBoundParameters,它是一个Hash表,里面保存了所有的输入参数和输入参数的值.通过输出这个变量,我们就可以看到所有的输入

随机推荐