脚本变通支持短信通知(仅限MUSH,VBS脚本)
有感于sms命令本人无法收到短信通知,故而想了个变通的方式,共享出来先去mail.139.com申请邮箱,并开通邮件到达通知!
下面是VBS脚本
sub test()
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = "qq号码@qq.com"
Email.To = "139邮箱名@139.com"
Email.Subject = "Test sendmail.vbs"
Email.Textbody = "OK!"
With Email.Configuration.Fields
.Item(NameSpace&"sendusing") = 2
.Item(NameSpace&"smtpserver") = "smtp.qq.com"
.Item(NameSpace&"smtpserverport") = 25
.Item(NameSpace&"smtpauthenticate") = 1
.Item(NameSpace&"sendusername") = "邮箱名"
.Item(NameSpace&"sendpassword") = "邮箱密码"
.Update
End With
Email.Send
end sub
北大侠客行MUD,中国最好的MUD yct23
有没有可能搞个反向的功能?手机到mud... 安卓系统不是有手机MUD软件吗? fullme获取图片
blat、mutt之类命令行邮件工具发送到邮箱
手机接收邮件图片
手机连接pku,tell主id中文
fullme结束 楼上好像还要方便点,就是需要装软件,呵呵 本帖最后由 redcoat 于 2012-7-21 05:29 PM 编辑
方法一:
用libfetion,能实现跟sms一样的功能。
效果简单实用,不依赖网络,手机只需发送短信。
缺点是只能是移动用户。
方法二:
邮箱中转。
这个实现起来方法很多,google现在支持通过短信发邮件,等等。
好处是通用性,方法很多,见仁见智。
缺点是依赖网络。
附perl读取gmail未读邮件演示代码,可以参考写成fullme推送。use strict;
use warnings;
use Config::Tiny;
use Mail::IMAPClient;
# Read Gmail account information
my $conf = Config::Tiny->read("$ENV{HOME}/.secret")
or die Config::Tiny->errstr;
my $user = $conf->{gmail}->{user};
my $pass = $conf->{gmail}->{pass};
# Gmail unread count
my $count = 0;
my $imap= Mail::IMAPClient->new(
Server => 'imap.gmail.com',
User => $user,
Password => $pass,
Port => 993,
Ssl => 1,
);
if ( defined $imap ) {
$count = $imap->unseen_count('Inbox');
$imap->logout();
}
# Output result
print $count;
方法三:
google's doc,你懂得。这个就不解释了。 回复 6# redcoat
求google api doc 回复 8# labaz
https://developers.google.com/google-apps/documents-list/ Jason让我转告:由于labaz有全自动的倾向,因此禁止其id及相关ip一个月登录北侠
钦此 Jason让我转告:由于labaz有全自动的倾向,因此禁止其id及相关ip一个月登录北侠
钦此
页:
[1]
2