.版本 2 .支持库 HtmlView .程序集 窗口程序集1 .子程序 _超文本浏览框1_即将跳转, 逻辑型 .局部变量 htm, 文本型 htm ＝ 超文本浏览框1.地址 .如果真 (寻找文本 (htm, “say:baidu”, , 假) ＝ 1) say_baidu () .如果真结束 .如果真 (寻找文本 (htm, “say:qzone”, , 假) ＝ 1) say_qzone () .如果真结束 .如果真 (寻找文本 (htm, “say:ch”, , 假) ＝ 1) say_ch () .如果真结束 返回 (假) .子程序 __启动窗口_创建完毕 屏蔽窗口鼠标右键 (超文本浏览框1.取窗口句柄 ()) say_smale ()