Autor
|
Tema: duda con APIS!? (Leído 2,866 veces)
|
Sai-To
Desconectado
Mensajes: 180
|
Bueno me han surgio unas dudas con las APIS... Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (yServer As Any, yToName As Byte, yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Longy encontre este ejemplo pero no lo entiendo bien a ver si alguien me lo puede explicar mejor! :S Private Declare Function NetMessageBufferSend Lib _ "NETAPI32.DLL" (yServer As Any, yToName As Byte, _ yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long Private Const NERR_Success As Long = 0& Public Function SendMessage(RcptToUser As String, _ FromUser As String, BodyMessage As String) As Boolean
Dim RcptTo() As Byte Dim From() As Byte Dim Body() As Byte
RcptTo = RcptToUser & vbNullChar From = FromUser & vbNullChar Body = BodyMessage & vbNullChar
If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _ Body(0), UBound(Body)) = NERR_Success Then SendMessage = True End If End Function
Private Sub Form_Load() Dim RetVal As Boolean RetVal = SendMessage("Utente", "FromUser", "BodyText") End Sub esta es la que sirve como el net send?... y como podria implementar un envio a todas las maquinas ya que solo consegui un poco de informacion de esta en una web.. pero solo me la describen? GetWindowTextQue es lo que hace en su TOTALIDAD (se que hace pero no entiendo bien) esta API osea me devuelve el titulo o el texto de que.. y para que me serviria? Bueno hasta los momentos son todas mis preguntas! ... Espero no ser molestia gRacias por adelantado!
|
|
|
En línea
|
|
|
|
naderST
|
Solo te puedo responder lo de la api GetWindowText, pues esta api te sirve para obtener el texto de una ventana.
|
|
|
En línea
|
|
|
|
Sai-To
Desconectado
Mensajes: 180
|
exacto epro el texto de que a eso me referia por ejemplo puedo obtener el texto del titulo de esta!?
|
|
|
En línea
|
|
|
|
Lambda
|
exacto epro el texto de que a eso me referia por ejemplo puedo obtener el texto del titulo de esta!?
si, solo necesitas el handle de la ventana para hacerlo
|
|
|
En línea
|
|
|
|
Freeze.
|
Aca tienes, lo acabo de hacer si tiene errores me avisas Y recuerda abrir la calculadora Option Explicit Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long Private Sub Form_Load() Dim Handle As Long Dim Buff As String Dim res As Integer Buff = Space(255) Handle = FindWindow("sciCalc", vbNullString) // El 2do parametro se refiere al titulo de la ventana, pero si eso es lo que queremos averiguar no tiene ningún sentido res = GetWindowText(Handle, Buff, Len(Buff)) MsgBox Buff End Sub
|
|
|
En línea
|
|
|
|
~~
|
Usa la msdn viene todo explicado, con ejemplos y esas cosas, es genial
|
|
|
En línea
|
|
|
|
Sai-To
Desconectado
Mensajes: 180
|
jaja grax a todos! ... jaja grax freeze tus ejemplos me ayudan! .. y EON por mas tonto que suene!xD no entiendo como usar el MSDN
|
|
|
En línea
|
|
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Duda con APIs
Windows
|
S3kh
|
4
|
2,855
|
14 Septiembre 2011, 23:46 pm
por S3kh
|
|
|
Duda Con MOV de APIs
ASM
|
x64core
|
3
|
3,478
|
26 Diciembre 2011, 18:36 pm
por Eternal Idol
|
|
|
[Duda] Indetectar APis?
Análisis y Diseño de Malware
|
MrSatan
|
5
|
3,613
|
18 Diciembre 2012, 22:21 pm
por Danyfirex
|
|
|
Duda con algunas APIS de VB
Ingeniería Inversa
|
.:UND3R:.
|
1
|
2,263
|
25 Abril 2016, 07:47 am
por fary
|
|
|
APIS de Python
Scripting
|
juan_1
|
2
|
2,638
|
14 Mayo 2020, 19:52 pm
por juan_1
|
|