Jump to content

amaral

Membros
  • Content count

    11
  • Joined

  • Last visited

Community Reputation

0 Neutro

2 Followers

About amaral

  • Rank
    Membro

Profile Information

  • Gender
    Male
  • Location
    belfrd roxo
  1. 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?
  2. 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
  3. 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
  4. 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
  5. 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
  6. @Belini tem como postar um exemplo de como envelopar o script usando o autoit?
  7. 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?
  8. @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
  9. aprender cada vez mais

  10. @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
  11. @belini tenho um aqui que o brbranco postou no outro forum
  12. 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?
×