Programa de Serial em VB6

[HackerGLS 0]

Olá pessoal!

Hoje estarei ensinando a vocês,como fazer um Programa de Serial em VB6!

Vamos lá:

 

Abra o Visual Basic 6,e selecione Standart EXE.

 

Adicione os seguintes componentes:

2Labels - lblserial ; lblcreditos ; (adicione mais 3 labels,para separar os Text's)

4Text's - txtc1 ; txtc2 ; txtc3 ; txtc4

1CommandButton - cmd_entrar

1Formulário - frm_programa (o primeiro formulario,pode-se chamar de frm_serial)

 

Organize o Formulário para que fique mais ou menos assim:

 

No frm_serial , edite a propriedade MaxLength.

Essa propriedade,faz com que só aceitem X numeros e/ou letras no Text(deixe 0 se quiser deixar letras/numeros infinitos).

No meu caso,editei para 4.

 

Clique duas vezes sobre o cmd_entrar e edicione:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

Explicação:

Se todos for colocado "1234" em todos os Text's,então vai abrir um novo programa.

 

Download da Source + Arquivos:

[DOWN]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/DOWN]

 

Scan:

[sENHA]

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[/sENHA]

 

Créditos:

HackerGLS (eu)

[Ryokusei 21]

Você tem 3 (três) dias para adicionar o scan ao tópico, ou ele será fechado.

[HackerGLS 0]

O site virustotal não abre aqui!

Já tentei entrar em outros sites de escaneamento online,mas deu a mesma coisa.

Também venho tendo problemas de não conseguir abrir certos programas,como:

CCleaner

IExplorer

Calculadora do Windows (já cheguei a trocar,mas ainda não abre).

 

Peço desculpas,e espero que compreenda.

 

@edit

 

video:

É necessário se cadastrar para acessar o conteúdo.

• Entre
• ou
• Cadastre-se

[Ryokusei 21]

Tudo bem, eu mesmo fiz o scan e adicionei ao tópico. O arquivo está limpo.