Mensajes

Dinky, solo son errores que si no lo cometes es mejor, por ejemplo (ya te lo habia dicho en otro post) usas mal FindWindow

handle = FindWindow (vbNullString, "Calculadora")' solo para un windows en castellano

handle = FindWindow("SciCalc", vbNullString) ' para windows con cualquier idioma

No te enojes, que tal si Clausuramos esa calculadora ???

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long

Private Sub Command1_Click()
  Call EnableWindow(FindWindow("SciCalc", vbNullString), 1)
End Sub

Private Sub Form_Load()
  Shell "calc"
  Dim handle  As Long
  handle = FindWindow("SciCalc", vbNullString)
  Call SendMessage(handle, &HC, 0, ByVal "CLAUSURADO")
  Call EnableWindow(handle, 0)
  Dim handle2  As Long
  handle2 = FindWindowEx(handle, 0, "Edit", vbNullString)
  Call SendMessage(handle2, &HC, 0, ByVal "POR EH")
End Sub



Drinky, la variable handle no es string, es long, 

S2

Con InStrRev:

Código [Seleccionar] Expandir



Dim cadena As String

cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))

cadena = "c:\windows\system32\wins"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1, Len(cadena) - InStrRev(cadena, "\"))




S2


EDIT: tambien así

Código [Seleccionar] Expandir



cadena = "c:\windows\Media"
MsgBox cadena
MsgBox Mid$(cadena, 1, InStrRev(cadena, "\"))
MsgBox Mid$(cadena, InStrRev(cadena, "\") + 1)



Tenes razon Agus, es que como leí tres boludeces tuyas en este post...  me creí que se podia meter una mas...


Y lo de Gil, quisiera saber si tenes las bolas de decirlo personalmente, yo tambien estoy en Bs As... y en lugar de ensuciar este post seria mejor que la suiguieras por MP... cuando quieras, como quieras y donde quieras...


PD: No ensucies este post, Gil

La verdad que la única "jolly" que conozco es mi prima la Yolanda.    y las "sangrientas lunas" para mí son las noches en que mi novia está con "don período"  

PD: Che, hace como dos días que no se pelea nadie, que estará pasando ?  

Lamento decirles a Nanoc y flashkeyboard que el usuario ZaPa (quien formulo la pregunta) ... ha muerto hace mas de tres años, que en paz descanse el pobrecito ... 

De nada, la idea es aportar y brindar apoyo a los demas usuarios...!

+1

Gracias por el modulo SSCCAANN43, creo que me servirá, estas respuestas no se obtienen el todos lo portales, digo en todos los foros... tal vez algunos users de este foro deberian visitar otros portales, digo foros (me equivoqué otra vez) y corregir algunos Horrores, digo errores... no ?

[OFF]

OFF

@ Dynky, si queres saber si la calculadora esta abierta... no se debe usar:

ret = FindWindow(vbNullString, "Calculadora") ' MAL

Porque Si tu aplicacion corre en un windows que no es en español "eso" no te sirve, debes usar:

ret = FindWindow("SciCalc", vbNullString) ' WXP

ret = FindWindow("CalcFrame", vbNullString)  ' W7

PD1: Tampoco uses Spy++ para saber la clase de un control, mejor aprende a usar GetClassName

PD2: espero que no te enojes por el OFF , S2 

Ufa !!! ... otra vez sopa ?