• 🚨 29 мая стартует курс «Пентест Active Directory: от теории к практике» от Академии Кодебай

    🔍 Изучите реальные техники атак на инфраструктуру Active Directory: от первоначального доступа до полной компрометации.
    🛠️ Освойте инструменты, такие как BloodHound, Mimikatz, CrackMapExec и другие.
    🧪 Пройдите практические лабораторные работы, имитирующие реальные сценарии атак.
    🧠 Получите знания, которые помогут вам стать востребованным специалистом в области информационной безопасности.

    После старта курса запись открыта еще 10 дней Подробнее о курсе ...

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

Проблема С Таймером

  • Автор темы Автор темы Aris
  • Дата начала Дата начала
A

Aris

Доброго времени суток!
Помогите пожалуйста! Очень нужно.
Я новичок вообще в программировании и нужна помощь.
Работаю с Visual Basic и проблема связана с работой таймера.
Таймер должен проверять изменения в файле 1.ini и если изменения есть, то считывать и записывать в файл 2.ini. Эта часть работает, все вроде прекрасно! НО.
Таймер одну и ту же инфу считывает и записывает бесконечно.
А мне нужно, чтобы инфа в 1.ini и последняя строка в 2.ini совпадают, то таймер должен перестать работать до поступления новой инфы в 1.ini.
Код примерно таков:

Код:
[i][b]Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick

Dim ChangeInfo As String
If (Unfinished = 1) Then

UnfinishedCases = 1

CaseTimer.Enabled = True

Else
FileOpen(44, CaseFile, OpenAccess.Read, OpenMode.Input, OpenShare.Shared)
Do Until EOF(44)

ChangeInfo = LineInput(44)

If ChangeInfo = "[Номер]:") Then
Number = LineInput(44)
End If

If ChangeInfo = "[Время]:") Then
Time = LineInput(44)
End If				 

If ChangeInfo = "[Человек]:") Then
Iniciator = LineInput(44)
End If

Loop

CaseTimer.Enabled = False
End If
FileClose()

Dim SaveInfo As String = My.Computer.FileSystem.ReadAllText(FilePath + "\" + "1.ini", System.Text.Encoding.Default)

SaveInfo= SaveInfo.Replace("Number", Number)
SaveInfo= SaveInfo.Replace("TransferTime", "#" + Time)

SaveInfo =SaveInfo.Replace("Iniciator", "%" + Name)


My.Computer.FileSystem.WriteAllText(OtherFilePath + "\" + "2.ini", SaveInfo, False, System.Text.Encoding.Default)

End If
End Sub[/b][/i]
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!

Курс AD