UserVar Var1=DropList{火星文:1|简体字:2|繁体字:3}=0 选择转换字体 UserVar Var2=个性字体 需要转换文字 //得到WQM进程句柄 Plugin PID=Web.Bind("wqm.exe") //打开一个网页地址连接 Plugin Web.Go("http://www.e4dai.com/tool/qq_hxw.asp") //向文本框里输入内容 Plugin Web.HtmlInput(Var2,"id:txt") //点击一个网页元素连接 If Var1=1 Plugin Web.HtmlClick("tag:INPUT&value:转为火星文") ElseIf Var1=2 Plugin Web.HtmlClick("tag:INPUT&value:简体字") ElseIf Var1=3 Plugin Web.HtmlClick("tag:INPUT&value:转为繁体字") EndIf //获得一个网页元素信息内容 Plugin Txt=Web.HtmlGet("value","id:txt") Msgbox "得到转换结果:"&Txt