На модуле:
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
Этот код, если при запуске интернет есть, то записывает файл если нет то
нечего не делает.
Мне надо чтобы он
ждал когда интернет появится и потом при наличии записал файл.
