+ Responder ao Tópico
Página 4 de 4 PrimeiroPrimeiro 1 2 3 4
Resultados 91 a 110 de 110

Tópico: Scripts e programas uteis a todos.

  1. #91
    > Usuário VIP pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio Avatar de pedrowarlock
    Data de Ingresso
    11/2011
    Localização
    Rio de janeiro
    Posts
    950
    Mentioned
    216 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    233

    Re: Scripts e programas uteis a todos.

    O erro está em
    Código:
    HotKeySet($tecla1,"close_open")
    o certo seria....
    Código:
    HotKeySet($tecla1,"CloseOpen")

  2. #92
    Jogador de Wii Sports (2006) isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. Avatar de isaias
    Data de Ingresso
    07/2011
    Posts
    52
    Mentioned
    17 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    71

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por pedrowarlock Ver Post
    O erro está em
    Código:
    HotKeySet($tecla1,"close_open")
    o certo seria....
    Código:
    HotKeySet($tecla1,"CloseOpen")
    Valeu amigos deu certinho agora ta redondo vcs mata a pau


    FICOU ASSIM AGORA
    Código:
    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #AutoIt3Wrapper_icon=D:\00 BACKUP DE DADOS\00 ARQUIVOS ARCADE\07 Icones\30.ico
    #AutoIt3Wrapper_Res_Comment=Função: Fechar um program e abrir outro e vice-versa
    #AutoIt3Wrapper_Res_Description=Belini Scripts
    #AutoIt3Wrapper_Res_LegalCopyright=Feito por Belini em 31.10.2010
    #AutoIt3Wrapper_Run_Obfuscator=y
    #Obfuscator_Parameters=/sf=1 /sv=1
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    
    ;******************************************************
    ;Autoit V3
    ;Autor  Belini
    ;Data 31/10/2010
    ;Objetivo: Fechar um program e abrir outro e vice-versa
    ;******************************************************
    
    if not FileExists(".\config.ini") Then
    IniWrite(".\config.ini","Tecla que fecha um programa e abre outro","Tecla1","x")
    IniWrite(".\config.ini","Tecla que fecha 0 Script e os programas","Tecla2","f")
    IniWrite(".\config.ini","Caminho do Primeiro programa","Caminho1","")
    IniWrite(".\config.ini","Nome do Primeiro programa","Programa1","")
    IniWrite(".\config.ini","Caminho do Segundo programa","Caminho2","")
    IniWrite(".\config.ini","Nome do Segundo programa","Programa2","")
    IniWrite(".\config.ini","Caminho do terceiro programa","Caminho3","")
    IniWrite(".\config.ini","Nome do terceiro programa","Programa3","")
    endif
    
    $tecla1=IniRead(".\config.ini","Tecla que fecha um programa e abre outro","Tecla1","")
    $tecla2=IniRead(".\config.ini","Tecla que fecha 0 Script e os programas","Tecla2","")
    $caminho1=IniRead(".\config.ini","Caminho do Primeiro programa","Caminho1","")
    $programa1=IniRead(".\config.ini","Nome do Primeiro programa","Programa1","")
    $caminho2=IniRead(".\config.ini","Caminho do Segundo programa","Caminho2","")
    $programa2=IniRead(".\config.ini","Nome do Segundo programa","Programa2","")
    $caminho3=IniRead(".\config.ini","Caminho do terceiro programa","Caminho3","")
    $programa3=IniRead(".\config.ini","Nome do terceiro programa","Programa3","")
    
    HotKeySet($tecla1,"closeopen"); instala a hotkey usando a tecla "X"
    HotKeySet($tecla2,"fecha_script"); instala a hotkey usando a tecla "F"
    
    ; rotina de loop que mantém o script aberto.
    While 1
    sleep(200); dá um intervalo de 200 milisegundos
    wend
    
    Func CloseOpen(); troca o programa quando a tecla "X" for pressionada
    	If ProcessExists($programa1) Then; verifica se o programa 1 esta aberto
    		ProcessClose($programa1); fecha o programa 1
    		ShellExecute($programa2, "", $caminho2); executa o programa 2
    	ElseIf ProcessExists($programa2) Then
    		ProcessClose($programa2); fecha o programa 2
    		ShellExecute($programa3, "", $caminho3); executa o programa 3
    	ElseIf ProcessExists($programa3) Then
    		ProcessClose($programa3); fecha o programa 3
    		ShellExecute($programa1, "", $caminho1); executa o programa 1
    	EndIf
    EndFunc   ;==>CloseOpen
    
    func fecha_script(); fecha o script quando a letra "F" for pressionada
    
    HotKeySet($tecla2); Remove a hotkey "X"
    HotKeySet($tecla2); Remove a hotkey "F"
    
    if ProcessExists($programa1) then
    ProcessClose($programa1); fecha o programa 1
    endif
    
    if ProcessExists($programa2) then
    ProcessClose($programa2); fecha o programa 1
    endif
    
    if ProcessExists($programa3) then
    ProcessClose($programa3); fecha o programa 1
    endif
    
    Exit; encerra o script
    
    endfunc

  3. #93
    Mestre dos Arcades Caseiros Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Fábio iGames Ótima reputação além de muito prestígio Avatar de Fábio iGames
    Data de Ingresso
    03/2013
    Localização
    São Paulo / Sp - Zona Sul
    Posts
    624
    Mentioned
    162 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    198

    Re: Scripts e programas uteis a todos.

    @isaias quando for postar um código use a Tag [CODE]

    Clique no Botão Avançado... vai aparecer mais opções ai no editor de texto... o botão da tag é esse #.

    Clicando nele vai aparecer [CODE] [\CODE] ....

    OBS: A Barra para fechar a Tag é invertida. /

    Ai você coloca o código (script) entre os [CODES] assim:

    Código:
    Poste o Código / Script aqui.
    Já achei muitos posts seus dessa forma e vou arrumando, mas você já é usuário antigo e já deve saber das regras e dessa forma o Fórum fica mais organizado BLZ.

  4. #94
    Jogador de Wii Sports (2006) isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. Avatar de isaias
    Data de Ingresso
    07/2011
    Posts
    52
    Mentioned
    17 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    71

    Post erro

    ??????????????????????
    Última edição por isaias; 23/09/2016 às 11:03. Razão: errado

  5. #95
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.468
    Mentioned
    774 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por isaias Ver Post
    E isso ai amigo @Fabio igames desculpe a ignorância não sabia disso não !!!!!
    Não sabia e agora que já sabe fez novamente post's seguidos e sem usar a tag CODE e por isto está sendo negativado!
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  6. #96
    Jogador de Wii Sports (2006) isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. isaias É realmente muito bom. Avatar de isaias
    Data de Ingresso
    07/2011
    Posts
    52
    Mentioned
    17 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    71

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por Belini Ver Post
    Não sabia e agora que já sabe fez novamente post's seguidos e sem usar a tag CODE e por isto está sendo negativado!
    ola belini desculpe ai mas não deu certo não deu certo tem quer por scripts dentro
    entre os dois
    Código:
    aqui
    mas não deu.

  7. #97
    Mestre dos Arcades Caseiros esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar esiocosta É esplêndido para se contemplar Avatar de esiocosta
    Data de Ingresso
    04/2011
    Posts
    603
    Posts de Blog
    1
    Mentioned
    99 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    110

    Re: Scripts e programas uteis a todos.

    acompanhando...

  8. #98
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.468
    Mentioned
    774 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: Scripts e programas uteis a todos.

    acaompanhando o quê? O último post foi feito em setembro do ano passado!
    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  9. #99
    > Moderador amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio amaral Ótima reputação além de muito prestígio Avatar de amaral
    Data de Ingresso
    02/2010
    Localização
    Nova Iguaçu
    Posts
    4.179
    Mentioned
    435 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    317

    Re: Scripts e programas uteis a todos.

    tenho esse script aqui de separar roms que o brbranco tinha postado
    Código:
    Global Const $Var0000 = 0x0040
    Global Const $Var0001 = 0x0080
    Global Const $Var0002 = 0x1000
    Global Const $Var0003 = 0x00200000
    Global Const $Var0004 = 0x00100000
    Global Const $Var0005 = BitOR($Var0002, $Var0003, $Var0004, $Var0000, $Var0001)
    Global Const $Var0006 = -3
    Global Const $Var0007 = 1
    Global Const $Var0008 = 0x0040
    Global Const $Var0009 = 0x0080
    Global Const $Var000A = 1
    Global Const $Var000B = 2
    Global Const $Var000C = 0x00800000
    Global Const $Var000D = 0x00200000
    Global Const $Var000E = BitOR($Var000B, $Var000C, $Var000D, $Var000A)
    Global Const $Var000F = 0x0100
    Global Const $Var0010 = 0x2000
    Global Const $Var0011 = 0x8000
    Global Const $Var0012 = BitShift($Var000F, 8)
    Global Const $Var0013 = BitShift($Var0010, 8)
    Global Const $Var0014 = BitShift($Var0011, 8)
    Global Const $Var0015 = 0x00020000
    Global Const $Var0016 = 0x00020000
    Global Const $Var0017 = 0x00080000
    Global Const $Var0018 = 0x00C00000
    Global Const $Var0019 = 0x80000000
    Global Const $Var001A = BitOR($Var0015, $Var0018, $Var0019, $Var0017)
    $Var001B = GUICreate("Separador de roms (brbranco)", 0x02E0, 0x00F3, 0x00C0, 0x0072)
    $Var001C = GUICtrlCreateGroup("Analizar os estados", 8, 8, 0x0099, 0x00E1)
    $Var001D = GUICtrlCreateCheckbox("STATUS", 0x0018, 0x0018, 0x0049, 0x0019)
    $Var001E = GUICtrlCreateCheckbox("EMULATION", 0x0018, 0x0038, 0x0059, 0x0019)
    $Var001F = GUICtrlCreateCheckbox("COLOR", 0x0018, 0x0058, 0x0059, 0x0021)
    $Var0020 = GUICtrlCreateCheckbox("SOUND", 0x0018, 0x0080, 0x0059, 0x0019)
    $Var0021 = GUICtrlCreateCheckbox("GRAPHIC", 0x0018, 0x00A0, 0x0051, 0x0019)
    $Var0022 = GUICtrlCreateCheckbox("CLONE", 0x0018, 0x00C0, 0x0051, 0x0019)
    GUICtrlCreateGroup("", -0x0063, -0x0063, 1, 1)
    $Var0023 = GUICtrlCreateGroup("Analizar os drives dessa lista", 0x00A8, 8, 0x00F9, 0x00E1)
    $Var0024 = GUICtrlCreateInput("Informe um nome e clique em adicionar", 0x00B0, 0x0018, 0x00E9, 0x0015)
    $Var0025 = GUICtrlCreateButton("Adicionar", 0x00B0, 0x00C8, 0x0061, 0x0019, $Var0016)
    $Var0026 = GUICtrlCreateButton("Limpar lista", 0x0120, 0x00C8, 0x0071, 0x0019, $Var0016)
    $Var0027 = GUICtrlCreateList("", 0x00B0, 0x0030, 0x00E9, 0x0088)
    GUICtrlCreateGroup("", -0x0063, -0x0063, 1, 1)
    $Var0028 = GUICtrlCreateLabel("Informe o nome do emulador, exemplo: mame, mamep", 0x01B0, 0x0010, 0x00ED, 0x0011)
    $Var0029 = GUICtrlCreateInput("mame", 0x01B0, 0x0020, 0x0121, 0x0015)
    $Var002A = GUICtrlCreateInput("d:\arcade\jogos", 0x01B0, 0x0060, 0x0121, 0x0015)
    $Var002B = GUICtrlCreateLabel("Informe o caminho completo onde se encontram as roms", 0x01B0, 0x0040, 0x010E, 0x0011)
    $Var002C = GUICtrlCreateLabel("exemplo: d:\arcade\jogos", 0x01B0, 0x0050, 0x0076, 0x0011)
    $Var002D = GUICtrlCreateLabel("Informe o caminho para onde as roms com problemas serão", 0x01B0, 0x0080, 0x011C, 0x0011)
    $Var002E = GUICtrlCreateLabel("movidas, se a pasta não existir ela será criada.", 0x01B0, 0x0090, 0x00DF, 0x0011)
    $Var002F = GUICtrlCreateInput("d:\arcade\jogos\roms_movidas", 0x01B0, 0x00A0, 0x0121, 0x0015)
    $Var0030 = GUICtrlCreateButton("Iniciar", 0x01B0, 0x00C8, 0x0061, 0x0021, $Var0016)
    $Var0031 = GUICtrlCreateCheckbox("MOVER", 0x0230, 0x00C8, 0x0046, 0x0019)
    $Var0032 = GUICtrlCreateButton("Sair", 0x0280, 0x00C8, 0x0051, 0x0021, $Var0016)
    GUISetState(@SW_SHOW)
    Global $Var0033 = 1
    Global $Var0034[1]
    Global $Var001D, $Var001E, $Var001F, $Var0020, $Var0021, $Var0022
    Global $Var0035 = False
    Local $Local0000 = "", $Var0036 = "", $Var0037 = "", $Var0038 = ""
    Local $Local0001 = False, $Local0005 = False
    Local $Local0002 = 1
    $Var0034[0] = ""
    HotKeySet("{ESC}", "Fn000B")
    While True
    	$Var0039 = GUIGetMsg()
    	Switch $Var0039
    		Case $Var0025
    			$Local0000 = GUICtrlRead($Var0024)
    			If StringLen($Local0000) <> 0 Then
    				GUICtrlSetData($Var0027, $Local0000 & "|")
    				ReDim $Var0034[$Local0002]
    				$Var0034[$Local0002 - 1] = $Local0000
    				$Local0002 += 1
    			EndIf
    		Case $Var0026
    			ReDim $Var0034[1]
    			$Var0034[0] = ""
    			$Local0002 = 1
    			GUICtrlSetData($Var0027, "")
    		Case $Var0030
    			$Var0036 = GUICtrlRead($Var0029)
    			If Not FileExists(@ScriptDir & "\" & $Var0036 & ".exe") Then
    				MsgBox(0, "Erro", "O emulador informado não foi localizado nessa pasta")
    				ContinueLoop
    			EndIf
    			$Var0037 = GUICtrlRead($Var002A)
    			If Not FileExists($Var0037) Then
    				MsgBox(0, "Erro", "A pasta de roms informada não foi encontrada, verifique se o caminho informado esta correto.")
    				ContinueLoop
    			EndIf
    			$Var0038 = GUICtrlRead($Var002F)
    			If Not FileExists($Var0038) Then
    				If Not DirCreate($Var0038) Then
    					MsgBox(0, "Erro", "A pasta para onde as roms seriam movidas não pode ser criada")
    					ContinueLoop
    				EndIf
    			EndIf
    			If Not FileExists(@ScriptDir & "\" & $Var0036 & ".xml") Then
    				If Not Fn000A($Var0036) Then
    					MsgBox(0, "Erro", "Não foi possivel criar o arquivo " & $Var0036 & ".xml")
    					ContinueLoop
    				EndIf
    			EndIf
    			GUICtrlSetState($Var0030, $Var0009)
    			If BitAND(GUICtrlRead($Var0031), $Var0007) Then
    				Fn0000($Var0036, $Var0037, $Var0038, False)
    			Else
    				Fn0000($Var0036, $Var0037, $Var0038, True)
    			EndIf
    			GUICtrlSetState($Var0030, $Var0008)
    		Case $Var0032
    			ExitLoop
    		Case $Var0006
    			ExitLoop
    	EndSwitch
    	Sleep(0x003C)
    WEnd
    HotKeySet("{ESC}")
    Exit 0
    
    Func Fn0000($Arg00, $Arg01, $Arg02, $Arg03)
    	Local $Local0003 = 0, $Var003A = 0
    	Local $Local0004 = ""
    	Local $Local0001 = False, $Var003B = False
    	Local $Local0005 = False, $Var003C = False, $Var003D = False, $Var003E = False, $Var003F = False
    	Local $Local0006 = 0
    	$Local0003 = FileOpen($Arg00 & ".xml", 0)
    	If $Local0003 = -1 Then
    		MsgBox(0, "Erro", "Não foi possivel abrir o arquivo xml.")
    		Return
    	EndIf
    	$Var003A = FileOpen($Arg00 & ".txt", 10)
    	If $Var003A = -1 Then
    		MsgBox(0, "Erro", "Não foi possivel criar o arquivo movidos.txt.")
    		Return
    	EndIf
    	SplashTextOn("Andamento", "Aguarde...", 0x0140, 0x0064, -1, -1, 1, "", 0x0018)
    	Sleep(0x03E8)
    	While Not $Var0035
    		Sleep(10)
    		$Local0004 = Fn0001($Local0003)
    		If $Local0004 = "fim" Then
    			ExitLoop
    		EndIf
    		$Local0006 += 1
    		ControlSetText("Andamento", "", "Static1", "Lendo: " & String($Local0006) & ",  " & $Local0004, 1)
    		If BitAND(GUICtrlRead($Var0022), $Var0007) Then
    			$Local0001 = Fn0004($Local0003)
    			If $Local0001 Then
    				ControlSetText("Andamento", "", "Static1", "Movendo Clone", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = clone")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\clone\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		If StringLen($Var0034[0]) Then
    			$Var0040 = Fn0003($Local0003)
    			If $Var0040 Then
    				ControlSetText("Andamento", "", "Static1", "Movendo drive", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = drive")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\source\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		$Var003B = Fn0002($Local0003)
    		If Not $Var003B Then
    			ContinueLoop
    		EndIf
    		If BitAND(GUICtrlRead($Var001D), $Var0007) Then
    			$Local0005 = Fn0005($Local0003)
    			If Not $Local0005 Then
    				ControlSetText("Andamento", "", "Static1", "Movendo status", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = status")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\status\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		If BitAND(GUICtrlRead($Var001E), $Var0007) Then
    			$Var003C = Fn0006($Local0003)
    			If Not $Var003C Then
    				ControlSetText("Andamento", "", "Static1", "Movendo emulation", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = emulation")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\emulation\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		If BitAND(GUICtrlRead($Var001F), $Var0007) Then
    			$Var003D = Fn0007($Local0003)
    			If Not $Var003D Then
    				ControlSetText("Andamento", "", "Static1", "Movendo color", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = color")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\color\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		If BitAND(GUICtrlRead($Var0020), $Var0007) Then
    			$Var003E = Fn0008($Local0003)
    			If Not $Var003E Then
    				ControlSetText("Andamento", "", "Static1", "Movendo sound", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = sound")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\sound\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    		If BitAND(GUICtrlRead($Var0021), $Var0007) Then
    			$Var003F = Fn0009($Local0003)
    			If Not $Var003F Then
    				ControlSetText("Andamento", "", "Static1", "Movendo graphic", 1)
    				If $Arg03 Then
    					FileWriteLine($Var003A, $Local0004 & " = graphic")
    				Else
    					FileMove($Arg01 & "\" & $Local0004 & ".zip", $Arg02 & "\graphic\" & $Local0004 & ".zip", 8)
    				EndIf
    				ContinueLoop
    			EndIf
    		EndIf
    	WEnd
    	ControlSetText("Andamento", "", "Static1", "Pronto...", 1)
    	Sleep(0x0BB8)
    	SplashOff()
    	FileClose($Local0003)
    	FileClose($Var003A)
    EndFunc
    
    Func Fn0001($Arg00)
    	Local Const $Var0041 = "<game name="
    	Local $Local0007 = 0
    	Local $Local0008 = "", $Local0004 = ""
    	Local $Local0009 = 0, $Var0042 = 0
    	$Var0033 += 1
    	While True
    		$Local0008 = FileReadLine($Arg00, $Var0033)
    		If @error = -1 Then
    			$Local0004 = "fim"
    			ExitLoop
    		EndIf
    		$Local0007 = StringInStr($Local0008, $Var0041)
    		If $Local0007 == 0 Then
    			$Var0033 += 1
    			ContinueLoop
    		EndIf
    		$Local0009 = StringInStr($Local0008, Chr(0x0022))
    		$Var0042 = StringInStr($Local0008, Chr(0x0022), 0, 1, $Local0009 + 1)
    		$Local0004 = StringMid($Local0008, $Local0009 + 1, (($Var0042 - 1) - $Local0009))
    		ExitLoop
    	WEnd
    	Return $Local0004
    EndFunc
    
    Func Fn0002($Arg00)
    	Local Const $Var0043 = "<driver status="
    	Local Const $Var0044 = "</game>"
    	Local $Local0007 = 0, $Var0045 = 0
    	Local $Local000A = False
    	Local $Local0008 = ""
    	$Var0033 += 1
    	While True
    		$Local0008 = FileReadLine($Arg00, $Var0033)
    		If @error = -1 Then ExitLoop
    		$Local0007 = StringInStr($Local0008, $Var0044)
    		If $Local0007 Then ExitLoop
    		$Var0045 = StringInStr($Local0008, $Var0043)
    		If $Var0045 == 0 Then
    			$Var0033 += 1
    			ContinueLoop
    		Else
    			$Local000A = True
    			ExitLoop
    		EndIf
    	WEnd
    	Return $Local000A
    EndFunc
    
    Func Fn0003($Arg00)
    	Local Const $Var0046 = "sourcefile="
    	Local $Local000B = False
    	Local $Local0008 = "", $Var0047 = ""
    	Local $Local0007 = 0, $Var0048 = 0
    	Local $Local0009 = 0, $Var0042 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Var0046)
    	If $Local0007 == 0 Then
    		Return $Local000B
    	EndIf
    	$Local0009 = StringInStr($Local0008, Chr(0x0022), 0, 1, $Local0007)
    	$Var0042 = StringInStr($Local0008, Chr(0x0022), 0, 1, $Local0009 + 1)
    	$Var0047 = StringMid($Local0008, $Local0009 + 1, (($Var0042 - 1) - $Local0009))
    	For $Var0048 = 0 To UBound($Var0034, 1) - 1
    		If $Var0047 = $Var0034[$Var0048] Then
    			$Local000B = True
    			ExitLoop
    		EndIf
    	Next
    	Return $Local000B
    EndFunc
    
    Func Fn0004($Arg00)
    	Local Const $Var0049 = "cloneof="
    	Local $Local0007 = 0
    	Local $Local0008 = ""
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Var0049)
    	If $Local0007 == 0 Then
    		Return False
    	EndIf
    	Return True
    EndFunc
    
    Func Fn0005($Arg00)
    	Local $Local000C = "status=" & Chr(0x0022) & "good" & Chr(0x0022)
    	Local $Local000D = False
    	Local $Local0008 = ""
    	Local $Local0007 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Local000C)
    	If $Local0007 Then
    		$Local000D = True
    	EndIf
    	Return $Local000D
    EndFunc
    
    Func Fn0006($Arg00)
    	Local $Local000E = "emulation=" & Chr(0x0022) & "good" & Chr(0x0022)
    	Local $Local000D = False
    	Local $Local0008 = ""
    	Local $Local0007 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Local000E)
    	If $Local0007 Then
    		$Local000D = True
    	EndIf
    	Return $Local000D
    EndFunc
    
    Func Fn0007($Arg00)
    	Local $Local000F = "color=" & Chr(0x0022) & "good" & Chr(0x0022)
    	Local $Local000D = False
    	Local $Local0008 = ""
    	Local $Local0007 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Local000F)
    	If $Local0007 Then
    		$Local000D = True
    	EndIf
    	Return $Local000D
    EndFunc
    
    Func Fn0008($Arg00)
    	Local $Local0010 = "sound=" & Chr(0x0022) & "good" & Chr(0x0022)
    	Local $Local000D = False
    	Local $Local0008 = ""
    	Local $Local0007 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Local0010)
    	If $Local0007 Then
    		$Local000D = True
    	EndIf
    	Return $Local000D
    EndFunc
    
    Func Fn0009($Arg00)
    	Local $Local0011 = "graphic=" & Chr(0x0022) & "good" & Chr(0x0022)
    	Local $Local000D = False
    	Local $Local0008 = ""
    	Local $Local0007 = 0
    	$Local0008 = FileReadLine($Arg00, $Var0033)
    	$Local0007 = StringInStr($Local0008, $Local0011)
    	If $Local0007 Then
    		$Local000D = True
    	EndIf
    	Return $Local000D
    EndFunc
    
    Func Fn000A($Arg00)
    	Local Const $Var004A = "cmd.exe"
    	Local $Local0012 = 0, $Var004B = 0
    	MouseMove(0, 0, 0)
    	$Local0012 = Run($Var004A)
    	If @error Then
    		MsgBox(0, "Erro", "Não foi possivel executar o prompt de comando.")
    		Return False
    	EndIf
    	$Var004B = ProcessWait($Var004A, 10)
    	If Not $Var004B Then
    		MsgBox(0, "Erro", "A janela de prompt não iniciou, operação cancelada.")
    		Return False
    	EndIf
    	Send($Arg00 & ".exe -lx>" & $Arg00 & ".xml" & "{ENTER}")
    	If Not ProcessWaitClose($Arg00 & ".exe", 0x003C) Then
    		MsgBox(0, "Erro", "Ocorreu algum problema o emulador está demorando muito para criar a lista, feche os programas e tente novamente")
    		Return False
    	Else
    		Sleep(0x0BB8)
    	EndIf
    	Send("exit{ENTER}")
    	ProcessWaitClose($Var004A, 10)
    	If Not FileExists($Arg00 & ".xml") Then
    		MsgBox(0, "Erro", "Ocorreu algum problema o emulador não criou a lista.")
    		Return False
    	EndIf
    	Return True
    EndFunc
    
    Func Fn000B()
    	$Var0035 = True
    EndFunc
    tem como ele verificar se realmente a rom está com defeito e separar as roms defeituosas? esse script aqui separa as roms mas ainda fica um monte com defeitos e toda atualização do mame tenho que remover manualmente
    "nós devemos amar nossos inimigos"


  10. #100
    > Usuário VIP mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio Avatar de mutleey
    Data de Ingresso
    07/2009
    Posts
    1.119
    Mentioned
    264 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    219

    Re: Scripts e programas uteis a todos.

    pra vazer isso vc teria que modificar o scipt para checar a o crc dos arquivos das roms comparando com o crc criado pela versão do mame que vc vai usar.

  11. #101
    > Usuário VIP airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio airhead Ótima reputação além de muito prestígio Avatar de airhead
    Data de Ingresso
    04/2009
    Posts
    2.580
    Mentioned
    359 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    358

    Re: Scripts e programas uteis a todos.

    Não vou afirmar com certeza pois faz teeeeeeeeeeeeeempo que não atualizo minhas roms (jogando muito com a molecada), mas o ClrMAMEPro faz isso.

    "A gente muda o mundo quando muda a mente.
    Quando a mente muda, o mundo muda com a gente!"

  12. #102
    > Usuário VIP mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio mutleey Ótima reputação além de muito prestígio Avatar de mutleey
    Data de Ingresso
    07/2009
    Posts
    1.119
    Mentioned
    264 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    219

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por airhead Ver Post
    Não vou afirmar com certeza pois faz teeeeeeeeeeeeeempo que não atualizo minhas roms (jogando muito com a molecada), mas o ClrMAMEPro faz isso.
    o RomCenter tambem é uma boa opção, apesar que eu tambem parei na versão 0.154 do mame.

  13. #103
    Jogador de Enduro (1983) Gamus Se tornará famoso em breve Avatar de Gamus
    Data de Ingresso
    02/2011
    Posts
    240
    Mentioned
    16 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    71

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por Belini Ver Post
    Colocar mensagens em cima dos jogos - by brbranco and diableros

    Certa vez o brbranco postou um script muito útil que serve para mostrar mensagens em cima ddos jogos e também foi postado outro pelo diableros, é possível colocar estas mensagens em vários emuladores dentre eles o mame mais tem alguns em que as mensagens não aparecem como é o caso de jogos de computador.


    Link para baixar --> AQUI
    Alguém tem o link desse programa funcionando por favor?

  14. #104
    Jogador de Halo (2001) Wilson755 tem uma aura espetacular. Wilson755 tem uma aura espetacular. Avatar de Wilson755
    Data de Ingresso
    02/2018
    Localização
    Macatuba/SP
    Posts
    99
    Posts de Blog
    2
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    18

    Re: Scripts e programas uteis a todos.

    Tem como postar de novo? O link tá aff

  15. #105
    > Usuário VIP pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio pedrowarlock Ótima reputação além de muito prestígio Avatar de pedrowarlock
    Data de Ingresso
    11/2011
    Localização
    Rio de janeiro
    Posts
    950
    Mentioned
    216 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    233

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por Wilson755 Ver Post
    Tem como postar de novo? O link tá aff
    De qual programa?

  16. #106
    Jogador de Halo (2001) Wilson755 tem uma aura espetacular. Wilson755 tem uma aura espetacular. Avatar de Wilson755
    Data de Ingresso
    02/2018
    Localização
    Macatuba/SP
    Posts
    99
    Posts de Blog
    2
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    18

    Re: Scripts e programas uteis a todos.

    Esse de Colocar mensagens em cima dos jogos

  17. #107
    Jogador de Halo (2001) Wilson755 tem uma aura espetacular. Wilson755 tem uma aura espetacular. Avatar de Wilson755
    Data de Ingresso
    02/2018
    Localização
    Macatuba/SP
    Posts
    99
    Posts de Blog
    2
    Mentioned
    9 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    18

    Cool Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por Belini Ver Post
    Ocultar a janela de carregamento dos jogos - by Belini

    Este pequeno script serve para esconder a janela de carregamento dos jogos e no lugar desta tela você pode colocar uma propaganda sua ou uma mensagem que desejar.
    Bom dia Belini, poderia postar esse script para mim. quero colocar um logo do mame e esconder a janela de carregamento.
    Última edição por Wilson755; 30/09/2018 às 11:53.

  18. #108
    > > > > > Administrador Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Belini O que esta pessoa fala é praticamente Lei com uma reputação invejável dessas. (Membro ELITE) Avatar de Belini
    Data de Ingresso
    05/2009
    Localização
    Minas Gerais
    Posts
    5.468
    Mentioned
    774 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    10

    Re: Scripts e programas uteis a todos.

    Geralmente as pessoas se adaptam ao mundo, outras tentam adaptar o mundo a elas e se tornam grandes líderes.

  19. #109
    Jogador de Fliperama slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar slipcarliknot Tem muito do que se orgulhar Avatar de slipcarliknot
    Data de Ingresso
    09/2009
    Localização
    Fortaleza CE
    Posts
    458
    Mentioned
    7 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    119

    Re: Scripts e programas uteis a todos.

    Criei um Script que Emula um Overlay (sobreposição de janela), Caso alguém tenha interesse, segue o link do post:

    Overlay (Simulação) em AutoHotkey Script + Arquivo Compilado
    O melhor lugar para criticar o próximo é na frente do espelho !!!


    GGPO: slipcarliknot
    Supercade: slipcarliknot
    Arclive: slipcarliknot
    PSN_ID: slipcarliknot

  20. #110
    Jogador de Street Fighter II (1991) lorinhocm É um desconhecido no momento Avatar de lorinhocm
    Data de Ingresso
    05/2009
    Posts
    150
    Mentioned
    1 Post(s)
    Tagged
    0 Thread(s)
    Reputação
    0

    Re: Scripts e programas uteis a todos.

    Citação Postado originalmente por Belini Ver Post
    contador de tempo para qualquer frontend - by brbranco

    Fiz este contador para funcionar em qualquer frontend, emulador ou jogo que seja chamado por um executável ele faz a função de creditar, fazer uma contagem regressiva do tempo e gravar este novo tempo a cada seg. no arquivo contador.ini além de contar o número de fichas depositadas, porém este contador só fica visível em jogos que usem o directx como é o caso do mame e do psxfin nos outros ele não aparece mais mesmo estando oculto continua a fazer suas funções de creditar contar tempo e contar fichas sendo que informará quando restar apenas um minuto e quando o tempo chegar a zero por meio de mensagens de voz, este contador reconhece automaticamente as resoluções de tela 1024 x 768 e 640 x480, para usar em outra
    resolução altere no arquivo contador.ini e tudo nele pode ser alterado neste arquivo

    Baixar: Anexo 689

    Beline, baixei o seu contador e estou com os seguintes problemas, eu uso AdvMenu com lista travada, e pra destravar a lista é tecla 5, ate ai tudo bem, coloquei tecla 5 pra começar a conta o tempo no seu contador, o primeiro problema começa ai, o jogador colocar ficha, e o tempo é 5 minutos, pois bem, ele demora 2 minutos pra escolher o jogo, entao quando abre o jogo so lhe resta 3 minutos, se eu por no Start, vai complicar, pois tenho jogo que o Start se usa pra começar o jogo, no caso Street IV, PES, Mario, etc.. entao cada vez apertam Start aumenta o tempo do cara. 2 Problema, tenho jogos de habilidade na maquina, e quando apertam Start o tempo começa a contar, mesmo nao sendo aquele jogo que a pessoa abriu, eu achei que o tempo so contava quando abria o jogo que tivesse na lista de processos a serem verificados, e tipo o cara ta la em um jogo de habilidade e do nada da a VOZ seu tempo acabou, isso meio que incomoda o cliente, pois vai pensar que o jogo eh por tempo mesmo, nao sei se o script era para ser assim ou o meu nao esta funcionando como deveria.. pois era para contar tempo somente para os jogos que abriu e ta na lista de processos, independente de colocou ficha, tipo assim a logica "colocou ficha, reserva na memoria, nao faz nada, abriu o jogo, entao le da memoria a informacao da ficha e conta o tempo"


    Outra coisa, com seu scruiprt o meu ADVMenu quando abre nao fica como preferencia, se outro programa abrir fica por cima dele, e ele vai minimizado.. minha multijogo tem Wifi quando liga a maquina ele pega o sinal e aparece uma janelinha na frente.

    E quando liga a maquina ja sai dando o audio que nao tem fichas.


    Na verdade queria usar esse scritpt separado para cada jogo que eu for abrir, tipo o PES2010 ter no proprio autoit dele esse timer
    Última edição por lorinhocm; 28/10/2018 às 19:59.

+ Responder ao Tópico
Página 4 de 4 PrimeiroPrimeiro 1 2 3 4

Tópicos Similares

  1. Respostas: 23
    Último Post: 26/04/2013, 09:37
  2. Scripts uteis para organizar catalogo de maquinas de musicas.
    Por Belini no fórum Dúvidas sobre Jukebox e Programas usados.
    Respostas: 2
    Último Post: 14/12/2011, 00:25
  3. Link para varios programas uteis.
    Por Belini no fórum Scripts e Programas Úteis (Qualquer linguagem)
    Respostas: 3
    Último Post: 05/10/2011, 14:46
  4. Informações úteis não divulgadas!
    Por CAPACITOR no fórum Off-Topic (Assuntos Diversos)
    Respostas: 3
    Último Post: 12/03/2011, 14:44
  5. Links úteis para programas e emuladores.
    Por Belini no fórum Links para downloads
    Respostas: 4
    Último Post: 29/01/2011, 22:27

Marcadores

Permissões de Postagem

  • Você não pode iniciar novos tópicos
  • Você não pode enviar respostas
  • Você não pode enviar anexos
  • Você não pode editar suas mensagens
  • BB Code está Ligado
  • Smilies estão Ligados
  • Código [IMG] está Ligado
  • Código HTML está Desligado