Lo haria pero pasa que si se mezclan entonces el mouse no se redibuja con la frecuencia suficiente como para simular que el cursor no cambia :S, Es un bucle encargado de pintar en un picturebox el cual siempre se esta ejecutando.
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
Private Sub Form_Load()
Dim hCursor As Long
Dim holdcursor As Long
Dim retval As Long
hCursor = LoadCursorFromFile(App.Path & "\AB1.cur")
If hCursor = 0 Then End
holdcursor = SetCursor(hCursor)
Sleep 3000 ' Mientras la aplicacion se encuentra pausada el cursor se mantiene
retval = SetCursor(holdcursor) ' si se anula esta linea para no restaurar el cursor anterior, igual vuelve a como estaba antes :S.
End Sub
Private Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
Private Declare Function SetCursor Lib "user32.dll" (ByVal hCursor As Long) As Long
' Display the application starting (arrow and hourglass) Windows
' cursor for three seconds. The cursor resource is loaded from Windows. Then
' restore the old cursor (whatever it happens to be).
Dim hcursor As Long ' receives handle to application starting cursor
Dim holdcursor As Long ' receives handle to previously used cursor
Dim retval As Long ' throw-away return value
hcursor = LoadCursor(0, IDC_APPSTARTING) ' load Windows's application starting cursor
holdcursor = SetCursor(hcursor) ' set it to the new cursor
Sleep 3000 ' wait for 3 seconds
retval = SetCursor(holdcursor) ' set it to the previous cursor
Cita de: XXX-ZERO-XXX en 4 Noviembre 2010, 16:15 PM
Bueno pero si te fijas dije q tambien lo probe con el firewall desactivado.. pero gracias por tu explicacion y corrigeme si me equivoco.. entonces me estas diciendo que cuando pongo lo de desbloquear solo habilita esa aplicacion y si le cambio de nombre a la aplicacion me saldria otra vez para desbloquearla, no tengo nada para probar ahora por eso pregunto.Y despues eso q dices para abrir el puerto, yo pense q se hacia donde dice Agregar puerto.. en exepciones ahi.. y luego le dabas el nombre q querias y debajo el numero y elegir TCP o UDP y listo, pero talvez hice las cosas mal siempre y solo tuve suerte
Cita de: XXX-ZERO-XXX en 29 Octubre 2010, 19:25 PM
no tengo router y el firewall esta activado ahora mismo pero me aparece para desbloquear los puertos y ya se abren al darle Desbloquear. Pero tambien probe el proyecto con el firewall desactivado..