2 Way SMS脚本的一个例子

2 Way SMS脚本的一个例子 搜索搜索

短信& MMS Technical Forum » NowSMS支持 - 短信问题(Product Support Only) » 归档于2003年9月15日 » 2 Way SMS脚本的一个例子 « Previous|| 下一页»
作者 信息
拉 Mservice.
在2003年5月28日星期三发布 - 下午10:28:  

你好。
这是如何在使用DIASMS MYSMSMSMSMSMSMSMSMSMSMSMS时使用脚本的一个小示例。

此示例应该让您开始使用Nowsms制作自己的创意服务。

我现在已经做了很多,并且仍然将更多和更高级的功能写入其中,以便可以向客户销售更多的服务。

够了在这里说'使用WScript的示例。

打开Nowsms并转到2 Way SMS选项卡。

输入关键字或仅限Asterix*在SMS命令前缀字段中。

在命令中争取这样做的事情:

c:\windows\system32\cscript.exe // nologo c:\temp\Incall.vbs @@发件人@@ @@ smsprefix @@ @@ sms @@

使用您想要的任何路径或文件名。

现在打开记事本并将其放入其中:
 
on error resume next

Set Args = WScript.Arguments
For I = 0 to Args.Count - 1
if (I > 0) Then
LogTxt = LogTxt & " "
End if
LogTxt = LogTxt & Args(I)
Next
Set Args = nothing

writelog(LogTxt)

public function writelog(logstr)
Dim fsl,flog
Set fsl=CreateObject("Scripting.FileSystemObject")
if Not (fsl.FileExists("c:\temp\NowSMS.log"))=true Then
Set flog=fsl.CreateTextFile("c:\temp\NowSMS.log",true)
flog.WriteLine(now() & " - " & logstr)
flog.Close
Else
Dim fll
Set fll=fsl.OpenTextFile("c:\temp\NowSMS.log",8,true)
fll.WriteLine(now() & " - " & logstr)
fll.Close
Set fll=Nothing
End if
Set flog=nothing
Set fsl=nothing
End function


保存它给定它在命令执行字段中写入filename tou。例如。 incall.vbs.

现在,当某人使用所选关键字发送短信时,Nowsms将执行vbsfile。在此示例中,它将全部放入日志文件中。

这基本上是。

现在这两个方法SMS工具非常有用。想象一下你可以使用它的东西。


希望这件小事能有助于一些人开始。

有疑问......邮寄我......


;)Lars

主题 主题 搜索 过去30天 登录 登录/注册 登出 登出