Mensajes

En realidad lo hice en base a la kb de micro$oft.

http://support.microsoft.com/kb/164787 (2do post del enlace mencionado)

Si queres lo subo, no es mucho code

Che Zeroql mira que recien probe hacer una libreria y anda pero: las tenes que hacer como cualquier libreria para inyectar o el RunDll32 explota.

Código [Seleccionar] Expandir


Option Explicit

'// Dummy function
Public Sub Main(): End Sub

Public Function DLLMain( _
       ByVal lhModule As Long, _
       ByVal lReason As Long, _
       ByVal lReserved As Long) As Long
   
    DLLMain = 1
End Function

Public Sub CalledFunct(ByVal hwnd As Long, ByVal hinst As Long, ByVal lpszCmdLine As Long, ByVal nCmdShow As Long)
    MessageBox hwnd, "We are running", "Yup", 0
End Sub



There you go.

Algo asi?
http://www.xtremevbtalk.com/showthread.php?t=296162

Mi no comprende! need more data XD

Que es ese mamarracho!!!!???

para que inicias la funciones de internet con InternetOpen si no es necesario? aparte el nunca cerras el handle y para peor nada de eso es necesario si vas a usar URLDownloadToFile

Del Api-Guide:

Código [Seleccionar] Expandir


Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Public Function DownloadFile(URL As String, LocalFilename As String) As Boolean
    Dim lngRetVal As Long
    lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
    If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub Form_Load()
    'example by Matthew Gates (Puff0rz@hotmail.com)
    DownloadFile "http://www.allapi.net", "c:\allapi.htm"
End Sub


InternetOpen ,InternetOpenUrl , InternetReadFile, InternetCloseHandle 

Me alegro que les guste y sea util, la verdad no soy de programar muchos controles de usuario pero este me parecio bastante util.

Option Explicit

Private Sub Form_Load()
    Dim vData As Variant
    Dim vItem As Variant

    vData = Array("uno", "dos", "tres")

'edite aca para que vean otra manera de hacerlo
    Debug.Print vData(0), vData(1)
   
    For Each vItem In vData
        Debug.Print vItem
    Next
End Sub

Holi Holas =), bueno aca les dejo un usercontrol para entrar IPs, tiene varias propiedades, leer y escribir IPs, validar, setear rangos, etc.

Espero que les guste.

Captura:



Descarga:
http://www.advancevb.com.ar/blog/index.php?entry=entry080730-194720

Holas, bueno aca les dejo algo simple pero calculo que les va a ser de utilidad, un mini uc para hacer descargas.

Download: http://www.uploadsourcecode.com.ar/d/lUGA2Mz4JXcFHOnKjvbPWmORfftKyGrZ