Mensajes

Exacto la ultima parte k pusiste es lo k necesitas y lo deberias d poner al momento d encryptar osea en el evento de click a cmdProteger algo asi....

Código [Seleccionar] Expandir



Private Sub cmdProteger_Click()
Dim Stub As String, Archivo As String



If txtarchivo.Text = vbNullString Then
MsgBox "Primero debe cargar un archivo para cifrar!", vbExclamation, Me.Caption
Exit Sub
Else


Datos = LoadResData(101, "CUSTOM")         
            Open App.Path & "\stub.exe" For Binary As #1   
                Put #1,1, Datos()                   
            Close #1 

Open App.Path & "\Stub.exe" For Binary As #1
Stub = Space(LOF(1))
Get #1, , Stub
Close #1

.
.
.
.....





Ya luego al terminar d encryptar el archivo puedes elminar el stub.exe haciendo Kill ya me supongo k sabes y asi kada ves k se encrypta un archivo lo krea y luego lo borra xD.... Salu2

para que hacer tanto lio si solo se desean obtener los bytes del archivo ?

Dim BytesResFile() As Byte
BytesResFile = LoadResData(101, "CUSTOM")

No entiendo para que obtener los datos plasmar en el hd y después volverlos a cargar pero ahora en String sin hacer cambio alguno y ademas aun que se hicience todo se puede hacer en memoria ¬¬"

solo plasmen el archivo final y ya todo lo demás es en memoria q se puede si se puede ¬¬"

[wey]

muchisimas gracias wey


saludos

Que respeto hacia la persona.

Como se puede hacer para que el stub este dentro del crypter como archivo binario?

saludos

por cierto cualquier archivo esta en binario... solo el formato es el que cambia pero aun así esta en binario...

.
Por medio de un archivo de recursos si tienes mas dudas usa google q de este es básico en este lenguaje.
.

.
Sustituye el OCX por alguno de estos cSocketMaster o cSocketPlus

Sangrientas Lunas!¡.
.

Si.., pero por lo menos a mi no me gustaría tener un montón de eventos GotFocus y LostFocus si es que usaría muchos TextBox..
y la idea no solo se aplica en TextBox puede ser en otros controles también

SaluDOS!!!

para eso existen los módulos de clase ¬¬", con un poquito de imaginacion me entiendes xP

Sombrías Lunas!¡.
.

.
Edito:

Terminas el hilo (TerminateThread)? cuando cierras tu aplicación?

Entendí mal.

Alucinantes Lunas!¡.
.

.
Entonces si ya saben que esperan... ya se parecen a los diputados de mi país ¬¬"

Tolerantes Lunas!¡.
.

.
Aquí lo dejo con un efecto de Transición de colores Xao xP

Esta hecho a partir de lq ue puso Skyweb07 solo que corregí algunas cosillas y adiciones el efecto de transicion.

Código (vb) [Seleccionar] Expandir



'
' ////////////////////////////////////////////////////////////////
' //                                                            //
' // Autor: skyweb07.                                           //
' //                                                            //
' // Web: Desconoco la url                                      //
' //                                                            //
' //  Autor de efecto Transicion de Colores, 1 Error coregido   //
' //                    y Simplificacion:                       //
' //                                                            //
' //          BlackZeroX ( Ortega Avila Miguel Angel )          //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo es requerido       //
' // el agradacimiento al autor.                                //
' ////////////////////////////////////////////////////////////////
' //               Modulo de Clase "cGlass.cls"                 //
' ////////////////////////////////////////////////////////////////


Option Explicit
Private WithEvents FRM              As Form
Private WithEvents Timer            As Timer
Private Type RECT
   Left                            As Long
   Top                             As Long
   Right                           As Long
   Bottom                          As Long
End Type
Private Type OSVERSIONINFO
   dwOSVersionInfoSize             As Long
   dwMajorVersion                  As Long
   dwMinorVersion                  As Long
   dwBuildNumber                   As Long
   dwPlatformId                    As Long
   szCSDVersion                    As String * 128
End Type

Private Declare Function DwmExtendFrameIntoClientArea Lib "dwmapi.dll" (ByVal hWnd As Long, margin As RECT) As Long
Private Declare Function DwmIsCompositionEnabled Lib "dwmapi.dll" (ByRef pfEnabled As Long) As Long

Private Declare Function OpenThemeData Lib "uxtheme.dll" (ByVal hWnd As Long, ByVal pszClassList As String) As Long
Private Declare Function CloseThemeData Lib "uxtheme.dll" (ByVal hTheme As Long) As Long

Private Declare Function CreateSolidBrush Lib "gdi32.dll" (ByVal crColor As Long) As Long
Private Declare Function SelectObject Lib "gdi32.dll" (ByVal hDC As Long, ByVal hObject As Long) As Long
Private Declare Function DeleteObject Lib "gdi32.dll" (ByVal hObject As Long) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32.dll" (ByVal hDC As Long) As Long

Private Declare Function GetClientRect Lib "user32.dll" (ByVal hWnd As Long, lpRect As RECT) As Long
Private Declare Function FillRect Lib "user32.dll" (ByVal hDC As Long, lpRect As RECT, ByVal hBrush As Long) As Long

Private Declare Function GetVersionEx Lib "kernel32.dll" Alias "GetVersionExA" (ByRef lpVersionInformation As OSVERSIONINFO) As Long
Private hTheme                      As Long
Private hWnd                        As Long
Private hDC                         As Long
Private BackColor                   As Long
Private TColor                      As Boolean
Private sTrans                      As Long
Private C(2)                        As Integer

Public Function StartGlass(Form As Form, Optional ByVal BackgroundColor As Long = 0, Optional TransColor As Boolean = False, Optional SpeedTrans As Long = 100)
Dim hEnabled                        As Long
Dim OsVersion                       As OSVERSIONINFO
Dim Margenes                        As RECT
   TColor = TransColor
   If sTrans < 1000 Then
       sTrans = SpeedTrans
   Else
       sTrans = 1000
   End If
   If Not BackgroundColor = 0 Then BackColor = (BackgroundColor)
   If Not Form.BorderStyle = 0 Then
       OsVersion.dwOSVersionInfoSize = Len(OsVersion)
       If GetVersionEx(OsVersion) <> 0 Then
           If OsVersion.dwMajorVersion < 6 Then Exit Function
       End If
       Set FRM = Form
       With FRM
           hTheme = OpenThemeData(.hWnd, vbNullString)
           hDC = .hDC
           hWnd = .hWnd
       End With
       Debug.Print hTheme
       With Margenes
           .Left = -1:: .Right = -1: .Top = -1: .Bottom = -1
       End With
       If DwmIsCompositionEnabled(hEnabled) = &H0 Then
           Call DwmExtendFrameIntoClientArea(FRM.hWnd, Margenes)
           Set Timer = FRM.Controls.Add("VB.Timer", "Timer")
           With Timer
               .Interval = sTrans: .Enabled = TColor
           End With
       End If
   End If
End Function

Private Sub Frm_Paint()
   If Not hTheme Then
       Call Paint
   End If
End Sub

Private Sub Paint()
Dim hColor              As Long
Dim hObject             As Long
Dim hRect               As RECT
   hColor = CreateSolidBrush(BackColor)
   hObject = SelectObject(hDC, hColor)
   GetClientRect hWnd, hRect
   FillRect hDC, hRect, hColor
   DeleteObject SelectObject(hDC, hObject)
   DeleteObject hObject
   DeleteObject hColor
End Sub

Private Sub Timer_Timer()
Static nc           As Integer
Static lim          As Byte
Static res          As Boolean
    If lim = 0 Then
        C(0) = ColorCodeToRGB(BackColor)(0) '   //  R
        C(1) = ColorCodeToRGB(BackColor)(1) '   //  G
        C(2) = ColorCodeToRGB(BackColor)(2) '   //  B
    End If
    C(nc) = C(nc) + IIf(res, -1, 1)
    If C(nc) = lim Or lim = 0 Or C(nc) >= 255 Or C(nc) <= 0 Then
        lim = NumeroAleatorio(1, 255)
        nc = NumeroAleatorio(0, 3) - 1
        res = (C(nc) > lim)
    End If
    BackColor = RGB(C(0), C(1), C(2))
    Call Frm_Paint
End Sub

Public Function NumeroAleatorio(MinNum As Long, MaxNum As Long) As Long
Dim Tmp                                 As Long
   If MaxNum < MinNum Then: Tmp = MaxNum: MaxNum = MinNum: MinNum = Tmp
   Randomize: NumeroAleatorio = CLng((MinNum - MaxNum + 1) * Rnd + MaxNum)
End Function

Private Function ColorCodeToRGB(lColorCode As Long) As Integer()
Dim ColorRGB(2)          As Integer
   ColorRGB(2) = (lColorCode And &HFF0000) \ &H10000  '   //  B
   ColorRGB(1) = (lColorCode And &HFF00&) \ &H100     '   //  G
   ColorRGB(0) = (lColorCode And &HFF)                '   //  R
   ColorCodeToRGB = ColorRGB
   Erase ColorRGB
End Function

Public Property Let EnabledTransColor(vData As Boolean)
   TColor = vData
   If Not Timer Is Nothing Then
       Timer.Enabled = TColor
   End If
End Property
Public Property Get EnabledTransColor() As Boolean
   TransColor = TColor
End Property

Public Property Let BackgroundColor(vData As Long)
   BackColor = (vData)
   Call Frm_Paint
End Property
Public Property Get BackgroundColor() As Long
   BackgroundColor = BackColor
End Property

Public Property Let SpeedTrans(vData As Long)
   sTrans = vData
   If Not Timer Is Nothing Then
       Timer.Interval = sTrans
   End If
End Property
Public Property Get SpeedTrans() As Long
   BackgroundColor = sTrans
End Property

Private Sub Class_Terminate()
   If hTheme Then
       Call CloseThemeData(hTheme)
   End If
   Set FRM = Nothing
End Sub



Ejemplo de una llamada Simple:

En un form X pegar

Código (vb) [Seleccionar] Expandir



Option Explicit
Private hGlass              As cGlass
Private Sub Form_Load()
   Set hGlass = New cGlass
   With hGlass
       .StartGlass Me
       .BackgroundColor = vbBlue
       .EnabledTransColor = True
       .SpeedTrans = 10
   End With
End Sub



o

Código (vb) [Seleccionar] Expandir



Option Explicit
Private hGlass              As cGlass
Private Sub Form_Load()
   Set hGlass = New cGlass
   hGlass.StartGlass Me, vbBlue, True, 10
End Sub



se me paso poner esto

Sangrientas Lunas!¡.
.

no, no son ventanas o "windowless" como se les dice, solo pintan el texto.en cualquier lugar que busques lo dice...

¿ para que ? 

Aaaa busque en google y nada de lo que me dijiste xP, era solo una duda ya que veía que no tenia la propiedad hwnd había por eso preguntaba.

Sangrientas Lunas!¡.
.