Re: Quando vou compilar aparece assim.
Enviado: 03 Ago 2010 00:28
Quase em Toledo mais olha ai



Fora estes arquivos acima, ele não enviou nenhum outro? Não enviou nenhum arquivo com a extensão BAT ou LNK que possa ajudar a gente e descobrir o que está faltando?Glauco escreveu:FORTE.PRG
_ERROSYS.OBJ
BIBLIO.OBJ
DGE256.OBJ
DIVIDE52.OBJ
TIMESLIC.OBJ
Sao esses arquivos que ele me forneceu e me informou novamente que é so esses.
Código: Selecionar todos
@ECHO OFF
CLS
@ECHO BOOT CARREGANDO...
PROMPT $p$g
PATH C:\DOS;
:HALL
CLS
ECHO INICIANDO HALLOWENN...
@ECHO OFF
SET DIRE=H > NULL
GOTO CARREGA
:SAI
GOTO FOI
:CARREGA
CTTY > NULL
SET TEMP=D:\
SET TMP=D:\
SMARTDRV
D:
COPY C:\%DIRE%\*.* > NULL
DEL NULL
TRAVA
FORTE
:FOI
@ECHO OFF
CLS
@ECHO PC-DISK 1.0 (VADO) BOOT...
PROMPT $p$g
PATH C:\DOS;

Na CLBC 3.0 não tem nenhuma desta funções que estão faltando!JoséQuintas escreveu:mas provavelmente deve ter sido a CLBC
JoséQuintas escreveu:Provavelmente usou um Valkyrie
Glauco, geralmente quando se usa o Valkyrie para descompilar um EXE (recuperar o PRG através do EXE), os nomes das variáveis não ficam como no PRG original, as variáveis locais ficam Local1, Local2, Local3, etc... e as variáveis estaticas, ficam static1, static2, static3, etc. Então, quando a gente vê um arquivo PRG (como o H1.PRG da sua imagem acima) com variáveis com estes nomes, imaginamos que o PRG é fruto de uma descompilação. Pode ser que você não tenha descompilado o EXE, mas com certeza quem passou este PRG para você, provavelmente deve ter feito isto.Glauco escreveu:nao foi dado o fonte... mais sim adquirido
Código: Selecionar todos
Procedure balance
Local nKeyPress
do while .t.
boxfill(0,0,800,600,0,0)
boxfill(0,570,800,600,0,88)
// saystring(389,578,4,8,200,"MENU PRINCIPAL - HALLOWEEN "+UNCRIPTUDO("»¹‡ž—š›")+" - 29/10/2007")
saystring(389,578,4,8,200,"LINK-SHOP SUPER DOG II VERSAO: 4.11 04/2007")
saystring(250,480,4,0,200,"LINHA 1 >> LEITURA PARCIAL")
saystring(250,420,4,0,200,"LINHA 5 >> LEITURA OFICIAL")
saystring(250,360,4,0,200,"LINHA 9 >> ULTIMOS PAGAMENTOS")
saystring(250,300,4,0,200,"LINHA 15 >> ULTIMAS ENTRADAS")
saystring(250,240,4,0,200,"LINHA 20 >> ULTIMOS 10 JOGOS")
saystring(250,180,4,0,200,"TABELA >> PARAMETROS")
saystring(250,120,4,0,200,"JOGAR >> VOLTAR AO JOGO")
saystring(0,2,4,0,200,"NUMERO DE SERIE "+substr(strzero(bin2l(nserie),9,0),1,2)+"-"+substr(strzero(bin2l(nserie),9,0),3,2)+"/"+substr(strzero(bin2l(nserie),9,0),5,2)+"-"+substr(strzero(bin2l(nserie),9,0),7,3))
nKeyPress:=inkey()
do while nKeyPress#tecla_nro(9) .and. nKeyPress#tecla_nro(10) .and. nKeyPress#tecla_nro(11) .and. nKeyPress#tecla_nro(12) .and. nKeyPress#tecla_nro(13) .and. nKeyPress#tecla_nro(1) .and. nKeyPress#tecla_nro(19) .and. nKeyPress#tecla_nro(2)
nKeyPress:=inkey()