100分，求高高手一个程序！！

Question

程序的功能：
控制被控制端的机器重启、注销、关机以及自动发送邮件到指定邮箱的功能，并且该程序能在被控制端的机器自动运行。
请写出1.程序系统结构，
　　　　2.窗体描述
本设计涉及的每个窗体的属性描述表
1． 窗体一（范例：输入窗体）对象 属性 设置
Form1 name frmLogin
Caption 用户登录
Command1 Name cmdExit
Caption 退出
Command2 Name cmdOk
Caption 登录
Command3 Name cmdClear
Caption 清除
Text1 Name txtName
Caption （空）
Text2 Name txtPassword
Caption （空）
2． 窗体二3． 窗体三 ……6 模块（子程序）描述
1． 模块一：
概述：
功能：
输入项：
输出项：
处理过程：
接口：
限制条件：2． 模块二：3． 模块三：……7、其它资源文件
7．1 图形文件 7．2 多媒体文件

Answer 1

只能给你个自动发送邮件的代码
Private Sub Command1_Click()
'By Jerry Ye 'http://hi.baidu.com/leaffar/blog/item/86c48e45116daf3a869473d6.html
On Error Resume Next
f = ("[email protected]")'发送邮件的邮箱
smtp = ("smtp.163.com")'邮箱服务器
u = ("xxxxx")'发件邮箱登录用户名
p = ("*******")'发件邮箱密码
t = ("[email protected]")'接收邮件邮箱
m = Text1.Text'邮件主题
msg = Text2.Text'邮件内容
NameSpace = "http://schemas.microsoft.com/cdo/configuration/"
Set Email = CreateObject("CDO.Message")
Email.From = f
Email.To = t
Email.Subject = m
Email.Textbody = msg
Email.AddAttachment j
With Email.Configuration.Fields
.Item(NameSpace & "sendusing") = 2
.Item(NameSpace & "smtpserver") = smtp
.Item(NameSpace & "smtpserverport") = 25
.Item(NameSpace & "smtpauthenticate") = 1
.Item(NameSpace & "sendusername") = u
.Item(NameSpace & "sendpassword") = p
.Update
End With
Email.Send
End Sub

Answer 2

新建窗体Form1在上面放置控件Command1、Text1、Text2，然后将上面的代码复制过去就是了。注意[email protected]和[email protected]都是你自己的邮箱。这样当别人点击Command1时就自动发送邮件到[email protected]了。