powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / передача инфы. чат
98 сообщений из 98, показаны все 4 страниц
передача инфы. чат
    #37760368
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посоветуйте самый простой, быстрый и надёжный способ передачи 1 символа с компа на комп(или ещё куда-нить) через нет. т.е. онлайн чат. сейчас остановился на:
прога на компе-клиенте открывает php страницу моего сайта, передавая в строке символ. этот символ сохраняется в текстовике на сайте.
программа-сервер с интервалом 1 мск или быстрее скачивает этот текстовик, открывает, получает символ, вновь скачивает и тд.
только есть сомнения, что и клиент и сервер будут успевать обрабатывать нажатия и изменения. подскажите, что в вышеизложенном способе неверно и посоветуйте плз что-нить. p/s с винсок разбирался, но какая-то непонятная муть. желательно через посредника - сайт
...
Рейтинг: 0 / 0
передача инфы. чат
    #37760539
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Если оба клиента за шлюзами, без посредника и не получится.

Если это именно чат, а не нечто вроде чата, то инфу нужно передавать не посимвольно. Нужно записывать в базу все сообщения, а клиент должен их запрашивать, передавая время последнего полученного сообщения. Таким образом ему вернутся сообщения с момента последнего полученного в прошлый раз. И делать это нужно не чаще раза в секунду, незачем генерить трафик бесполезными запросами.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37760875
йдуцук
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Antonariy,

а сама идея? всё верно? всё-таки необходимо каждый раз скачивать текстовик? что подразумевается под базой, я не оч понял посимвольно захотелось сделать для пущего эффекта: красиво, когда видишь, как собеседник старательно тыкает по клавишам, стирает набранное, набирает вновь)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37760944
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Под базой понимается реляционная база данных. Раз php, значит наверняка под чем-то линуксообразным, значит MySql. Текстовик это вообще не вариант для таких задач. Текстовик — для хранения текста, не более.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761144
Фотография Qlewer
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

про линуксообразность не очень понял. php - потому что я не знаю, как ещё оставить инфу в нете) кроме прямой закачки, отправки майла и php. повозился со своим сайтом - нашёл раздел "базы данных", создал новую базу. создал логин и паролm нового пользователя базы данных. как теперь оставить в ней инфу, а потом считать? т.е. как её вообще юзать?)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761295
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
qlewerкак теперь оставить в ней инфу, а потом считать? т.е. как её вообще юзать?)
В общем и целом, нужна хотя бы одна таблица хотя бы с тремя полями: время сообщения, автор сообщения, текст сообщения. Как в нее вставлять и извлекать данные " ищите сами " или посетите здешние ветки по php/mysql, там расскажут больше.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761742
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

спс, но катастрофически не хватает знаний по базам данных. как-нибудь позже помучаю формчан слишком простыми для них вопросами по базам. а сейчас пытаюсь попробовать свой вариант. сделал программу-клиент - успевает побуквенно отсылать нажатия в текстовик на сайте через php. всё норм. а как правильней всего считать текстовик? не скачивая? а то ради одного символа скачивать, мне кажется, неправильно. p/s русские буквы никак через php не передаются? а то приходится передавать код символов
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761832
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пытаюсь так
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://qlewer.mgn-host.ru/qqqqqq.txt", False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
With CreateObject("ADODB.Stream")
.Open
.Position = 0
.Type = 2
Text1.Text = .ReadText
.Close
End With
End If

что-то не очень получается. вернее вообще никак
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761843
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что ты надеешься прочитать из свежесозданного пустого ADODB.Stream? Какое по-товоему отношение он имеет к остальному коду?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761856
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

просто нашёл несколько кодов, которые выполняют хз какую муть. перебрал все параметры с точкой, какие нашёл. постоянные ошибки(зато разные, разнообразие ) если вставить .Write oXMLHTTP.responseBody выдаёт ошибку. очевидно, что вместо сохранения файла на комп .SaveToFile нужно юзать обычное присваивание переменной. но как? нигде ничего нет!
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761863
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
То есть как обычно, думать даже не пробовал.

"Обучай только того, кто способен, узнав про один угол квадрата, представить себе остальные три."
Конфуций.

Свободен.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761872
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

по твоей логике: продолжи ряд чисел 4, ?, ?, ? назови три неизвестных символа в этом ряду. не можешь? автор"узнав про один угол квадрата, представить себе остальные три."
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761877
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Мальчег, что ты знаешь о логике, тем более моей? Не тебе задавать подобные вопросы кому-либо.

PS. У квадрата все углы равны.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761884
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Antonariy,

разражает?) м?) а меня твои подколки нет?) радует только, что порой они компенсируются правильными ответами. покажи мне один из углов квадрата. остальные я как-нибудь представлю
AntonariyPS. У квадрата все углы равны.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761898
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
Text1.Text = oXMLHTTP.responseBody

тоже не помогает. сплошные вопросики, вместо символов. т.е. Text1.Text - текстовое поле. oXMLHTTP - объект. и объект почему-то не хочет впихиваться в текстовое поле
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761965
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroText1.Text - текстовое поле. oXMLHTTP - объектну так. про один из углов квадрата...

Text1.Text - это не текстовое поле, это свойство текстового поля. Text1 - это текстовое поле, и оно, кстати, объект. oXMLHTTP - объект, но oXMLHTTP.responseBody не объект....

В общем, как я и говорил в самом начале твоей карьеры, пока у тебя нет понимания ООП, не фиг лезть в более сложные вопросы.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761976
timtim
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что с удалением иконки чужого приложения из трея ты решил?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37761991
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
timtimЧто с удалением иконки чужого приложения из трея ты решил? это решено, довольно удачно. был найден код на дельфи. VSVLAD помог его перевести. последние символы имени иконки распознаются коряво, но вполне рабочий код, задача решена. у меня много проектов. это из раздела "скайп". сейчас я занят кейлоггером
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762010
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://qlewer.mgn-host.ru/qqqqqq.txt", False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
    With CreateObject("ADODB.Stream")
     .Mode = 3
     .Type = 1
     .Open
     .Write oXMLHTTP.responseBody
     .SaveToFile "C:\" & "11.txt", 2
    End With

забил на красоту, пытаюсь сохранить текстовик из инета на комп, открыть его, считать данные. но мистика: текстбокса на компе нет. на сайте пустой текстовик. никаких следов о существовании логов где-либо. включаю программу и вижу то, что я набирал несколько часов назад! wtf? О_о
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762024
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кэш
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762030
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
Set oXMLHTTP = Nothing

не помогает( эхъ
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762036
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroне помогаетна сервере
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762044
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

а что с этим делать?(
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762048
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroAntonariy,

разражает?)Не льсти себе. Меня раздражает твоя нулевая способность к самообучению, а подколки лишь удивляют расстояниями промаха.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762128
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroа что с этим делать?запретить кеширование страницы, либо запрашивать некешированную страницу.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37762592
QValD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Не ленись читать книжки, толку от таких вот "тычков методов на обум" немного.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763158
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProBelowZeroа что с этим делать?запретить кеширование страницы, либо запрашивать некешированную страницу. как?( открываю файл на хостинге: пустой. через браузер - пустой. запускаю прогу - всё те же логи! сегодня уже другая проблема: файл заполнен, а прога возвращает пустой файл QValDНе ленись читать книжки, толку от таких вот "тычков методов на обум" немного. ты прям капитан баян из южного парка
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763404
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroQValDНе ленись читать книжки, толку от таких вот "тычков методов на обум" немного.
ты прям капитан баян из южного паркаПоскольку QValD прав, считаю это оскорблением участника форума, первый раз предупреждение, второй раз сам знаешь
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763443
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

в том то и дело, что прав) смотрел южный парк? Дословно:
- Он пришёл нам помочь! Капитан Баян! В этом горящем здании остались люди! Мы не можем добраться до них!
- Хм... Вы видите эти окна справа? если бы там была пожарная лестница, эти люди смогли бы спуститься вниз. Взгляните на крышу! надо было укрепить её ещё во время строительства, чтобы на ней мог приземлиться вертолёт!
- Да, конечно!
- А видите это здание слева?
- Да!
- Его не стоило там строить. потому что теперь там негде припарковать пожарные машины. Что ж, похоже, моя миссия выполнена. Прощайте!
- Спасибо, Капитан Баяяяяяян! Спасибо!!!!_)))
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763445
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

а что по теме топика? подскажи плз, что делать
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763491
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Private Sub Timer1_Timer()
Timer1.Enabled = False
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "GET", "http://qlewer.mgn-host.ru/1.txt", False
oXMLHTTP.Send
If oXMLHTTP.Status = 200 Then
With CreateObject("ADODB.Stream")
     .Mode = 3
     .Type = 1
     .Open

.Write oXMLHTTP.responseBody
Код: vbnet
1.
2.
.SaveToFile "C:\" & "moi file.txt", 2
End With

новая ошибка. вчера этот код работал норм. текстовик на сайте не пустой. почему ошибка - хз. мб потому, что прога воспринимает текстовик пустым...?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763696
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
гы-гы-гы новая трабла решена - из-за множественных разборов полёта при заливке текстовика забыл изменить его права на 777
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763721
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а нет... ошибка всё-таки из-за того, что файл пустой. хм, как много мороки с передачи 1 символа через интернет. с офлайном было куда проще. по прежнему не решена трабла с "кешем". буду рад советам
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763802
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ставлю код на кнопку. жму. выходит содержимое текстовика (пусть будет число "5") на хостинге, сам текстовик очищается. жму ещё раз кнопку. ещё. получаю 55555555555555555555555555555555.....
закрываю прогу. открываю вновь - ничего не получаю(логично: текстовик-то давно пустой). что теперь, считывать символ, закрывать прогу, открывать, считывать следующий символ?))_)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763839
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> что теперь, считывать символ, закрывать прогу, открывать, считывать следующий символ?))_)

Закрывая, ты завершаешь процесс, который породил соединение и поэтому соединение закрывается. Оно и так закроется, но
для этого нужно выждать время. В общем случае неизвестно когда. Посмотреть можно, но сложно. Зачастую нужно здесь и
сейчас перезапрашивать новые данные. Поэтому я сделал ActiveX Exe который вызываю при необходимости что-то получить из
инета, и освобождаю после получения нужной информации. Плюс в том, что каждый раз создается новый процесс и соединение
всегда актуальное. В самом ActiveX Exe одна функция которая, примерный код которой ты привел выше.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37763852
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

никогда бы не подумал) можешь вкратце объяснить, почему АктивИкс? (не очень представляю, чем он отличается от обычного неактивного ехе) в моём представлении тут обычный ехе, который считывает инфу с инета и записывает в текстовик. + второй ехе, который считывает текстовик на компе, запускает\вырубает первый ехешник
...
Рейтинг: 0 / 0
передача инфы. чат
    #37764049
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
забил на активикс. но объяснение, почему используется именно он, было бы интересно. сделал систему из 2 прог и 1 текстовика - на первый план вновь вышла проблемка: строка
Код: vbnet
1.
 .Write oXMLHTTP.responseBody

прорабатывает с ошибкой из-за того, что текстбокс на хостинге пустой. как быть? как проверить?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37764057
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
пробую так
Код: vbnet
1.
If oXMLHTTP.responseBody <> "" Then Else End

- какая-то путаница с типами. как проверить, пустой файл на хостинге, или нет?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37764087
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroтекстбокс на хостинге пустойого, он уже текстбокс на хостинг загнал
...
Рейтинг: 0 / 0
передача инфы. чат
    #37764126
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroИгорь Горбонос,

никогда бы не подумал) можешь вкратце объяснить, почему АктивИкс? (не очень представляю, чем он отличается от обычного неактивного ехе) От твоей схемы с двумя exe отличается только тем, что я вызываю в программе через CreateObject(как Ексель), а не через Shell, как ты. Можно ещё сделать асинхронный режим и ждать Event от ActiveX Exe об окончании загрузки и возврате данных вызвавшей программе.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37764385
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

спс, понятн... в теории. на практике это открытие америки.
а что насчёт ошибки из-за пустого файла? насильно впихивать в него какой-нибудь бесполезный символ, чтобы не было ошибок? хз как проверить, что текстовик на хосте не пустой.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37765904
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> Игорь Горбонос,
>
> спс, понятн... в теории. на практике это открытие америки.

10534722 - практика

> а что насчёт ошибки из-за пустого файла? насильно впихивать в него какой-нибудь бесполезный символ, чтобы не было
> ошибок? хз как проверить, что текстовик на хосте не пустой.

Запросить размер файла или дату последнего изменения. Посмотри как это делает тот-же давнлоадмастер .

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37766298
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

а как правильно проверить, пустое .responseBody или нет? 12448935 я пробую, когда пустое вроде прокатывает, но когда есть символы идут ошибки
...
Рейтинг: 0 / 0
передача инфы. чат
    #37766426
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> а как правильно проверить, пустое .responseBody или нет?

Тут почитай. А точнее нужно смотреть
спецификацию HTTP-протокола и по ней определять, что нужно спрашивать и где
смотреть ответ.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37766474
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

почитал... даже не vb... весь код ведь 1 строчка? можешь её написАть?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37766536
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero

я то могу, когда ты сможешь???

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Sub zsdfg11()
Dim oXMLHTTP As Object
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP")
oXMLHTTP.Open "HEAD", "http://qlewer.mgn-host.ru/1.txt", False
oXMLHTTP.setRequestHeader "Host", "http://qlewer.mgn-host.ru"
oXMLHTTP.send
Do While oXMLHTTP.readyState <> 4
    DoEvents
Loop
MsgBox oXMLHTTP.getResponseHeader("Content-Length")
End Sub



Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37766557
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

пасяп)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767066
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

запускаю прогу. размер 114. закрываю прогу. очищаю текстовик на серве. запускаю прогу - 114. заполняю текстовик всякой мутью - 114. wtf?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767073
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
а не... всё нормально, если скомпилировать файл. это бейсик тупит
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767082
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZero,

он не тупит, он не сразу закрывает соединение, т.к. исполняемый файл в данном случае vb6.exe
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767096
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

угук... сделал. ток теперь мой комп подтормаживает на долю секунды и выводит песочные часы при каждом открытии вспомогательной проги. видимо, комп тратит слишком много сил, чтобы пропустить через себя прогу, считывающую 1 символ из инета( как-то это можно исправить?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767105
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
моя схема: нажатый символ моментально сохраняется на хостинге, считывается второй программой. вторая программа этот символ удаляет. но какое-то звено цепи, видимо, хостинг, тормоз: с момента нажатия символа до получения проходит пол секунды. с момента получения символа до удаления полторы секунды. в итоге я получаю что-то типа "ппппппррррррииииивввввееееееттттт"
...
Рейтинг: 0 / 0
передача инфы. чат
    #37767139
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
мдэ( с записью логов всё норм. через php в текстовик на хостинге всё сохраняется просто идеально. а с получением - траблы. медленно, коряво( постоянно мигающие песочные часы, символы передаются охапками по 5-6 штук при средней скорости печати... эх
...
Рейтинг: 0 / 0
передача инфы. чат
    #37768844
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

напиши плз, как ты вызываешь вспомогательную программу. не оч понял, как создание объекта в основной проге поможет запустить вспомогательную активную...
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769298
Хых
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZero,

Есть форум специальный где нужный код за денюжку пишут.(раз у самого не хватает ума)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769353
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хых, вау, как просто жить, Вы это пробовали? и как?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769828
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
хм( нужен самый простой пример вызова activeX из обычного ехе. а то у меня "activeX component can't create object" и тд.
из exe вызываю
Код: vbnet
1.
2.
3.
4.
5.
Dim mPrintOutput As Object
'On Error Resume Next
Set mPrintOutput = CreateObject("PrintObject.clsPrint") 'activeX component can't create object 
mPrintOutput.StartPrint
Set mPrintOutput = Nothing

имя актива clsPrint, в активе имеются процедура, функция, всего по немногу с именем StartPrint. или проги должны лежать в одной папке? очевидно, что они не найдут друг друга
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769945
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> хм( нужен самый простой пример вызова activeX из обычного ехе. а то у меня "activeX component can't create
> object" и тд.


А ты ехе регистрировал???

Потому, что я вызываю точно так-же. И все работает.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769951
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> или проги должны лежать в одной папке? очевидно, что они не найдут друг друга

После регистрации СОМ объекта не важно где он лежит относительно вызывающей программы, все нужные пути прописаны в
реестре.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37769958
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

регистрация? О_о
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770027
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroИгорь Горбонос,

регистрация? О_о
Код: vbnet
1.
Shell "cmd.exe c:\Online.exe /regserver"

что-то не оч получается
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770034
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZero, в ручную пробовали?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770048
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> Shell "cmd.exe c:\Online.exe /regserver"
> что-то не оч получается

Конечно не получится, ты ключ пропустил :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770052
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
катастрофа,

вручную тоже нет. путь получается корявый:
Microsoft Windows XP [Версия 5.1.2600]
(С) Корпорация Майкрософт, 1985-2001.
C:\VB6>c:\Online.exe /regserver
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770060
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> вручную тоже нет. путь получается корявый:

и что не получается?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770066
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

не получается зарегистрировать COM объект) когда-то делал - вылетело из памяти. что за ключ?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770074
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> не получается зарегистрировать COM объект) когда-то делал - вылетело из памяти. что за ключ?

Покажи как регистрировал, потом покажи как проверял и какая при этом возникала ошибка

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770082
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
кое-как забил правильный путь:
C:\>Online.exe /regserver
Отказано в доступе.
..... не является приложением Win32
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770115
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> Отказано в доступе.

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


Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770124
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
посмотрел: при компиляции файла vb6 сохранил пустой файл. т.е. online.exe 0 байт. исправил.
C:\>Online.exe /regserver
C:\>online.exe /regserver
C:\>
никаких ошибок, никаких известий. ошибка "activeX component can't create object" прежняя
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770227
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroпосмотрел: при компиляции файла vb6 сохранил пустой файл. т.е. online.exe 0 байт. исправил.
C:\>Online.exe /regserver
C:\>online.exe /regserver
C:\>
никаких ошибок, никаких известий. ошибка "activeX component can't create object" прежняя т.е. объект зарегистрирован, просто стесняется мне об этом сообщить? тогда как правильно связать ехе и актив? ошибка ведь остаётся. или регистрация так и не прошла? про ключ не понял
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770235
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вызывает подозрение, что имя класса и имя экзешника не совпадает. Скорее всего неправильно указываешь его в CreateObject
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770260
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.ProВызывает подозрение, что имя класса и имя экзешника не совпадает. Скорее всего неправильно указываешь его в CreateObject да, несовпадает. исправил - так же. код в exe:
Код: vbnet
1.
2.
3.
4.
5.
6.
'Shell "cmd.exe c:\clsPrint.exe /regserver"
Dim mPrintOutput As Object
'On Error Resume Next
Set mPrintOutput = CreateObject("PrintObject.clsPrint") 'activeX component can't create object
mPrintOutput.StartPrint
Set mPrintOutput = Nothing

создал активикс. код в нём:
Код: vbnet
1.
2.
3.
4.
5.
6.
Public Sub Class_Initialize()
MsgBox "q"
End Sub
Public Function StartPrint()
MsgBox "w"
End function

свойство нейм активикса clsPrint, скомпилировал в файл clsPrint.exe
запускаю основную прогу: "activeX component can't create object" что за классы вообще не в курсах
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770411
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroPrintObjectвот это в твоем AxtiveX-проекте чем является?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770413
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroShocker.ProВызывает подозрение, что имя класса и имя экзешника не совпадает. Скорее всего неправильно указываешь его в CreateObject да, несовпадает. исправил - так же. код в exe:экзешник как раз может называться как угодно. Класс внутри проекта называется, как я понял clsPrint. А как называется проект?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770422
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> создал активикс. код в нём:
>
> Public Sub Class_Initialize()
> MsgBox "q"
> End Sub

Какой MsgBox????
Чистые СОМ-объекты(не OLE!!!, а именно СОМ) не могут иметь форм. А ты пытаешся оттуда сообщение подать. Вот он и падает
на создании класса. О чем тебе и говорит в ошибке, что не может создать объект.


И в функции StartPrint сделай возвращаемое значение и показывай меседжбоксом из своей программы:
Код: vbnet
1.
2.
MsgBox 
mPrintOutput.StartPrint

а в самой функции, вообще во всем классе поубирай все мессаджи

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770453
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Shocker.Pro,

да, помогло спасибо!) поменял имя в "прпертиз", получил 2 мсгбокса, ну а потом ошибку. но те ошибки - уже дургая история)

Игорь Горбонос,

спс за код) как синхронизировать прогу и актив пока хз, буду тупо по таймеру открывать актив, а что он там будет вытворять - поф)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770476
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ошибка на строке
Код: vbnet
1.
mPrintOutput.StartPrint

причём весь код актива прокатывается норм, а потом возникает эта ошибка в основной проге. странно
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770509
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> ошибка на строке

ну и??? нам отсюда не видно какой код вызывает ошибку :)

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770513
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroShocker.ProВызывает подозрение, что имя класса и имя экзешника не совпадает. Скорее всего неправильно указываешь его в CreateObject да, несовпадает. исправил - так же. код в exe:
Код: vbnet
1.
2.
3.
4.
5.
6.
'Shell "cmd.exe c:\clsPrint.exe /regserver"
Dim mPrintOutput As Object
'On Error Resume Next
Set mPrintOutput = CreateObject("PrintObject.clsPrint") 'activeX component can't create object
mPrintOutput.StartPrint
Set mPrintOutput = Nothing

создал активикс. код в нём:
Код: vbnet
1.
2.
3.
4.
5.
6.
Public Sub Class_Initialize()
MsgBox "q"
End Sub
Public Function StartPrint()
MsgBox "w"
End function

свойство нейм активикса clsPrint, скомпилировал в файл clsPrint.exe
запускаю основную прогу: "activeX component can't create object" что за классы вообще не в курсах
вот этот)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770568
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: Игорь Горбонос
> Какой MsgBox????
> Чистые СОМ-объекты(не OLE!!!, а именно СОМ) не могут иметь форм. А ты пытаешся оттуда сообщение подать. Вот он и
> падает

Исправлюсь, не могут иметь показываемых форм.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770589
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

угу, это я проверил, пока изучал активикс. если даже активикс пустой, всё равно эта ошибка
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770598
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> если даже активикс пустой, всё равно эта ошибка

Так не бывает. Что-то у тебя не так

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770611
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь ГорбоносЧто-то у тебя не так
да, я тоже так думаю) поигрался со строчками:
Код: vbnet
1.
2.
3.
Public Function StartPrint()
End
End Function

есть ошибка, а без End всё норм
Код: vbnet
1.
2.
Public Function StartPrint()
End Function

но мне нужно как-то закрыть активикс
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770636
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> есть ошибка, а без End всё норм

Пипец! Иди читай в справке что делает End.

> но мне нужно как-то закрыть активикс

А как ты закрываешь объект FileSystemObject? Или MSXML2.XMLHTTP?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770648
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

приравниваю к Nothing. это в основном ехе. а в активиксе? например,
Код: vbnet
1.
 If App.PrevInstance = True Then End 

на что заменить?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770650
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> приравниваю к Nothing. это в основном ехе. а в активиксе? например,
> If App.PrevInstance = True Then End
> на что заменить?

А что этот код должен делать в ActiveX Exe? Каков его смысл?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770692
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

активикс вызывается по таймеру. если код ещё не успел отработать, то второй вызов происходить не должен. если файла на компе не существует... или ещё что. много причин)
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770763
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> активикс вызывается по таймеру. если код ещё не успел отработать, то второй вызов происходить не должен. если
> файла на компе не существует... или ещё что. много причин)

Когда происходит тик таймера в обработчике первой строкой ставится
Код: vbnet
1.
Timer1.Enable = False


Потом выполняются необходимые действия и по окончании, перед выходом из обработчика таймер снова взводится:
Код: vbnet
1.
Timer1.Enable = True


этим гарантируется ненаступание на свой хвост.

Все остальные причины точно так-же обрабатываются и вызов сервера автоматизации просто не производится, или в самом
сервере автоматизации закладывают проверки на "много причин" по которым просто не выполняется рабочий код, а происходит
"холостой запуск".

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770778
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбоносэтим гарантируется ненаступание на свой хвост. угу, можно и так... пока что заменил все End на Exit Function. всё работает. ошибок нет. но! всё это было затеяно радо песочных часов. я думал, что если юзать активикс(или ещё что-нить), то их не будет. в итоге курсор пляшет от постоянной отработки активикса. даже если таймер будет раз в минуту, песочные часы сильно раздражают
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770877
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь ГорбоносИди читай в справкеДля белова это нереальное оскорбление.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770881
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

у тебя тоже песочные часы при каждом обращении к активиксу? даже хз, в каком направлении теперь рыть.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770894
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
> Автор: BelowZero
> у тебя тоже песочные часы при каждом обращении к активиксу?

Ну вообще да, т.к. у меня опрашивается банк и я пару часов вообще не трогаю компьютер, на котором идет опрос или
запускаю опрос на ночь.

А что ты хочешь этим сделать?

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770917
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Игорь Горбонос,

я хочу в реальном времени получать нажатия с другого компьютера. т.е. сижу я за компом, а в это время в текстбоксе выводятся логи. типа, мегакейлоггер) всё работает. но мерцание песочных часов раздражает.
...
Рейтинг: 0 / 0
передача инфы. чат
    #37770943
oreZwoleB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
BelowZero...типа, мегакейлоггер)....
Привыкай называть всё своими именами! Типа - мегаговнокейлоггер!
...
Рейтинг: 0 / 0
передача инфы. чат
    #37771289
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
oreZwoleBBelowZero...типа, мегакейлоггер)....

Привыкай называть всё своими именами! Типа - мегаговнокейлоггер! вот чел молодец. не поленился. написал мой ник наоборот. это ж сколько усилий. эту бы энергию да на благое дело!
а что с песочными часиками делать? как-то от них избавляться? или искать способ сбросить соединение, чтобы не юзать дополнительные ехе, активиксы и прочее? есть у кого какие догадки?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37771309
Фотография BelowZero
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в браузере есть кнопка обновить... и никаких песочных часов. страница перезагружается, обновляется. мне нужно тоже самое. или в браузерах какая-то неизведанная космическая технология?
...
Рейтинг: 0 / 0
передача инфы. чат
    #37771352
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
BelowZeroили в браузерах какая-то неизведанная космическая технология?Да. Называется многопоточность. Можешь почитать Мэтью Курланда по этой теме. У него расписано что и как, причем ещё в 1998 году.
...
Рейтинг: 0 / 0
98 сообщений из 98, показаны все 4 страниц
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / передача инфы. чат
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]