Mensajes

:/  porque tantos programas?, desde  windows  net view  te indica cuantos estan conectados a tu modem, por otra parte entra   a la configuracion web de tu modem y alli se ve quien esta conectado, me parece  un poco absurdo llenarse d e programas que hacen lo mismo.

creo  que tienes  que buscar como editarlo linea por linea  es todo :/, aun necesitas el codigo?.

jejejejeje  XD  , recuerdo que una vez tube el mismo problema, no soy  un profesional en vb6 , pero lo resolvi de  esta forma , mira  el error  ante  todo se  produce, porque al cargar el formulario, envia la señal de  volver a  activar el checkbox , y al hacerlo , intenta  repetir  la misma orden , y  como la orden ya ha sido echa, no encuentra el archivo . bueno   en mi caso  lo resolvi asi:

primero  puse una variable  global

Código [Seleccionar] Expandir

Dim X As Integer

luego para detectar el archivo activo puse en el form_load :

Código [Seleccionar] Expandir

X = 0
Set Carpeta = New FileSystemObject
If Not Carpeta.Folderexists("C:\activo") Then
Check1.Value = 0
Else
Check1.Value = 1
End If

y para que no ejecute una accion repetida creé una condicion if con " X "  no con el checkbox , de tal forma que si x= 1  entonces se ejecute recien la condicion:

Código [Seleccionar] Expandir

If X = 1 Then
If Check1.Value = 0 Then
  Name "C:\activo" As "C:\inactivo"
Else
  Name "C:\inactivo" As "C:\activo"
End If
End If

como abras visto en la carga del formulario se le da el valor 0  por lo tanto no hara nada cuando el formulario envie la orden al click del chekbox ,  y para que se active justo en el momento preciso en que vas a  seleccionar el checkbox  utilice:

Código [Seleccionar] Expandir

Private Sub Check1_GotFocus()
X = 1
End Sub

esto esta basado en tu codigo,  el mio era mas largo XD  en total   todo el codigo se  veria asi :

Código [Seleccionar] Expandir

Dim X As Integer

Private Sub Form_Load()
X = 0
Set Carpeta = New FileSystemObject
If Not Carpeta.Folderexists("C:\activo") Then
Check1.Value = 0
Else
Check1.Value = 1
End If
End Sub

Private Sub Check1_Click()
If X = 1 Then
If Check1.Value = 0 Then
  Name "C:\activo" As "C:\inactivo"
Else
  Name "C:\inactivo" As "C:\activo"
End If
End If
End Sub

Private Sub Check1_GotFocus()
X = 1
End Sub


espero que te sirba, como repito no soy experto , si  hay cosas que s e puedan corregir , pake no sea mucho codigo, psss ya depende  de  ti,  suerte..

antes  de que  te preocupes demasiado, debes  sabes  si no es un farol, y tu mordistes el anzuelo, es decir,  si alguien te dice  yo se  que has estado viendo porno en esa computadora, y tu  inocentemente caes en su juego  , y te pones nervioso, obviamente  le estas  confrmando que lo haces, poco a poco  te va diciendo mas  cosas  de las que supuestamente  podria enterarse,....por otro lado de ser cierto , que te esta espiando, lo mas  probable es que solo este usando un sniffer, y este   revisando el trafico que generas en tu modem, para saberlo puedes  probar con net view  o net user, y veras  las pc que se encuentran conectadas  en tu modem,  por otra parte  debes estar  al tanto de a quien le prestas  tu pc, es mas  facil que   te configure  un troyano una persona k tiene acceso directo a tu ordenador, muchas veces los enamigos estan mas  cerca de lo que te imaginas.

los imanes  negros  comunes y corrientes, pueden borrar o dañar  los datos que exista en el,  en el caso de los discos  duros, se necesita  alguno de mas  potencia, quizas un electroiman , por cierto los discos  duros  usan imanes de neodimio en su interior, esos son muy muy potentes.

siendo creyente:
si Fuese la persona ignorante  de la que describes, diría  que  Dios me regresó al mismo lugar para que y no me cayera al vacío.

siendo ateo:

al final de la tierra existe una especie de puerta multidimensional  que te regresa al mismo punto de partida , y podrias  estar caminando en linea recta por toda la eternidad , pero siempre te llevaría  denuevo al punto de  partida .Y quizas me pondria a buscar el punto donde la cuerda se pierda y quizas al no poder allarlo diría , que la puerta es invisible a simple vista , o nuestra mente no tiene la capacidad de  visualizar  este tipo  de entradas.  en fin  ya  te imaginas  lo alucinante que es la mente humana xD jejejej

coincido ,con "ivancea96"  , La verdadera Inteligencia brilla en cualquier Lugar , y hace su propio camino.

Me parece que estas hablando de una pc de  tu trabajo, por lo que asumo que te conectavas desde la misma red, si es asi, puede que alguien tenga configurada tu misma ip, solo que tu pc no estuviera activa en ese momento.quizas solo querian inculparte.celos profesionales  , o si se trata de  una escuela, alguno de  tus compañeros.   o  quizas simple casualidad. la ip nada tiene que ver, te sugiero que revises la hora y fecha de esos mensajes.

lee  Bien , esto ""NADA  , ABSOLUTAMENTE NADA,  NADA DE  NADA, EN ESTE MUNDO ES LEGAL, SALVO TU INGENIO""

te da la ubicacion de  tu proveedor de servicios no de tu pc