Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Общий форум

Страница: 1 |

 

  Вопрос: Код выполняется вопреки логике !!! Добавлено: 19.10.05 22:30  

Автор вопроса:  student-uni
Код приблизительнотакой

  RasDial("Соединение с Интернет")' запускаем соединение
' в реале вызывается функция которая потом вызывает эту функцию

                    If RasDialErrorCode <> 0 Then ' если ошибка - ругаемся
                        MsgBox(" Error-Code  - " & RasDialErrorCode)
                        RasHangUp(MyNullHandle) 'на всякий случай вешаем трубку
                        Sleep(3000) ' подождём закрытия порта - рекомендовано МСДН
                        Me.Close() и закрываем форму
                    Else

GEtenumconnections() 'запускаем другую функцию
' в реале вызывается функция которая потом вызывает эту функцию


endif



Теперь внимание проблема:

RasDial("Соединение с Интернет") не срабатывает как вы понимаете сразу
надо время секунд 5-10

так вот пока она "думает" код идёт выполняться дальше

и пока я получаю RasDialErrorCode <> 0
всё равно выскакивает
GEtenumconnections()
который не должен был бы выскочить если бы RasDialErrorCode принял своё значение без задержки.

Вопрос

Как обойти эту пакость ?

Эффект проверен.
если перед проверкой записать значение насильно
RasDialErrorCode = 1
If RasDialErrorCode <> 0 Then ' если ошибка - ругаемся


то всё работает нормально

Спасибо всем

Ответить

  Ответы Всего ответов: 6  

Номер ответа: 1
Автор ответа:
 HACKER


 

Разработчик Offline Client

Вопросов: 236
Ответов: 8362
 Профиль | | #1 Добавлено: 19.10.05 22:50
а если после RasDial("Соединение с Интернет";) вставить Sleep(6000) ?

Ответить

Номер ответа: 2
Автор ответа:
 DaSharm



ICQ: 780477 

Вопросов: 72
Ответов: 1297
 Web-сайт: dasharm.com
 Профиль | | #2
Добавлено: 19.10.05 23:10

не ну офигеть, а кто тебе сказал, что RasDial сразу запишет ошибку? это ведь не синхронное действие.

Ответить

Номер ответа: 3
Автор ответа:
 student-uni



Вопросов: 122
Ответов: 257
 Профиль | | #3 Добавлено: 19.10.05 23:28
причину вижу, чем лечить то ?

Ответить

Номер ответа: 4
Автор ответа:
 student-uni



Вопросов: 122
Ответов: 257
 Профиль | | #4 Добавлено: 19.10.05 23:29
2 Хакер

можно, но комп то умирает,
нехорошо как то с юзверем ...

Ответить

Номер ответа: 5
Автор ответа:
 Morpheus



Вопросов: 224
Ответов: 3777
 Web-сайт: xury.zx6.ru
 Профиль | | #5
Добавлено: 19.10.05 23:34
ну цикл поставь типа "делать пока не подключимся" и вызывать DoEvents и рендерить надпись "погоди противный, подключаемся" :)

Ответить

Номер ответа: 6
Автор ответа:
 student-uni



Вопросов: 122
Ответов: 257
 Профиль | | #6 Добавлено: 20.10.05 23:57
Спасибо всем и особенно Morpheus
Рулит !!

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам