[General]
Description=WQM-一键转换火星文
BeginHotkey=121
BeginHotkeyMod=0
PauseHotkey=0
PauseHotkeyMod=0
StopHotkey=123
StopHotkeyMod=0
RunOnce=1
EnableWindow=
Enable=0
AutoRun=0
[Repeat]
Type=0
Number=1
[Relative]
SetupOCXFile=
[Comment]
Content=【功能说明】
WQM-一键转换火星文
【使用说明】
转换火星文
简体
繁体
【作者介绍】
兄弟工程师01
【制作日期】
200.9.7.13

[Script]
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
