Запуск приложения в отдельно потоке

@kreotodr · Регистрация: 15.08.2014

Студворк — интернет-сервис помощи студентам

Добрый день коллеги!
Нашел пример Кривоус Анатолия на проторах инета..

Пока не разобрался до конца..

Суть вопроса в чем

пример кода из предлагаемого примера

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub cmdNewThread_Click()
    Dim hThread As Long, IDThread As Long, Pt As Point
    Randomize
    
    Pt.Pos.X = 100: Pt.Pos.Y = 100
    Pt.Spd1 = 0.000001: Pt.Spd2 = 0.00000001
    Pt.Color = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
    Pt.Status = True
    
    Thread(Threads.Count) = Pt
    hThread = CreateThread(ByVal 0, 0, AddressOf MoveProc, Thread(Threads.Count), 0, IDThread)
    If hThread Then Threads.Add hThread Else MsgBox ("Íåóäàëîñü ñîçäàòü ïîòîê"): Exit Sub
    SetThreadPriority hThread, 0
    cboThread.AddItem hThread
    cboThread.ListIndex = cboThread.ListCount - 1
End Sub

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

Visual Basic
1
2
    Thread(Threads.Count) = Pt
    hThread = CreateThread(ByVal 0, 0, AddressOf MoveProc, Thread(Threads.Count), 0, IDThread)

Но догать как это реализовать через Shell не понимаю... Прошу помощи Автора и знающих...

@Апострофф · 23.03.2015, 11:26

https://www.cyberforum.ru/blog... g2792.html
https://www.cyberforum.ru/blog... g3262.html - мир тесен

@The trick · 23.03.2015, 11:35

Полностью распиши очень подробно что ты хочешь и для чего отдельный поток

Сообщение от kreotodr

В моем случае необходимо через отдельный поток запустить отдельный модуль...

Как такое возможно? Что значит запустить модуль?

@kreotodr · 23.03.2015, 14:53 **[ТС]**

Сообщение от The trick

Как такое возможно? Что значит запустить модуль?

Еще раз добрый день!
Задач банальна. Писал об этом тут (Отправка/получение файлов на FTP с прогресс баром)

Суть проста при запуске Проект.exe последняя "лезет" в инет и "смотрит" наличие определенной информации на ФТП сервере. В момент коннекта она "подвисает". Причем на разных Win и с разными типами подключений по разному. У кого-то незаметно, у кого-то висит секунд 15.

Решил вопрос банально. Проект.exe через Shell запускает Inet.Exe, последний лезет в интернет и тд. Таким образом сам Проект.exe не "подвисает", и "терпиливо" ждет ответа от Inet.Exe.

Следующий этап проблемы был расписан вот здесь..(https://www.cyberforum.ru/post7375803.html)
суть которой сводится к тому, что при большом количестве подключений сервер сбрасывает соединение для Inet.Exe и тот "крашится".

Второе решил тоже примитивно. Однократной загрузкой Inet.Exe для закачки отдельного файла.. То-есть если нужно скачать 100 файлов, 100 раз грузим Inet.Exe из Проект.exe через Shell. Вроде как все работает, но возникает проблема визуального контроля процесса загрузки файлов...

Суть проблемы в следующем из проекта 100 раз вызывается Inet.Exe для загрузки 100 файлов... Отображение хода загрузки идет через ПрогресБар в Проект.exe. На каком то этапе форма в Проект.exe равно как и прогресс бар в Проект.exe "подвисают" и понять, что, куда движется оч. сложно..

Добавлено через 6 минут
Хочу попробовать реализовать запуск Inet.Exe из Проект.exe через отдельный поток...

Добавлено через 1 час 37 минут

Сообщение от Апострофф

https://www.cyberforum.ru/blogs/354370/blog2792.html
https://www.cyberforum.ru/blog... g3262.html - ми

Боюсь, что нужно идти на двухмесячные курсы, чтобы понять все это...

Новые блоги и статьи Все статьи Все блоги /
Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .	Настройка движения справочника по регистру сведений Maks 29.03.2026 Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .	Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	23.03.2015, 11:26
	https://www.cyberforum.ru/blog... g2792.html https://www.cyberforum.ru/blog... g3262.html - мир тесен 0