|
363
|
Programación / Programación Visual Basic / Re: EndTask [API]
|
en: 1 Febrero 2009, 21:03 pm
|
Leandro = Maestro, estoy seguro que eso va a servir, con WM_CLOSE parece contundente, cierra forzado y ni el window seven te pregunta ni "a" (con SC_CLOSE funciona tambien)
Call EndTask(Hwn, 0, &H10)
'WM_CLOSE = &H10 'SC_CLOSE = &HF060&
Gracias por los aportes (ya perdí la cuenta)
EDIT: Karcrack : solo con SendMessage (por lo menos yo) nunca pude cerrar forzado
saludos
|
|
|
365
|
Programación / Programación Visual Basic / Re: tecla + en sendkeys o otra forma?
|
en: 29 Enero 2009, 01:09 am
|
Hola, para las "Marcas" (checkbox) tambien podes usar SendMessage con BM_GETCHECK para saber si está tildado, el retorno sería (0 si no está tildado, 1 tildado o 2 si está gris. Y con SendMessage y BM_CLICK le mandas el click si hace falta. (buscá ejemplos)
retorno= SendMessage(Hndl, BM_GETCHECK, 0, 0) If retorno= 0 Then Call SendMessage(Hndl, BM_CLICK, 0, 0)
Saludos
|
|
|
367
|
Programación / Programación Visual Basic / Re: como puedo injectar...
|
en: 24 Enero 2009, 10:29 am
|
Esto es buenisimo, al final se lo terminaste dando servido... ya no esta de moda leer?
Tampoco pretendo hacer una discución, pero todos no aprendemos de la misma forma ni con la "velocidad", yo necesito ver un ejemplo para a "mi tiempo" entenderlo (a veces), y encima buscando en internet soy malisimo. Por otro lado tampoco veo mal darsela "servida", siempre y cuando solo nos lleve unos minutos, lo que si veo mal es hacer copy-paste con un code "servido", sin tratar de entenderlo. Saludos
|
|
|
369
|
Programación / Programación Visual Basic / Re: SaveSetting en Vista o Seven
|
en: 23 Enero 2009, 22:55 pm
|
Hola, probé con un ejemplo sencillo en W7 y sí funcionó, me imagino que en vista tambien tendría que andar (Tené en cuenta que no uso antivirus) Private Sub Form_Load() 'Apenas carga el programa, carga los datos Cargar_De_Registro Me.Caption = " ejemplo de GetSetting y SaveSetting" End Sub 'Lee los datos del registro con la función GetSetting _ recorre los textbox y le asigna el valor a cada uno de ellos Sub Cargar_De_Registro() Dim i As Integer For i = 0 To Text1.Count - 1 Text1(i).Text = GetSetting(App.EXEName, _ "TextBox", _ "Text" & i) Next End Sub Private Sub Form_Unload(Cancel As Integer) Grabar_En_Registro End Sub Private Sub Grabar_En_Registro() Dim i As Integer For i = 0 To Text1.Count - 1 Call SaveSetting(App.EXEName, "TextBox", _ "Text" & i, Text1(i).Text) Next End Sub
Saludos
|
|
|
|
|
|
|