vb условия

[muham33]

помогите составить скелет/условия , мне надо "проверить наличие интернета все время если есть все нормально программа делает свое дело , если его нет вся программа останавливается и ждем 5минут и опять тоже самое проверяет " желательно с минимальной нагрузкой на комп

[muham33]

я думал может проверку на таймер с интервалом 1с, только потом еще в случае отсутствии инета надо же подождать и еще раз проверить

[muham33]

http://up.wen.ru/mvoYH/IMG-20130110-WA0001.jpg

[С.М.С]

Ну и в чём проблема? Где наработки или всё надо сделать? Честно я не понимаю, как человек может написать обмен с интернетом, но не сделать пару задержек с условиями.

[muham33]

Сообщение от С.М.С

Ну и в чём проблема? Где наработки или всё надо сделать? Честно я не понимаю, как человек может написать обмен с интернетом, но не сделать пару задержек с условиями.

я не могу сделать чтоб программа "ждала" пока интернет включится, чтоб дальше не стала читать то что между концом условий и концом программы

[muham33]

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 Timer1_Timer()
Dim f As String
If InternetConnected Then
f = 1
Else
Refresh
End If
End Sub
Sub telo()
Open "c:\\1.txt" For Append As #1 '????????? ???? ??? ?????????? ??????, ? ??????? ?????? 1
Print #1, Time ' ?????????? ? ???? 1.txt ?????
Close #1 '????????? ????
End Sub

Private Sub Form_Load()

Timer1_Timer

If f = 1 Then
Call telo
Else
End If
End Sub



вот код который должен каждую 1с проверять наличие инета, если есть то должна записать файл, если нет ждать пока включиться инет только ТОГДА выполнить пункт записи в файл, но она этого не делает, здесь переменная f не перемещает своего значения и и програма не ждет "присутствия" инета

[muham33]

На модуле:

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

На форме:

Таймер

Код формы:

Option Explicit

Dim f As String


Public Sub Timer1_Timer()
If InternetConnected Then
f = "1"
Else
End If
End Sub


Public Function telo()
Open "c:\\1.txt" For Append As #1
Print #1, Time
Close #1
End Function

Public Sub Form_Load()
Timer1_Timer
If f = "1" Then
Call telo
Else
End If
End Sub

Этот код, если при запуске интернет есть, то записывает файл если нет то нечего не делает.
Мне надо чтобы он ждал когда интернет появится и потом при наличии записал файл.

[С.М.С]

А где инициализация таймера? т.е где вы его настраиваете на 1 секунду? =)

[С.М.С]

Пробуйте.

Public count as ineger

Public Sub Timer1_Timer()
If InternetConnected Then
f = "1"
Call telo
Timer1.Interval = 1000
Timer1.Enabled = True
Else
If count >= 5 Tnen
count = 0
Timer1.Interval = 1000
Timer1.Enabled = True
Else
count = count+1
Timer1.Interval = 60000
Timer1.Enabled = True
End if
End If
End Sub

[muham33]

че то я не понимаю ваш код, мне кажется она ненадежная сильно