利用vb实现wincc6.0发送Email

wincc6.0没有发送Email的功能，300的plc需要加模块CP341才能发送Email，其实利用wincc的开放性和vb的实用性，可以为wincc做一个发送Email的控件。
打开vb，新建一个ActiveX控件，在窗口上放置一个picturebox和一个timer控件，图片选以后在wincc上使用的简单明了的图片。编写如下程序：
Sub SendMail(Optional ByVal sSubject As String,_
Optional ByVal sBody As String, _
Optional ByVal sFileName As String)
Shell "regsvr32 /s c:\jmail.dll" '注册jmail，使用前需安装jmail。
Dim jmail
Set jmail = CreateObject("jmail.Message")
jmail.Charset = "gb2312"
jmail.Silent = False
jmail.Priority = 1
jmail.MailServerUserName = "Email帐号"
jmail.MailServerPassWord = "Email密码"
jmail.FromName = "邮件" '发信人姓名
jmail.From = "发邮件地址地址"
jmail.Subject = "电机过载" '标题
jmail.AddRecipient "收信人地址"
jmail.Body = "1#电机过载" '做内容
jmail.Send ("smtp.126.com") 'SMTP服务器，如smtp.sohu.com
Set jmail = Nothing
End Sub

Private Sub Timer1_Timer()
Dim WinCC As Object
Dim xx
Set WinCC = CreateObject("WinCC-Runtime-Project")
xx = WinCC.GetValue("NewTag") '报警触发的变量
If xx = 1 Then
SendMail
End If
End Sub
生成.OCX，简单实用的Email发送控件就做好了。wincc组态时先注册一下这个控件然后添加进去就可以了，当然还可以做出添加变量或者修改邮件内容之类的效果来。

牛人，拜读了！

其实局域网内的数据直接用WINSOCK控件来实时传输就可以了，EMAIL...呵呵。确实牛逼哈...

有点不懂，慢慢研究。

谢谢啊。。现在大家用VB.net的多吗。。