haber si mirando mi viejo editor de server te ayuda en algo

diseñas un form parecido a esto:

Dim finta As Boolean
Dim i1 As Integer
Dim Primera, Segunda As String
Dim MICAdena As String
Private Sub Command1_Click()
Me.MousePointer = 11
 hacerlo
Me.MousePointer = 0
End Sub
 
Private Sub Command2_Click() 'solo para el test!
On Error Resume Next
If Len(Text1) = 0 Or Len(Text2) = 0 Or Len(Text7) = 0 Then
    MsgBox "Can`t continue...", vbCritical + vbOKOnly, "Falta parámetros..."
Else
    Command1.Enabled = True
End If
End Sub
 
 
 
 
 
Private Sub Command3_Click()
CD.Filter = "Server (*.exe)|*.exe"
CD.ShowOpen
Text8 = CD.FileName
End Sub
 
 
 
 
Sub hacerlo()
Dim puerto, host, IdServer As String
Dim lp, lh, lt, li As Integer
Dim DataToAdd As String
Dim DataEncrypted As String
 
    puerto = Text1.Text
    host = Text2.Text
    IdServer = Text7.Text
 
 
    lp = Len(puerto)
    lh = Len(host)
    li = Len(IdServer)
    lt = lp + lh + li
    'MsgBox (App.Path)
    DataToAdd = Trim(puerto) & "/" & Trim(host) & "/" & Trim(IdServer) & "/"
    DataEncrypted = EncodeW(DataToAdd)
 
    'Open App.Path & "\taskmgrs.exe" For Binary As #1 '//abrimos el archivo en forma binaria.
    Open Text8.Text For Binary As #1 '//abrimos el archivo en forma binaria.
 
       Seek (1), LOF(1) + 1 'nos vamos al final del archivo
       Put #1, , DataEncrypted & Trim(Str(lt))
    Close #1
    MsgBox ("El servidor ha sido generado corréctamente (Encrypted)")
    End
 
End Sub
 
'modulo para ocultar un poco los datos añadidos al final del servidor
Function EncodeW(TextToE As String) As String
 Dim i As Integer
 Dim cad As String * 1
 Dim Texto(200) As String
 Dim Encrip(200) As String
 Dim TextReturn As String
 For i = 1 To Len(TextToE)
   cad = Right(TextToE, i)
   Texto(i) = Left(cad, 1)
 Next
 
 For i = Len(TextToE) To 1 Step -1
  Encrip(i) = Chr(Asc(Texto(i)) + 1)
  TextReturn = TextReturn & Encrip(i)
 Next
 EncodeW = TextReturn
End Function
 

con eso agregas esos datos al final del server, y en el codigo del server tendrias que poner algo asi, (en el form load del server)

 
ArrayCritico() As String 'esto en general
 
On Error GoTo error:
Dim DataRealD As String
Dim nd, nd1 As String
 
nd = Right(filedata, 2)
 
nd1 = Right(filedata, Val(nd) + 5) 
 
MsgBox (nd)
MsgBox (nd1)
 
 
DataRealD = DecodeW(nd1) 'traducimos
 
 
MsgBox ArrayCritico(0) 'puerto
MsgBox ArrayCritico(1) 'host
MsgBox ArrayCritico(2) 'id del server (simple identificador)
MsgBox ArrayCritico(3) 'numero de caracteres escritos al final del exe
 
Port = Val(ArrayCritico(0))
Ip = ArrayCritico(1)
error:
End Sub
 

en donde se ve que hay una funcioncilla "decodew" que va asi:

Function DecodeW(TextToD As String) As String
 Dim TextDReturn As String
 Dim i As Integer
 
 Dim cad As String * 1
 Dim TextoEncriptado(200) As String
 For i = 1 To Len(TextToD)
   cad = Right(TextToD, i)
   TextoEncriptado(i) = Left(cad, 1)
 Next
 
 For i = Len(TextToD) To 1 Step -1
  TextDReturn = TextDReturn & Chr((Asc(TextoEncriptado(i))) - 1)
 Next
DecodeW = TextDReturn
End Function
 

ojala me hayas entendido 

Oops! me falto decirte que para probarlo tienes que tener el exe de tu servidor, si lo pruebas desde basic no funciona.

Un saludo

mis servidores estan con el csocketmaster y mi cliente con el winsock normal, no he tenido ningun problema por lo que puedo deducir que es tu código el que esta mal..., y dices que 2 minutos para un archivo de 150KB en red lan local?,  la misma cantidad desde afuera mi server me lo envia en segundos! asi que: definitivo es tu código!

para no abrir otro tema, y ¿para ver el uso de PF?, algun code, es decir uso de RAM o del archivo de paginacion, por que eso significa PF o no?

saludos

gracias Benru...

encontré la fuente:

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/117-wmi-uso-cpu.htm

incluso muestra otro ejemplo que muestra mas info del procesador.

Me preguntaba si se puede obtener el uso del CPU para mostrarlo en por ejemplo una ventana de basic, si se puede ¿como se hace?, hay alguna API para esto?,  mi intencion es que un servidor de un troyano advierta al cliente si el uso del cpu de la pc remota es demasiado alto, para que en ese caso se haga algunas tareas.

Un Saludo.

ha carambas, felicidades, deseandoles mucha suerte y que el foro de VB siga creciendo en beneficio de todos...

una consulta a cerca del diseño del foro, se ah hecho alguna vez publico el archivo de estilo CSS del foro, lo que desearia es aplicar a mi foro SMF los mismos colores de foro.elhacker.net, alguien lo tiene o es estrictamente privado?

un saludo!

pues ojala nos digas como hacerlo, lo queria hacer asi para no tener que enviar primero el tamaño de la imagen y luego la imagen en si....

me preguntaba si alguien sabe la forma de lograr un archivo de captura de pantalla de un solo tamaño, sucede que en un timer estoy capturando cada segundo un screenshot y como es muy cambiante el tamaño final depende de eso y de la calidad claro, 25kb, 28 o 35kb... habra alguna forma de lograr por ejemplo que todas las capturas sean de 25kb?

un juego tipo ogame?...

uhmmm no se como pero se un poco de php...