Aplicativo para enviar email em massa

Existe um aplicativo chamado SendBlaster que envia emails em massa, a versão free você consegue enviar para 100 remetentes.

segue o link do aplicativo: www.sendblaster.com/pt

Principais nomenclaturas dos controle para VB.NET e C#.NET

Sempre usamos para saber os tipos dos controle adicionados no projeto para fácil programação.

Botão de Comando - btn
Calendário - cld
Caixa de Checagem - chk
Lista de Caixa de Checagem - chkl
Caixa de Combinação - cbo
Barra de Rolagem Horizontal - hsb
Barra de Rolagem Vertical - vsb
Caixa Agrupadora - grp
Lista de Imagens - imglst
Máscara de Texto - msk
Menu - mnu
Caixa de Figura - pic
Botão de Rádio - opt
Caixa de Lista - lst
Rótulo - lbl
Barra de Progresso - prg
Caixa de Texto - txt

Basta incluir o prefixo e usar um nome fácil para utilizar, como no exemplo:

Rótulo : lblNome
Caixa de Texto : txtNome

Manutenção Preventiva

Algumas medidas para o bom funcionamento dos computadores, evitando ter que formatá-lo em curto tempo ou problema com aquecimento, divide-se em física e lógica:

• Física (Problemas com Hardware)
• Verificar se há oxidação nas placas, caso exista usar spray limpador de contatos;
• Acumulo de poeira no interior do gabinete por menor que seja, principalmente no cooler do processador;
• Verificar encaixe das placas;
• Limpeza externa do mouse (bolinhas), teclado e gabinete;
• Renovar a pasta térmica do processador, caso esteja ressecada;
• Verificar se onde o gabinete fica se há ventilação;

• Lógica(Software)
• Apagar arquivos temporários;
• Desinstalar programas em desuso;
• limpeza de cookies e do histórico(Navegador);
• Limpeza do registro
• Configurar a lixeira para que armazena 1% do conteúdo do seu HD.

Programa para manutenção da parte lógica: CCleaner

Comandos Básicos para Prompt de Comando

DIR - Lista arquivos e pastas.
COPY - Copia um arquivo Ex.: COPY teste.txt c:\
MOVE - Move um arquivo Ex.: MOVE teste.txt c:\
MD - Cria pasta Ex.: MD EXEMPLO
CD - Muda para pasta Ex.: CD EXEMPLO
CHKDSK - Verifica erro no HD e exibe relatório.
RD - Apaga pasta vazia Ex.: RD EXEMPLO
DEL - Apaga um arquivo Ex.: DEL teste.txt
REN - Renomeia arquivo Ex.: REN teste.txt teste.doc
SHUTDOWN - Desliga o computador via comando
ATTRIB - Verifica a atribuição do arquivo
CALL - Chama um programa em lote
CLS - Limpa a tela do prompt
COLOR - Muda a cor do prompt de comando
DATE - Altera a data do sistema
DOSKEY - Recupera comando digitando no prompt
EXIT - Sai do prompt de comando
FORMAT - Formata uma unidade de disco
LABEL - Altera ou exclui o rótulo de volume do disco
MORE - Exibe a saída fazendo pausa a cada tela
PAUSE - Suspende o processamento de um arquivo em lotes e exibe uma mensagem
PING - Verifica se o servidor responde
REM - Comentários em arquivo de lote
START - Inicia uma janela separada para executar um programa ou comando específico
TIME - Muda o horário do sistema
TREE - Exibe via prompt a estrutura de pastas
TYPE - Exibe o conteúdo de um arquivo
VER - Exibe a versão do Windows
VOL - Exibe o rótulo e o número de série do volume do disco
XCOPY - Idem ao COPY

Conectar ao banco ACCESS via CSharp 2010

Nesse exemplo estou utilizando no mesmo Formulário:

Using System.Data.OleDb;

        private OleDbConnection BD()
        {
            OleDbConnection cnt = new OleDbConnection();
            String SQL;
            SQL = "provider=microsoft.jet.oledb.4.0;data source=" + Application.StartupPath + "\\BD.MDB";
            try
            {
                cnt.ConnectionString = SQL;
                cnt.Open();
                MessageBox.Show("Banco Carregado","OK");
            }
            catch(Exception ex)
            {
                MessageBox.Show("Erro ao conectar ao Banco!\n\n" + ex.ToString(), "Erro");
                this.Close();
            }

            return cnt;
        }

Observações:

- Não esquecer do NameSpace System.Data.OleDb.
- Application.StartupPath pega o endereço do aplicativo.

Conceitos Básicos para VB.NET

Operdores :
And (E)
Or (Ou)
Not (Não)
Mod (Resto)
<> (Diferente)
Is Nothing
&
=

Variáveis :
Dim var As Integer
Dim v1,v2 As Integer
Dim v1,v2 As Integer, v3 as Double
Dim var as Integer = 1

Vetor / Matriz :
Dim Vetor(1) As String
Vetor(0) = "um"
Vetor(1) = "dois"

Estrutura de Decisão
If Nome = "Teste" Then
MessageBox.Show ("Certo!")
Else
MessageBox.Show ("Errado!")
End If

Select Case Nome
Case "Teste"
MessageBox.Show ("Certo!")
Case "Outra"
MessageBox.Show ("Errado!")
Case Else
MessageBox.Show ("Opção Inválida")
End Select

Estrutura de Repetição
Dim i As Integer
For i = 1 to 10
MessageBox.show (Cstr(i))
Next i

Dim i As Integer = 0
Do While i<5
MessageBox.Show(Cstr(i))
i += 1
Loop

Dim Num() = {1,2,3,4,8,10}
Dim i As Integer
For Each i In Num
MessageBox.Show(Cstr(i))
Next

Opções:
i++ Executa comando depois Incrementa
i-- Executa comando depois Decrementa
++i Incrementa depois executa o comando
--+ Decrementa depois executa o comando

Procedimento / Funçoes
Function Somar ( x As Integer, y As Integer) As Integer
Dim z As Integer
z = x + y
Return z
End Function

Sub Somar(x As Integer, y As Integer)
Dim z As Integer
z = x + y
End Sub

Tratamentos de Erro
Try
   Comandos
Catch
Comandos/Mensagens/Erros
Catch
Etc..
 Finally
    Executa mesmo após o erro.
End Try

Contar os objetos no Form

Mostra o total de objetos no Form em um MessageBox.

MsgBox(Me.Controls.Count)

Digitar somente números em VB.NET

Se digitado não for caracter de digito e não for a tecla Enter então tá liberado, caso seja falso o código não deixa digitar caracter de texto.

Basta incluir esse código no evento KeyPress do TextBox.

        If Not Char.IsDigit(e.KeyChar) And Not e.KeyChar = vbBack Then
            e.Handled = True
        End If

ENTER com a função de TAB no VB.NET

Inserir esse código no evento KeyPress do TextBox

        ' Verifica se foi pressionado a tecla enter
        If e.KeyChar = Convert.ToChar(13) Then
            e.Handled = True

            SendKeys.Send("{TAB}")
            SendKeys.Send("{HOME}+{END}")

        End If

Testar Fonte ATX

Para testar o funcionamento da fonte ATX devemos fazer uma ligação entre o pino VERDE e o pino PRETO

na figura abaixo é o pino 16 e 17.

Instrução SQL SELECT com INNER JOIN

Nesse exemplo utilizarei o banco de dados BD_PESSOA, no qual temos nesse blog o código para criação da tabela que utilizaremos abaixo:

Para selecionar o CPF e o NOME do cliente cadastrado, utilizaremos a instrução 'INNER JOIN' para juntar as tabelas CLIENTE e CLI_FIS.


SELECT CPF,NOME FROM CLIENTE
INNER JOIN CLI_FIS ON CLIENTE.CODIGO = CLI_FIS.CODCLI

No exemplo acima o resultado será:

Esse exemplo mostra todos os clientes físicos.





SELECT CPF,NOME FROM CLIENTE
INNER JOIN CLI_FIS ON CLIENTE.CODIGO = CLI_FIS.CODCLI
WHERE CLIENTE.CODIGO = 1

Com o código acima o resultado será o mesmo, pois o diferencial é o filtro do código do cliente.

Cabo de Rede

Abaixo uma tabela para a crimpar o cabo de rede o famoso RJ45

Roteadores

Primeiro devemos saber qual o seu endereço para acessá-lo, como no exemplo de um roteador Intelbras o endereço físico dele é de 10.0.0.1 e usuário e senha é 'admin', esse IP digitamos na barra de endereço do browser, mas por outro lado temos roteadores com o endereço 192.168.1.1 em relação a isso depende da marca do roteador que pode confundir com o roteador da Speedy no qual seu endereço de Ip é 192.168.2.1.

Observação para identificar o endereço do Ip do seu roteador, basta ver se no manual tem o endereço ou verificar se atras do aparelho.

O cabo da internet você conectará na porta WLAN do roteador para que distribuir a conexão da internet.

Para utilizar o Wireless basta ativar o serviço no Menu Wireless do seu roteador e não se esqueça de colocar uma senha para que vizinhos não utiliza a sua internet via Wireless.

Usuário e senha dos roteadores podem ser diferentes veja alguns exemplos:

Usuário : 'admin' e Senha : 'admin'

Usuário : 'admin' e Senha : '123456'

Criando tabela via código SQL SERVER

No exemplo abaixo mostra as tabelas pelo tipo de Pessoa (Física e Juridica)

Digamos que exista o banco de dados BD_PESSOA

USE BD_PESSOA


GO
CREATE TABLE CLIENTE(CODIGO BIGINT NOT NULL IDENTITY(1,1),
ENDERECO NVARCHAR(50),
BAIRRO NVARCHAR(50),
CIDADE NVARCHAR(30),
UF BIGINT,
CEP NVARCHAR(8),
TIPO CHAR(1),
TEL1 NVARCHAR(10),
TEL2 NVARCHAR(10),
OBS NVARCHAR(250),
ULTNOME NVARCHAR(15),
ULTDATA DATETIME,
CONSTRAINT PK_CODCLIENTE PRIMARY KEY(CODIGO))

GO
CREATE TABLE CLI_FIS(CODIGO BIGINT NOT NULL IDENTITY(1,1),
CODCLI BIGINT,
NOME NVARCHAR(30),
CPF NVARCHAR(11),
RG NVARCHAR(9),
CONSTRAINT PK_CLI PRIMARY KEY(CODIGO),
CONSTRAINT FK_CODCLI FOREIGN KEY(CODCLI)
REFERENCES CLIENTE(CODIGO))

GO
CREATE TABLE CLI_JUR(CODIGO BIGINT NOT NULL IDENTITY(1,1),
CODJUR BIGINT,
RAZAO NVARCHAR(50),
FANTASIA NVARCHAR(50),
CNPJ NVARCHAR(14),
IE NVARCHAR(12),
CONSTRAINT PK_JUR PRIMARY KEY(CODIGO),
CONSTRAINT FK_CJUR FOREIGN KEY(CODJUR)
REFERENCES CLIENTE(CODIGO))

conforme acima para cadastro fica apenas uma tela, sendo que no banco de dados fica mais fácil de identificar os dois tipos de pessoa.

Conectar ao banco SQL via CSharp 2010

Nesse exemplo estou utilizando uma classe BD para incluir o código de conexão ao banco

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Data.SqlClient;

namespace Exemplo
{
    class BD
    {
        public static SqlConnection Conecta()
        {
            SqlConnection cnt = new SqlConnection();
            String SQL;

            SQL = "DATA SOURCE = " + Servidor + ";" + // Nome do Servidor
             "USER ID = " + Usuario + ";" + // Nome do Usuario
             "PASSWORD = " + Senha + ";" +  // Senha do Usuário
             "INITIAL CATALOG = " + Base + ";"; // Base de Dados

            cnt.ConnectionString = SQL;
            try
            {
                cnt.Open();
                return cnt;
            }
            catch (Exception)
            {
                cnt,Close();
                return cnt;
            }
        }
    }
}

Conectar a ACCESS via VB.NET

Nesse exemplo estou utilizando no próprio formulário:

Imports System.Data.OleDb

Public Class Form1

Dim CNT As New OleDbConnection

Private Function BD() As OleDbConnection
        Try
            Dim ArqBD As String = Application.StartupPath & "\BD_AGENDA.mdb"
            Dim CamBD As String = "provider=microsoft.jet.oledb.4.0;data source="
            CNT.ConnectionString = CamBD & " " & ArqBD
            CNT.Open()
        Catch ex As Exception
            MsgBox("Erro" & vbNewLine & ex.ToString)
        End Try
        Return CNT
    End Function
End Class

No evento Load do Form coloque o código abaixo:
  BD()

Tratamento de Dados para inclusão no SQL

Antes de incluir dados no SQL, devemos tratar essas informações:

String devemos deixar (') aspas no inicio e no fim da string, podemos utilizar a função replace("'", ""); ex.: 'administrador';

Data/ Hora devemos inverter para inclusão no banco em campo DateTime; ex.: 01/02/2000 para 2000/02/01

Valor em Moeda trocamos a vírgula e colocamos ponto, para incluir em um campo Decimal com duas casas. ex.: 2,00 fica assim 2.00

Carregar um DataGridView VB.NET

        Dim ds = New DataSet
        Dim SQL As String

       SQL = "SELECT * FROM " & Tabela & " ORDER BY " & Campo

        ' CNT veja em Conexão com Banco de Dados
        Dim da As New System.Data.SqlClient.SqlDataAdapter(SQL, CNT)
        da.Fill(ds, "tabela")

        ' Carrega os Dados e mostra no DataGrid
        DataGridView.DataSource = ds.Tables("tabela")
        DataGridView.Refresh()

Cronometro no VB.NET

No Form inclua um Label, renomeie para lblRelogio;

Inclua um Timer

No Form_Load coloque o código abaixo:

lblRelogio.Text = "00:00:00"

No Evento do Timer coloque o código abaixo:

lblRelogio.Text = DateAndTime.DateAdd("s", 1, lblRelogio.Text)

Dica:

Você pode colocar botões para "Parar, Continuar e Zerar o contador"

Conectar a Banco de Dados via SQL Server no VB.NET

Primeiro devemos incluir o Namespace para conectar via código.


Pode colocar em um Módulo como no exemplo:


Imports System.Data.SqlClient
Module modBD
    Public SQL As String
    Public CNT As New SqlConnection
    Public Function Carregar_Banco() As SqlConnection
        Dim msg As String = "Erro ao Carregar Banco de Dados"
        ' Carregar o Banco de Dados SQL
        SQL = "DATA SOURCE = " & Servidor & ";" ' Nome do Servidor
        SQL = SQL & "USER ID = " & Usuario & ";" ' Nome do Usuario
        SQL = SQL & "PASSWORD = " & Senha & ";" ' Senha do Usuário
        SQL = SQL & "INITIAL CATALOG = " & Base '& ";" ' Base de Dados
        'SQL = SQL & "INTEGRATED SECURITY = YES"
        CNT.ConnectionString = SQL


            If CNT.State = 0 Then
                Try
                    CNT.Open()
                    'MsgBox("Banco de Dados Carregado")
                    'Return True

                Catch ex As Exception
                    MsgBox(msg & vbNewLine & ex.ToString(), MsgBoxStyle.Exclamation, "Alerta")

                End Try
            End If
        Return CNT
    End Function

End Module