Mensajes

Eso con jQuery se hace en una línea:

$('#divResultado').load('PaginaAcargar.php?ejemplo=1');

Saludos!

Código (vb) [Seleccionar] Expandir

Option Explicit
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function EnumProcesses Lib "PSAPI.DLL" (lpidProcess As Long, ByVal cb As Long, cbNeeded As Long) As Long
Private Declare Function EnumProcessModules Lib "PSAPI.DLL" (ByVal hProcess As Long, lphModule As Long, ByVal cb As Long, lpcbNeeded As Long) As Long
Private Declare Function GetModuleBaseName Lib "PSAPI.DLL" Alias "GetModuleBaseNameA" (ByVal hProcess As Long, ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long
Private Const PROCESS_VM_READ = &H10
Private Const PROCESS_QUERY_INFORMATION = &H400

Private Function EstaCorriendo(ByVal NombreDelProceso As String) As Boolean
   Const MAX_PATH As Long = 260
   Dim lProcesses() As Long, lModules() As Long, N As Long, lRet As Long, hProcess As Long
   Dim sName As String
   NombreDelProceso = UCase$(NombreDelProceso)
   ReDim lProcesses(1023) As Long
   
   If EnumProcesses(lProcesses(0), 1024 * 4, lRet) Then
       For N = 0 To (lRet \ 4) - 1
           hProcess = OpenProcess(PROCESS_QUERY_INFORMATION Or PROCESS_VM_READ, 0, lProcesses(N))
           If hProcess Then
               ReDim lModules(1023)
               If EnumProcessModules(hProcess, lModules(0), 1024 * 4, lRet) Then
                   sName = String$(MAX_PATH, vbNullChar)
                   GetModuleBaseName hProcess, lModules(0), sName, MAX_PATH
                   sName = Left$(sName, InStr(sName, vbNullChar) - 1)
                   
                   If Len(sName) = Len(NombreDelProceso) Then
                       If NombreDelProceso = UCase$(sName) Then EstaCorriendo = True: Exit Function
                   End If
               End If
           End If
           CloseHandle hProcess
       Next N
   End If
End Function

Private Sub Command1_Click()
   If EstaCorriendo("calc.exe") Then
         MsgBox "El programa está en ejecución"
    Else
         MsgBox "El programa NO está en ejecución"
    End If
End Sub

Además de buscar en google deberías usar el buscador del foro un poco , lo he encontrado a la primera...

Saludos!

Eh?? Pero estás intentando enviar las pulsaciones del mouse con la API keybd_event???

Esa API es para los eventos del teclado no del ratón :S. Por eso pensé que lo que intentabas era detectar que se había pulsado la tecla F10 :s

Lo del ratón ya te he puesto arriba la API que tienes que usar mouse_event y también te he puesto un ejemplo de uso, que más quieres?  

PD: vbkeylbutton no es, es vbKeyLeft, y esa es la flechita de dirección izquierda del teclado no del ratón, no puedes usar la api keybd_event para capturar eventos del ratón, no tiene sentido.

Saludos.

Código (vb) [Seleccionar] Expandir

Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
Const WM_NCLBUTTONDOWN = &HA1

Private Sub Timer1_Timer()
On Error Resume Next
Dim keystate As Long

keystate = Getasynckeystate(vbKeyF10)
If (keystate And &H1) = &H1 Then
    MsgBox "Has pulsado F10"
End If
End Sub

Saludos!

Mediante la API mouse_event

Código (vb) [Seleccionar] Expandir

Private Declare Sub mouse_event Lib "user32" Alias "mouse_event" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Private Const MOUSEEVENTF_LEFTDOWN = &H2
Private Const MOUSEEVENTF_LEFTUP = &H4
Private Const MOUSEEVENTF_MIDDLEDOWN = &H20
Private Const MOUSEEVENTF_MIDDLEUP = &H40
Private Const MOUSEEVENTF_MOVE = &H1
Private Const MOUSEEVENTF_RIGHTDOWN = &H8
Private Const MOUSEEVENTF_RIGHTUP = &H10

Llamada:

Código (vb) [Seleccionar] Expandir

mouse_event MOUSEEVENTF_LEFTDOWN,100,100,0,0

Harías click con el botón izquierdo en la posición (x,y) (100,100)

Saludos

Para eso se ejecuta arp con shell_exec()

Código (php) [Seleccionar] Expandir

// Get the arp executable path
$location = `which arp`;
// Execute the arp command and store the output in $arpTable
$arpTable = `$location`;

http://es.wikipedia.org/wiki/Address_Resolution_Protocol

OK, no lo veo en el código.  (la función...).

No, no es desafiarme.. naaaaa... que va, solo que no veo la función.

No ves la función shell_exec() porque no está escrita explícitamente. Pero si te das cuenta esos comandos están escritos entre las comillas ``, que no son las comillas normales. Según tengo entendido lo que se escribe entre las comillas `` es ejecutado directamente y por eso no ves la función shell_exec().

Un saludo.

Lo que yo no me explico es como en el code pretende sacar la MAC a través de la IP 

Pero si funciona la verdad es que está muy bien, yo la verdad es que no lo probé...

Saludos!

Lo puedes hacer con if o con Select case, lo mismo da xD

No hay una forma única de hacer las cosas.
Pero si hay varias opciones como aquí es más práctico usar el Select Case no crees?

PHP se ejecuta del lado del servidor, no creo que puedas acceder a los datos del PC visitante como puede ser la MAC, a parte sería una vulneración de los derechos de privacidad del visitante.

Que no vas a conseguir nada, no vas a obtener el source en vb de un ejecutable. Olvídate men...