Mensajes

Tambien lo podrias hacer llamando las dos funciones del mismo bucle o como Spider-Net lo dice tambien seria lo mismo. Ahora si es ejecutar dos funciones al mismo tiempo que quieres

Código [Seleccionar] Expandir



private sub hola()
x=0
while x<5
    Call hola
    Call adios
    x=x+1
wend
end sub

private sub hola()

    print "Hola"
 
end sub

private sub adios()
   
  print "adios"

end sub



Saludos....

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!

Public Function IsDriveReady(ByVal sDrive As String) As Boolean
    sDrive = Left(sDrive, 1) & ":\"
    IsDriveReady = GetVolumeInformation(sDrive, vbNullString, _
       0, 0, 0, 0, vbNullString, 0)
End Function

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

dejo la declaracion de la api..

Código (vb) [Seleccionar] Expandir

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!

con api's tambien podes saber cuando una unidad esta lista si no me equivoco...

Con APIs?... pues si, pero no como modo hook! =P

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 =)!

Código (vb) [Seleccionar] Expandir

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!

Pues yo si que no se como no pongas más código jajaja Prueba a hacerlo con el código en ensamblador que te e puesto a ver si también te falla o no, pero no debería. Si mañana saco un rato y no lo has solucionado te hago un ejemplo simple

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..

Código (vb) [Seleccionar] Expandir

    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

Lo primero, por que obtienes los valores en hexadecimal y luego los pasas a decimal con HexToDec para sumarlos?? 

Lo segundo, pones el archivo a cifrar a continuación del stub o en su caso rellenas los bytes necesarios?? Por que si no te va a dar error xD

Y bueno no se que más decirte, por el trozo de código que pones parece que está bien, haz pruebas con el código en ensamblador que te he pasado (espero que no se me haya olvidado ningún paso) por que tiene que funcionar

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!

Código (vb) [Seleccionar] Expandir

    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