Pues eso hoy en clases nos mostraron como reproducir wav con mmcontrol y me gustaría saber como sería para reproducir un mp3
 
Gracias de antemano, por cierto he visto varios reproductores pero no es la idea aprender a copiar sino a hacer
Gracias

Lo que pasa es que estoy haciendo un programita (de tarea) que ya lo tengo terminado pero lo estoy mejorando agregandole varias cosas...

Mi problema es que al abrir el programa (por ejemplo) tengo dos botones...

Algo asi:


al abrirlo sale marcado al command1, y lo que yo necesito es que cuando se abra este marcado el command2, he usado el SetFocus para pasar de un textbpx a otro con un if supongo que con el setfocus se podria hacer esto pero como? xD

Gracias de antemano

La idea original es de carlitos.dll en C

---

El programa revisa cada par de segundos si existe el autorun.inf en las unidades C,D,F y G y si lo encuentra lo borra xD
Para esto puse 4 timers.

---

No soy programador todavia, solo copie un par de lineas desde programas y tutoriales (incluyendo un tuto muy bueno de aqui de VBS y los ordene para que hicieran lo que proponia carlitos.dll

---

Crear

---

4 timers:
Timer1, Timer2, Timer3, Timer4 con interval: 200 para que cada timer revise las unidades seguido

El form ponganlo con visible = False para que no se vea... quiero ver como poder hacerlo visible por medio de una combinacion de teclas pero aun no se hacerlo.

---

Codigo:

---

Private Sub Form_Load()
MsgBox ("El programa se esta ejecutando")
End Sub
 
Private Sub Timer1_Timer()
On Error GoTo Falso
archivo = GetAttr("C:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "C:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer2_Timer()
On Error GoTo Falso
archivo = GetAttr("D:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "D:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer3_Timer()
On Error GoTo Falso
archivo = GetAttr("G:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "G:\autorun.inf"
Exit Sub
Falso:
End Sub
 
Private Sub Timer4_Timer()
On Error GoTo Falso
archivo = GetAttr("F:\autorun.inf")
Set variable = CreateObject("Scripting.FileSystemObject")
variable.DeleteFile "F:\autorun.inf"
Exit Sub
Falso:
End Sub

---

Obsevacion:

---

Para cerrarlo por ahora control + Alt + Supr y cierran el proceso

---

Repito son recortes de codigos de tutoriales yo no lo programe en si solo lo ordene ¬¬  asi que no me llamen lammer.... newie tal vez pero lammer no... si lo hacen prometo que me cortare las venas con una cuchara xD

Saludos y arreglenlo, mejorenlo y usenlo para el bien xD

Aqui se los dejo ya compilado http://www.sendspace.com/file/4f45l2

Bueno eso seguí los pasos de aquí http://foro.elhacker.net/noticias/anade_las_noticias_del_foro_en_tiempo_real_en_tu_web-t28681.0.html y nada no me resultó... Funciona y soy inepto todavía o derechamente no funciona? Sale error de acceso al ssi.php

Fondos de pantalla de tux en las olimpiadas de Beijing 2008!
Estan bastante simpaticas

Hola parto como el general de novatos
 
Como podría hacer que se muestre una página web sí entran desde un PC y una página wap sí es desde un celular?
 
Me pregunto eso hace tiempo y está semana me decidí y empecé a leer tutoriales y manuales de php

No quiero un navegador, lo que quiero es por ejemplo que uno instale la aplicación en un teléfono y al abrirla te de un mensaje de advertencia y al aceptar vayas a una página wap, se los agradezco de antemano muchas gracias

Me gusta mucho este foro, leo mucho y aporto poco pero me llama la atencion que siendo bastante ordenado el foro haya tanto spam en celulares.
 
Mí sugerencia es eliminar un poco de spam. Tan sólo eso.
 
Saludos al Staff y felicitaciones por el foro!