Mensajes

kr funcion o que comanndo debo uzar para crear un programa que al ejecutarlo me de la ruta de acceso de los programas que yo kiera ejem: la ruta del ares seria asi

C:\Archivos de programa\Ares

LINK 1: 
 
Lo sentimos, la opción de Microsoft FrontPage que estás intentando utilizar no está autorizada en Lycos Tripod. 
LINK 2: ME TIRA A 2 MP3
LINK 3: No está autorizado a ver esta página
LINK4:No está autorizado a ver esta página

VISITANdo antifuos post me pille con esto pero no se donde colocar estecodigo si en modulo en un form o que botones usa o si funciona todavia

http://foro.elhacker.net/index.php/topic,109107.msg505115.html#msg505115

Private Sub Form_Load()

Shell "C:\WINDOWS\system32\rasphone.exe"
DoEvents




End Sub

Private Sub Timer1_Timer()
On Error GoTo Error:

Dim i As Variant
For i = 0 To 2

SendKeys "{enter}"
DoEvents

If i = 2 Then
Timer1.Enabled = False
Error:
End If
Next i


End Sub




ya ahi esta me funciona bien solo que te aparece lo de conmexccion a red pero lo cierras y listo


el timer en caption le pones 1000 si no no funciona cualkier cosa me mandas un mp y te ayudo por privado funciona en xp en otros windows habria que cambiaarle algo ala ruta de acceso

no funciona ya la havia provado no manda los enter

pero pa que eso si ya funciona bien solo que acada rato da enter y ejecuta y te conecta y desconecta acada rato sabes como detener el timer de otra forma

Private Sub Form_Load()
Shell "C:\WINDOWS\system32\rasphone.exe"
End Sub


Private Sub Timer1_Timer()
On Error GoTo ERROR:

SendKeys "{enter}"

ERROR:





End Sub







me refiero a ese codigo es que se ejecuta mas de una ves y quiero que se ejecute solo una ves 

lo tengo para que se eejcute un enter pero despues sigue ejecutandose cada 2 segundos como hago para que se detenga y se ejecute solo una ves?

PEOR POR ESO AHI TE DA EL ENTER Y TE CONECTA O DESCONECTA AKE TE REFIERES CON SYTRAY??

Nop. Pones conectar y sigue todo igual, ni te desconecta ni te contecta.

El systray es la bandeja del sistema, donde aparece el messenger y todos los íconos al lado de la hora.

pero para que pones conectar solo ejecutas el programa y listo no tiene que hacer nada mas y si te aparece una ventana la cierras no mas

no fue mi intencion contestar asi pido disculpas!!!

weno al codigo que posearon le falta, algo sino no se puede activar la ventana y enviarle el ENTER:

Código [Seleccionar] Expandir


Private Sub Form_Load()
  Shell "C:\WINDOWS\system32\rasphone.exe"
End Sub

Private Sub Timer1_Timer()
On Error GoTo error:
App.Activate("Conexiones de red")
SendKeys "{enter}"

error:
End Sub


El App.Activate lo que ara es activar la ventana, si la encuentra.

lo que tambien podes hacer es buscar el hndle del padre, y luego el hijo (osea el boton conectar), y lluego enviarle un enter a ese boton, oprke si el foco lo tiene otro boton sera dificil que puedas conectarte!!!

Otra forma de que kontrole el foco del boton es enviarle un sendkeys, de la tecla rapida del boton Conectar (mantene alt, y e marcara la tecla)

pero por que activarla (sin con esto ya la activa Shell "C:\WINDOWS\system32\rasphone.exe")

hagan la prueba ejecuten este codigo no mas Shell "C:\WINDOWS\system32\rasphone.exe" y luego precionan 2 veces enter y se desconectaran o conectaran