Можете протестировать прогу ( сегодня отнес на КП) не пахала

[zaf]

Протестируйте плиз мою тупую прогу!:(
Всю неделю гимороился:(
В универ отнес не пахала:(
Выдавала то ошибку чета с номерами файлов я посмотрел вроде все норм...

[Роман-вб]

zaf
А что такое "КП". Аббривиатура то многозначная
P.S. Ты сожми прогу свою до максимума, чтоб ещё меньше была

[zaf]

zaf
А что такое "КП". Аббривиатура то многозначная
P.S. Ты сожми прогу свою до максимума, чтоб ещё меньше была

Компьютерная Подготовка ( короче Информатика в универе:) )
Куда меньша я на максимум сжатие поставил!

, А по делу ничего нет?

[Sirik]

мякго говоря она у меня не работает, так как нет файлов.
после создания файлов, сервер меня выкинул - бан

[zaf]

мякго говоря она у меня не работает, так как нет файлов.
после создания файлов, сервер меня выкинул - бан

Какой сервер?:(

Тебя должно выкинуть при условии если в файле ban.jpg есть твой ник

[Sirik]

я создал пустые файлы

[zaf]

я создал пустые файлы

Хм...

А что в сообщении о бане написалось?
Просто что т ы забанен?

P.S.
Если появится окошко о бане которое на закрывается то введите там код shahbazyanguuban

[zaf]

Вот добавил еще и EXEшник

[neic]

Описваю ошибки:

Код: Выделить всё

Private Sub Form_Load()
CheckCopyApp
'ôàéëû
fileFree = FreeFile
urlChat = "C:\vbChat\chatis.jpg"
urlLogin = "C:\vbChat\loginis.jpg"
urlBan = "C:\vbChat\banis.jpg"

Frame2.Visible = False
Frame3.Visible = False
End Sub


Надо:

Код: Выделить всё

Private Sub Form_Load()
CheckCopyApp
'ôàéëû
fileFree = FreeFile
urlChat = App.path & "\chatis.jpg"
urlLogin = App.path & "\loginis.jpg"
urlBan = App.path & "\banis.jpg"

Frame2.Visible = False
Frame3.Visible = False
End Sub


А здесь, что прога пытаеться сделать?

Код: Выделить всё

Private Sub Timer2_Timer()
Dim zChatext As String

Open Form1.urlChat For Input As #fileFree
RichTextBox1.Text = Input$(LOF(fileFree), #fileFree)
Close #fileFree

Как ты открываешь картинку?

Код: Выделить всё

Open Form1.urlBan For Input As #fileFree 'Открыть картинку


В Text3 поставь свойство MultiLine = True

Дальше продвинуться не смог!

[zaf]

Описваю ошибки:

А здесь, что прога пытаеться сделать?

Код: Выделить всё

Private Sub Timer2_Timer()
Dim zChatext As String

Open Form1.urlChat For Input As #fileFree
RichTextBox1.Text = Input$(LOF(fileFree), #fileFree)
Close #fileFree

Тут читаем текстовой файл и добавляем текст в Rich text Box

Как ты открываешь картинку?

Код: Выделить всё


Open Form1.urlBan For Input As #fileFree 'Открыть картинку


В Text3 поставь свойство MultiLine = True

Дальше продвинуться не смог!

Это не картинка!
Просто в универе очень много любопытных людей!
Я вместо текстового файла поставил разширение .jpg , а какая разница?

[zaf]

Вот 5ая форма которая осуществляет выход пользователя из чата ( удаление строки с его ником из файла) и выход из программы

Код: Выделить всё


Private Sub Form_Load()
nFile = FreeFile

Open Form1.urlChat For Append Shared As #nFile
Print #nFile, "-|||- [" & Format$(Now, "hh:mm:ss") & "]" & " Из чата уходит "; uNik & "! Всего доброго"
Close #nFile

    Dim FINDSTR As String

    FINDSTR = Form1.Text1.Text

    Dim ff As Byte, sData As String
    ff = FreeFile

    Open Form1.urlLogin For Input As #ff
        sData = Input(LOF(ff), ff)
    Close #ff

    Dim arrStrs() As String
    arrStrs = Split(sData, vbNewLine)

    Dim i As Long, sOut As String
    For i = 0 To UBound(arrStrs)
        If Trim$(arrStrs(i)) <> FINDSTR Then
            sOut = sOut & arrStrs(i) & vbNewLine
        End If
    Next

    sOut = Mid$(sOut, 1, Len(sOut) - Len(vbNewLine))

    ff = FreeFile
    Open Form1.urlLogin For Output As #ff
        Print #ff, sOut;
    Close #ff
   
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()

nFile = FreeFile
    Dim FINDSTR As String

    FINDSTR = Form1.Text1.Text

    Dim ff As Byte, sData As String
    ff = FreeFile

    Open Form1.urlLogin For Input As #ff
        sData = Input(LOF(ff), ff)
    Close #ff

    Dim arrStrs() As String
    arrStrs = Split(sData, vbNewLine)

    Dim i As Long, sOut As String
    For i = 0 To UBound(arrStrs)
        If Trim$(arrStrs(i)) <> FINDSTR Then
            sOut = sOut & arrStrs(i) & vbNewLine
        End If
    Next

    sOut = Mid$(sOut, 1, Len(sOut) - Len(vbNewLine))

    ff = FreeFile
    Open Form1.urlLogin For Output As #ff
        Print #ff, sOut;
    Close #ff


End
End Sub


Ошибка появляется и выделяется вот эта строка
sOut = Mid$(sOut, 1, Len(sOut) - Len(vbNewLine))

Главное у меня на компьютере все работает на 5 с +

[zaf]

А что если файл с логинами всунуть в рич текст бокс, а потом найти найденные ники удалить, а потом сохранить / заменить все из текст бокса

[neic]

Это не картинка!
Просто в универе очень много любопытных людей!
Я вместо текстового файла поставил разширение .jpg , а какая разница?

Ну вообще-то у тебя при загрузке написано:
urlBan = "C:\vbChat\banis.jpg"
Вообще-то *.jpg - всегда был форматом расширения картники
ЗЫ лол, а как ты хочешь картинку в тектсовой контрол засунуть =) , для этого тебе нужно формат *.jpg переделовать в *.txt
Хочешь могу помочь!

[zaf]

Это не картинка!
Просто в универе очень много любопытных людей!
Я вместо текстового файла поставил разширение .jpg , а какая разница?

Ну вообще-то у тебя при загрузке написано:
urlBan = "C:\vbChat\banis.jpg"
Вообще-то *.jpg - всегда был форматом расширения картники
ЗЫ лол, а как ты хочешь картинку в тектсовой контрол засунуть =) , для этого тебе нужно формат *.jpg переделовать в *.txt
Хочешь могу помочь!

Я этот файл использую как текстовой!
чат прекласно работает!

Если этот файл открыть в блокноте то увидете самый обычный текст который был послан в чат!

ведь разширение можно использвать любое *.vsemprivet

Так что...

[zaf]

Хочешь могу помочь!

Помощ в создании чата или в чем?
Хочу!)

[neic]

Я этот файл использую как текстовой!
чат прекласно работает!

Если этот файл открыть в блокноте то увидете самый обычный текст который был послан в чат!

ведь разширение можно использвать любое *.vsemprivet

Так что...

Всё понял, я думал ты используешь картинку

Помощ в создании чата или в чем?
Хочу!)

Стучи сюда : 9529452

[zaf]

Помощ в создании чата или в чем?
Хочу!)

Стучи сюда : 9529452[/quote]

Ок седня с качалки приду постучу или завтра после универа....
спс

[neic]

Да не за что!