- 用户定义变量 Var1=DropList{火星文:1|简体字:2|繁体字:3}=0 选择转换字体
- 用户定义变量 Var2=个性字体 需要转换文字
- //得到WQM进程句柄
- 调用插件命令 PID=Web.Bind("wqm.exe")
- //打开一个网页地址连接
- 调用插件命令 Web.Go("http://www.e4dai.com/tool/qq_hxw.asp")
- //向文本框里输入内容
- 调用插件命令 Web.HtmlInput(Var2,"id:txt")
- //点击一个网页元素连接
- 如果表达式 (Var1=1) 为真,则
- 调用插件命令 Web.HtmlClick("tag:INPUT&value:转为火星文")
- 否则如果(Var1=2)为真,则
- 调用插件命令 Web.HtmlClick("tag:INPUT&value:简体字")
- 否则如果(Var1=3)为真,则
- 调用插件命令 Web.HtmlClick("tag:INPUT&value:转为繁体字")
- 条件结束
- //获得一个网页元素信息内容
- 调用插件命令 Txt=Web.HtmlGet("value","id:txt")
- Msgbox "得到转换结果:"&Txt