Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - demoniox12

#161
gracias! ya lo he solucionado :)

salu2!
#162
Cita de: Crypto 136 en  6 Diciembre 2007, 19:49 PM
Has declarado la variable "data" ??

se...

dim data as string
y para probar como dije en el 1er post puse dim data() as string

normalmente funciona.. osea recibiendo de a 1 dato x ejemplo "hola estoy enviandote esto".. pero si quiero recibir datos de varias conexiones ahi esta el problema.. x ejemplo 2 conexiones que manden "hola estoy enviandote esto" se mesclan las 2.. pero si haria matriz el data supongo que funcionaria.. pero nose como..

salu2!
#163
Programación Visual Basic / Conexiones multiples
6 Diciembre 2007, 15:23 PM
Wenas! bueno.. aca va mi duda... que no he podido solucionar T_T tengo un cliente que recibe los datos y esos datos los va mandando.. depende los datos los manda a diferentes forms.. entonces.. aca va la cosa.. el server me envia datos multiples mediante varias conexiones.. pero el cliente lo que hace al recibir es poner los datos en una variable que es siempre la misma entonces cuando recibo 2 cosas a la vez me da error ya que se mesclan los datos..

WS(index).GetData data

recibe los datos de la conexion index es el valor de la conexion.. intente hacer matriz data... algo asi.. WS(index).GetData data(index) pero me dio error.. despues intente hacer indexdata = WS(index).Index y ponerle WS(index).GetData data(indexdata) pero tampoco.. me daba error ahi (El subindice esta fuera del intervalo).. en esa linea..

nose si me explico bien.. lo que me gustaria es que separara los datos que recibo de las diferentes conexiones...

salu2!
#164
Cita de: skullsp en  5 Diciembre 2007, 21:56 PM
buscalo en planet source code, la creo Emiliano Scavuzzo, un pariente mio :D

saludos!

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=53077&lngWId=1

ahi lo encontre..

salu2! gracias.. voy a probarlo
#165
Cita de: skullsp en  5 Diciembre 2007, 20:24 PM
para hacer eso tenes que bajar un Editor de Recursos... yo uso el Resource Builder... visual solo admite los .res, los .rc son para C/C++

y dentro del Recurso, podes meter imagenes, sonidos, ocx, dll, exe, animaciones, mp3, wav, todo lo que quieras y no hace falta poner todo en una carpeta y redireccionar por ruta, sino que sacas las imagenes e iconos del recurso y es mas facil y todo en 1 archivo...

saludos :D

e intentado extraer el ocx que he metido en un res desde vb pero no lo he logrado... alguno que sepa?? (tengo una clas llamada cExtractRes que he sacado el MultiDesktop de LeonardoA) pero no logro hacerla funcionar..

salu2!

PD: aca les dejo la clas..

'---------------------------------------------------------------------------------------
' Module      : cExtractRes
' DateTime    : 24/10/2007 05:31
' Author      : Cobein
' Mail        : cobein27@hotmail.com
' Purpose     : Extract data from a resource and save it a to a file.
' Requirements: None
'---------------------------------------------------------------------------------------
Option Explicit

Private Declare Function FileExists Lib "kernel32" Alias "GetShortPathNameA" ( _
    ByVal sFile As String, _
    ByVal nu As Any, _
    ByVal nu As Long) As Long
Private Declare Function MoveFileEx Lib "kernel32" Alias "MoveFileExA" ( _
    ByVal lpExistingFileName As String, _
    ByVal lpNewFileName As String, _
    ByVal dwFlags As Long) As Long
Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" ( _
    ByVal lLongPath As String, _
    ByVal lShortPath As String, _
    ByVal lBuffer As Long) As Long
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" ( _
    ByVal lpFileName As String) As Long

Private c_bDelete       As Boolean
Private c_sFile         As String
'
'---------------------------------------------------------------------------------------
' Procedure : ExtractResource
' Purpose   : Extract resource information and save it to a file.
' Parameters:
'            sDstFile: Destination File
'            sResName: Resource name
'            sResSection: Resource Section
'            bReplace: Replace existing file
'            bDeleteOnUnaload: Delete file on unload
'            Returns True on success
'---------------------------------------------------------------------------------------
Public Function ExtractResource( _
       ByVal sDstFile As String, _
       ByVal sResName As String, _
       Optional ByVal sResSection As String = "CUSTOM", _
       Optional ByVal bReplace As Boolean = False, _
       Optional ByVal bDeleteOnUnaload As Boolean = True) As Boolean

    On Local Error GoTo ExtractResource_Error

    c_bDelete = bDeleteOnUnaload
    c_sFile = sDstFile

    If Not (FileExists(sDstFile, 0&, 0) = 0) Then
        If Not bReplace Then
            ExtractResource = True
            Exit Function
        Else
            If DeleteFile(sDstFile) = 0 Then
                c_bDelete = False
                Exit Function
            End If
        End If
    End If
   
    Dim bvBuffer() As Byte
   
    If IsNumeric(sResName) Then
        bvBuffer = LoadResData(Val(sResName), sResSection)
    Else
        bvBuffer = LoadResData(sResName, sResSection)
    End If
    If UBound(bvBuffer) = 0 Then
        c_bDelete = False
        Exit Function
    End If
           
    Dim iFile As Integer
       
    iFile = FreeFile
    Open sDstFile For Binary Access Write As iFile
    Put iFile, , bvBuffer
    Close iFile
   
    ExtractResource = True
   
    On Error GoTo 0
    Exit Function

ExtractResource_Error:
    Close iFile
End Function

Private Function GetShortPath(ByVal sFile As String) As String
    Dim lLen        As Long
    Dim sBuffer     As String

    sBuffer = Space(254)
    lLen = GetShortPathName(sFile, sBuffer, 255)
    GetShortPath = Left$(sBuffer, lLen)
End Function

Private Sub Class_Terminate()
    If c_bDelete Then
        If DeleteFile(c_sFile) = 0 Then
            Call MoveFileEx(GetShortPath(c_sFile), &H0, &H4)
        End If
    End If
End Sub


y en el from load le puse..

Set f_cRes = New cExtractRes
Call f_cRes.ExtractResource(App.Path & "\ASD.OCX", "CUSTOM_0")


pero no me funciona.. ("CUSTOM_0") es el id del recurso..
#166
Cita de: skullsp en  5 Diciembre 2007, 20:31 PM
no sean lammers... usen los modulos y clases de WinsockMaster que hay por todos lados... es mas... hay un plus que es multisocalo y se puede hacer multiconexiones muy facil mente...

cual es ese plus??
#167
Cita de: Lambda en  5 Diciembre 2007, 18:35 PM
son archivos de recursos que usa el compilador, en el puedes almacenar cadenas/imagenes/iconos o cualkier otra cosa

Hola! y como se puede hacer un archivo .res? x ejemplo quiero meter un ocx y luego extraerlo con una class que anda dando vueltas para extraer los recursos..


salu2!
#168
Cita de: Garet-deRioth en  1 Diciembre 2007, 21:52 PM
Vi eso, pero normalmente esos BOTs traen keyloggers o cosas asi, ademas ya son de una version vieja, si tu sabes como se componen me gustaria que me lo explicaras, o pues lo basico, como hago un textbox que me muetre el "DATA", o los codigos que son enviados del Cliente al servidor, y reciprocamente.

¿Algun experto?

Gracias por su atencion

lo de ver los datos que se envian podrias modificar el archivo hosts y que enves de utilizar directo los datos que hagas un estilo "proxy" para que te muestre los datos que son enviados...

salu2!
#169
Cita de: ranslsad en  1 Diciembre 2007, 20:12 PM
Serial mas facil asignar un index de WS a casa conexion asi no tenes que dar tantas vueltas :P
Piensalo ;)

Salu2

Ranslsad

y como haria para asignarle un index al modulo del ws?? xD

salu2!

PD: te agregue aver si me podes dar una mano.. aver si logro hacer esto..

salu2!
#170
Cita de: Zeroql en  1 Diciembre 2007, 16:27 PM
demoniox12 gracias pero ahora como hago para encontrar los valores que se encuentren dentro de las fechas es decir los valores que se encuentren entre los dias 15/02/07 y 28/03/07
gracias

supongo que tendras que hacerlo con alguna sentencia sql pero ya de eso no se xD tendras que esperar a alguien que sepa de eso :P

salu2!