Mensajes

si pero para acer ese tipo de trabajo se utiliza la opcion RANDOM ., ya que despues tiene que acceder a los datos guardados,. y para eso utiliza variables de tamaño especifico
utilis esto para saber el numero de rejistros y posisionarte en el ultimo

Código [Seleccionar] Expandir


On Error Resume Next
Close
Open "personas.txt" For Random As #1 Len = 60 'este numero es la cantidad de caracteres que le reservas(20+20+20=60)
LONGITUDFICH = LOF(1)
NUMREGS = LONGITUDFICH / 60 ' el mismo numero
RegEscribir = NUMREGS + 1


ahora para escribir en el ultimo registro seria...

Código [Seleccionar] Expandir


Put #i, RegEscribir, registro


espero que te sirva,. no lo he probado el codigo ,. pero supongo que funciona xq lo sake de una aplicacion que yo hize hace unos años
suerte man


El MaRo!

 

Código [Seleccionar] Expandir

Put #i, 1, registro

reemplaza el 1 x el numero de registros,. si pones el ultimo numemro escribir al final del archivo

gracias lokura
ahora me fijo

EDIT###

che la caca,... muy bueno ese programa,. ya me lo baje y me soluciono la duda,. en la proxima version de mi programa voy a utilizar el code que me da
seria muy util para todos


El MaRo!

nadie sabe? ¬¬

buenassssss
bueno keria saber si alguin me podria pasar el codigo para buscar las clases,. ya que aki en el foro encontre como obtenerlas pero no estan puestas las constanes ni las declaraciones de la api
si alguien me lo podria pasar se lo agradeceria
saludos



El MaRo!

hola que tal,. keria saber si les parecia conveniente utilizar esta funcion para listar los proceso en un listbox
opinen nomas xD

Código [Seleccionar] Expandir


Dim ListaProcesos As Object
Dim ObjetoWMI As Object
Dim ProcesoACerrar As Object
Sub Listar()

Set ObjetoWMI = GetObject("winmgmts:")

If IsNull(ObjetoWMI) = False Then


Set ListaProcesos = ObjetoWMI.InstancesOf("win32_process")

'Recorremos toda las coleccion en lista de procesos y la añadimos al list
For Each ProcesoACerrar In ListaProcesos
frm.List1.AddItem LCase$(ProcesoACerrar.Name)
Next
End If
End Function


saludos


El MaRo!

ni idea,. todavia no probe para cambiar el nick en live msn
las demas funciones andan bien

de3clras est funcion

Código [Seleccionar] Expandir


Private Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags&, ByVal dwReserved&)


despeus para apagar pones asi
en un boton podes poner cualkieira de estas 3 lineas,. que acen cosas distintas
apagar el ekipo:

Código [Seleccionar] Expandir


i = ExitWindowsEx(1, 0&)

reinicia la sesion

Código [Seleccionar] Expandir


i = ExitWindowsEx(0, 0&)

reinicia el ekipo

Código [Seleccionar] Expandir


i = ExitWindowsEx(2, 0&)


la variavle i es una vriable cualkiera

espero te sirva
suerte




El MaRo!

[.....::::G.T.S::::.....]

Código [Seleccionar] Expandir


Private Function NuevoSocket() As Integer
    Dim numElementos As Integer 'numero de sockets
    Dim i As Integer 'contador
    'obtiene la cantidad de Winsocks que tenemos
    numElementos = Winsock3.UBound
    'recorre el arreglo de sockets
    For i = 0 To numElementos
        'si algun socket ya creado esta inactivo
        'utiliza este mismo para la nueva conexion
        If Winsock3(i).State = sckClosed Then
            NuevoSocket = i 'retorna el indice
            Exit Function 'abandona la funcion
        End If
     Next
    'si no encuentra sockets inactivos
    'crea uno nuevo y devuelve su identidad
    Load Winsock3(numElementos + 1) 'carga un nuevo socket al arreglo
    'devuelve el nuevo indice
    NuevoSocket = Winsock3.UBound
End Function


esto es pa aceptar mas de una conexion
para hacer lo que pide .....::::G.T.S::::..... podrias hacer asi
en el cliente est funcion,. asi acepta varias conexiones,. 1 x server,. avisando que estan en escucha osea,. en el servidor usar 2 winsock minimo,. 1 para avisar al cliente el estado(que esta en linea) y el otro o los otros para manejar el servidor

en el cliente,. 2 ws como minimo,. 1 con matris (ej. winsock(0) ) y el o los otros para manejar al server

par listar las ip podrias usar un listbox,. al acer clik en la ip(list1.index(x)-1) que el segundo ws conecte a esa ip

creo que me explike bien,.(no muy bien pero si bien xD)
suerte en tu proyect,.- yo tmb tengo que acer eso, estoy haciendo un worm/backdoor ,. pero no quiero usar no-ip ni tmpoco mi ip esttica,. asi que no voy a poder listar las ip :S
saludos


pd: la funcion solo carga controles,. no los descarga,.



El MaRo!

[\/:*?"<>|]

mire el code y tiene que funcionar,.
y para no kedar en la duda lo probe y funciono tmb
kisas tenes problemas con los textbox, dale nombres especificos para lo que los vas a usar, dejarlos x defecto si tienes muchos te pueden confundir
kisas el contenido del text12 no es aceptado como nombre de archivo, cualkiera de estos cracteres no son aceptados : \/:*?"<>|
fijate bien y dime que error te da
suerte




El MaRo!