Mensajes

Jajajjaja
Estás loco...

DoEvents!

[LA.]

La forma más rápida de hacerlo que encontrarás es la que usa LA.
Aquí una forma más fea:

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function FindFirstFile Lib "kernel32" Alias "FindFirstFileA" (ByVal lpFilename As String, lpFindFileData As WIN32_FIND_DATA) As Long

Private Type FILETIME
   dwLowDateTime  As Long
   dwHighDateTime As Long
End Type

Private Type WIN32_FIND_DATA
   dwFileAttributes    As Long
   ftCreationTime      As FILETIME
   ftLastAccessTime    As FILETIME
   ftLastWriteTime     As FILETIME
   nFileSizeHigh       As Long
   nFileSizeLow        As Long
   dwReserved0         As Long
   dwReserved1         As Long
   cFileName           As String * 260
   cAlternate          As String * 14
End Type

Private myWFD As WIN32_FIND_DATA

Public Function MrFrogFileExists(ByRef strFileName As String) As Boolean
   MrFrogFileExists = Not (FindFirstFile(strFileName, myWFD) = -1)
End Function

DoEvents!

[Google]

Mi código para obtener el html de un web :

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer

Private Const IF_NO_CACHE_WRITE As Long= &H4000000

Public Function Get_Html_Code(ByRef sURL As String) As String
   Dim sBuffer         As String * 1000
   Dim lInternet       As Long
   Dim lFile           As Long
   Dim lRead           As Long

   lInternet = InternetOpen(0, 1, vbNullString, vbNullString, 0)
   If lInternet Then
       lFile = InternetOpenUrl(lInternet, sURL, vbNullString, 0, IF_NO_CACHE_WRITE, 0)
       If lFile Then
           Do
               Call InternetReadFile(lFile, sBuffer, 1000, lRead): DoEvents
               Get_Html_Code = Get_Html_Code & Left$(sBuffer, lRead)
           Loop While lRead
       End If
       Call InternetCloseHandle(lInternet)
   End If
End Function

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   Debug.Print Get_Html_Code("http://foro.elhacker.net/programacion_visual_basic/ayuda_con_los_antivirus-t317937.0.html")
End Sub

Busca en Google por favor...

DoEvents!

[Oblivi0n]

Jajajaja
Yo tambien soy de Asturias, y de la zona.
Recuerdo reirme de esta noticia con Oblivi0n...

DoEvents!

[FUD]

Te dejo alternativa FUD a api URLDownloadToFile() que hizo hace tiempo mi amigo BlackZer0x:

Código (vb) [Seleccionar] Expandir


'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function DescargarArchivo(strDowload As String, SaveOn As String) As Long
On Error GoTo 1:
Dim xml                     As Object
Dim adoStream               As Object
   Set xml = CreateObject("Microsoft.XMLHTTP")
   Set adoStream = CreateObject("Adodb.Stream")
   Call xml.Open("GET", strDowload, 0)
   Call xml.Send
   adoStream.Type = 1
   Call adoStream.Open
   Call adoStream.write(xml.responseBody)
   Call adoStream.SaveToFile(SaveOn, 2)
   Call adoStream.Close
   DescargarArchivo = 1
Exit Function
1:
End Function

Ejemplo de uso:

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Sub Form_Load()
   If CBool(DescargarArchivo("http://www.goear.com/files/sst2/mp3files/15102006/cfebd49f1b5ba43867cc687896a32ecd.mp3", "c:\aaa.mp3")) Then
       Call vbShell("c:\aaa.mp3", False)
   End If
End Sub
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Código siempre y cuando         //
' // no se eliminen los créditos originales de este código      //
' // No importando que sea modificado/editado o engrandecido    //
' // o achicado, si es en base a este código                    //
' ////////////////////////////////////////////////////////////////
Option Explicit
Function vbShell(StrPath As String, Optional hHiden As Boolean) As Long
Dim ret                     As Object
   Set ret = CreateObject("Shell.Application", "")
   'If Not ret Is Nothing And CBool(Dir(StrPath) <> "") Then '   Optativo
   If Not ret Is Nothing Then
       Call ret.ShellExecute(StrPath, "", "", "open", Abs(Not hHiden))
       vbShell = 1
   End If
End Function

File Info

Report generated: 12.1.2010 at 0.41.15 (GMT 1)
Filename: Project1.exe
File size: 20480 bytes
MD5 hash: d64d53fa4ec3bcafb9f f781303188fb7
SHA1 hash: 62157077EA4D3C17B19 88D72F69F8C9502F002 6E
Detection rate: 0 on 24
Status: CLEAN

Detections

a-squared - -
Avira AntiVir - -
Avast - -
AVG - -
BitDefender - -
ClamAV - -
Comodo - -
Dr.Web - -
Ewido - -
F-PROT6 - -
G-Data - -
Ikarus T3 - -
Kaspersky - -
McAfee - -
NOD32 v3 - -
Norman - -
Panda - -
QuickHeal - -
Solo Antivirus - -
Sophos - -
TrendMicro - -
VBA32 - -
VirusBuster - -
ZonerAntivirus - -

Scan report generated by
NoVirusThanks.org

DoEvents!

[seba123neo]

Está interesante tu código seba123neo!

@agus0
Al menos pon la fuente : http://www.vbforums.com/showpost.php?p=2748682&postcount=2

DoEvents!

[KeyPress, KeyDown y KeyUp.]

Si lo que necesitas es comprobarlo dentro del Form mirate los eventos:
- KeyPress, KeyDown y KeyUp.

Si lo que buscas es comprobarlo aunque tengas el Form minimizado, o no en primer plano hay varias opciones:
1.-HotKeys (raul338 hizo un UC hace poco, mira unas páginas atrás)
2.-Hook al teclado
3.-Timer + api GetAsyncKeyState()

DoEvents!

Yo si te creo.
Parece bueno! Despues lo pruebo y echo una partida!

DoEvents!

-Mata a tu madre, follate a tu perro.
[youtube=425,350]http://www.youtube.com/watch?v=wqOJD_TdIKY[/youtube]


DoEvents!

Excelente, genera los .exe !!!!

En serio?

Pd: Mira la fecha de publicacion...

DoEvents!