USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  como ler o codigo escrito nos aqruivos do vb 6 ?
DigPol
DIGPOL
DI -
ENUNCIADA !
Postada em 07/08/2007 12:50 hs         
tem como ler toda a programação de um projeto ! 
  tipo abrir o arquivo do vb e analisar o q ta escrito em linguagem do proprio vb  ??  
     e alterar tmb da ??

desde ja agradeco
 
   
PH1959
Pontos: 2843
SÃO JOSÉ DOS CAMPOS
SP - BRASIL
ENUNCIADA !
Postada em 07/08/2007 13:14 hs            
não entendi a sua pergunta
 
   
Vilmar Brazão
Pontos: 2843
SAO PAULO
SP - BRASIL
ENUNCIADA !
Postada em 07/08/2007 15:08 hs         
o máximo que vai conseguir é abrir os .frm, .cls, .bas com um bloco de notas ou outro editor de textos simples e ver algumas infos pelo vb6.exe vc não vê.
estas infos vistas pelo editor de textos podem ser alteradas, desde que vc saiba o que está alterando.

http://www.vilmarbro.com.br
   
DigPol
DIGPOL
DI -
ENUNCIADA !
Postada em 07/08/2007 17:36 hs         
nao tem como abrir pelo vb os arquivos do vb q contem a programação escrita !
 
alterar ja seria  uma segunda coisa
 
mas preciso mesmo é ler ! 
preciso localizar os nomes de todos os rpt  escritos  nos .frm e .bas !
   
DigPol
DIGPOL
DI -
ENUNCIADA !
Postada em 07/08/2007 20:13 hs         

ae pessoal consegui fazer

valeu

 

Private Sub Command1_Click()
'On Error GoTo Erro
MousePointer = 11
warq = "INI"
DoEvents
Do While warq <> ""
   arq = FreeFile
   warq = Dir("C:Documents and SettingsDiogoDesktoppasta*.frm")
   If warq = "" Then
      MousePointer = 1
      Exit Sub
   Else
      wabr = "C:Documents and SettingsDiogoDesktoppasta" & warq
      Open wabr For Input As #arq
      Do While Not EOF(arq)
         Line Input #arq, WLINHA
         MsgBox WLINHA
     
      Loop
      Close arq
   End If
Loop


MousePointer = 1
Exit Sub
Erro:
MsgBox Err & Error
MousePointer = 1

End Sub

   
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página