Ir para conteúdo


Foto

Proteção serial HD, através de um script chama um EXE


  • Por favor, faça o login para responder
2 respostas neste tópico

#1 kako alex

kako alex

    Novato

  • Membros
  • 1 posts
  • Locationdourados

Postado 10 agosto 2017 - 12:55

Meu problema está basicamente em juntar 2 EXE em 1 só. Não sei se isso é possível.

Tenho esse seguinte script(achado no fórum), que funciona perfeitamente, porem gostaria de achar alguma forma de criar em um único executável. Já utilizei o MoleBox mas o programa não chama o outro executável.

 

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
Local $numero_serial="", $serial_guardado="S28YJ90B611700"
 
If Not RegistraOCX() Then
MsgBox(0,"Erro", "Não foi possivel registrar o OCX" & @CRLF & "Verifique se ele está na mesma pasta do script")
Exit
EndIf
 
$numero_serial=LeSerial()
 
Func LeSerial()
Local $mHD, $serial=""
;criar o objeto
$mHD=ObjCreate("LonsSoftDiskSerial.DiskSerial")
If Not IsObj($mHD) Then
MsgBox(0,"Erro","Não foi possivel criar o objeto")
Return $serial
EndIf
;inicializa o objeto antes de verificar o serial
If Not $mHD.ReadDiskSerial("Phrozen-Hell", "HD000539910017-6D4EDB87") Then
MsgBox(0,"Erro","Não foi possivel ler o serial.")
Return $serial
EndIf
 
;retira os espaços em brancos
$serial = StringStripWS($mHD.SerialNumber,8)
Return $serial
EndFunc
 
Func RegistraOCX()
Local $registra
$registra=ShellExecute("regSVR32.exe","/s " & @ScriptDir &"\GMiControl.oca")
If @error Then Return 0
Sleep(250)
$registra=ShellExecute("regSVR32.exe","/s " & @ScriptDir &"\GMiControl.ocx")
If @error Then Return 0
Sleep(250)
Return 1
 EndFunc
 
 If StringCompare($numero_serial, $serial_guardado) <> 0 Then
   MsgBox(0,"Sucesso","Você esta usando uma cópia pirata");<== aqui você coloca o que será feito se o hd foi clonado
exit; encerra o script
Else
   Run(".MEUPROGRAMA.exe")
EndIf


#2 Manimal

Manimal

    Membro Nível 3

  • Administradores (Adm)
  • PipPipPipPip
  • 358 posts
  • LocationVideira/SC

Postado 11 agosto 2017 - 08:53

Olá caco alex.

 

   Vejo que vc já está "instalando" um arquivo adicional (GMiControl.oc?) na pasta onde tem o script. Então porque não instalar o outro .EXE tbm?

 

   Se quiser juntar todos os arquivos num script só, veja a função FileInstall



#3 Pedro Pinheiro

Pedro Pinheiro

    Membro Nível 2

  • Membros
  • PipPipPip
  • 212 posts
  • LocationBrazil

Postado 11 agosto 2017 - 07:42

Por favor Login ou se não possuir um conta Registre-se para ver o conteúdo escondido


Editado por Pedro Pinheiro, 11 agosto 2017 - 11:33 .





0 usuário(s) está(ão) lendo este tópico

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

Documentação OnLine de referência