Arquivo da tag: Internet

Desenvolvimento, Excel, Microsoft Office, VBA

VBA – Verificar conexão com a Internet

6 Comentários

Internet Connection

Método simples para verificar se o computador está ou não conectado a Internet por VBA.

Copie e cole o seguinte código em um módulo VBA:

Private Declare Function InternetGetConnectedStateEx Lib "wininet.dll" _
                                                     (ByRef lpdwFlags As Long, _
                                                      ByVal lpszConnectionName As String, _
                                                      ByVal dwNameLen As Integer, _
                                                      ByVal dwReserved As Long) _
                                                      As Long
 
Dim sConnType As String * 255
 
Sub TesteConexaoInternet()
    Dim Ret As Long
    Ret = InternetGetConnectedStateEx(Ret, sConnType, 254, 0)
    If Ret = 1 Then
        MsgBox "Você está conectado a Internet via " & sConnType, vbInformation
    Else
        MsgBox "Você não está conectado a Internet", vbInformation
    End If
End Sub

A chamada retorna uma mensagem que avisa se existe conexão com a Internet e através de qual conexão ela é feita.

Abraços

Tomás

Dicas, Web

Icann aprova adoção de novos domínios na internet

da Reuters, em Paris

A Icann, organização mundial que administra os endereços de internet, aprovou nesta quinta-feira (26), durante sua conferencia anual em Paris, a flexibilização dos domínios de internet. De acordo com a novas regras, domínios como “.love”, “.paris” ou até sobrenomes passam a ser válidos.

A medida autoriza também registros em outros alfabetos como asiáticos e arábico.

A Icann confirmou que mudanças técnicas para a implementação do domínios ainda precisam ser feitas, porém garantiu que os primeiros registros devem estar disponíveis em alguns meses. Esses novos domínios teriam de ser aprovados previamente pela instituição. Os custos estimados para a troca do sistema devem superar os US$ 100 mil.

Empresas com domínios já estabelecidos também poderão trocar seus endereços. Neste caso, um endereço como Apple.com pode passar a ser Apple.mac, caso o grupo ache interessante.

“Isto irá fazer uma grande diferença no modo como a Internet aparenta e funciona”, disse Peter Thrush, presidente do conselho da organização.

Tomás Vásquez
www.tomasvasquez.com.br