• 🔥 Бесплатный курс от Академии Кодебай: «Анализ защищенности веб-приложений»

    🛡 Научитесь находить и использовать уязвимости веб-приложений.
    🧠 Изучите SQLi, XSS, CSRF, IDOR и другие типовые атаки на практике.
    🧪 Погрузитесь в реальные лаборатории и взломайте свой первый сайт!
    🚀 Подходит новичкам — никаких сложных предварительных знаний не требуется.

    Доступ открыт прямо сейчас Записаться бесплатно

Запись в файл через класс

  • Автор темы Автор темы goshanoob
  • Дата начала Дата начала
G

goshanoob

Я тут заморочился писать в файл через класс, вводя значения на форме, вызывая диалоговое окно кнопкой. На форме сделал так:

Код:
 Dim time As New file(famil, country, vrem, popad_lej, popad_sto)
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
kolvo = InputBox("Количество?")
For i = 1 To kolvo

famil = InputBox("Фамилия")

country = InputBox("Страна")

vrem = InputBox("Время")

popad_lej = InputBox("Попадания один")

popad_sto = InputBox("Попадания два")

time.zapil(famil, country, vrem, popad_lej, popad_sto)
Next i
End Sub

Тогда в классе file так:


Код:
Public Sub New(ByVal famil As String, ByVal country As String, ByVal vrem As Integer, _
ByVal popad_lej As Integer, ByVal popad_sto As Integer)
zapil(famil, country, vrem, popad_lej, popad_sto)
End Sub 'Конструктор
Public Sub zapil(ByVal famil As String, _
ByVal country As String, ByVal vrem As Integer, ByVal popad_lej As Integer, ByVal popad_sto As Integer)

FileOpen(1, "c:\Projects\PIQUE\result.txt", OpenMode.Append) ' заись файла

Write(1, famil)

Write(1, country)

Write(1, vrem)

Write(1, popad_lej)

Write(1, popad_sto)

FileClose(1)

End Sub

В итоге этот злодей при запуске проги первым делом лезет в класс и пытается что-то написать в файл. Естественно получается #ERROR 448#,#ERROR. Далее все по задумке. Видимо я чего-то не понимаю?
 
Слепил строчки
Код:
 Dim time As New file(famil, country, vrem, popad_lej, popad_sto)
time.zapil(famil, country, vrem, popad_lej, popad_sto)
 
Мы в соцсетях:

Взломай свой первый сервер и прокачай скилл — Начни игру на HackerLab