知识使人健康
‘本代码测试可用
Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1
Private Sub Form_Load()
Set Web_V1 = WebBrowser1.ObjectWebBrowser1.Navigate “http://www.vicmiao.com“
End SubPrivate Sub Web_V1_NewWindow(ByVal URL As String, ByVal Flags As Long, ByVal TargetFrameName As String, PostData As Variant, ByVal Headers As String, Processed As Boolean)
Processed = True
WebBrowser1.Navigate URL
End Sub
新建一个模块,贴入以下代码:
Option Explicit
Public hRasConn As Long ‘¶¨ÒåÒ»¸öÖ¸ÏòRASµ÷ÓõÄÈ«¾Ö¾ä±ú
Public Const APINULL = 0&
Public Const UNLEN = 256
Public Const DNLEN = 15
Public Const PWLEN = 256
Public Const RAS95_MaxPhoneNumber = 128
Public Const RAS95_MaxEntryName = 256
Public Const RAS95_MaxCallbackNumber = RAS95_MaxPhoneNumber
Public Type RASDIALPARAMS95
清晰帶語法著色的版本：http://gwx.showus.net/blog/article.asp?id=229
原創很辛苦，轉載請註明原文鏈接：http://gwx.showus.net/blog/article.asp?id=229
web採集程序？網頁抓取程序？小倫程序？不管怎麼叫，這種程序應用倒是蠻廣的。本文不討論這種使用這種程序引起的版權或道德問題，只談這種程序在ASP+VBScript環境下的實現 
預備知識：除了一般的ASP+VBScript的知識外，你還需要瞭解xmlhttp對像和正則表達式對象。xmlhttp對象是時下風頭正勁的Ajax的主角；而學好了正則表達式，你再也不用為處理複雜的字符串犯愁。
在編寫和調試正則表達式時，RegEx 這個小工具非常有用。
XMLHTTP:
Set objXMLHTTP = CreateObject(”MSXML2.XMLHTTP”)
objXMLHTTP.open “POST”, “http://member1.taobao.com/member/login.jhtml”, False
objXMLHTTP.setRequestHeader “Accept”, “image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/x-shockwave-flash, application/QVOD, application/msword, */*”
objXMLHTTP.setRequestHeader “Content-Type”, “application/x-www-form-urlencoded”
objXMLHTTP.setRequestHeader “Accept-Encoding”, “gzip, deflate”
objXMLHTTP.setRequestHeader “User-Agent”, “mozilla/4.0 (compatible; msie 8.0; windows nt 5.1; trident/4.0; mozilla/4.0 (compatible; msie 6.0; windows nt 5.1; sv1) ; .net clr 2.0.50727)”
objXMLHTTP.setRequestHeader “Host”, “member1.taobao.com”
objXMLHTTP.setRequestHeader “Cache -Control”, “no - cache”
objXMLHTTP.setRequestHeader “Connection”, “Keep-Alive”
q_post = “TPL_username=” & URLEncoding(TaoBaoUserName) & “&TPL_password=” & TaoBaoUserPass & “&Submit=%B5%C7+%C2%BC&actionForStable=enable_post_user_action&action=Authenticator&TPL_redirect_url=&event_submit_do_login=anything&abtest=&pstrong=2&from=&yparam=&done=” & 1000000 * Rnd
objXMLHTTP.send (q_post)
WebBrowser1.Navigate “http://my.taobao.com/mytaobao/home/my_taobao.jhtml”
【函数】
ShellExecute
【操作系统】
Win9X:Yes
WinNT:Yes
【声明】
ShellExecute Lib “shell32.dll” Alias “ShellExecuteA” (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
‘参考网络代码完成, 获取机器的MAC 网卡地址
‘—————-
‘GetMyMAC 获得本机器网卡 MAC地址 若无IP 返回空字符
‘ Print GetMyMAC‘GetRemoteMACAddress IP,strval 获取对应机器的网卡 MAC地址
‘dim i
‘GetRemoteMACAddress “192.168.0.1″,i
‘Print i
‘
‘GetIPAddress 返回给定机器名的Ip地址，机器名为空时返回本机Ip地址
‘ GetIPAddress 机器名
Public Declare Sub CopyMemory Lib “kernel32″ Alias “RtlMoveMemory” (Destination As Any, Source As Any, ByVal Length As Long)
Public Declare Function GetIpAddrTable Lib “IPHlpApi” (pIPAdrTable As Byte, pdwSize As Long, ByVal Sort As Long) As Long
Const Max_IP = 5
Type IPINFO
dwAddr As Long
dwIndex As Long
dwMask As Long
dwBCastAddr As Long
现在网上流行的小偷程序比较多，有新闻类小偷，音乐小偷，下载小偷，那么它们是如何做的呢，下面我来做个简单介绍，希望对各位站长有所帮助。
（一）原理
小偷程序实际上是通过了XML中的XMLHTTP组件调用其它网站上的网页。比如新闻小偷程序，很多都是调用了sina的新闻网页，并且对其中的html 进行了一些替换，同时对广告也进行了过滤。用小偷程序的优点有：无须维护网站，因为小偷程序中的数据来自其他网站，它将随着该网站的更新而更新；可以节省服务器资源，一般小偷程序就几个文件，所有网页内容都是来自其他网站。缺点有：不稳定，如果目标网站出错，程序也会出错，而且，如果目标网站进行升级维护，那么小偷程序也要进行相应修改；速度，因为是远程调用，速度和在本地服务器上读取数据比起来，肯定要慢一些。
用XMLHTTP Post Form时的表单乱码有两方面的原因——Post表单数据时中文乱码；服务器Response被XMLHTTP不正确编码引起的乱码。换句话说，本文主要解决两个问题——怎样正确Post中文内容以及怎样正确显示得到的中文内容。
先看看E文的表单是怎么提交的：
strA = “submit1= Submit&text1=scsdfsd”;
var oReq = new ActiveXObject(”MSXML2.XMLHTTP”);
oReq.open(”POST”, “http://ServerName/VDir/TstResult.asp” ,false);
oReq.setRequestHeader(”Content-Length”,strA.length);
oReq.setRequestHeader(”CONTENT-TYPE”,”application/x-www-form-urlencoded”);
oReq.send(strA);
