Mensajes

pq todo el mundo kerra usar la programacion para algo k no es beneficioso ...en todo caso para aprender (siempre es util saber d too), pero m parece q todo el mundo kiere lo mismo virus,trojan,bug...

App.TaskVisible = False solo oculta tu programa en las "Aplicaciones" del admistrador de tareas, pero no el proceso...Desgraciadamente .

ups! weno m disculpo pq antes tenia k haber buscado x ahi
con este codigo puedo poner una imagen...(X SUPUESTO EL CODE NO ES MIO), pero la cargo dsd una direccion con un common dialog , m gustaria saber como se puede hacer dsd un picture x ejemplo.
y aki el code xD...+ q nada x si a alguien le sirve:

Option Explicit

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long

Private Const WM_PASTE = &H302



Private Sub Command1_Click()

On Error GoTo ErrorImagen

Dim strRutaImagen As String

Dim imgLaImagen As Picture

Dim strContenidoPortapapeles As String

With CommonDialog1

    .DialogTitle = "Insertar imagen"

    .CancelError = True

    .Filter = "Todos los archivos de imágenes|*.gif;*.jpg;*.jpe;*.bmp;*.png|Imágenes GIF (*.gif)|*.gif|Imágenes JPG (*.jpg, *.jpe)|*.jpg;*.jpe|Imágenes de mapas de bits (*.bmp)|*.bmp|Imágenes PNG (*.png)|*.png|Todos los archivos (*.*)|*.*"

    .FilterIndex = 1

    .Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly

    .ShowOpen

    strRutaImagen = .FileName

End With

Set imgLaImagen = LoadPicture(strRutaImagen)

strContenidoPortapapeles = Clipboard.GetText

Clipboard.Clear

Clipboard.SetData imgLaImagen

SendMessage RichTextBox1.hWnd, WM_PASTE, 0, 0

Clipboard.Clear

Clipboard.SetText strContenidoPortapapeles

Exit Sub

ErrorImagen:

If Err.Number <> 32755 Then

    MsgBox "Error " & Err.Number & " " & Err.Description

    Exit Sub

End If

End Sub

Salu2, nunca m habia dado x plantearme poner una imagen en un RichTextBox. He stado probando con varias de las propiedades del RichTextBox pero solo consigo q m aparezcan unos valores numericos .
m gustaria q m dijeran con q propiedad es, jejeje es q m pika la curiosidad x ver como es esto 

mmm a lo mjor mi pregunta es stupida no c, d toas formas pregunto y asi aprendo en caso d estar ekivokado.
Para q quieres el 3er timer? veo k pones los otros 2 en enabled, pero si lo pones en las propiedades no seria lo mismo?
salu2 y en caso d ekivokarme perdonen!

Ey, gracias tesis. salu2

hola, m gustaria saber d que forma podria con vb ver las propriedades del sistema general; sistema operativo, pentium etc.
Se podria tbn ver el hadware q tienes instalado como la tarjeta grafica?
un saludo!!

quenene, q necesitas para tu programa? veo q BenRu menciona IA. 1 colega mio hizo un zudoku d esos y lo uniko k aplicaba era el Rnd, colocando al principio numeros aleatorios del 1 al 9 en casillas aleatorias tbn con el Rnd.
Dps d colocar 1 numero comprobabas la suma de los numeros de las casillas algo asi, la verdad es q tp t puedo ayudar muxo pq no m fije en q consistía el juego pero era algo asi. si consigo k el colega m pase el codigo lo posteo a ver si t sirve d ayuda
saludos.

  en mi anterior mensaje t di las gracias, pero m kede corto...era justo la pieza clave para terminar d crear un proceso q no pudiera ser cerrado...llevaba 1 semana ataskado para encontrar la manera d hacerlo funcionar...lo uniko una cosilla a ver si alguien sabe alguna forma para evitar la siguiente parida...
Puse en un timer la comprobacion, si lo pongo el intervalo aprox un seg (1000) no hay problemas, pero 1 mano agil m puede cerrar el proceso. si pongo menos d 1000 el ordena c coge la trabadera y no para d salir parpadeando el reloj 
saludos.

muxas gracias APOKLIPTICO, al final m kede con sólo con la línea:

hProceso = OpenProcess(PROCESS_QUERY_INFORMATION, 0, Shell(Aplicacion, 1))

pq desde k el valor fuera 0 ya sabia k no estaba en ejecutado o q el directorio q intentaba abir no existia.
vamos k mate a 2 pajaros d un tiro para lo q queria hacer, d nuevo gracias!!