抓取必应在线词典的英语音标

最近要做一个音标词典，却苦于找不到好的音标词库，而必应词典的音标比较好，所以写了这个自动抓取必应词典的英语词汇音标程序。

基本原理：

1. WEBBROWSER元素内容的抓取

2.正则表达式精确提取目标内容

编程语言：

VB6

准备工作：

1. 引用WEBBROWSER控件

2. 引用正则表达式功能

3. 引用EXCEL功能

4. 在程序同一目录中创建一个dictionary.xls的EXCEL文件，表中第一列存储好英语单词，自动搜索后的结果会保存到第二列

界面FORM：

1. 浏览器webbrowser1

2. 按钮command1,command2

3. 文本框text1,text2,text3

全部代码：

Dim xlApp As Object
    Dim xlBook As Object
    Dim xlSheet As Object
        
    Dim pointer As Long
    Dim word As String
    Dim actionFlag As Boolean
    Dim startNumber, endNumber As Long
    

Function getPhoneticString() As String
'从WEBBROWSER中获取音标