vbs脚本自动发送邮件

function Send_mail(You_Account,You_Password,Send_Email,Send_Email2,Send_Topic,Send_Body,Send_Attachment) 
 'code by NetPatch 
 'VBS发送邮件参数说明 
 'You_Account:你的邮件帐号 
 'You_Password:你的邮件密码 
 'Send_Email: 主要邮件地址 
 'Send_Email2: 备用邮件地址 
 'Send_Topic: 邮件主题 
 'Send_Body: 邮件内容 
 'Send_Attachment:邮件附件 

 You_ID=Split(You_Account, "@", -1, vbTextCompare) 
 '帐号和服务器分离 
 MS_Space = "http://schemas.microsoft.com/cdo/configuration/" 
 '这个是必须要的,不过可以放心的事,不会通过微软发送邮件 
 Set Email = CreateObject("CDO.Message") 
 Email.From = You_Account 
 '这个一定要和发送邮件的帐号一样 
 Email.To = Send_Email '主要邮件地址 

 If Send_Email2 <> "" Then 
 Email.CC = Send_Email2 '备用邮件地址 
 End If 

 Email.Subject = Send_Topic '邮件主题 
 Email.Textbody = Send_Body '邮件内容 

 If Send_Attachment <> "" Then 
 Email.AddAttachment Send_Attachment '邮件附件 
 End If 

 With Email.Configuration.Fields 
 .Item(MS_Space&"sendusing") = 2 '发信端口 
 .Item(MS_Space&"smtpserver") = "smtp."&You_ID(1) 'SMTP服务器地址 
 .Item(MS_Space&"smtpserverport") = 25 'SMTP服务器端口 
 .Item(MS_Space&"smtpauthenticate") = 1 'cdobasec 
 .Item(MS_Space&"sendusername") = You_ID(0) '你的邮件帐号 
 .Item(MS_Space&"sendpassword") = You_Password '你的邮件密码 
 .Update 
 End With 
 Email.Send 
 '发送邮件 
 Set Email=Nothing 
 '关闭组件 

 Send_Mail=True 
 '如果没有任何错误信息,则表示发送成功,否则发送失败 
 If Err Then 
 Err.Clear 
 Send_Mail=False 
 End If 
 End Function 

 '以下是利用上面的函数发送带附件的邮件例子 
 If Send_Mail("[email protected]","YourID","收件人地址1","收件人地址2","主题","内容...","d:\test.zip")=True Then 
 'Wscript.Echo "发送成功" 
 Else 
 Wscript.Echo "发送失败" 
 End If

 

离线安装Opera Dragonfly

Opera Dragonfly 是适用于 Opera 浏览器的跨设备、跨平台的调试环境 – 调试 JavaScript、检查和编辑 CSS 与 DOM,以及查看手机或计算机上的任何错误。

相比Firebug,Chrome的开发者工具更加强大!遗憾的是只能联网使用,用下面的方法可以离线加载。

  1. 用git clone git://github.com/operasoftware/dragonfly.git 命令把Dragonfly 源代码checkout到本地,例如/home/yemingtu/dragonfly
  2. 在Opera 地址栏中输入opera:config#DeveloperTools 打开首选项编辑器,更改里面的Developer Tools URL字段为上一步的路径,例如:
    file://home/yemingtu/dragonfly/src/client-en.xml ,单击保存。
  3. 重启Opera,按Crtl+Shift+I即可调出Opera Dragonfly。

解决安装Ubuntu12.04 登录闪退问题

在保留旧的Ubuntu版本/home分区升级安装的情况下,有可能遇到第一次登录闪退,无法登录系统的问题,解决方法如下:

  1. 在登录界面按Ctrl+Alt+F2键切换到终端,用安装时创建的用户登录,比如abc用户。
  2. 用sudo su命令切换到root用户,输入
    chown -R abc:abc *
    chown -R .*
    更改家目录权限为新用户所有。
  3. 再按Ctrl+Alt+F7返回图形登录界面登录即可。

OpenStack常用的网络管理命令

  1. 分配地址池
    用法: nova-manage floating create <ip_range> [–pool <pool>] [–interface <interface>]
    实例: nova-manage floating create 192.168.6.96/28 –pool demo
    参数为IP范围,前面是网络号,后面是掩码,给一个在线计算子网的地址  后面是名字,任意。
  2. 删除地址池
    nova-manage floating delete <ip_range>
  3. 列出现有的地址
    nova-manage floating list
  4. 为实例分配一个IP地址
    nova floating-ip-create <pool>
    会列出1个可用的IP,例如192.168.0.100,后面的地址池名称可选。
    然后关联到实例
    nova add-floating-ip instance 192.168.0.100
  5. 从实例移除IP
    移除操作则相反,首先解除关联。
    nova remove-floating-ip instance 192.168.0.100
    然后移除
    nova floating-ip-delete 192.168.0.100

Windows 8 Release Preview下载

下载页面: http://windows.microsoft.com/en-US/windows-8/download

简体中文版:

64-bit (x64)                    Download (3.4 GB)                    Sha 1 hash — 0xC21B69413E08FCFB756EEDB2B99D0C0472486D1C

32-bit (x86)                    Download (2.6 GB)                    Sha 1 hash — 0xF9FAF5910275832EA03F630CD5803565C03C8F31

序列号:   TK8TP-9JN6P-7X7WW-RFFTV-B7QPF

Windows 平台 Rails3.2 下的mysql2安装

假如你的mysql2能安装但Rails应用启动时候报错,去

http://dev.mysql.com/get/Downloads/Connector-C/mysql-connector-c-noinstall-6.0.2-win32.zip/from/pick

下载一个zip压缩包解压,并将里面的libmysql.dll放入ruby目录的bin目录下即可。

usassh免费SSH代理自动登录脚本

USAssh.com 最早成立于2009年,是一家注重用户体验、高速稳定、诚信专业、老牌资深的美国SSH代理服务提供商,专注于给用户提供优质稳定的SSH代理和VPN代理服务。

2012-7-23 update:更新ruby获取密码脚本!

最近发现usassh提供的有免费测试,美中不足的是每整点更换密码。经过摸索自己写了个脚本实现自动抓取密码并自动重新连接。(如果您觉得服务不错,请购买付费账户,也算支持别人的工作 🙂 )

脚本使用了工具expect,Ubuntu用户可以用sudo apt-get install expect安装。

1.expect脚本内容如下,主要实现自动登录的处理。

继续阅读