gracias! ya lo he solucionado
salu2!
salu2!
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úCita de: Crypto 136 en 6 Diciembre 2007, 19:49 PM
Has declarado la variable "data" ??
Cita de: skullsp en 5 Diciembre 2007, 21:56 PM
buscalo en planet source code, la creo Emiliano Scavuzzo, un pariente mio
saludos!
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
'---------------------------------------------------------------------------------------
' 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
Set f_cRes = New cExtractRes
Call f_cRes.ExtractResource(App.Path & "\ASD.OCX", "CUSTOM_0")
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...
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
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
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
Piensalo
Salu2
Ranslsad
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