软件下载页html源码_网页源码下载工具

文章目录：

• 1、求用批处理bat下载asp页面解释后的HTML源代码
• 2、自适应个人主页html源码，哪里下载？
• 3、vb循环下载html源代码，急，谢谢啦
• 4、HTML源代码是什么?
• 5、如何获取网页html源码
• 6、html全功能班级网站源码在那可以免费下载？

求用批处理bat下载asp页面解释后的HTML源代码

vbs可以做.用xmlhttp做到.下午贴代码 复制下面的内容新建一文本文档,写入后另存为xx.vbs,看清楚修改后双击即可

'下载的多了需要很久的时间,根据网速决定,请看清楚使用

Function getHTTPPage(Path)

t = GetBody(Path)

getHTTPPage=BytesToBstr(t,"GB2312")

End Function

Function GetBody(url)

on error resume next

Set Retrieval = CreateObject("Microsoft.XMLHTTP")

With Retrieval

.Open "Get", url, False, "", ""

.Send

GetBody = .ResponseBody

End With

Set Retrieval = Nothing

End Function

Function BytesToBstr(body,Cset)

dim objstream

set objstream = CreateObject("adodb.stream")

objstream.Type = 1

objstream.Mode =3

objstream.Open

objstream.Write body

objstream.Position = 0

objstream.Type = 2

objstream.Charset = Cset

BytesToBstr = objstream.ReadText

objstream.Close

set objstream = nothing

End Function

Function Newstring(wstr,strng)

Newstring=Instr(lcase(wstr),lcase(strng))

if Newstring=0 then Newstring=Len(wstr)

End Function

'处理抓取回来的数据需要调用adodb.stream组件并进行初始化设置。

'以下即为页面显示部分

For id=1 To 78 '循环,从X到XX,请自定义

Dim content,url,Fso,Fout

'定义一些需要使用到的变量

url="?"id

'这里设置需要抓取的页面地址，当然你也可以直接指定某个地址而不使用变量

content=getHTTPPage(url)

content=Replace(content,"images/","")'请自行把css替换掉,以及图片地址

'因为我本地网站的css就在images文件夹下,所以我直接替换掉这个就可以了.请针对修改

Set Fso = createObject("Scripting.FileSystemObject") '创建fso对象

Set Fout = FSO.CreateTextFile("news-"id".html") '创建文件,我们自定义的news-id.html

Fout.Write content '写入替换完毕的模板文件,即包含我们数据库数据的文件

Fout.Close

Set Fout = Nothing

next

MsgBox "全部下载成功!"

这是代码,你需要改的是url="http://你要的网站/新闻页?id="id后面的id是变量,然后就替换掉图片地址和css地址.就可以正常显示了.

自适应个人主页html源码，哪里下载？

个人主页可以采用html代码也可以采用cms系统形式，一般以个人博客网站形式存在。你可以在个人博客模板找到自适应的模板程序后，进行源码下载。

每天的进行一些文章更新，相信对于建立个人品牌是非常有帮助的。

vb循环下载html源代码，急，谢谢啦

我找不到webbrowser获得源代码的资料……

不过我用该方法：

加一个Inet控件，然后调用它的OpenURL方法，该方法会返回打开的内容，如果是纯文本就返回字符串

对于网页，会返回网页的html源代码

Inet需添加Microsoft Internet Transfer Control部件

html源代码 = Inet1.OpenURL("")

对于延时，就用timer控件，

如果时间小于一分钟，直接用timer控件timer事件

若大于一分钟甚至几个小时（因为timer的间隔不许大于65.535秒）

你把它间隔改为一分钟，设个全局变量用来统计时间，timer控件timer事件发生一次，统计时间的全局变量加一

这样当他大于你要的间隔时间时就下载网页，并清零

这样就不用重复启动程序了

这是30分钟刷一次的，timer1为Interval为60000的Timer控件

下载html代码在sHTML 变量里

Dim statTime As Long

Private Sub Timer1_Timer()

Dim sHTML As String

statTime = statTime + 1

If statTime 30 Then

sHTML = Inet1.OpenURL("")'下载页面

statTime = 0'统计下一间隔

'...........

End If

End Sub

HTML源代码是什么?

嗯嗯、HTML是用来做网站的一种语言哈、这样吧、你打开一个网页、然后再网页任何一个地方点击鼠标右键、然后选择“查看源文件”、点击过后将以记事本的形式打开、里面的就全是HTML代码哈、看看吧、希望对你有所帮助！至于怎么使用这个就有专门的教程了哈、你到百度文库里面找找教程嘛、

如何获取网页html源码

用浏览器，例如 IE,

进此网站 (File-Open 网页地址）

点 浏览器 的 View-〉Source ， 网页html源码 全在 一个 文本窗里了。存下来 便是。

html全功能班级网站源码在那可以免费下载？

你去下载一个 破解版的webzip软件或者是远洋整站下载工具 这些工具可以帮你把你想要的页面下载下来，包括图片、CSS、html所有你在原网站看到的东西；下载下来你只要修改图片和CSS或者文字，这个网站就是你的了；【这是刚开始学做网站的方式(不求别人，完全是靠自己)】