Jump to content

amaral

Membros
  • Content count

    13
  • Joined

  • Last visited

Community Reputation

1 Neutro

2 Followers

About amaral

  • Rank
    Membro

Profile Information

  • Gender
    Male
  • Location
    belfrd roxo
  1. usar uma hotkey em um arquivo.ini

    belini meu amigo estou com um problema nesse script esse ta funcionando perfeito mas o que acontece é que a tecla d que uso para trocar o programa ela também da credito e quando eu aperto ela troca o programa mas também da um credito quero impedir a tecla de dar o credito na hora de trocar o programa como faço?
  2. estou reformulando um script que fecha um programa e abre outro mas quero fazer o seguinte escolher a tecla para fechar um e abrir outro e fechar o script em um arquivo.ini ou seja escolher no .ini as teclas que vou usar no programa,mas fiquei sem ideias alguém pode ajudar? CORRIGINDO CONSEGUI FAZER FUNCIONAR APENAS MUDEI PARA Const $read_comand2 = IniRead("MUSICBOX.ini", "PARAMETRO", "TECLA_TROCA", "") Const $read_comand3 = IniRead("MUSICBOX.ini", "PARAMETRO", "SAIR", "") SÓ LEMBRANDO O BELINI POSTOU ESSE SCRIPT HA UM TEMPO ATRÁS NO ARCADEBR EU SÓ DEI UMA MELHORADA NELE FileChangeDir(@ScriptDir) If Not FileExists("MUSICBOX.ini") Then;cria o ini caso não tenha ini     IniWrite("MUSICBOX.ini", "EXECUTAVEL1", "NOME", "");cria alocação boot e numero     IniWrite("MUSICBOX.ini", "EXECUTAVEL2", "NOME", "");cria alocação boot e numero     IniWrite("MUSICBOX.ini", "PARAMETRO", "PASTA", "");cria alocação boot e numero     IniWrite("MUSICBOX.ini", "PARAMETRO", "TECLA_TROCA", "");cria alocação boot e numero     IniWrite("MUSICBOX.ini", "PARAMETRO", "SAIR", "");cria alocação boot e numero endif CONST $read_comand2 = IniRead("MUSICBOX.ini", "PARAMETRO", "TECLA_TROCA", "") CONST $read_comand3 = IniRead("MUSICBOX.ini", "PARAMETRO", "SAIR", "") global $read_comand4 = IniRead("MUSICBOX.ini", "EXECUTAVEL1", "NOME", "") global $read_comand5 = IniRead("MUSICBOX.ini", "EXECUTAVEL2", "NOME", "") global $read_comand6 = IniRead("MUSICBOX.ini", "PARAMETRO", "PASTA", "") HotKeySet($read_comand2 ,"close_open"); instala a hotkey usando no .ini HotKeySet($read_comand3 ,"fecha_script"); instala a hotkey usando a tecla "F" ShellExecute($read_comand5, "", $read_comand6); mude o nome do programa e o endereço caso necessário ; rotina de loop que mantém o script aberto. While 1 sleep(200); dá um intervalo de 200 milisegundos wend func close_open(); troca o programa quando a tecla "X" for pressionada if ProcessExists($read_comand4) Then; verifica se o advmame esta aberto ProcessClose($read_comand4); fecha 1 e abre o 2 ShellExecute($read_comand5, "", $read_comand6); mude o nome do programa e o endereço caso necessário else ProcessClose($read_comand5); fecha o 2 e abre o 1 ShellExecute($read_comand4, "", $read_comand6); mude o nome do programa e o endereço caso necessário endif endfunc func fecha_script(); fecha o script  HotKeySet($read_comand2 ,"close_open"); remove a hotkey usando no .ini HotKeySet($read_comand3 ,"fecha_script"); remove a hotkey usando no .ini Exit; encerra o script endfunc
  3. estou com um problema,estou usando um emulador mame na versão 180 mas preciso usar ele por directinput nessa versão só funciona o directinput se inserir -keyboardprovider dinput na mesma linha que chama o emulador, por .bat assim funciona brmamep.exe -keyboardprovider dinput elevator mas não estou conseguindo fazer funcionar pelo autoit alguém pode dar um exemplo ou explicação de como fazer?
  4. ProtectFolder

    uso o windows xp sp2 protejo as pastas quando atualizo o windows para sp3 clico nas pastas protegidas e elas abrem normalmente alguém teve esse problema? @ Belinise fizer uma imagem do ghost e depois usar o ghost explorer qualquer um vai ter acesso as pastas mas 90% são curiosos e não vão saber disso o que achei interessante foi ocultar a pasta encontrei esse script #include <GUIConstantsEx.au3>   Global $ini=@SystemDir & "\FldLock.ini"   If Not FileExists($ini) Then $hnd=FileOpen($ini,1) FileWrite($hnd,"[Password]" & @CRLF) FileWriteLine($hnd,"Password=") FileClose($hnd) MsgBox(0+64,"Folder Lock","This is the first time running Folder Lock on this PC;" & @LF & @LF & "you will now be prompted to create a password.") $new=1 _ChangePW() EndIf $new=0   Opt("GUIOnEventMode",1) $prompt=GUICreate("Folder Lock",330,125) GUISetOnEvent($GUI_EVENT_CLOSE,"_Exit") GUICtrlCreateLabel("Welcome to the Folder Lock program.",75,15) GUICtrlCreateLabel("Please choose an option below:",85,38) $modify=GUICtrlCreateButton("Lock/Unlock",20,75,80) $chgpw=GUICtrlCreateButton("Change Password",120,75,100) $exit=GUICtrlCreateButton("Exit",240,75,60) GUICtrlSetOnEvent($modify,"_Modify") GUICtrlSetOnEvent($chgpw,"_ChangePW") GUICtrlSetOnEvent($exit,"_Exit") GUISetState(@SW_SHOW)   While 1 Sleep(1000) WEnd   Func _ChangePW() If $new=0 Then $bLoop=1 While $bLoop=1 $text=InputBox("Folder Lock","Please type your password and click OK.","","*") If @error=1 Then Exit ; They clicked OK, but did they type the right thing? If $text<>IniRead($ini,"Password","Password","failed") Then MsgBox(4096,"Error","Incorrect Password - try again!") Else $bLoop=0    ; Exit the loop - ExitLoop would have been an alternative too :) EndIf WEnd EndIf $pw1=InputBox("Folder Lock","Please create a new password and click OK.","","*") If @error=1 Then Exit $pw2=InputBox("Folder Lock","Please confirm your new password and click OK.","","*") If @error=1 Then Exit While $pw1<>$pw2 $pw1=InputBox("Folder Lock","Passwords do not match or are blank. Please try again.","","*") If @error=1 Then Exit $pw2=InputBox("Folder Lock","Please confirm your new password and click OK.","","*") If @error=1 Then Exit If $pw2="" Then $pw2="ThisPreventsBlankPasswords" WEnd IniWrite($ini,"Password","Password",$pw2) MsgBox(0+64,"Folder Lock","Your new password has been set.") EndFunc   Func _Modify() $bLoop=1 While $bLoop=1 $text=InputBox("Folder Lock","Please type your password and click OK.","","*") If @error=1 Then Exit ; They clicked OK, but did they type the right thing? If $text<>IniRead($ini,"Password","Password","failed") Then MsgBox(4096,"Error","Incorrect Password - try again!") Else $bLoop=0    ; Exit the loop - ExitLoop would have been an alternative too :) EndIf WEnd GUIDelete($prompt) ; Prompt the user to run the script - use a Yes/No prompt (4 - see help file) $answer=MsgBox(1,"Folder Lock","To LOCK your folder press OK" & @CRLF & "To UNLOCK your folder press Cancel") ; Check the user's answer to the prompt (see the help file for MsgBox return values) Switch $answer Case 1 ; Run Command Prompt RunWait(@ComSpec & " /c attrib +s +h +r F:\arcade",@UserProfileDir,@SW_HIDE) RunWait(@ComSpec & " /c cacls F:\arcade /e /c /d " & @UserName,@UserProfileDir,@SW_HIDE) MsgBox(0,"Folder Lock","Your folder has been LOCKED") Case 2 ; Run Command Prompt RunWait(@ComSpec & " /c cacls F:\arcade /e /c /g " & @UserName & ":f",@UserProfileDir,@SW_HIDE) RunWait(@ComSpec & " /c attrib -s -h -r F:\arcade",@UserProfileDir,@SW_HIDE) MsgBox(0,"Folder Lock","Your folder has been UNLOCKED") EndSwitch Exit EndFunc   Func _Exit() GUIDelete($prompt) Exit EndFunc
  5. uso esse script para abrir o jogo pes 2010 e 2013 no advmenu estou com problema em 3 jogos os outros funcionam perfeito os jogos são virtua tenis,pes 2010 e pes 2013 nesses jogos escolho o jogo os creditos entram bem depois que começa a demonstração dos jogos a tecla de credito para de funcionar e só entra creditos se eu minimizar a tela do jogo,parece que o jogo sobrepõe o script alguém pode ajudar? AutoItSetOption("WinTitleMatchMode", 4) Global $tempo_restante, $tempo_atual, $tempo_decorrido, $avisado, $lopping $intervalo = 0 $avisado = False $tempo_restante = verificatempo()     If @error Then SplashImageOn("", "..\auxiliar\image\mensa5.gif", 220, 40, -1, -1, 1) SoundPlay("..\auxiliar\som\erroemuexe.wav") SplashOff() Exit (0) EndIf HotKeySet("{9}", "Fechar") HotKeySet("7", "PegaFicha") $lopping = 1 $tempo_atual = DllCall("kernel32.dll", "int", "GetTickCount") While $lopping $tempo_decorrido = DllCall("kernel32.dll", "int", "GetTickCount") If $tempo_restante <= ($tempo_decorrido[0] - $tempo_atual[0]) Then $tempo_restante = 0 fechar() ExitLoop EndIf If $intervalo >= 600 Then gravatempo() $intervalo = 0 EndIf If (($tempo_restante - ($tempo_decorrido[0] - $tempo_atual[0])) <= 60000) AND (NOT $avisado) Then SoundPlay("..\auxiliar\som\falta1.wav") $avisado = True EndIf $intervalo += 1 Sleep(100) WEnd Exit (0)   Func fechar() Local $emulador, $fechou HotKeySet("{ESC}") HotKeySet("7") Sleep(100) Send("!{F4}") SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1) SoundPlay("..\auxiliar\som\fechaemu.wav", 1) If NOT $fechou Then EndIf If ProcessExists("joytokey.exe") Then If NOT WinActive("classname=TApplication") Then WinActivate("classname=TApplication") EndIf Send("{LALT}FX") EndIf gravatempo() SplashOff() $lopping = 0 EndFunc   Func pegaficha() Local $atual, $valor, $contador, $calcula, $adiciona $atual = $tempo_restante $contador = IniRead("..\advmenu.ini", "FICHEIRO", "CONTADOR", "0") $valor = IniRead("..\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000") $calcula = ($atual + Number($valor)) $adiciona = (Number($contador) + 1) IniWrite("..\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula)) IniWrite("..\advmenu.ini", "FICHEIRO", "CONTADOR", String($adiciona)) SoundPlay("..\auxiliar\som\coin.wav") $tempo_restante = $calcula $tempo_atual = DllCall("kernel32.dll", "int", "GetTickCount") $avisado = False EndFunc   Func verificatempo() Local $atual, $valor, $calcula $atual = IniRead("..\advmenu.ini", "FICHEIRO", "FICHAS", "0") $valor = IniRead("..\advmenu.ini", "CONFIGURACAO", "TEMPOPORFICHA", "600000") $calcula = Number($atual) If $calcula <= 30000 Then $calcula = 30000 $avisado = True SplashImageOn("", "..\auxiliar\image\mensa6.gif", 220, 40, -1, -1, 1) SoundPlay("..\auxiliar\som\bloqueado.wav", 1) Exit 0 EndIf Return $calcula EndFunc   Func gravatempo() Local $calcula $calcula = ($tempo_restante - ($tempo_decorrido[0] - $tempo_atual[0])) If $calcula < 0 Then IniWrite("..\advmenu.ini", "FICHEIRO", "FICHAS", "0") Else IniWrite("..\advmenu.ini", "FICHEIRO", "FICHAS", String($calcula)) EndIf EndFunc   Local $dll1, $ret Sleep(1000) $dll1 = DllOpen(@ScriptDir & "\gpcomms.dll") If $dll1 <> -1 Then $ret = DllCall($dll1, "int", "GPSL_SetTextLineData", "int", 0, "long", 10, "long", 10, "str", "EVIANDO OK...", "dword", -256, "int", 0, "int", 24, "int", 1, "int", 0) $ret = DllCall($dll1, "int", "GPSL_ShowText", "int", 0, "int", 1) EndIf While 1 Sleep(250) WEnd
  6. atualmente estou procurando maneiras de proteger melhor meus codigos,qualquer novidade posto aqui achei esse script do encodeit 2.0 para envelopar os scripts.mas esta dando undefined function. na função BinaryString segue o codigo
  7. o problema atualmente não é decompilar, é usar a engenharia reversa para crackear,vi alguns videos no youtube e da até medo http://www.youtube.com/watch?v=ZMScNi9cQPs
  8. @Belini tem como postar um exemplo de como envelopar o script usando o autoit?
  9. Gravando texto em arquivo .ini

    queria fazer um script com uma imputbox para colocar uma senha e que na mesma janela mostre o serial do hd será que é possivel?
  10. @belini queria fazer um script para troca de resoluçao rapida,o que pretendo é o seguinte, clicar no script e mudar a resolução para 640x480,32 bits,60 mhz, claro que para fazer efeito terei que reiniciar,sera que tem algum comando para fazer isso no autoit? usando arquivo .reg tem como fazer mas quando clico nele ele pede para confirmar , e isso não pode acontecer, tenho que clicar e reiniciar para funcionar
  11. aprender cada vez mais

  12. @belini achei essa dll diskserial,para ler o serial do hd mas como vc havia me dito,que para usar ela tinha que saber os parametros achei esse script que não sei se é em autoit com alguns parametros passados que pode ajudar a usar essa dll no script
  13. @belini tenho um aqui que o brbranco postou no outro forum
  14. amigos boa noite tenho uma duvida preciso fazer um comando para formatat um a partição do hd mas essa partição contem 3 arquivos executando então queria forçar a formatação, um amigo me explicou esse comando Runwait(@ComSpec & " /k "& "format d: /FS:NTFS /q /v:Volume /y",@WindowsDir,@SW_SHOW) mas o que acontece quando testo em um pen drive funciona, mas quando testo em um hd com a partição em ntfs não deixa formatar da a mensagem que a partição esta em uso, como posso fazer para forçar essa formatação?
×