- Код: Выделить всё
RasDial(Nothing, vbNullString, params, 0, Nothing, MyNull)
если соединение работает - то всё кей, можно потом разорвать
- Код: Выделить всё
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RasHangUp(MyNull)
End Sub
но если соединение не рабочее - компьютер зависает на секунд 15-20
/кнопка разрыва-Button2- при этом не нажимается, ПК заблокирован/ и потом через 15-20 секунд RasDial возвращает код ошибки.
Вопрос: как оборвать RasDial не дожидаясь возвращения кода ошибки ?
Как вариант предполагаю запустить функцию RasDial в отдельном Thread (тогда по идее кнопку Button2 не будет заблокирована, как и сам ПК)
а на кнопку Button2 приписать уничтожение Threads, Подскажите пожалуйста кто знает лучше решение. (ВБ 2005)
Спасибо
[/quote]