sábado, 15 de junho de 2019

Autohotkey - Object #1 (Tradução) (Pt-Br)


Object
O tipo de dados de objeto básico do AutoHotkey é um array associativo com recursos que permitem que seu comportamento seja personalizado. Por padrão, todos os objetos criados por {}, [], Object () e Array () suportam o seguinte:
Methods:
Properties:
Functions:
Deprecated (não recomendado para uso):
Cada método também possui uma função equivalente, que pode ser usada para ignorar qualquer comportamento personalizado implementado pelo objeto - é recomendável que essas funções sejam usadas apenas para essa finalidade. Para chamar um, prefixe o nome do método com "Obj" e passe o objeto de destino como o primeiro parâmetro. Por exemplo:

array := [1, 2, 3]
MsgBox % ObjMaxIndex(array) " = " array.MaxIndex()

Se uma função de método Obj for chamada com um objeto ou valor do tipo errado, ela retornará uma string vazia. Funções autônomas, como ObjRawSet, lançam uma exceção. 

InsertAt [v1.1.21+]
Insere um ou mais valores em uma determinada posição dentro de um array linear.
Object.InsertAt(Pos, Value1 , Value2, ... ValueN)

Pos

A posição para inserir o valor1 em. Valores subseqüentes são inseridos em Pos + 1, Pos + 2, etc.

Value1 ...
Um ou mais valores para inserir. Para inserir uma matriz de valores, passe theArray * como o último parâmetro.

Remarks

InsertAt é a contraparte do RemoveAt.

Como Objetos são matrizes associativas, Pos também é a chave inteira que será associada a Value1. Todos os itens anteriormente à direita de Pos são deslocados para a direita pelo número exato de parâmetros de valor, mesmo que alguns valores estejam faltando (ou seja, o objeto é uma matriz esparsa). Por exemplo:

x := []
x.InsertAt(1, "A", "B") ; =>  ["A", "B"]
x.InsertAt(2, "C")      ; =>  ["A", "C", "B"]

; Sparse/unassigned elements are preserved:
x := ["A", , "C"]
x.InsertAt(2, "B")      ; =>  ["A", "B",    , "C"]

x := ["C"]
x.InsertAt(1, , "B")    ; =>  [   , "B", "C"]

InsertAt deve ser usado somente quando as chaves inteiras do objeto representam posições em uma matriz linear. Se o objeto contiver chaves inteiras arbitrárias, como IDs ou identificadores, é provável que InsertAt cause efeitos colaterais indesejados. Por exemplo:

x := [], handleX := 0x4321, handleY := 0x1234
x.InsertAt(handleX, "A")
MsgBox % x[handleX]  ; A - okay
x.InsertAt(handleY, "B")
MsgBox % x[handleX]  ; Empty
MsgBox % x[handleX+1]  ; Esta é a nova "posição" de "A"
InsertAt não afeta as chaves de string ou objeto, portanto, pode ser usado com segurança com objetos que contenham tipos de chave mistos.

RemoveAt [v1.1.21+]
Remove itens da posição determinada em um array linear.

Object.RemoveAt(Pos , Length)

Pos

A posição do valor ou valores a serem removidos.

Length

O comprimento do intervalo de valores a serem removidos. Itens de Pos para Pos + Comprimento-1 são removidos. Se omitido, um item é removido.

Return Value
Se Length for omitido, o valor removido de Pos será retornado (em branco, se nenhum). Caso contrário, o valor de retorno é o número de itens removidos que possuem valores, que podem diferir de Comprimento em uma matriz esparsa, mas estão sempre entre 0 e Comprimento (inclusive).

Remarks

RemoveAt é a contraparte do InsertAt.
Os itens restantes à direita de Pos são deslocados para a esquerda por Comprimento (ou 1 se omitidos), mesmo que alguns itens no intervalo removido não tenham valores. Por exemplo:

x := ["A", "B"]
MsgBox % x.RemoveAt(1)  ; A
MsgBox % x[1]           ; B

x := ["A", , "C"]
MsgBox % x.RemoveAt(1, 2)  ; 1
MsgBox % x[1]              ; C

RemoveAt deve ser usado somente quando as chaves inteiras do objeto representam posições em uma matriz linear. Se o objeto contiver chaves inteiras arbitrárias, como IDs ou identificadores, é provável que o RemoveAt cause efeitos colaterais indesejados. Por exemplo:

x := {0x4321: "A", 0x1234: "B"}
MsgBox % x.RemoveAt(0x1234) ; B
MsgBox % x[0x4321]          ; Empty
MsgBox % x[0x4321-1]        ; A

RemoveAt não afeta as chaves de string ou objeto, portanto, pode ser usado com segurança com objetos que contenham tipos de chave mistos.
Acrescenta valores ao final de uma matriz.

Object.Push( Value, Value2, ..., ValueN )

Value ...

Um ou mais valores para inserir. Para inserir uma matriz de valores, passe theArray * como o último parâmetro.

Return Value
A posição do último valor inserido. Pode ser negativo se o array contiver apenas elementos em índices negativos.

Remarks
O primeiro valor é inserido na posição 1 se a matriz estiver vazia ou contiver apenas chaves de string ou objeto.
Caso contrário, o primeiro valor é inserido em Object.MaxIndex () + 1, mesmo se essa posição for negativa ou zero. Se isso não for desejado e o objeto puder conter chaves negativas, Object.InsertAt (Object.Length () + 1, ...) poderá ser usado intead.
Remove e retorna o último elemento da matriz.

Value := Object.Pop()

Se não houver elementos de matriz, o valor de retorno será uma string vazia. Caso contrário, é equivalente ao seguinte:

Value := Object.RemoveAt(Object.Length())

Delete [v1.1.21+]
Remove os pares de valores-chave de um objeto.

Object.Delete(Key)
Object.Delete(FirstKey, LastKey)

Key

Qualquer tecla única

FirstKey, LastKey

Qualquer intervalo válido de chaves inteiras ou de string, em que FirstKey <= LastKey. Ambas as chaves devem ser do mesmo tipo.

Return Value
Se houver exatamente um parâmetro, o valor removido será retornado (em branco, se não houver nenhum). Caso contrário, o valor de retorno é o número de chaves correspondentes encontradas e removidas.

Remarks
Ao contrário de RemoveAt, Delete não afeta nenhum dos pares de valor-chave que ele não remove. Por exemplo:

x := ["A", "B"]
MsgBox % x.RemoveAt(1)  ; A
MsgBox % x[1]           ; B

x := ["A", "B"]
MsgBox % x.Delete(1)    ; A
MsgBox % x[1]           ; Empty

MinIndex / MaxIndex [v1.0.90+]
MinIndex := Object.MinIndex()
MaxIndex := Object.MaxIndex()

Se houver chaves inteiras, MinIndex retorna o menor e MaxIndex retorna o maior. Caso contrário, uma string vazia é retornada.

Length [v1.1.21+]
Length := Object.Length()

Retorna o comprimento de um array linear começando na posição 1; isto é, a maior chave inteira positiva contida pelo objeto, ou 0, se não houver nenhuma.

MsgBox % ["A", "B", "C"].Length()  ;  3
MsgBox % ["A",    , "C"].Length()  ;  3
MsgBox % {-10: 0, 10: 0}.Length()  ; 10
MsgBox % {-10: 0, -1: 0}.Length()  ;  0

Count [v1.1.29+]
Count := Object.Count()

Retorna o número de pares de valores-chave presentes no objeto.

MsgBox % {A: 1, Z: 26}.Count()    ;  2
MsgBox % ["A", "B", "C"].Count()  ;  3
MsgBox % ["A",    , "C"].Count()  ;  2

SetCapacity [v1.0.90+]
Ajusta a capacidade de um objeto ou um de seus campos.

Object.SetCapacity(MaxItems)
Object.SetCapacity(Key, ByteSize)

MaxItems

O número máximo de pares de valores-chave que o objeto deve conter antes de ser expandido automaticamente. Se for menor que o número atual de pares de valores-chave, esse número será usado e todo espaço não utilizado será liberado.

Key

Qualquer chave válida.

ByteSize

O novo tamanho em bytes do buffer de string do campo, excluindo o terminador nulo. Se o campo não existir, ele será criado. Se ByteSize for zero, o buffer será liberado, mas o campo vazio não será removido. Se ByteSize for menor que o tamanho atual, o excesso de dados será truncado; caso contrário, todos os dados existentes serão preservados.

Returns
A nova capacidade se for bem sucedida, caso contrário, uma string vazia.

GetCapacity [v1.0.90+]
MaxItems := Object.GetCapacity()
ByteSize := Object.GetCapacity(Key)
Retorna a capacidade atual de um objeto ou um de seus campos.
Retorna uma string vazia se o campo não existir ou não contiver uma string.

GetAddress [v1.0.90+]
Ptr := Object.GetAddress(Key)
Retorna o endereço atual do buffer da string do campo, se tiver um.

NewEnum [v1.0.90+]
Enum := Object._NewEnum()
Retorna um novo enumerador para enumerar os pares de valores-chave desse objeto. Este método geralmente não é chamado diretamente, mas pelo loop.

HasKey [v1.0.90+]
Object.HasKey(Key)
Retorna true se Key estiver associado a um valor (mesmo "") dentro de Object, caso contrário, false.

Clone [v1.0.90+]
Clone := Object.Clone()
Retorna uma cópia superficial do objeto.

Base
Recupera ou define o objeto base do objeto.

BaseObject := Object.Base
Object.Base := BaseObject

BaseObject deve ser um objeto ou uma string vazia.
Propriedades e métodos definidos por um objeto base são acessíveis apenas enquanto o objeto base estiver em uso. Portanto, alterar a base do objeto também altera o conjunto de propriedades e métodos disponíveis.
Veja também: ObjGetBase, ObjSetBase

ObjRawGet [v1.1.29+]
Recupera o valor associado a uma determinada chave dentro de Object.

Value := ObjRawGet(Object, Key)

Se Object não contiver Key, o valor de retorno será uma string vazia. Nenhuma meta função ou função de propriedade é chamada. O conteúdo dos objetos base do objeto não é considerado e, como a base em si é uma propriedade e não um par de valores-chave por padrão, normalmente não é retornada.
Uma exceção é lançada se o objeto for de um tipo incorreto.

ObjRawSet [v1.1.21+]
Armazena ou sobrescreve um par de valores-chave no objeto.

ObjRawSet(Object, Key, Value)

Essa função é fornecida para permitir que os scripts ignorem a meta função e as propriedades do __Set. Se isso não for necessário, uma atribuição normal deve ser usada em seu lugar. Por exemplo: Object [Key]: = Value
Como o propósito é ignorar meta-funções, isso é apenas uma função, não um método. Chamar um método interno geralmente faz com que a meta função __Call seja chamada.
Uma exceção é lançada se o objeto for de um tipo incorreto.

ObjGetBase [v1.1.29+]
Retorna o objeto base object.

BaseObject := ObjGetBase(Object)

Nenhuma meta-função é chamada. A base do objeto é retornada mesmo que a chave "base" tenha sido armazenada no objeto (como com ObjRawSet ou SetCapacity). Uma string vazia é retornada se o objeto não tiver base.
Uma exceção é lançada se o objeto for de um tipo incorreto.
Veja também: Base property

ObjSetBase [v1.1.29+]
Define o objeto base object.

ObjSetBase(Object, BaseObject)

Nenhuma meta-função é chamada. A base do objeto é definida mesmo que a chave "base" tenha sido armazenada no objeto (como com ObjRawSet ou SetCapacity). Uma string vazia é retornada se o objeto não tiver base.
Uma exceção é lançada se Object for de um tipo incorreto ou se BaseObject não for um objeto ou uma string vazia.
Veja também: Base property

Insert [v1.0.90+]
Deprecated: Inserir não é recomendado para uso em novos scripts. Use InsertAt, Push, ObjRawSet ou uma atribuição simples.
Insere pares de valor-chave no objeto, ajustando automaticamente as chaves existentes se for fornecida uma chave inteira.

Object.Insert(Pos, Value1 , Value2, ... ValueN )
Object.Insert(Value)
Object.Insert(StringOrObjectKey, Value)
  • O comportamento do Insert depende do número e tipo de seus parâmetros:
  • • Se houver vários parâmetros e o primeiro parâmetro for um inteiro, Insert se comportará como InsertAt.
  • • Se houver vários parâmetros e o primeiro parâmetro não for um inteiro, Insert se comportará como ObjRawSet.
  • • Se houver apenas um parâmetro, Insert se comporta como Push.
Inserir retorna verdadeiro. Em [v1.1.21] e, posteriormente, uma exceção é lançada se uma alocação de memória falhar. Versões anteriores retornavam uma string vazia nesse caso.

Remove [v1.0.90+]
Deprecated: Remover não é recomendado para uso em novos scripts. Usar RemoveAt, Delete or Pop em vez de.

Remove os pares de valores-chave de um objeto.

Object.Remove(FirstKey, LastKey)

O comportamento do Remove depende do número e tipo de parâmetros:
  • Object.Remove(Integer) behaves like Object.RemoveAt(Integer).
  • Object.Remove(Integer, "") behaves like Object.Delete(Integer).
  • Object.Remove(Integer1, Integer2) behaves like Object.RemoveAt(Integer1, Integer2 - Integer1 + 1).
  • Object.Remove() behaves like Object.Pop().
  • Any other valid combination of parameters behaves like Delete.
Copyright © 2003-2019 - LIC: GNU GPLv2

quarta-feira, 14 de novembro de 2018

Programa para converter videos em MNG (v2.0) (update) por Jorge Farias! 😀😜





[COMO CONFIGURAR O ARQUIVO]

Copie o código para o seu bloco de notas e depois salve o arquivo como "START_MNG_v2.0.bat"
[sem as aspas] e depois mova o arquivo para a pasta do "advancecomp-x86" e basta executar o bat para converter os seus videos as configuraçoes apartir de agora são realizadas dentro do "prompt de comando" sem a necessidade de editar o arquivo, basta passar o nome dos seus arquivos para o programa para ele executar a converssão para mais detalhes consulte o meu tutorial no youtube! (se inscreve no canal) e bom divertimento! ..E eu não quero ver esse tutorial em lugar nenhum sem os meus autoriais!! ..bom divertimento! 😜

[Tutorial]


(Código)

@echo off
REM # ###############################
REM # JANELA (CUSTOM)
REM # ###############################
MODE CON: COLS=70 LINES=10
COLOR 3E
TITLE CONVERTENDO VIDEOS EM MNG AGUARDE..
REM # ###############################

REM # ###############################
REM # Autor: Jorge Farias
REM # Imail: dragom39@gmail.com
REM # Data: 14.11.18
REM # Versão: 2.0
REM # Canal do Youtube: https://bit.ly/2DhkwsU
REM # Blogger: https://bit.ly/2OpskJz
REM # ###############################

REM # ###############################
REM # VARIAVEL PATCH "FILES"
REM ################################
REM # EX: set var01=MY_PASTE_00123
REM # EX: set var02=MY.FILES1.0133.13254
REM # EX: set var03=MY-FILES2-0133-13254
REM ################################
set /P var01=Digite o nome do Video? (EX:FILE-001) #01:
CLS
set /P var02=Digite o nome do Video? (EX:FILE-002) #02:
CLS
set /P var03=Digite o nome do Video? (EX:FILE-003) #03:
CLS
set /P var04=Digite o nome do Video? (EX:FILE-004) #04:
CLS
set /P var05=Digite o nome do Video? (EX:FILE-005) #05:
CLS
set /P var06=Digite o nome do Video? (EX:FILE-006) #06:
CLS
set /P var07=Digite o nome do Video? (EX:FILE-007) #07:
CLS
set /P var08=Digite o nome do Video? (EX:FILE-008) #08:
CLS
set /P var09=Digite o nome do Video? (EX:FILE-009) #09:
CLS
set /P var10=Digite o nome do Video? (EX:FILE-010) #10:
CLS
REM ################################

REM ################################################
REM # *NÃO MODIFIQUE NENHUMA LINHA DO PROGRAMA
REM ################################################

REM ################################
REM # VARIAVEL "VIDEOS"
REM ################################
set video01=%var01%
set video02=%var02%
set video03=%var03%
set video04=%var04%
set video05=%var05%
set video06=%var06%
set video07=%var07%
set video08=%var08%
set video09=%var09%
set video10=%var10%
REM ################################

REM ############################################
REM # CONFIGURAÇÕES DO PROMPT DE COMANDO "SETUP"
REM ############################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #01 (%var01%.mng) aguarde..
advmng -a 30 %video01%.mng %var01%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #02 (%var02%.mng) aguarde..
advmng -a 30 %video02%.mng %var02%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #03 (%var03%.mng) aguarde..
advmng -a 30 %video03%.mng %var03%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #04 (%var04%.mng) aguarde..
advmng -a 30 %video04%.mng %var04%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #05 (%var05%.mng) aguarde..
advmng -a 30 %video05%.mng %var05%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #06 (%var06%.mng) aguarde..
advmng -a 30 %video06%.mng %var06%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #07 (%var07%.mng) aguarde..
advmng -a 30 %video07%.mng %var07%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #08 (%var08%.mng) aguarde..
advmng -a 30 %video08%.mng %var08%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #09 (%var09%.mng) aguarde..
advmng -a 30 %video09%.mng %var09%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
TIME /T
timeout /t 3 | @echo.Gravando video MNG #10 (%var10%.mng) aguarde..
advmng -a 30 %video10%.mng %var10%\*.png
cls
TIME /T
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
REM # MSG FINAL..
START MSG * TAREFA CONCLUIDA COM SUCESSO!
REM ################################################################


terça-feira, 13 de novembro de 2018

Fightcade 2 Fullset # 2018 [DOWNLOAD]





 1.
2.

APRENDA A JOGAR ONLINE # TUTORIAL
1.

CONTROLES ARCADE ZERO DELAY (A VENDA)

2.

[DOWNLOAD]



Fightcade Fullset 2018 [DOWNLOAD]







[Tutorial]

1.

CONTROLES ARCADE ZERO DELAY (A VENDA)

2.

[Download]




segunda-feira, 12 de novembro de 2018

Como converter videos em MNG (advancecomp-x86) - Windows XP W7 W8 W10 # 2018




[Tutorial]

1 - Copie o código para o seu "bloco de notas" e depois salve esse arquivo como "START_MNG.bat"
2 - E depois recorte e cole  o arquivo dentro da pasta do "advancecomp-x86"
3 - Agora basta ter os seus videos convertidos em "*.png" e o áudio separado em "*.wav" na raiz do
4 - Programa e assim estar executando o seu programa em lotes de forma automatizada
5 - O programas esta configurado para suportar até 10 mng num único click galera!
6 - A resolução Recomendada é 320x240 ou 640x480 o tempo de converssão pode variar de pc para
7 - PC geralmente é demora em torno de 5 a 10min, resoluções maiores não é recomendavel galera!
8 - E eu não quero ver este tutorial em lugar nenhum sem os meus autorais!

Agora é só dominar o mundo com os seus arquivinhos! Bom divertimento..! 😀😲😋

Baixar o advancecomp aqui
Baixar o programa para conveter videos em *.png aqui

Video Aula
(código)

@echo off
REM # ###############################
REM # Autor: Jorge Farias
REM # Imail: dragom39@gmail.com
REM # Data: 12.11.18
REM # Canal do Youtube: https://bit.ly/2DhkwsU
REM # Blogger: https://bit.ly/2OpskJz
REM # ###############################

REM # ###############################
REM # VARIAVEL PATCH "FILES"
REM # RENOMEIE O PATCH DAS VÁRIAVIES (SEM ESPAÇOS)
REM ################################
REM # EX: set var01=MY_PASTE_00123
REM # EX: set var02=MY.FILES1.0133.13254
REM # EX: set var03=MY-FILES2-0133-13254
REM ################################
set var01=
set var02=
set var03=
set var04=
set var05=
set var06=
set var07=
set var08=
set var09=
set var10=
REM ################################

REM ################################################################################
REM # VARIAVEL VIDEOS *NÃO MODIFIQUE NENHUMA LINHA DO PROGRAMA APARTIR DESTE PONTO!!
REM ################################################################################

REM ################################
REM # VARIAVEL "VIDEOS"
REM ################################
set video01=%var01%
set video02=%var02%
set video03=%var03%
set video04=%var04%
set video05=%var05%
set video06=%var06%
set video07=%var07%
set video08=%var08%
set video09=%var09%
set video10=%var10%
REM ################################

REM ############################################
REM # CONFIGURAÇÕES DO PROMPT DE COMANDO "SETUP"
REM ############################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #01 (%var01%.mng) aguarde..
advmng -a 30 %video01%.mng %var01%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #02 (%var02%.mng) aguarde..
advmng -a 30 %video02%.mng %var02%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #03 (%var03%.mng) aguarde..
advmng -a 30 %video03%.mng %var03%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #04 (%var04%.mng) aguarde..
advmng -a 30 %video04%.mng %var04%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #05 (%var05%.mng) aguarde..
advmng -a 30 %video05%.mng %var05%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #06 (%var06%.mng) aguarde..
advmng -a 30 %video06%.mng %var06%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #07 (%var07%.mng) aguarde..
advmng -a 30 %video07%.mng %var07%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #08 (%var08%.mng) aguarde..
advmng -a 30 %video08%.mng %var08%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #09 (%var09%.mng) aguarde..
advmng -a 30 %video09%.mng %var09%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

REM ################################################################
timeout /t 3 | @echo.Gravando video MNG #10 (%var10%.mng) aguarde..
advmng -a 30 %video10%.mng %var10%\*.png
cls
timeout /t 3 | @echo.Video Finalizado com Sucesso!
cls
REM ################################################################

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
##################################################
##################################################