开头:
#include mex.h/*这个matlab自己的也是必须的*/
库函数(4个参数)//名字忘了太长了
{
//自己的程序
}
简单！在VB6.0 用web浏览器控件，修改属性保存到本地指定目录，下载网页文件到本地，
再用一段函数去分析HTML文本内的字符串数据。用正则能很容易提取你要的javascript。
还有，搜索附带下载的JS文件，就能把整个站的所有javascript资源都提取出来。
vb6.0的xmlhttp或者inet控件都可以直接实现的xmlhttp的:
先在上面的菜单->工程->引用 "microsoft scripting runtime"
Private Sub command1_Click()
text1.text=GetCode("gb2312","http://www.baidu.com/j.js")
end sub
Public Function GetCode(CodeBase, Url) '第一个参数是设置编码方式(GB2312或UTF-8)第二个参数是地址.
Dim xmlHTTP1
Set xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")
xmlHTTP1.Open "get", Url, True
xmlHTTP1.send
While xmlHTTP1.ReadyState <>4
DoEvents
Wend
GetCode = xmlHTTP1.ResponseBody
If CStr(GetCode) <>"" Then GetCode = BytesToBstr(GetCode, CodeBase)
Set ObjXML = Nothing
End Function
Public Function BytesToBstr(strBody, CodeBase)
Dim ObjStream
Set ObjStream = CreateObject("Adodb.Stream")
With ObjStream
.Type = 1
.Mode = 3
.Open
.Write strBody
.Position = 0
.Type = 2
.Charset = CodeBase
BytesToBstr = .ReadText
.Close
End With
Set ObjStream = Nothing
End Function
______________________________________________
VS10没用过
你看看有没有vs10下xmlhttp的实例.
js文件格式你不用管,反正基本都是asnii的.
_____________________________________________
试试这个地址的
http://gouhuafeng123.blog.163.com/blog/static/1014013112008101264439157/
