1、设置脚本文件：在脚本配置的设置区设置一个脚本名称。例如fetionmsg.vbs，然后点击"加载"
2、编写事件响应脚本：FetionMsg支持VBSCRIPT.NET。可对接收到的消息编写对应事件处理函数FetionMsg_OnMessageIn，例如保存以下内容到fetionmsg.vbs（放到FetionMsg程序目录）：
'==========================================================
'Author:dragonimp@impx.net 2008.12.19
'RobotName:FetionMsg DEMO
'Description:脚本功能演示
'==========================================================
Sub FetionMsg_OnMessageIn(ID,Message)
'根据收到的消息生成回复的内容
Dim botmsg
botmsg=GetBotReply(ID,Message)
If (botmsg<>"")Then
'调用SendIM进行回复
FetionMsgControl.SendIM(ID,botmsg)
End If
'同时调用SendToSelf把信息转发到自己手机
'FetionMsgControl.SendToSelf("In-" & FetionMsgControl.FetionDisplayName(ID) & ":" & Message & ":" & botmsg)
End Sub
Function GetBotReply(ID,Message)
If InStr(Message,"/")<>1 Then
GetBotReply=""
Exit Function
End If
Message=Message.Substring(1)
Dim botmsg
Select LCase(Message)
Case "help"
botmsg="可以输入以下命令：help time"
Case "time"
botmsg=Now().ToString()
Case Else
botmsg="消息已收到，请输入/help查看命令"
End Select
GetBotReply=botmsg
'MsgBox (GetBotReply)
End Function
|
3、调试脚本：为了方便调试，FetionMsg还提供了脚本调试的接口。例如，要对以上函数进行调试，可在运行前的输入框中输入函数名和参数，例如：FetionMsg_OnMessageIn 1234567,你好。然后点击"运行"即可调用函数。如果你修改了脚本，可点"加载"后再运行，这样可以重新将修改过的脚本进行编译。
4、FetionMsg提供的FetionMsgControl对象提供了FetionMsgControl对象，可以在脚本中使用，目前已实现以下内容：
- 事件：FetionMsg_OnMessageIn(ID,Message)
- 函数：SendIM(ID,Message)、SendSMS(ID,Message)、SendToSelf(Message)、FetionDisplayName(ID)
- 属性：FetionID
5、相关链接：
FetionMsg脚本编写说明：http://bbs.impx.net/showtopic-50.aspx
FetionMsg介绍：http://bbs.impx.net/showtopic-49.aspx
FetionMsg下载：http://www.impx.net/download/fetionmsg/fetionmsg.rar
.Net framework2.0下载：http://www.microsoft.com/downloads/details.aspx?FamilyID=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=zh-cn
