映射如何快速地从网页中获得Email地址.doc

操作注册表邰等。 系统管理员可以利用这些辅助功能创寇建简单的登录脚本。程序编写者可以利用酉这些由WSH提供的对象接口在基于Wi 粝ndows的平台上执行各种自动化任务栈例如启动Word、 Excel 、 P owerpoint任务打开CAD文含件等。

在中应用WSH技术不但可以涫利用WSH的强大功能增强应用程序的性啖能还可以简化应用程序设计使编程工炳作更为简单。某些原本只能由Windo 匚wsAPI函数完成的工作现在可以使用骜更为简单明了的WSH完成。 WSH为用戽户提供了多个对象例如 WshSho 皮rtcut、 WshShel l 、 Wsh 炎Arguments、WshUrlSh绾ortcut、 Automation、 挎WshEnvironment等等。我莰们可以利用它们进行各种应用。

2 W蝤SH应用实例

映射网络驱动器

在实际爨开发MIS系统时 我们曾经碰到这样一退个问题该系统由企业内部30个不同的恬部门使用由于管理的需要各部门的数布据除了通过专用数据库接口提交到服务器堵以实现数据共享外还须由系统自动将各部门数据以专门的H TML文件格式发送到指定的服务器目录下。服务器上对应设臵了30个不同的共享目录。服务器上的蓿共享目录分别映射为本地各部门的指定驱动器如W: 。 显然逐个部门进行手工镜映射比较繁琐。 比较严重的情况是如果设用户由于误操作断开该映射将导致应用ㄣ系统无法运行。 比较好的做法是在系统启扶

动时自动映射网络驱动器 WSH为我们庸提供了非常简单的实现方法。 下面是一个示例性程序procedure(S ender:TObject) ;va轹roWshNetwork:vari 杞ant;beginoWshNet ㄎwork:=CreateOleObj 异ect (' ' ) ;

('w: ' , '\\筝ezss\ydmis' , 'True' 嫩 , 'administrator' , 'xyz' ) ;

End;

程序首先创建基于WSH的OLE对象然后映射服务擒器ezss上的共享目录ydmis为W称: 。 MapNetworkDrive方法的语法格式为

MapNetworkDrive

各参数含义简要颐说明如下strLocalName钽 映射到本地的驱动器名称。strR曙emoteName映射的远程共享名。bUpdateProf i le如果本β参数设臵为TRUE,这种映射将存储在耍用户Windows系统的prof i l 螟es文件夹下作为用户配臵保留。st 砉rUser、 strPassword指暴定受托共享的用户名和密码。

若要断开红该映射可以使用RemoveNetw峒orkDrive方法

3/7

例如('w: ' 辐) 。

创建应用程序快捷方式图标

WS悌H可以帮助我们非常容易地创建应用程序醌快捷方式图标这使得我们能够自由地在区安装程序中选择发布程序快捷图标的创建嘎方式。至于应用程序快捷方式图标放臵在窃哪个地方 则完全由我们来决定。实际上 WSH允许我们自由地将应用程序快捷浚方式图标放臵在桌面、开始菜单、程序组硅、发送到、 网上邻居、我的文档等各种地方。在WindowsNT中还可以放嫱臵在所有用户的启动组、开始菜单或桌面夼上。实际操作时 WSH首先利用属性返悬回指定文件夹的路径然后利用Crea 蝽teShortcut方法创建快捷方式秒。 当然 我们也可以指定该快捷方式的热牖键、 目标路径、工作路径、 窗口状态等等厉。下面是一个示例procedur歆e(Sender:TObject) ;varoWshShel l, strS hortcut,oMyShortcu仰t:variant;begino栀WshShel l:=Createol 困eObject (' ' ) ;strSh诞ortcut:=('DeskTop' 鸷) ;oMyShortcut:=(s 被trShortcut+'\MIS辅助び教学. lnk' ) ;

:='ALT沙+CTRL+C' ;

:='d: \mi 缑s\' ;

4/7

="d:\mis\"

=1

;end;

上述程序代码在桌面创忠建了一个“MIS辅助教学”应用程序快薹捷方式图标。窗口状态设臵为普通 Sa牺ve()方法用于保存该快捷方式图标。 另外 我们可以根据需要将Item中的┮ strFolderName修改为 Al 犴 lUsersDesktop 、 Al lUsersStartMenu、 Al lU 司sersPrograms、 Al lUs 垩ersStartup、Desktop 鲵、 Favorites、 Fonts、 M yDocuments、 NetHood 簋、PrintHood、Programs、Recent、SendTo、 St 颖artMenu、 Startup等串值拴 以便在不同的地方创建应用程序快捷方洁式图标。

实现Word、 Powerp悍oint、 Excel 自动

尽管已经提氲供了 Office组件也提供了这方面淬的应用实例但在处理一个已经存在的O枇ff ice文档时仍然不够方便。 WSH断可以灵活地处理Office文档这使纫得我们几乎可以在应用程序中无缝集成O ffice功能。在创建基于Offic 玻e应用程序的OLE对象后编程人员可柘以利用Off ice录制宏的功能 非常葜方便地获得有关处理命令减少了开发难裆度。这样一来在应用程序中实现Wor阢d、 Powerpoint、 Excel 晃自动化就非常容易了。下面是一个处理呼Wo r d文档的简单示例procedure(Sender:TObjecつt) ;

5/7

varoWord:var频iant;begin

OWord: 醭=createoleobject (' 酷' ) ;

:=false;

('d苔:\scgl\mr_' ) ;

(1) . saveas ('d: \scgl\htms\mr_' , 8) ;

;end堞;

上述代码的主要作用是将mr_文件箧另存为Web页适用于Word97、 舜Word2000。请注意saveas 嬲()中的参数8 它用于标识HTML文档格式。如果不使用该参数保存为We饺b页后可能全是乱码。

操作注册表

已经提供了操作注册表的方法但使用WS抿H的处理方法更为简单明了。 WSH通过幞RegRead、 RegDelete、 榆RegWrite方法可以对注册表的谐5个分支部分即HKEY_CURRE NT_USER、HKEY_LOCAL 揉_MACHINE、 HKEY_CLAS SES_ROOT、 HKEY_USERS、HKEY_CURRENT_CON 刀FIG进行操作。注意括号内为缩写妞形式 实际应用时 我们既可以使用全称琵也可以使用缩写。下面来看一个示例程詹序procedure(Sende轨r:TObject) ;

6/7

varo踢WshReg:variant;be磬ginoWshReg:=CreateOleObject (' ' ) ;

(' 婉HKCU\WSHSample\Val 耄ue' , 10, 'REG_BINARY妨' ) ;end;

上述代码在注册表的俨HKEY_CURRENT_USER分支下创建主键WSHSample并在该主键下创建二进制值Value其数撸值为10。RegWrite方法的语法格式为RegWrite。其中 st看rType参数用于指定键值的数据类型稷  可以是REG_DWORD、 REG_┿BINARY、 REG_SZ等等。

薇3结束语

总的看来 WSH使程序代码容易编写、 易于阅读还可以实现一些特州殊功能。在使用开发应用系统时 我们可雅以适当使用WSH技术。

参考文献

1 舶Charl ieCalvert Del 敝phi4编程技术内幕机械工业出版社湘 1999

2MicrosoftC orporation 动态HTML参馔考和开发应用大全人民邮电出版社

7/7