ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности
47 сообщений из 47, показаны все 2 страниц
  все  
ожидания доступности
    #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, 20:56
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128032
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
А проблема-то в чем, у тебя же есть
Код: vbnet
1.
MsgBox "Текущее подключение к Интернену активно!"

зачем тебе что-то ждать в Form_Load?
...
Рейтинг: 0 / 0
28.01.2013, 22:23
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128038
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro, мне надо если "подключение к сети активно" то отключаем таймер, если нет , то дожидаемся когда будет интернет и тогда продолжаем код, то есть далее msgbox "1"
...
Рейтинг: 0 / 0
28.01.2013, 22:31
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128070
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ну и?
Код: vbnet
1.
2.
3.
Timer1.Enabled = False
MsgBox "Текущее подключение к Интернену активно!"
MsgBox "1"
...
Рейтинг: 0 / 0
28.01.2013, 23:06
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128088
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
блин, ну почему же вы меня не понимаете (
...
Рейтинг: 0 / 0
28.01.2013, 23:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128089
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,
...
Рейтинг: 0 / 0
28.01.2013, 23:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128095
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Может потому, что ты не отвечаешь на вопросы?
...
Рейтинг: 0 / 0
28.01.2013, 23: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:37
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128288
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Ответь на вопрос сначала.
Shocker.Proзачем тебе что-то ждать в Form_Load ?можно сделать ожидание в Form_Load через Sleep, это не будет грузить процессор. Но нужно ли это.
...
Рейтинг: 0 / 0
29.01.2013, 09:51
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128338
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro, я не совсем понимаю твоего вопроса, то что я привел с msgbox это просто пример вместо него будет другой код, form_load должна ждать наличия интернета и только тогда пойти дальше
...
Рейтинг: 0 / 0
29.01.2013, 10:19
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128403
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Почему этот "другой код" должен быть обязательно в Form_Load?
...
Рейтинг: 0 / 0
29.01.2013, 10:53
| Ответить | Цитировать | Написать  
ожидания доступности
    #38128415
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Shocker.Pro,

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



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

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

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

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

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

Вот , выбери что попонятнее.
...
Рейтинг: 0 / 0
30.01.2013, 14:27
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130660
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Antonariy, я знаю что делает функция sleep и без примеров, я не могу куда его поставить в какое место в функции, чтоб потом при вызове этой функции это функция ждала появления интернета и только потом продолжала работать
...
Рейтинг: 0 / 0
30.01.2013, 14:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130667
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
у тебя уже есть цикл, который ждет появления интернета и продолжает работу.

теперь чуть-чуть напряги голову... и.... и....
...
Рейтинг: 0 / 0
30.01.2013, 14:36
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130694
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
На модуле:
 
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

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



На таймере (1с):
 
Код: vbnet
1.
2.
3.
4.
5.
if InternetConnected then
sleep 0
else
sleep 10000000
end if



я думаю может как то так, вот максимум что сообразил
...
Рейтинг: 0 / 0
30.01.2013, 14:44
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130703
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Proу тебя уже есть цикл, который ждет появления интернета и продолжает работу.

теперь чуть-чуть напряги голову... и.... и....

цикл же нельзя использовать она грузит процессор на 100%, если с циклом который грузит систему то тогда у меня уже есть рабочий код наверху
...
Рейтинг: 0 / 0
30.01.2013, 14:46
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130713
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
надо вот вместо
Код: vbnet
1.
2.
3.
While InternetConnected = False
DoEvents
Wend

найти алтернатив (который не грузит процессор)
...
Рейтинг: 0 / 0
30.01.2013, 14:50
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130717
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Блин. Ну и вставь внутрь цикла Sleep 1000. Ты мертвого достанешь. Не нужен тебе таймер в этом случае.
...
Рейтинг: 0 / 0
30.01.2013, 14:52
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130757
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro,

да точно, спасибо за помощь, у меня вообще плохо работает соображалка плохо работает на логику
...
Рейтинг: 0 / 0
30.01.2013, 15:07
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130852
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
тогда может лучше найти себе другое занятие, например картины рисовать?

Вот Эндрю, кажись, внял советам, давно его здесь не видно.
...
Рейтинг: 0 / 0
30.01.2013, 15:43
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130879
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
 

Эндрю видимо замаскировался
...
Рейтинг: 0 / 0
30.01.2013, 15:57
| Ответить | Цитировать | Написать  
ожидания доступности
    #38130884
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
 
Konst_One
Эндрю видимо замаскировался
Эндрю невозможно замаскироваться. Его стиль вопросов неповторим.
...
Рейтинг: 0 / 0
30.01.2013, 15:59
| Ответить | Цитировать | Написать  
ожидания доступности
    #38131420
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Shocker.Pro, не хочу создать еще одну тему, не подскажешь пример или просто можно ли, можно ли разархивировать папку из zip архива без сторонних программ, без показа окна "копирование файлов"
...
Рейтинг: 0 / 0
30.01.2013, 21:33
| Ответить | Цитировать | Написать  
ожидания доступности
    #38131440
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
4604938
...
Рейтинг: 0 / 0
30.01.2013, 21:52
| Ответить | Цитировать | Написать  
ожидания доступности
    #38131722
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Antonariy, спасибо, хорошая тема
...
Рейтинг: 0 / 0
31.01.2013, 09:14
| Ответить | Цитировать | Написать  
ожидания доступности
    #38132398
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Там все равно окошко копирования вылазиет
...
Рейтинг: 0 / 0
31.01.2013, 14:26
| Ответить | Цитировать | Написать  
ожидания доступности
    #38134366
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
почему то у меня в проекте, при компиляции компилятор ругается на этот код
 
Shell "Cmd /x/c taskkill /f /im 0.exe", vbvhite
чисто сам код в чистом проекте работает нормально, а с моим проектом пишет ошибку "неверный тип данных" , из за чего может ругаться
...
Рейтинг: 0 / 0
01.02.2013, 21:08
| Ответить | Цитировать | Написать  
ожидания доступности
    #38134370
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
Выделяется это - vbvhite
...
Рейтинг: 0 / 0
01.02.2013, 21:09
| Ответить | Цитировать | Написать  
ожидания доступности
    #38134552
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ильшат190Выделяется это - vbvhiteВот и смотрите, что у вас в этой переменной находится. Или не находится...
Про Option Explicit помним?
...
Рейтинг: 0 / 0
02.02.2013, 01:30
| Ответить | Цитировать | Написать  
ожидания доступности
    #38134749
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
это не переменная, она скрывает командную строку (его работу)
...
Рейтинг: 0 / 0
02.02.2013, 14:56
| Ответить | Цитировать | Написать  
ожидания доступности
    #38134984
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ильшат190это не переменная, она скрывает командную строку (его работу)Это переменная. У вас.
В процедуре Shell - это параметр, принимающий значение одной из возможных констант.
И, судя по всему, вы не сумели правильно написать имя vbHide
...
Рейтинг: 0 / 0
02.02.2013, 23:06
| Ответить | Цитировать | Написать  
ожидания доступности
    #38135112
Фотография ильшат190
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ильшат190
Участник
я тоже так думал, но в интернете везде пишут vbvhite, это что такая глобальная ошибка)
...
Рейтинг: 0 / 0
03.02.2013, 09:01
| Ответить | Цитировать | Написать  
ожидания доступности
    #38135188
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
ильшат190я тоже так думал, но в интернете везде пишут vbvhite, это что такая глобальная ошибка)Не надо громко заявлять такие слова, как "везде", "всегда", и т.д. - может выйти боком. Покажите, где это пишут в документации. Или вы качаете код от таких же "разработчиков", как вы? - вот Гугель мне подсказал, что этот код присутствует только в постах неких ламерчиков, не стесняющихся в этом признаваться И пошел он от одной ошибки в тексте одного онлайн-курса.

В конце концов, начните читать инструкции, хелп...

Кстати, я уже вроде задавал вопрос - почему именно "Cmd /x/c ...", и нельзя просто вызвать приложение?
...
Рейтинг: 0 / 0
03.02.2013, 12:24
| Ответить | Цитировать | Написать  
ожидания доступности
    #38137307
катастрофа
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
катастрофа
Участник
Shocker.Pro+
 
Konst_One
Эндрю видимо замаскировался
Эндрю невозможно замаскироваться. Его стиль вопросов неповторим.
Всё ок, спасибо что помните, я в командировке....
...
Рейтинг: 0 / 0
05.02.2013, 08:12
| Ответить | Цитировать | Написать  
47 сообщений из 47, показаны все 2 страниц
  все  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ожидания доступности
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=60&tid=2157169]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 42ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 64ms
get tp. blocked users:
 1ms
others: 289ms
total:  436ms
созд. / загр.: 436ms
x
x
Закрыть


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