Função VB.Net para verificar se o ano é Bissexto

Public Function AnoEBissexto(Ano As Integer) As Boolean
    If Ano Mod 4 = 0 Then
        If Ano Mod 100 = 0 Then
            If Ano Mod 400 = 0 Then
                Return True
            Else
                Return False
            End If
       Else
          Return True
       End If
    Else
        Return False
    End If
End Function

Formatos de datas no SQL Server

Mon DD YYYY (AM or PM)

SELECT CONVERT(VARCHAR(20), GETDATE(), 100) AS DataConvertida

MM/DD/YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 1) AS DataConvertida

MM/DD/YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 101) AS DataConvertida

YY.MM.DD

SELECT CONVERT(VARCHAR(8), GETDATE(), 2) AS DataConvertida

DD/MM/YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 1) AS DataConvertida

DD/MM/YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 103) AS DataConvertida

DD.MM.YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 4) AS DataConvertida

DD.MM.YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 104) AS DataConvertida

DD-MM-YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 5) AS DataConvertida

DD-MM-YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 105) AS DataConvertida

DD Mon YY

SELECT CONVERT(VARCHAR(9), GETDATE(), 6) AS DataConvertida

DD Mon YYYY

SELECT CONVERT(VARCHAR(11), GETDATE(), 106) AS DataConvertida

Mon DD, YY

SELECT CONVERT(VARCHAR(10), GETDATE(), 7) AS DataConvertida

Mon DD, YYYY

SELECT CONVERT(VARCHAR(12), GETDATE(), 107) AS DataConvertida

HH:MM:SS

ELECT CONVERT(VARCHAR(8), GETDATE(), 108) AS DataConvertida

Mon DD YYYY HH:MI:SS:MMM (AM or PM)

SELECT CONVERT(VARCHAR(26), GETDATE(), 109) AS DataConvertida

MM-DD-YY

SELECT CONVERT(VARCHAR(8), GETDATE(), 10) AS DataConvertida

MM-DD-YYYY

SELECT CONVERT(VARCHAR(10), GETDATE(), 110) AS DataConvertida

YY/MM/DD

SELECT CONVERT(VARCHAR(8), GETDATE(), 11) AS DataConvertida

YYYY/MM/DD

SELECT CONVERT(VARCHAR(10), GETDATE(), 111) AS DataConvertida

YYMMDD

SELECT CONVERT(VARCHAR(6), GETDATE(), 12) AS DataConvertida

YYYYMMDD

SELECT CONVERT(VARCHAR(8), GETDATE(), 112)  AS DataConvertida

DD Mon YYYY HH:MM:SS:MMM(24h)

SELECT CONVERT(VARCHAR(24), GETDATE(), 113) AS DataConvertida

HH:MI:SS:MMM(24H)

SELECT CONVERT(VARCHAR(12), GETDATE(), 114) AS DataConvertida

YYYY-MM-DD HH:MI:SS(24h)

SELECT CONVERT(VARCHAR(19), GETDATE(), 120) AS DataConvertida

YYYY-MM-DD HH:MI:SS.MMM(24h)

SELECT CONVERT(VARCHAR(23), GETDATE(), 121) AS DataConvertida

YYYY-MM-DDTHH:MM:SS:MMM

SELECT CONVERT(VARCHAR(23), GETDATE(), 126) AS DataConvertida

DD Mon YYYY HH:MI:SS:MMM

SELECT CONVERT(VARCHAR(26), GETDATE(), 130) AS DataConvertida

DD/MM/YYYY HH:MI:SS:MMM

ELECT CONVERT(VARCHAR(25), GETDATE(), 131) AS DataConvertida

Fonte:

https://augustopierzynski.wordpress.com/2011/08/25/formatando-data-no-sql-server/

Criar caixa de mensagem em VB.NET ASPX

Criar uma subrotina na classe da página conforme abaixo:

  Private Sub CaixaDeAviso(ByVal Mensagem As String)
    Dim lbl As New Label
    lbl.Text = ""
    Page.Controls.Add(lbl)
  End Sub

Para chamar a subrotina, coloque o seguinte código onde desejado, normalmente dentro de um "IF"

Exemplo:

If Alguma coisa Then
    CaixaDeAviso("Isto é um aviso.")
End If

Caixa de confirmação em páginas ASPX com VB.NET

1) Criar uma classe (ou colocar o procedimento abaixo em uma classe existente)

Public Class CaixaDeConfirmacao
    Public Sub CriarCaixaDeConfirmacao(ByRef Botao As WebControls.Button, ByVal Mensagem As     String)
        Botao.Attributes.Add("onclick", "return confirm('" & Mensagem & "');")
    End Sub
End Class



2) No Load da página:

Dim CAIXA As New CaixaDeConfirmacao

CAIXA.CriarCaixaDeConfirmacao(btnApagar, "Deseja Continual?")


Quando Clicar no botão "btnApagar", Aparecerá uma caixa com os dois botões, "OK" e "Cancelar", se clicar em cancelar o procedimento será abortado.

Informações de usuários logados no Windows

No prompt de comandos:

qwinsta

Retorna:

As sessões abertas no host ;

Username logado  na sessão;

ID da sessão;

Estado da sessão.

rwinsta

                Reseta a sessão remota fazendo logoff do usuário.

Fonte:

http://usuarioavancado.blogspot.com.br/2011/02/identificar-o-usuario-que-esta-logado.html

Descobrir o Nome da máquina remota pelo Endereço IP

Para descobrir o HostName de  uma máquina remota:

1) No prompt de comandos digite nslookup seguido de Endereço IP da máquina

Exemplo: nslookup 192.168.2.2

          No retorno do comando será exibido várias informações da máquina remota, inclusive o HostName da mesma.


2) Outra forma é usar, no Prompt de Comandos, o comando nbtstat seguido do Endereço IP da máquina remota
Exemplo: nbtstat -a 192.168.2.2

Para saber a sintaxe completa dos comandos, digite o nome do comando seguido de "/?"

Exemplos:

Resetar senha de administrador do Windows

1.       Colocar CD de instalação Windows

2.       Clicar em Reparar o Computador

3.       Clicar em promt de comando

      4.       Achar o drive que o Windows está instalado (c: d: ....)

5.       Digitar: copy c:\windows\system32\sethc.exe c:\

6.       Verificar que o arquivo foi copiado

7.       Digitar: copy c:\windows\system32\cmd.exe c:\windows\system32\sethc.exe

8.       Reiniciar o computador

9.       Apertar a tecla shift 5 vezes

10.   Digitar: net user usuario  senha

Para habilitar usuário desabilitado digitar: net user usuario /active:yes

Para verificar usuários: net user

Após copiar o arquivo sethc.ex para sua pasta de origem, para isto deve-se dar boot com o CD do Windows novamente repetindo os passos 2 e 3 e depois efetuando a cópia.
(copy c:\sethc.exe c:\windows\system32).

Fontes:

http://www.howtogeek.com/96630/how-to-reset-your-forgotten-windows-password-the-easy-way/

http://www.howtogeek.com/howto/windows-vista/enable-the-hidden-administrator-account-on-windows-vista/

Colaboração: Roberto Dias Aquino

Transferir itens selecionados de um listbox para outro e limpar o original vb.net aspx

Protected Sub btnIncluir_Click(sender As Object, e As EventArgs) Handles btnIncluir.Click

    'Transfere os itens selecionados do listbox origem para o listbox destino        
    For Each Item In lstOrigem.Items
       If Item.selected = True Then
           lstDestino.Items.Add(Item)
       End If
    Next

    'Remove os itens selecionados do listbox origem
    For Each Item In lstOrigem.GetSelectedIndices
        lstOrigem.Items.Remove(lstOrigem.SelectedItem)
    Next

End Sub