elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: AIO elhacker.NET 2021 Compilación herramientas análisis y desinfección malware


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Se puede prescindir de todas las funciones API en VB.NET		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Se puede prescindir de todas las funciones API en VB.NET  (Leído 3,022 veces)
okik


Desconectado Desconectado

Mensajes: 462


Ver Perfil
Se puede prescindir de todas las funciones API en VB.NET
« en: 24 Junio 2015, 20:41 pm »
Hola

Soy emigrante de VB6 a .NET, de hecho ya me han echado la "bronca" en varias ocasiones por usar la metodología de VB6 en .NET cuando no era necesario. He visto que se puede prescindir de algunas funciones API de Windows en .NET.  El caso es que no se cuales funciones ya están incluidas en .NET o no.

Una que ahora mismo estoy buscando es el GetCursorPos, para determinar la posición X, Y del puntero en el escritorio.

Llamando así funciona:

Código
  1.  
  2.     Structure POINTAPI
  3.         Public X As Integer
  4.         Public Y As Integer
  5.     End Structure
  6.     Private Declare Function GetCursorPos Lib "user32.dll" ( _
  7.     ByRef lpPoint As POINTAPI) As Integer
  8.  


Pero parace ser que es más de '.NET' ponerlo así:

Código
  1.    Public Structure POINTAPI
  2.         Public X As Integer
  3.         Public Y As Integer
  4.     End Structure
  5.  
  6.   <Runtime.InteropServices.DllImport("user32.dll")> _
  7.     Public Shared Function GetCursorPos(ByRef lpPoint As POINTAPI) As Integer
  8.     End Function

No se, me extrañaría que los de Microsoft, al construir .NET no hubieran establacido funciones internas de .NET para todas funciones incluidas en DLLs de Windows como USER32.DLL. y no tener que hacer estas llamadas.


Saludos y gracias


Pues nada que en dicho caso parece que es lo que digo:

Código
  1.  
  2.  'Posición X del cursor en el escritorio 
  3.    Me.Text = Cursor.Position.X
  4.  


Fuente:
https://msdn.microsoft.com/es-es/library/system.windows.forms.cursor.position%28v=vs.110%29.aspx

No entiendo porqué, si como parece estoy en lo cierto, tanta gente postea y fomenta el uso de estas llamadas cuando no son necesarias
« Última modificación: 24 Junio 2015, 21:14 pm por okik » En línea
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: Se puede prescindir de todas las funciones API en VB.NET
« Respuesta #1 en: 24 Junio 2015, 21:19 pm »
Cita de: okik en 24 Junio 2015, 20:41 pm
Una que ahora mismo estoy buscando es el GetCursorPos, para determinar la posición X, Y del puntero en el escritorio.

Tan fácil cómo esto :P:
Código
  1. Dim cursorPos As Point = Windows.Forms.Cursor.Position
  2. MessageBox.Show(cursorPos.ToString)


Cita de: okik en 24 Junio 2015, 20:41 pm
Llamando así funciona:
Código
  1.     Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Integer
  2.  

Pero parace ser que es más de '.NET' ponerlo así:
Código
  1.     <Runtime.InteropServices.DllImport("user32.dll")> 
  2.     Public Shared Function GetCursorPos(ByRef lpPoint As POINTAPI) As Integer
  3.     End Function

Quiero resaltar esas lineas y la frase que has dicho "Pero parace ser que es más de '.NET' ponerlo así",
fíjate bien en las diferencias, no es una simple cuestión de sintaxis o estética, es que si sigues declarando las funciones al estilo VB6 en vb.Net, entonces estarás privándote de las "nuevas" mejoras que aportan las funcionalidades de los parámetros del atributo DllImporAttribute.

No sigas usando el tipo de declaración vb6-stylized con el keyword Declare, no aporta nada.


Cita de: okik en 24 Junio 2015, 20:41 pm
No entiendo porqué, si como parece estoy en lo cierto, tanta gente postea y fomenta el uso de estas llamadas cuando no son necesarias

Generalmente suele ser por ignorancia e inexperiencia, otras veces suele ser por que ves un código muy antiguo, tan antiguo que tal vez en este momento las classes de .Net Framework no exponían ningún método para hacerlo sin recurrir a la WinAPI, y en otros casos es por motivos razonables cómo mayor control del comportamiento del código (por ejemplo usar la WinAPI para mover/copiar archivos).

Te lo dije en otro post (creo recordar :-/), los códigos que encuentres en Google la mayoría va a ser morralla de programadores que usan malas prácticas por que no dejan la costumbre de cómo hacian las cosas en VB6, y eso conlleva a acabar no sabiendo nada acerca de las funcionalidades de la librería de clases de .Net Framework. Esto obviamente no siempre es así, he dicho la mayoría.

Saludos
« Última modificación: 24 Junio 2015, 21:28 pm por Eleкtro » En línea


okik


Desconectado Desconectado

Mensajes: 462


Ver Perfil
Re: Se puede prescindir de todas las funciones API en VB.NET
« Respuesta #2 en: 24 Junio 2015, 21:38 pm »
Ok, gracias Elektro

Oye, en confianza, que lo de la "bronca" no me refería a tí , eh  ;)

Bueno la otra forma sería así:

Código
  1.  
  2. <DllImport("user32.dll", BestFitMapping:=False, CallingConvention:=CallingConvention.Winapi, CharSet:=CharSet.Unicode, EntryPoint:="user32")> _
  3.     Public Shared Function GetCursorPos(ByRef lpPoint As POINTAPI) As Boolean
  4.     End Function

Y establecer el siguiente Imports:
Código
  1. Imports System.Runtime.InteropServices

Evidentemente es lo que dices, aquí puedo establecer los parámentros de la llamada.

Pero quería decir que si funciona o realmente no hace falta establecer nada pues ya vale aunque sea al estilo de VB6, digo yo.


Bueno, sabiéndolo personalmente siempre buscaré la forma de no tener que usar funciones API.


« Última modificación: 24 Junio 2015, 21:42 pm por okik » En línea
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: Se puede prescindir de todas las funciones API en VB.NET
« Respuesta #3 en: 24 Junio 2015, 21:55 pm »
Cita de: okik en 24 Junio 2015, 21:38 pm
Pero quería decir que si funciona o realmente no hace falta establecer nada pues ya vale aunque sea al estilo de VB6, digo yo.

No pasa nada en realidad, pero aporta menor control cómo por ejemplo no poder especificar si quieres que la función devuelva un código de error o no (siempre que la función ueda devolver un código de error, no todas lo hacen, claro está), y personalmente, lo considero algo muy feo.

Te sugiero leer este artículo en su totalidad:
➢ Walkthrough: Calling Windows APIs (Visual Basic)
Citar
The DllImport attribute provides a second way to call functions in DLLs without type libraries. DllImport is roughly equivalent to using a Declare statement but provides more control over how functions are called.

You can use DllImport with most Windows API calls as long as the call refers to a shared (sometimes called static) method. You cannot use methods that require an instance of a class. Unlike Declare statements, DllImport calls cannot use the MarshalAs attribute.

y los campos/parámetros de:
➢ DllImportAttribute

Saludos
« Última modificación: 24 Junio 2015, 21:59 pm por Eleкtro » En línea


Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
validar limite para todas mis funciones
Programación C/C++ 		Micah Genji 4 2,867 Último mensaje 29 Junio 2010, 21:40 pm
por Littlehorse
Extraer todas las vistas mediante funciones + PHP
PHP 		IP3 2 1,675 Último mensaje 16 Junio 2014, 00:42 am
por JorgeEMX
¿Si uso un SO en virtualbox funciona correctamente con todas sus funciones?
Dudas Generales 		Ori-chan 1 2,330 Último mensaje 8 Diciembre 2014, 22:49 pm
por Eleкtro
Llega iOS 11: todas las nuevas funciones que pronto tendrás en tu iPhone ....
Noticias 		wolfbcn 0 1,726 Último mensaje 7 Junio 2017, 02:06 am
por wolfbcn
Microsoft empieza a lanzar las nuevas funciones de privacidad en todas las ...
Noticias 		wolfbcn 0 2,089 Último mensaje 3 Julio 2017, 01:46 am
por wolfbcn
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines