做一个Web页面上交互的ActiveX Dll

做一个Web页面上交互的ActiveX Dll

转载请注明:作者:糯米糊糊(huyoo353),来源:http://blog.csdn.net/huyoo/

 过几天再写...

-----2006.04.02

准备工作
开发环境：VB6.0+sp6 GreenBrowser NotePad WinXp+sp1
前导知识：VB面向对象编程，Activex Dll，VBScript
开发步骤：
1.打开vb6.0,使用向导新建一个Activex Dll,工程属性设置为
工程类型:ActiveX Dll
启动对象:(None)
工程名:SAP
描述:保存当前Web页面上的所有图片
线程模块:单元线程
自动新建的那个Class,名字改为SaveAllPics
Instancing 设置为5-MultiUse
(以上设置大部分向导已经设置好了,只需要改改名字就行)

2.添加一个窗体(From),名字为frmChoose

3.保存工程,免得做无用功
3.添加代码
SaveAllPics.cls
'-------------------------
Option Explicit

Private frm As frmChoose

Private Sub Class_Terminate()
If IsObject(frm) = True Then
Set frm = Nothing
End If
End Sub

Public Sub LoadLinks(arr As Variant)
    Dim links() As String
    Dim count
   
    MsgBox Str(VarType(arr))
    If IsArray(arr) Then
        MsgBox "是个数组"
    End If
    count = UBound(arr)
    MsgBox count
    ReDim links(count)
    Dim i As Integer

    For i = 0 To count - 1
        'MsgBox arr(i)
        links(i) = arr(i)
    Next
   
    Set frm = New frmChoose
   
    For i = 0 To count - 1
        If links(i) <> "" Then
            frm.List1.AddItem links(i)
        End If
    Next
   
    frm.Show 1
End Sub
'-------------------------
frmChoose.frm
'------------------------
Option Explicit

Private Sub List1_Click()
 Dim i As Integer
 Dim s As String
 For i = 0 To List1.ListCount - 1
 If List1.Selected(i) = True Then
 s = s & List1.List(i) & vbNewLine
  End If
 Next
 Text1.Text = s & List1.SelCount
End Sub
'-----------------------

4.调试编译为SAP.dll(请用管理员权限编译,否则VB自动注册sap.dll将会失败)
5.编写VBScript脚本
(1)到GreenBrowser的Plugin目录下,新建一个AllJpg的目录
(2)建一个文件alljpg.htm
内容:
---------------------------------------
<script language="vbscript">
On Error Resume Next
Set objs = document.links
l = objs.length
MsgBox l

Dim a()

ReDim a(l)
MsgBox UBound(a)
For i = 0 To l - 1
a(i) = objs(i).href

Next

MsgBox a(0)
Dim SAP
Set SAP = CreateObject("sap.SaveAllPics")
If SAP  Then
MsgBox "suc"
SAP.LoadLinks a
Else
MsgBox Err.Description & " -- 清检查DLL文件名称、类名称、是否注册等！"
End If
Set SAP= Nothing
</script>
--------------------------------
(3)再弄个图标alljpg.ico
(4)建一个Plugin.ini
内容:
-------------------
[General]
Name=ViewAllJPG_link
Author=糯米糊糊(huyoo353)
Comments=查看本页面所有的JPG的URL地址
FileName=alljpg.htm
HotIcon=alljpg.ico
Type=BUTTON
ModuleType=SCRIPT
-------------------
6.在GreenBrowser中添加扩展工具Alljpg.
工具->扩展工具栏->设置扩展工具栏...
然后插入上面的那个插件

调试一下
在GreenBrowser中打开  帮助-〉GreenBrowser帮助
测试插件
蹦出几个框之后，会弹出下图安全性警告,你知道它是安全的,所以选是

最后会弹出

打开 帮助-〉作者主页
测试插件，会蹦出下图

说明访问远程文件,创建对象sap.SaveAllPics失败了

最终就是想说，上面的那个帮助是本地的，创建sap.SaveAllPics对象成功了，
而作者主页是远程的，最终创建sap.SaveAllPics失败了，具体原因我还没有找到，
希望看到这篇文章的人能够和我一起探讨。

最终版----2006.04.03