代码怎么提取？

提取方法如下：

Dim strText$

Dim >

Dim myClip As Object

'剪贴板对象

Set myClip = CreateObject("new:{1C3B4210-F441-11CE-B9EA-00AA006B1A69}")

Set >

With >

Open "GET", 网址, False

send

strText = responseText

End With

With myClip

'网页原始数据放入剪贴板中

SetText strText    '变量

PutInClipboard

MsgBox "源代码已经复制到剪贴板中"

End With

1、打开有多个文件的帖子。
2、查看源代码。找到第一张的代码。
ctrl+F
输入"一张缩小了100000倍的"点查找
找到在他上面几行有class="gray">1</td>标记的代码，开始选取。直道最后一张的尾部。既第19个帖子的代码开始处'19','回复：Jay〗一张缩小了100000倍的
。复制下来。
3、新建文本文件，粘贴，保存为123txt[可自定义]。
4、将IMGFLexe复制到同一目录下，打开。输入文件名123txt回车，输入输出文件名234txt回车。
5、打开目录下的234txt文件，复制全部代码。粘贴到论坛发帖页的html模式，输入标题名，发布即可。也可以用于其他方面。

先调试输出，找到网页上你要的数据，然后新建一个变量，用取出中间文本来取出你要的数据。
获取网页源代码中的具体步骤如下：
1、首先我们在浏览器里随意打开一张网页查看其源代码。
2、然后我们点击浏览器上的查看。
3、在选项中选择后面位置的查看源代码。
4、然后我们可以看到该网页中的源代码。
5、其中的源代码也可以点击访问。
6、点击访问的源代码的显示的如下图，即可看到源代码所显示的数据。
7、重新测试程序，从网页源码编辑框的看反馈结果

获取网页源代码中的文件的具体步骤如下：

1、首先我们在浏览器里随意打开一张网页查看其源代码。

2、然后我们点击浏览器上的查看。

3、在选项中选择后面位置的查看源代码。

4、然后我们可以看到该网页中的源代码。

5、其中的源代码也可以点击访问。

6、点击访问的源代码的显示的，即可看到源代码所显示的数据。

打开你要获取的源代码，右击鼠标会出现查看网页源代码（快捷键ctrl+u）,全选复制（全选快捷键ctrl+a复制快捷键ctrl+c），在本地电脑上粘贴到(ctrl+v)新建一个文档以html结尾，保存，即可。

---