segunda-feira, 22 de outubro de 2018

Como Recuperar o Windows 10 (Sem Formatar o HD) (Prompt Command) 2018

1.

Video Aula
Se você ainda não for inscrito se inscreve no canal
clincando aqui e deixa o like pra ajudar na divulgação do video.

(Ajude o canal fazendo uma doação)
...
Segue abaixo os comandos que usei e os links de download:
...
# passo 1
Tutorial: Configure a bios do seu pc teclando F3 algumas vezes durante o carregamento do windows, para entrar no modo de boot e marque a opção de CD DVD como prioridade 1 e depois F4 para sair e salvar a bios e depois vá na opção de "Reparar o computador" e vá na "opções avançadas" e opções "Prompt de command" e depois inserir o códigos abaixo teclando "enter". 
Feito isso carregue o windows normalmente com o boot normal e tecle F8 algumas vezes durante o carregamento do windows (lembre de mudar o boot). E entre no tela de boot ou vá na diretamente na opção "Recuperar o pc" e opção "manter os arquivos" ou "Recuperar o PC mantendo os arquivos"

Obs: Você deve insistir um pouco nesse procedimento do boot ele demora um pouco carregar geralmente a tela fica congelada no carregamento isso acontece porque o sistema deve ter tido muitas queda de energia e os arquivos do sistema acabaram corrompendo e lembre de criar um ponto de restauração depois que tiver recuperado o sistema, e os demais programas ficam na pasta "Windows.old" caso precise deles e jogue os de volta na pasta atual. 
E se for instalar o windows 7 eu recomendo que crie uma partição de uns 10 ou 20GB no seus HD é o suficiente pra instalar o windows (certifique que tenha espaço no HD) e depois faça a instalação nessa partição do HD.

1 - Tenha em mãos um DVD ou pendrive bootavel com a imagen do sistema operacional

2- Vá em "opçoes avançadas" e depois "Prompt de comando"

e digite os valores abaixo um por vez e tecle enter:

Comandos:
######################################
1. [digite]
Bootrec /fixmbr

2. [digite]
bcdedit /export c:\bcdbackup

3. [digite]
atrrib c:\boot\bcd -h -r -s

4. [digite]
ren C:\boot\bcd bcd.old

5. [digite]
 bootrec /rebuildbcd

6. [digite] sem as apas
"s"

7. [digite]
exit
#########################################
# passo 2

Tutorial : Clique direito do mouse sobre o HD e depois vá em "propriedades" e depois opção de "segurança" e mude as permissões do HD para administradores e marques todas as opçôes e depois vá na opção de "verificar erros no HD" [se estiver no windows 7]  execute o procedimento para corrigir os erros do seu HD e depois faça a copia do "System32" que esta em "Windoiws\System32"ou se preferir copie todas elas no seu VM  (Emulado) com as opções de pasta compartilhadas "BI DIRECIONAL" e subscreva os arquivos do seu HD.
Nota:  para instalar o windows 10 no VM uns 10 ou 15 GB no minimo é o suficiente.


(Ajude o canal fazendo uma doação)

Se você ainda não for inscrito se inscreve no canal
clincando aqui e deixa o like pra ajudar na divulgação do video.

domingo, 1 de julho de 2018

[VBS] VBScript - Exemplos de Scripts (source) {Vegeta Multi jogos}



[Tutorial]
Os scripts podem ser criados ou editados pelo bloco de notas sem a necessidade de nenhum programa ou pelo editor Notepad++ se preferir:

Para executar os códigos do blog basta criar um arquivo "novo" em sua area de trabalho e mudar a extenssão *.txt para *.vbs ou com o bloco de notas e "salvar como" *.vbs.

Exemplo:
clique direito do mouse: Opçao "novo" clicar em "Novo documento txt" e depois mudar a extenção *.txt para *.vbs e o seu arquivo esta pronto para ser editado ou executado no windows.

##################################################
##################################################
MSGBOX
[source]
Rem # Meu Primeiro programa
msgbox "Hello World!", vbInformation, "Meu Primeiro programa em VB Script"

INPUTBOX
[source]
Rem #Inputbox
nome =Inputbox("Digite o seu nome e Sobrenome","Input Required")
WScript.Echo nome

idade =Inputbox("Digite a sua idade","Input Required")
WScript.Echo idade

INPUTBOX + COMANDO DE VOZ
[source]
Dim message, sapi
message=InputBox("Digite a sua mensagem de voz?", "Speak to Me")
Set sapi=CreateObject("sapi.spvoice")
sapi.Speak message
##################################################
##################################################
Neste campo segue varios exemplos do mesmo Script em blocos diferentes:
##################################################
RUN COMAND (0) - CMD
[source]
Dim objShell
Set objShell = WScript.CreateObject ("WScript.shell")
objShell.run "cmd /K CD C:\ & Dir"
Set objShell = Nothing

RUN COMAND (1)
[source]
Rem Declarar uma variavel "obj"
Dim objShell

Rem Criar uma variavel "Obj" (Qualquer nome)
Set objShell = WScript.CreateObject ("WScript.shell")

Rem Executar programas
objShell.run "notepad.exe"
objShell.run "mspaint.exe"
Set objShell = Nothing

RUN COMAND (2)
[source]
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run ("%windir%\notepad.exe " & WScript.ScriptFullName)

RUN COMAND (3)
[source]
Rem # Declarar uma variavel
Dim a

Rem # Criar uma variavel (Qualquer nome)
Set a = WScript.CreateObject ("WScript.shell")

Rem Executar programas
a.run "notepad.exe"
a.run "mspaint.exe"
Set a = Nothing

RUN COMAND (4) - FULL
[source]
Rem # Para adicionar um "Comentario" nas linhas do programa.

Rem # Forçar todas as variaveis
Option Explicit

Rem # Declarar todas as variaveis
Dim obj, a, b, c
Set obj = WScript.CreateObject ("WScript.shell")
Set a = WScript.CreateObject ("WScript.shell")
Set b = WScript.CreateObject ("WScript.shell")
Set c = WScript.CreateObject ("WScript.shell")

Rem # Executar todos os programas
obj.run "notepad.exe"
a.run "chrome.exe"
b.run "mspaint.exe"
c.run "iexplore.exe"

Rem # Variavel Nula ou Vazia
Set d = Nothing

RUN COMAND (5)
[source]
Set objShell = CreateObject("WScript.Shell")
objShell.run("cscript C:\scripts\demo.vbs")
##################################################
##################################################
Neste campo segue 2 exemplos do mesmo Script:
##################################################
StrComp (1)
[source]
REM #######################################################
REM # Syntax
REM #      StrComp(String1, String2 [,compare] )

REM # Key
REM #   String1   A string expression.

REM #   String2   A string expression.
REM # compare   vbBinaryCompare (0) or vbTextCompare(1)
REM #######################################################
REM # If string1 = string2 StrComp returns 0 (vbFalse)
REM # If string1 < string2 StrComp returns -1 (vbTrue)
REM # If string1 > string2 StrComp returns 1
REM # If either string = null StrComp returns null
REM #######################################################

REM # DECLARAÇÃO DE STRINGS USANDO TEXTOS, NUMEROS E EXPRESSÕES:(=, <, >, null)
Dim strCasa
strCasa ="Casa"
strNumero =45

REM # COMPARAÇÃO DE STRINGS USANDO STRING
strResultado =StrComp(45, strCasa)
WScript.Echo strResultado

StrComp (2)
[source]
REM #######################################################
REM # Syntax
REM #      StrComp(String1, String2 [,compare] )

REM # Key
REM #   String1   A string expression.

REM #   String2   A string expression.
REM # compare   vbBinaryCompare (0) or vbTextCompare(1)
REM #######################################################
REM # If string1 = string2 StrComp returns 0 (vbFalse)
REM # If string1 < string2 StrComp returns -1 (vbTrue)
REM # If string1 > string2 StrComp returns 1
REM # If either string = null StrComp returns null
REM #######################################################

REM # DECLARAÇÃO DE STRINGS USANDO TEXTOS, NUMEROS E EXPRESSÕES:(=, <, >, null)
Dim strCasa
strCasa ="Casa"
strNumero ="45"

REM # COMPARAÇÃO DE STRINGS USANDO VARIAVEL
var1 =StrComp(strCasa, strNumero, 0)
WScript.Echo var1
##################################################
##################################################
Neste campo segue exemplos de if e else usando varieis e strings:
##################################################
If then, ElseIf, Else
[source]
Rem Comparaçoes usando Case sensitivity (if then, ElseIf, Else)
IF "CACHORRO" = "Cachorro" Then
msgbox "O Valor é diferente (1)", vbInformation

ElseIf "Cachorro" = "Cachorro" Then
msgbox "O Valor esta correto (2)", vbInformation

Else msgbox "O Valor de ambos é diferente (3)", vbInformation
End If

If then, ElseIf, Else - STR (1)
[source]
hournow = hour(Time())
If hournow < 12 Then WScript.Echo "Good Afternoon"


Dim strCountry
strCountry = "USA"

If strCountry = "USA" Then
   WScript.Echo "United States of America."
ElseIf strCountry = "CA" Then
   WScript.Echo "Canada."
Else
   WScript.Echo "Some other country."
End If

If then, ElseIf, Else - STR (2)
[source]
Rem Comparação de variaveis (if then, ElseIf, Else)

DIM strCountry
strCountry = "USA"

IF strCountry = "EUA" Then
msgbox "O local esta correto (1)", vbInformation

ElseIf strCountry = "CA" Then
msgbox "O Local esta errado! (2)", vbInformation

Else msgbox "O Local de ambos esta errado! (3)", vbInformation
End If
##################################################
##################################################


terça-feira, 6 de março de 2018

Menu (.bat) para programas do Windows

[source]

@echo off

:menu
echo 1-Google Chrome
echo 2-Internet Explorer
echo 3-Windows Media Player
echo.

set /p opcao=digite um valor (ex:1,2 ou 3) "

if %opcao%==1 goto 1
if %opcao%==2 goto 2
if %opcao%==3 goto 3

:1
start chrome.exe
cls
goto:eof

:2
start iexplore.exe
cls
goto:eof

:3
start wmplayer.exe
cls
goto:eof

#Fim



sábado, 3 de março de 2018

Future Pinball 3in1 FullSet 6GB (Download)

Future Pinball 3in1 FullSet.zip (6GB)(Download)



  P1

  P2

  P3

 P4 

  P5

 P6


  P7

  P8

  P9

  P10

  P11

  P12

  P13

  P14 

  P15

 P16 

 P17 

  P18

  P19

  P21

  P21

  P1

  P2

 P3 

  P4

  P5

  P6

  P7

  P8

  P9

  P10

Future Pinball 3in1 FullSet.zip (6GB)(Download)


Nota: (Pré-configurado)