用VBS发送邮件

2010年07月1日   By Demon   45,345 views

曾经在编写VBS版U盘小偷程序的时候Google过怎么用VBS发送E-Mail，不知道为什么当时Google不到，可能是眼花了吧。使用CDO.Message对象就可以实现，示例代码演示的是gmail发送纯文本并带附件的邮件，至于其他的电子邮箱，需要修改代码中对应的smtp服务器和端口，原理也是一样的，就不举例了。贴出来的代码没有写注释，需要看注释的请下载源码。

Const Email_From = "still.demon@gmail.com"
Const Password = "password"
Const Email_To = "380401911@qq.com"
Set CDO = CreateObject("CDO.Message") 
CDO.Subject = "From Demon"
CDO.From = Email_From
CDO.To = Email_To
CDO.TextBody = "Hello world!"
cdo.AddAttachment "C:\hello.txt"
Const schema = "http://schemas.microsoft.com/cdo/configuration/"
With CDO.Configuration.Fields
	.Item(schema & "sendusing") = 2
	.Item(schema & "smtpserver") = "smtp.gmail.com"
	.Item(schema & "smtpauthenticate") = 1
	.Item(schema & "sendusername") = Email_From
	.Item(schema & "sendpassword") = Password
	.Item(schema & "smtpserverport") = 465
	.Item(schema & "smtpusessl") = True
	.Item(schema & "smtpconnectiontimeout") = 60
	.Update
End With
CDO.Send

标签： , , , ,
发布在 程序设计 | 10 条评论 »

一个VBS恶作剧程序

2010年06月30日   By Demon   23,834 views

很久很久以前，好像是高考后的那个夏天，收到过朋友的一个恶作剧程序，程序名为“一篇感动人的文章.vbs”，当时什么都不懂，直接双击了，一直耿耿于怀。双击后弹出一个输入框“输入‘我是猪’，否则十五秒后关机。我还以为是搞笑的，什么都没有输入，就真的关机了，觉得很神奇。而现在能够自己写出代码了，却再也找不到以前的快乐。

Option Explicit 
On Error Resume Next 
Dim answer
Dim WshShell
set WshShell = CreateObject("wscript.Shell")
WshShell.Run "Shutdown /f /s /t 10 /c 输入'我是猪'，否则10秒后关机~",0
Do While answer<>"我是猪"
	answer=InputBox("输入'我是猪'，否则10秒后关机~","哈哈哈",,7000,8000)
Loop 
WshShell.Run "Shutdown /a",0
MsgBox "哈哈哈，好玩不?",,"哈哈哈"

打开记事本，把代码复制粘贴进去，保存为“一篇感动人的文章.vbs”，一个恶作剧程序就完成了，接下来做什么就超出本文范围了。

标签： , ,
发布在 程序设计 | 5 条评论 »

暴风一号病毒VBS源码解密

2010年06月29日   By Demon   35,619 views

一个寂寞的人写的VBS病毒，即网上所谓的1KB文件夹快捷方式病毒。只不过是恶作剧程序罢了，只能拿来吓吓不明真相的同学，根本不算严格意义上的病毒，不过为了方便，我在文中仍然称之为病毒。话说回来，我第一次看到这个程序的时候震惊了一下，因为第一眼看上去貌似全部都是注释，全是注释怎么可能执行呢，然后仔细一看，原来有一行没有注释，代码就是从这一行开始执行的。作者真是太寂寞了，写个VBS病毒还加密，VBS加密只能拿来骗骗杀毒软件，在人眼面前就没有任何秘密可言了。不过事实证明某些杀毒软件还是很好骗的，比如某款自吹永久免费的流氓软件，好像叫361还是什么来着，我不记得了。反正我直接双击病毒它不报毒（注，不是我的电脑，我的电脑没有这种软件），然后双击根据病毒代码改写的专杀程序，弹出一个警告，笑死我了。

解密的方法很简单，只要弄清楚没有注释的那一行代码做了什么就行了。那么那一行做了什么呢？自己去看代码吧。简单的说，就是读取病毒自身，将注释解密以后得到最后的病毒代码，然后通过VBS的Execute语句执行解密后的病毒代码，同时变换加密后把新加密的代码写入源文件。所以，我们只要把最后的Execute语句改写输出语句，就可以得到病毒解密后的代码了。下面是我根据病毒代码改写的解密程序，只要把病毒拖动到解密程序上，就会在同一文件夹生成病毒解密后的代码。代码太长就不贴出来了，感兴趣的自己下载。不得不说，代码的写的很整齐，对学习VBS很有借鉴的价值。

警告：病毒源码仅供VBS学习之用，请勿非法使用，由于非法使用造成的后果与本人无关

解密前的暴风一号病毒（1KB文件夹快捷方式病毒）

[download id=21]

暴风一号病毒（1KB文件夹快捷方式病毒）解密程序

[download id=20]

解密后的暴风一号病毒（1KB文件夹快捷方式病毒）

[download id=22]

根据暴风一号病毒（1KB文件夹快捷方式病毒）源码改写的专杀程序

[download id=23]

标签： , , , ,
发布在 程序设计 | 11 条评论 »

快捷方式都以IE打开的解决方法

2010年06月28日   By Demon   16,752 views

曾经有个朋友把桌面的快捷方式（*.lnk）都设置成以IE浏览器的打开方式打开了，导致所有的lnk文件都用IE打开导致出现问题。桌面上好多好多IE图标，很好看呢。我研究了好久都没找到设置windows快捷方式都以同一种打开方式打开的方法，不知道她是怎么弄的（其实在控制面板可以改，但是她不是这样弄的），真乃神人。

解决的方法很简单，按下快捷键win+R（注：win键一般是左边Ctrl和Alt之间的那个键，上面画着windows徽标），打开“运行”对话框，输入regedit，回车，打开注册表编辑器。找到

HKEY_CURRENT_USER\Software\Microsoft\Windows
\CurrentVersion\Explorer\FileExts\.lnk

正常情况下应该只有有OpenWithList和OpenWithProgids两项，但是如果用户修改了快捷方式文件默认的打开方式，就会多出UserChoice一项。把UserChoice这一项删除，注销用户后重新登录，或者重启explorer进程，打开方式就恢复默认的了。

标签： , , ,
发布在 操作系统 | 一条评论 »

IPv6免费传文件——uTorrent鲜为人知的功能

2010年06月27日   By Demon   29,105 views

使用uTorrent高级功能中的Embedded Tracker功能可以实现IPv6传文件。这也是六维空间某个XX版主所谓的“作弊”功能，我就不评论了。不懂不可怕，可怕的是不懂装懂。

废话不多说了，正文开始：

首先要安装uTorrent，一般都装了，没装的可以到uTorrent官网下载，安装过程就不讲了
然后选择Options->Preferences或按快捷键Ctrl+P，选择Advanced选项卡，将bt.enable_Tracker设为true，如图

1

阅读这个条目剩下部分 »

标签： , , ,
发布在 软件相关 | 3 条评论 »

« 较老的文章
较新的文章 »