Temas

Ola a todos,me e comprao un descodificador tdt,y resulta q con mi antena colectiva solo veo 4 canales,asiq me compre una antena en los chinos,pero no pillaba na,entonces me compre una philips concretamente este

y sigo sin pillar na.La pregunta es: ¿No puedo fabricarme yo una antena amplificada casera para poder ver la tdt?  y si es asi como puedo hacerlo?

Ola,buscando en mi armario me e encontrado mi primera game boy.


todavia sigue funcionando,y me gustaria saber si se puede hacer algo con ella,transformarla en otra cosa o algo asi.

Gracias

Alguien a oido hablar d esta coleccion??
Yo la estoy haciendo y es muy interesante,y parece q el robot promete.
Puede ver,oir,hablar,desplazarse,comunicarse por bluetooth etc.
Y tiene memoria ram,placa base,cerebro y desarolla una personalidad propia
Tambien puedes programarlo para q haga muxas cosas

Si alguien lo conoce o quiere aportar algo q lo escriba aqui

Ola,se me a presentao una duda y me gustaria que alguno de ustedes me la solucionase.
En mi programa,puedes abrir una nueva instancia de este,pero si cierro la nueva q e abierto,se cierran las demas.Como puedo hacer para q si cierro la instancia nueva no se cierren las demas y si cierro todos,se quite d memoria?

en el form_unload tenia el comando end,pero al cerrar una instancia,se cerraba todo,y quite el comando end,y funciona bien salvo q s qda en memoria

Ola a todos,me complace anunciar de que ya e terminado mi navegador,tiene bastantes opciones,como anti pop-ups,buscadores,scripts silenciosos etc

Si alguien quiere probarlo y me quiere dar su opinion,q entre a esta web

http://bautistasbr.iespana.es/navegador.html

Gracias

Ola de nuevo 

En mi reproductor estoy usando el componente de windows media 10. Quiero que cuando acabe de reproducir una cancion,pase a la siguiente de la lista,y si no hay mas,q pare.Pero no se como hacerlo.Encontre este code pero no me funciona

Private Sub wmpTemp_EndOfStream(ByVal Result As Long) 'Go on to next Mp3 when done with Current one
  On Error Resume Next
If List1.ListIndex = List1.ListCount - 1 Then
If Check2.Value = 1 Then
List1.ListIndex = 0
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
Else
List1.ListIndex = 0
End If
Else
List1.ListIndex = List1.ListIndex + 1
wmpTemp.URL = List1.Text
wmpTemp.Controls.play
End If
End Sub

el check seria pa repetir la lista entera.

Lo q pasa es q no pasa solo d cancion,el code creo q esta bien.

Gracias

Ola a todos.Sigo teniendo algunaas dudas con el reproductor,que espero q me solucioneis.

Como puedo hacer para q si en el list pongo un avi o mp3,al pinxar en ellos para reproducirlos,en un label me ponga un texto.
No se si me explico,q si por ejemplo es un mp3,en un label diga mp3,si es avi,q diga avi etc.


Espero vuestras respuestas y gracias por todo

Ola a todos.Sigo con las dudas del reproductor,aqui os las expongo para ver si me podeis ayudar.

Mi reproductor reproduce mp3,wav,avi,mpg etc.Le e puesto para asociar dixas extensiones a mi programa,lo cual funciona bien,porq si abro un mp3 se abre mi programa,pero lo q pasa es q no se reproduce y si le doy a play es como si no hubiera archivo.
Mi pregunta es ¿Como hago para que reproduzca el archivo al abrirlo?

Ola amig@s
Estoy haciendo un reproductor,pero cuando añado varios archivos a un listbox,si reproduzco una cancion y acaba,no empieza la siguiente.Otra cosa,como puedo hacer para q reproduzca desd el principio

pd:He usado el boton buscar y no e encontrado solucion a mi pregunta

Ola a todos 
me e descargado el programa pokemon netbattle
http://pokerealm.net/files/Setup096.exe
Y se me ocurrio la idea de si se podia hacer un cliente de ese tipo en vb,pero que se conectase a los mismos servidores,el servidor q e usado y es este pokemon-stats.zapto.org
Pues eso,solo me gustaria saber si es posible hacerlo,y si es asi como.

Gracias

Ola amigo,toy con un programa q usa unas opciones y tiene q guardarlas en un arxivo al cerrar el programa,y cargarlas al abrirlo.Lo que pasa q el arxivo lo guarda con un nombre q no es,y cuando abro el programa siempre me dice q el arxivo no existe.

Mi code es este

Private Sub configuracion(fileName As String)
On Error Resume Next

Close App.Path & "\config.dat" & fileName
Open App.Path & "\config.dat" & fileName For Output As #1

Print #1, "Color=" & config.Combo1.Text

Close #1
MsgBox "Archivo Creado Correctamente"
End Sub

Private Sub Form_Load()
On Error Resume Next
Dim Respuesta As Integer
Dim Script As Object
Dim fnum As Integer
Set Script = CreateObject("Scripting.filesystemobject")
If Script.FileExists(App.Path + "\config.dat") = True Then
    Text1.Text = ""
On Error GoTo Ninguno
fnum = FreeFile
    Open App.Path & "\config.dat" For Input As fnum
    Do While Not EOF(fnum)
        Line Input #fnum, txt
        Text1.Text = Text1.Text & vbCrLf & txt
    Loop
    Close fnum
Ninguno:
Else
    Respuesta = MsgBox("El archivo config.dat no existe,¿Desea que el programa lo cree?", vbYesNo, "Error")

If Respuesta = vbYes Then
  Call configuracion("config.dat")

Else
   
End If
End If
end sub

Ola amig@s,me gustaria que en mi aplicacion cada uno pudiera personalizar los colores de los forms y las letras.Por ejemplo si selecciono q el form sea naranja,q se cambie en todos a la vez y tambien se cambie en todos la letra,porq si tengo q poner q se cambien d uno en uno,me puedo morir,asiq si alguien sabe,q me ayude.

Gracias

ola amigos,estoy interesado en saber si alguien de ustedes conoce algun dvd q contenga los roms d mega drive,neogeo,snes,gbc.....
para la ps2,si es asi decidme algun lugar donde descargarlo.


Gracias

ola amigos,llevo cierto tiempo haciendo firmas en photoshop,y me pica la curiosidad de saber como se hacen este tipo de firmas


porque ya estoy cansado de hacer siempre las mismas.
Si fuerais tan amables de explicarme como hacer una firma parecida os estare agradecido.

Gracias

Hola amigos,he estado mirando en el foro sobre este tema y no e encontrado nada,asiq lo posteo en un mensaje.

Me gustaria saber como puedo hacer para que mi aplicacion detecte si hay una nueva version de el y muestre la version nueva en un label.

Gracias

Ola amigos,tengo una duda en mi proyecto,quiero q el form 2 se ponga al lado del form1,y si muevo el 1 se mueva tambien el 2.Y si muevo el 2 tambien se mueva el uno.No se si me explico bien.
Algo como lo de la imagen.

Ola amigos,toy haciendo una aplicacion en vb,pero e llegao a un punto en la que no me deja agregar mas componentes(label,image etc)Dice q no puedo poner mas en el formulario,esq necesito poner
mas.Como puedo hacer para aumentar el numero de componentes q se pueda poer en un form?

Ola gente,tengo adsl d 1mb con telefonica,y mi pregunta es si puedo jugar con algun juego d la play online d forma gratuita o tengo q pagar por ello.

ola amigos.Me acabo de hacer un formulario en bannerlandia

y me gustaria q se pudieran introducir los datos d uno d mis textbox al formulario y despues de al boton d enviar.

no se si me explico.Pero todo esto sin la interacion del usuario,para q sea mas comodo


mi cuadro d texto en la web se llama log y el boton enviar se llama
submit

Estoy haciendo un generador de numeros y letras para q salgan al hazar.Las a puesto un timer para q se generen solos,pero el problema es q siempre genera los mismos.Mi codigo es este

Private Sub Command1_Click()
With Text1
.Text = "": .Tag = 1
While .Tag <= 14
.Text = .Text & Int((9 * Rnd) + 1) ' Genera un valor aleatorioentre el 1 y el 9
.Tag = .Tag + 1
Wend
End With

End Sub

Private Sub Timer1_Timer()
Call Command1_Click     'interval 20'
End Sub

Private Sub Timer2_Timer()
Timer1.Enabled = False
Timer2.Enabled = False  'interval 5000'
End Sub

como puedo hacer para q no me genere siempre los mismos numeros?? Como puedo añadirle letras?

Gracias

Ola a todos,e estado investigando sobre lphant y e visto que cualquiera con conocimientos minimos de visual basic,puede hacerse su modificacion.Lo que no se es de donde encontrar el source o dll para visual basic.

Si alguno sabe algo,q lo comuniq

Ola a todos,tengo algunos juegos de la ps2 modificados,con otra pantalla de titulo,mas sonidos etc.Para ser mas concreto es una modificacion del pro 5

Mi pregunta era q como se puede hacer eso

Ola a todos,me gustaria saber como mandar mails sin necesidad del outlook express.He mirado en el foro,me e bajado codigos de www.pscode.com pero ninguno me funciona.Si me pudierais exar una mano os lo agradeceria muxo.

Ola amigos,tengo problemas con el regdelete.Mi codigo es este

RegDelete "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion \Run\ley", "C:\WINDOWS\system32\ley.exe"

no se porque,pero da error.

Algun consejo?

ola gente,ya se que soy muy pesado,pero necesito una vez vuestra ayuda.

Quiero q al ejecutarse mi proyecto,se copie el exe al system32 y borre su antiguo exe,y q tambien arranq con windows.

Gracias

 ola amigos

como puedo poner en el intervalo del timer 40 minutos??


Gracias

ola a todos
seria posible mandar los datos d un textbox a un archivo d texto almacenado en mi  servidor?

Si es asi como?

ola,me e bajado muxos ejemplos para mandar e-mails anonimos d www.pscode.com y otras webs,y ninguno funciona.

Si teneis alguno q no actue por outlook,podeis mandarlo?

ola a tod@s,tengo un textbox con un texto,lo q quiero hacer es q al dar al commandbutton se me borren los 3 primeros caracteres d dixo textbox,pero no se me ocurre ninguna forma d hacerlo.
Si me puedieseis exar una mano os lo agradeceria muxo

ola a tod@s,estoy haciendo una aplicacion a la que solo le quedan unos detalles para finalizarla.

En mi aplicacion de vb hay 2 textbox y un image,lo que quiero hacer es q cuando d a la imagen,mando los datos d los textbox a mi web,o si no se puede a una mysql para q yo despues desde la web pueda ver los datos q mande del textbox.

Gracias

Ola a todos,me gustaria saber si hay alguna forma de usar algun dll de firefox en vb para poder hacer un navegador basado en el,si es asi q componente y si hay algun tuto

ola,tengo una mini problema,tengo este codigo en un combo

Private Sub Combo1_Change()
If Combo1.Text = ESPAÑA Then
List1.AddItem = "ola"
End If
End Sub

lo q pasa es q no se añade al listbox

estoy haciendo una aplicacion cliente servidor mediante winsock.
en el server e puesto la funcion para obtener el sistema operativo.
Esta es la funcion q uso

Private Declare Function GetVersionEx Lib "kernel32" Alias "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) As Long



Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type


Private Function winversion() As String
'declaramos la variable osvi de tipo osversioninfo
Dim osvi As OSVERSIONINFO
'asignamos valor al parametro dwOSVersionInfoSize
'de acuerdo a la longitud de nuestra variable osvi de tipo
'osversioninfo
osvi.dwOSVersionInfoSize = Len(osvi)
'le pasamos el parametro a la API
GetVersionEx osvi
'comparamos y le damos valor a winversion
If osvi.dwPlatformId = 1 Then
If osvi.dwMinorVersion = 0 Then winversion = "Windows 95"
If osvi.dwMinorVersion = 10 Then winversion = "Wiondows 98"
ElseIf osvi.dwPlatformId = 2 Then
If osvi.dwMinorVersion = 0 Then
winversion = "Windows 2000"
Else
winversion = "Windows xp"
End If
End If
End Function



Private Sub Command1_Click()
Label1.Caption = "La version es " & winversion
End Sub


lo que quiero es q mande al cliente el sistema operativo q usa

Ola,estoy haciendo una aplicacion q se conecta a una ip,concretamente de un servidor emule,e logrado la conexion,pero me gustaria q se mostraran los archivos del servidor en un listbox.

Ola,me gustaria que alguien me dijera como hacer el simbolo de superman con el photoshop,y si es posible tambien con otras letras

ola,mi duda es si alguien sabe como poder crear un programa p2p en visual basic,si es posible para la linea edonkey,gnutella o torrent.

Me conformo con cualquier cosa.

gracias

Ola,me gustaria poder compilar el emule con el visual c++.net
e intentado compilar varias versiones de emule(oficial y mods) todas me dan error de algun archivo etc.

Busco algun emule con las sources funcionales al 100%

o algun manual para hacerlo.

ola,me e descargado el juego de gun,resulta que funciona de vicio,pero cada cierto tiempo se sale al escritorio.Y se me estropea la partida y me molesta muxo.

Como puedo arreglarlo?

ola,me acabo de descargar la expansion del diablo 2,e estado jugando y funciona muy bien,pero no puedo conectarme al battlenet,algun consejito?

ola,tengo una memorycard de 32 mb de maxmemory

lo q pasa esq cuando grabe el juego de resident evil 4,la memory me dejo de funcionar.
Hay alguna forma de recuperarla?
Esque tengo todas las partidas en ella

Ola,acabo de quitar un disco duro de mi ordenador y me gustaria poder ponerlo en la playstation 2.

Como puedo hacerlo?

ola amigos,tengo una aplicacion que me guarda los datos de 2 textbox en un archivo de texto,pero quiero q cada vez q pulse el boton me guarde los datos en otras lineas.Ejemplo:yo guardo el archivo y me sale asi

Amigo
Amigos

pero cuando vuelvo a pulsar el boton me sobrescribe los datos,y quiero q los ponga aparte,mi codigo es este.

Private Sub Command1_Click()
Dim canalLibre As Integer
'Obtenemos un canal libre que nos dará
'el sistema oparativo para poder operar
canalLibre = FreeFile
'Abrimos el fichero en el canal dado
Open "C:\fichero.txt" For Output As #canalLibre
'Escribimos el contenido del TextBox al fichero
Print #canalLibre, Text1
Print #canalLibre, Text2
Close #canalLibre
End Sub

ola,tengo una dudilla.lo que quiero hacer es q cuando se pulse un boton,se me oculte el menu y la barra de donde esta la X para cerrar el programa.Tengo este codigo

If mnuarch.Visible = True Then
mnuarch.Visible = False
End If
If mnucont.Visible = True Then
mnucont.Visible = False
End If
If mnuayu.Visible = True Then
mnuayu.Visible = False
End If
If mnuacc.Visible = True Then
mnuacc.Visible = False
End If

nose como hacer lo demas y para q cuando pulse oculte y muestre la barra y el menu

Ola,desde hace un tiempo,tengo el siguiente error en visual basic "visual basic a detectado un error y debe cerrarse"

He desinstalado el vb y vuelto a instalar y sigue igual.

ola,lo q quiero hacer es un programa q cuando pulse un boton me deje pulsada
la tecla shift,y q cuando d otro botn la deje d pulsar.Tambien quiero hacer
lo mismo pero con la tecla alt.

Gracias por todos los consejos q me dais