Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности / 25 сообщений из 47, страница 1 из 2
  1  все
28.01.2013, 20:56
    #38127972
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
Option Explicit
Private Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Private Sub Form_Load()
MsgBox "0"
Timer1.Enabled = True
MsgBox "1"
End Sub

Private Sub Timer1_Timer()
If InternetConnected Then
MsgBox "Текущее подключение к Интернену активно!"
Timer1.Enabled = False
Else
MsgBox "Текущее соединение отсутствует!"
DoEvents
End If

End Sub



вот код я намутил, она не работает, мне бы хотелось чтобы однёрка выходила когда есть интернет, если нет то ждет пока будет и тогда выходит, или что то с вызовом функции, не хотелось бы использовать цикл типа
Код: vbnet
1.
2.
3.
While условие 'до тех пор  
DoEvents
Wend


она загружает процессор 100%
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 22:23
    #38128032
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
А проблема-то в чем, у тебя же есть
Код: vbnet
1.
MsgBox "Текущее подключение к Интернену активно!"

зачем тебе что-то ждать в Form_Load?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 22:31
    #38128038
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro, мне надо если "подключение к сети активно" то отключаем таймер, если нет , то дожидаемся когда будет интернет и тогда продолжаем код, то есть далее msgbox "1"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 23:06
    #38128070
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Ну и?
Код: vbnet
1.
2.
3.
Timer1.Enabled = False
MsgBox "Текущее подключение к Интернену активно!"
MsgBox "1"
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 23:33
    #38128088
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
блин, ну почему же вы меня не понимаете (
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 23:33
    #38128089
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro,
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
28.01.2013, 23:37
    #38128095
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Может потому, что ты не отвечаешь на вопросы?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 09:37
    #38128262
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
На модуле:
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Option Explicit

Public Declare Function InternetGetConnectedState _
Lib "wininet.dll" (ByRef lpSFlags As Long, _
ByVal dwReserved As Long) As Long

Public Function InternetConnected() As Boolean
InternetConnected = InternetGetConnectedState(0&, 0&)
End Function

Public Sub f1()
While InternetConnected = False
DoEvents
Wend
End Sub


На форме:
 
Код: vbnet
1.
2.
3.
4.
5.
Private Sub Form_Load()
MsgBox "0"
f1
MsgBox "1"
End Sub


Вот код, как думает что он делает?! Мне надо чтоб он делал тоже самое, только без помощи циклов, цикл загружает процессор на 100% и это не есть гуд.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 09:51
    #38128288
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Ответь на вопрос сначала.
Shocker.Proзачем тебе что-то ждать в Form_Load ?можно сделать ожидание в Form_Load через Sleep, это не будет грузить процессор. Но нужно ли это.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 10:19
    #38128338
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro, я не совсем понимаю твоего вопроса, то что я привел с msgbox это просто пример вместо него будет другой код, form_load должна ждать наличия интернета и только тогда пойти дальше
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 10:53
    #38128403
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Почему этот "другой код" должен быть обязательно в Form_Load?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 10:58
    #38128415
VSVLAD
VSVLAD
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro,

Видимо ТС хочет просто в таймер запихнуть проверку по типу, но объяснить толком не умеет
Код: vbnet
1.
MsgBox IIf(InternetGetConnectedState(0&, 0&), 1, 0)



К тому же способ не самый верный, тогда уж лучше пинговать какой-то сервер/подключаться(ловить ошибку)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 10:59
    #38128417
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
VSVLADВидимо ТС хочет просто в таймер запихнуть проверку по типу, но объяснить толком не умеетДа не, он хочет сделать какие-то действия после появления коннекта, но уже второй топик сопротивляется запихнуть вызов этих действий в Timer1_Timer
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 19:32
    #38129566
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
можно конечно каждый раз сувать все в таймер и с проверкой инета сначала, типа "если есть то делаем это действие отключаем таймер" , так ооочень неудобно, для каждого действия с инетом придется писать отдельный таймер, а мне бы хотелость с вызовом кода ( функции- одной функции), я уже написал вот код который я хочу , все хорошо все работает как надо, только вот мой способ процессор грузит на 100%, может как то можно по другому решить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 19:34
    #38129571
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro ,
"Да не, он хочет сделать какие-то действия после появления коннекта" - я вижу ты наконец то понел)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 19:43
    #38129579
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
ильшат190для каждого действия с инетом придется писать отдельный таймерэто еще зачем?

Ну да ладно. Посмотри функцию Sleep, он не грузит процессор
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 20:28
    #38129625
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
понятия не имею как можно использовать функции слип
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 20:44
    #38129648
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Так посмотри примеры на форуме. Или опять "напишите программу за меня"?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.01.2013, 21:00
    #38129671
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro,

я знаю что она делает, я не могу сообразить как его использовать, напишите хотябы суть как должна работать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 13:22
    #38130494
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
шокер если сам не знаешь зачем писать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 13:55
    #38130568
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Ты посмотрел примеры на форуме? Что именно тебе непонятно?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 13:59
    #38130578
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Shocker.Pro,

я не могу представить как это будет работать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 14:09
    #38130600
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Не надо представлять, надо сделать пример и посмотреть.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 14:12
    #38130607
ильшат190
ильшат190
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Antonariy,

как я найду то не зная что
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.01.2013, 14:27
    #38130637
Antonariy
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ожидания доступности
Как ты вообще голову свою по утрам находишь?

Вот , выбери что попонятнее.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности / 25 сообщений из 47, страница 1 из 2
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 437ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2157169]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 43ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 57ms
get tp. blocked users:
 2ms
others: 286ms
total:  437ms
x
x
Закрыть


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