Hola, buscando unas cosas de vb6 accidentalmente encontré un codigo de C que me intereso mucho, pero al no saber nada de C no lo pude compilar, me tira error , si es posible alguien que lo compile y me deje el exe le agradeceria mucho, no me interesa el codigo ni saber programar en C, solo quiero el exe. Codigo:
Hola, en mi pc con windows xp el icono de redes inalambricas a veces se cambia a negro, yo quiero saber que quiere decir cuando el icono esta en azul y cuando esta en negro.
Hola, quiero que en un programa cuando haga click, se aprete, por ejemplo la tecla 1 del numpad, pero no puedo lograrlo ya que cuando lo pruebo al hacer click no pasa nada. El programa nomas lleva un timer el codigo es este:
Private Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Integer 'Declaración del Api keybd_event para la presión de tecla Private Declare Function GetAsyncKeyState _ Lib "user32" ( _ ByVal vKey As Long) As Integer Private Const LEFT_DOWN = &H2 Private Const LEFT_UP = &H4 Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _ ByVal bScan As Byte, _ ByVal dwFlags As Long, _ ByVal dwExtraInfo As Long)
Sub Pulsar_Tecla(Tecla As Long)
Call keybd_event(Tecla, 0, 0, 0)
Call keybd_event(Tecla, 0, KEYEVENTF_KEYUP, 0)
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer1_Timer() Dim i As Integer
For i = 0 To 255 If GetAsyncKeyState(1) = -32767 Then Call Pulsar_Tecla(vbKeyNumpad1) Next End Sub
End Sub
Y cuando en vez de click, le pongo cualquier otra key, por ejemplo la A (65) el programa funciona bien, el problema es el click izquierdo. Gracias
Hola, en mi programa quiero reproducir un wav, lo reproduce normalmente cuando lo pongo en este destino: "mciExecute ("Play c:\windows \dopasound.wav")" pero no entiendo porque cuando lo pongo en: "mciExecute ("Play C:\Archivos de programa \Microsoft Visual Studio\VB98\dopasound.wav")" me dice "El dispositivo especificado no esta abierto o MCI no lo reconoce" tambien me dice lo mismo cuando le pongo "mciExecute "Play APP.PATH & \dopasound.wav" Gracias.
Hola, necesito hacer un programa muy sencillo en el que haga una cuenta regresiva,y al terminarla haga un sonido de alarma y comienze nuevamente, tambien quiero que sea siempre visible y que se active con Av Pag o Supr. ALGO ASI QUIERO: http://babilonia.jimdo.com/app/download/302514513/5153511b%2F2115afa03029c949e494d5c906b3a5e30b397d6d%2FVaquita.zip?t=1224601309 pero que vos elijas los segundos de la cuenta regresiva. La cuenta regresiva ya esta hecha, lo que no pude hacer es que comienze de nuevo al terminar, y que haga la alarma, lo de que sea siempre visible y se inicie con una tecla debe ser sencillo. Yo se que es muy simple pero no se de vb6. aca el codigo del contador:
Código:
Private Sub Command1_Click() Label2.Caption = "00:00:" & Text1.Text Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Label2.Caption = Format(CDate(Label2.Caption) - CDate("00:00:01"), "hh:mm:ss") If Label2.Caption = "00:00:00" Then Timer1.Enabled = False End If End Sub
Gracias.
EDITO: YA LOGRE QUE SEA SIEMPRE VISIBLE Y SE INICIE CON UNA TECLA, LO QUE ME FALTA ES QUE AL TERMINAR HAGA UN SONIDO Y COMIENZE DE NUEVO.
Hola, se me dio por hacer un cursor, y yo pensaba que al hacer un cursor gigante podia hacer click con todo el cursor, pero no porque hay un puntito de 1px x 1px que vos lo pones en la zona que queres que haga click(hot spot cursor), bueno yo queria saber si es posible agrandar el hot spot cursor, para que el cursor gigante haga click con todas sus partes (es para un juego) Gracias y saludos.
Hola, tengo una cpu Sentey AMD Athlon 64 x2 Dual Core Processor 3600+2.01 GHz, 1,00 GB de RAM placa madre ASROCK N68C-GS FX anda todo bien pero cada un tiempo empezo a emitir tres pitidos cortos tres veces asi:
Hola, mi pregunta es, hay alguna forma de cortar los intervalos de un programa, sin tener el code, es que me baje un programa hecho en vb6 en el que los intervalos son muy lentos. Gracias.