dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2013 09:06 hs
Vou testar aquí.
Valeu amigão !!!
|
|
|
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2013 15:03 hs
Vamos lá !
Eu conseguí registrar a dll por uma arquivo.bat. Mesmo com o UAC ativado. A pasta WINDOWS também é bloqueada pelo UAC. Registrei sem problema nenhum. A solução está por aí.
Como seria mandar adicionar uma linha, após a última linha de um arquivo texto qualquer ?
Sendo assim, ao carregar o sistema, ele executará o bat silenciosamente, via código vb6.
|
|
|
|
Euzebio
não registrado
|
|
|
ENUNCIADA !
|
|
|
Postada em 29/10/2013 19:12 hs
dr. X
Não sei se entendi o que deseja, mas...
Para adicionar uma linha, use Append
Primeiro copie o arquivo para o c:/temp (ou qualquer outra pasta_
Abra o arquivo com Append
close #10
open "c:/temp/arquivo.txt" for append as #10
print #10,"bla bla bla"
close #10
Agora crie um .bat com...
close #11
open "c:/temp/meuscomandos.bat" for output as #11
print #11,"copy c:/temp/arquivo.txt /Arquivos~1"
print #11,"del c:/temp/arquivo.txt"
close #11
O .BAT acima (meuscomandos.bat) coloquei o comando copy para copiar para a pasta "Arquivos~1"... não sei se é assim que fica o nome de Arquivos de Programas no prompt, mas se você der um "dir" na raiz do C: conseguirá ver, parece que é assim mesmo.
Após copiar o arquivo para Arquivos de Programas, eu apago ele com o comando del, para ter certeza que não ficará uma cópia obsoleta que futuramente pode confundir.
Para executar o .BAT use o comandos Shell.
Testa ai e dá um retorno.
Caso queira falar comigo, mais diretamente, me adicione no skype "sistema.comodoro"
Tudo de bom.
|
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/10/2013 01:34 hs
Tamo quase lá:
Bom... o que desejo fazer:
Criar o arquivo bat com a seguinte instrução:
Acessar uma pasta (Teste) no diretório "Arquivos de Programas" e adicionar uma linha no final de um arquivo texto. Exemplo:
Dentro da pasta "Teste" existe um arquivo chamado "Arq.txt";
No momento em que o sistema(vb6) estiver invocando o software gráfico e ele estiver sendo carregado, então executará o arq.bat com shell, abrindo internamente o arquivo "Arq.txt" e adicionado por exemplo: "Esta linha foi adicionada".
Só lembrando que a dll, a qual mencionei, ela foi registrada via .bat com permissão nesta sintaxe: %systemroot%system32
egsvr32.exe "arq.dll"
|
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/10/2013 15:43 hs
Caro Euzébio !
Agradeço o seu esforço e interesse em me ajudar.
Finalmente com o esforço mútuo, conseguimos.
Após muitos testes e dor de cabeça, a solução é muito simples:
Para Win7 32bits:
Basta trocar "Arquivos de Programas" por "Program Files"
Para XP :
Basta manter "Arquivos de Programas".
Exemplo do código:
Crie em "C:" uma pasta e chame-a de "Teste". Dentro da pasta "Teste" salve um arquivo texto e chame de "Arq.txt". Abra o "Arq.txt" e digite: 1-2-3-4-5-6-7-8-9-10 e salve e feche.
Lembrando: Em "Arquivos de Programas" você também terá uma pasta chamada "Teste", pois será copiado o "Arq.txt" e alterado.
Agora abra um form e cole esse código:
Private Sub Command1_Click()
Dim REG As String
REG = "-11-12-13-14-15-16-17-18-19-20"
'copiando arq.txt resguardado o original:
FileCopy "C:/Teste/Arq.txt", "C:/Program Files/Teste/Arq.txt"
'após copiar, agora vamos abrir e adicionar uma linha no final do arquivo:
Open "C:/Program Files/Teste/Arq.txt" For Append As #2
Print #2, REG
Close #2
End Sub
Execute clicando em Command1. Verifique em "C:/Arquivos de Programas/Teste/Arq.txt" o que aconteceu.
Um abraço !!!
|
|
TÓPICO EDITADO
|
|
|
|
dr.X
|
BELO HORIZONTE
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 30/10/2013 15:46 hs
OPS !!! Só lembrando: o Fórum não aceita a barra invertida.
|
|
|
|
