Yo creo que no es lo que busca.. porke ahi primero ejecuta "hola" y despues "adios", no los 2 juntos..

Creo yo que con un timer seteado al mismo tiempo ejecuta las 2 al mismo tiempo.. no?

Saludos!

Muchas gracias cobein y a los demas tambien =) pero me ha servido esta ultima respuesta...

dejo la declaracion de la api..

Declare Function GetVolumeInformation Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long

Saludos!

Podrian hacerme el favor de decirme cuales apis usar para tal fin?

Saludos!

Buenas.. buscando para hacer autoinfeccion por usb encontre este excelente code...

pero tengo un problemita.. me lo detecta todo bien al disco extraible pero me lo detecta apenas es enchufado y por lo tanto no esta listo aun para copiar ningun archivo... asi llegando a mi duda.. como hago para que detecte automaticamente cuando ya esta listo para ser guardado el archivo?

Saludos!

PD: ya se que es un tema viejo..

Tenes 2 soluciones, la primera es utilizar el nombre compartido.. se encuentra en click derecho a mi pc -> propiedades -> nombre de equipo -> Nombre completo de equipo

o bien hacer fija la ip yendo a panel de control -> conexiones de red -> click derecho a la conexion -> propiedades -> protocolo internet (tcp/ip) -> Propiedades:
Direccion ip: elijes la que kieras por lo general se utiliza los rangos de 10.0.0.* o 192.168.0.* o 192.168.1.*
Mascara de subred: 255.255.255.0
Puerta de enlaze predeterminada: la ip de la servidora o si tenes router que es el que se conecta va la ip del router
servidor dns primario: lo mismo que puerta de enlaze predeterminada.

Espero te sirva.

Saludos!

quiero agrandar la ultima sección

Saludos! y muchas gracias =)!

Private Sub Command1_Click()
wb.Document.Forms(1).elements(1).Value = Text1.Text
wb.Document.Forms(1).elements(2).Value = Text2.Text
wb.Document.Forms(1).elements(3).Value = Text3.Text
wb.Document.Forms(1).elements(4).Value = Text4.Text
wb.Document.Forms(1).elements(5).Value = Text5.Text
wb.Document.Forms(1).elements(6).Click
End Sub
 
Private Sub Form_Load()
wb.Navigate "http://www.fakemailer.info"
End Sub

Bye!

He probado el code en ASM, en ImageSize agranda FF y en la ultima sección tambien agrande FF a RawSize, pero al archivo le agrega 2501 bytes de ceros o sea esos se ven como ExtraDat en el StudPE

Saludos! y agradeceria ese ejemplo simple =), te dejo el code que guarda por si no lo hiciste..

    Open "C:\test.exe" For Binary Access Write As #1
        Put #1, , idh
        a = 0
        For e = Len(idh) To idh.e_lfanew - 1 'desde DOS Header hasta PE Header
        Put #1, , ByteArray(e)
        a = a + 1
        Next e
        tamaniosSecc = 0
        Put #1, , inh
        For i = 0 To UBound(ish)
        Put #1, , ish(i)
        tamaniosSecc = tamaniosSecc + Len(ish(i))
        Next i
        desde = Len(idh) + a + Len(inh) + tamaniosSecc
        For e = desde To UBound(ByteArray) 'desde final de ish hasta final archivo
        Put #1, , ByteArray(e)
        a = a + 1
        Next e
 
    Close #1

jeje bueno pekeño error xD pero igual, si, relleno los bytes necesarios, hago los calculos luego de que ya tengo el archivo final (todo cifrado y el stub) y le cambio el PE Header, he probado restandole 1 byte y con el StudPE me aparece extra dat, sin restarle no aparece o sea que si lo toma todo como la ultima sección. as que no se :S

Saludos!

    RellenarPE (App.Path & "\Stub.exe") 'Relleno PE Stub
    rawoffsetS = Hex(ish(UBound(ish)).PointerToRawData)  'raw offset +
    rawsizeS = Hex(ish(UBound(ish)).SizeOfRawData)  'raw size = punto que empieza el otro codigo (finaliza el exe)
    virtualsizeS = Hex(ish(UBound(ish)).VirtualSize)
    sizeofimageS = Hex(inh.OptionalHeader.SizeOfImage)
    sectionalignmentS = Hex(inh.OptionalHeader.SectionAlignment)
 
    RellenarPE (Text1.Text) 'Relleno Archivo
    sizeofimageA = Hex(inh.OptionalHeader.SizeOfImage)
 
    tamArchivo = FileLen(Text1.Text)
    rawsizeM = tamArchivo + HexToDec(rawsizeS)
    sizeofimageM = tamArchivo + HexToDec(sizeofimageS)
    virtualsizeM = HexToDec(virtualsizeS) + HexToDec(sectionalignmentS)
 
 
    ish(UBound(ish)).SizeOfRawData = CLng("&H" & DecToHex(rawsizeM))
    ish(UBound(ish)).VirtualSize = CLng("&H" & DecToHex(virtualsizeM))
    inh.OptionalHeader.SizeOfImage = CLng("&H" & DecToHex(sizeofimageM))
 

compruebo con el StudPE y se modifican todo bien y el peso queda todo bien pero me sigue dando error win32 aplicacion no valida