维克苗综合站

‘本代码测试可用

Dim WithEvents Web_V1 As SHDocVwCtl.WebBrowser_V1

Private Sub Form_Load()
Set Web_V1 = WebBrowser1.Object

WebBrowser1.Navigate “http://www.vicmiao.com“
End Sub

Private 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

清晰帶語法著色的版本：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 這個小工具非常有用。

全文阅读 »

【函数】  
  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);  

全文阅读 »

Option Explicit
‘==================================================
‘作  用：设置类模块变量,1.FileMD5 path ,文件md5,2.StringMD5,字符串md5
‘==================================================
Private Const BITS_TO_A_BYTE As Long = 8
Private Const BYTES_TO_A_WORD As Long = 4
Private Const BITS_TO_A_WORD As Long = BYTES_TO_A_WORD * BITS_TO_A_BYTE
Private m_lOnBits(0 To 30) As Long
Private m_l2Power(0 To 30) As Long

全文阅读 »

<%
‘’****************************************************************************
‘’PageName:GetRemoteFiles.asp
‘’Function:Download the files to Server
‘’Author:xiaotian
‘’Last Modified at:2003-3-19
‘’****************************************************************************
‘’取得远程文件并保存到本地
Function GetRemoteFiels(RemotePath, LocalPath, FileName)
Dim strBody
Dim FilePath
On Error Resume Next
‘’取得流
strBody = GetBody(RemotePath)
‘’取得保存的文件名
if Right(LocalPath, 1) <> “\” then LocalPath = LocalPath & “\”
FilePath = LocalPath & GetFileName(RemotePath, FileName)

全文阅读 »