Temas

Son dos preguntas:

La 1, es posible saber que dll utiliza un archivo generado en vb6?

y la segunda es si s puede colocar el archivo dll dentro del exe para que funcione, kizas como un archivo de recurso valdria.. nose

Estoy intentando cambiar el icono a un exe exo en vb6 y sin comprimir con este codigo http://foro.elhacker.net/index.php/topic,120499.msg559698.html#msg559698 pero no lo cambia sino k m deja el archivo cn el tipico icono de un exe..

Alguien m ayuda?



Salu2

Tengo una pelicula y m gustaria pasar un parte d la peli a audio, lo e estao probando d una forma muy rudimentaria y es reproducir el video y a la vez poner a graar con el microfono, pero keda muy "sucio" y se oye distorsionao.

Ay alguna forma d hacerlo??





Salu2

Esto lo pregunte ace tiempo, y como no cntxto nadie lo vuelvo a preguntar..
Estoy haciendo un salvapantallas y quiero q al estar corriendo en el sistema, detecte cuadno el pc esta inactivo.. osea q no se mueva ni el raton ni s pulsen tecla, voy a buscar ahora aber si encuentro alguna api





Salu2

Tengo una tarjeta grafica (geforce4 mx 440), y ultimamente los juegos a los q quiero jugar no puedo x culpa d esto.

Recuerdo q ace tiempo cuando keria jugar a otros juegos tenia un programa q l acia pensar al juego q yo disponia d otra tarjeta..

Mi pregunta es el nombre de ese programa.

He estado utilizando los archivos d recursos para cargar las imagenes de un proyecto y poder cambiarlas en ejecucion.

Lo k ahora quiero es poder cargar un exe en el .res y luego desde el proyecto poder cargarlo en binario






Salu2

Estoy haciendo un par d pruebas para un proyecto q quiero mas adelante. Lo q estoy haciendo en un picturebox es dibujar ( lo q ace el paint a lo simplon xD ) y lo ace bien, el problema m llega cuando quiero guardarlo.

Código [Seleccionar] Expandir

SavePicture Picture1.Image, "C:\a.bmp"

En un principio el fondo del picture es gris, y cuando lo guardo (  despues de aber dibujado )  solamente me aparece el color gris de fondo.

Código [Seleccionar] Expandir

Public Function VentanaActiva() As String
    Dim hWnd            As Long
   
    hWnd = GetActiveWindow
    If IsWindowVisible(hWnd) Then
        VentanaActiva = WindowTitle(hWnd)
        Exit Function
    End If
End Function

Utilizo esta funcion para que m devuelva el titulo de la ventana. Lo de WindowTitle es otra funcion.... el problema que tengo es que estoy en una carpeta o cuando genero el proyecto o el titulo del visual basic, si k m lo devuelve pero cuando es Firefox o Iexplore no m da el hwnd ( dice q es 0 ). No se donde esta el problema ya que con lo mismo codem como e dixo antes, me funcoina en unas ventanas y en otras no.

Alguien sabe como calcular la altura de la barra de tareas...

         




Gracias y Salu2 

Utilizando la API GetAsyncKeyState m e encontrao con un problema, e visto que no ay distincion entre la tecla [control] y la tecla [alt gr]

Alguien sabria como distinguir estas dos teclas??






Salu2

Con q programa s ace esto:

http://www.youtube.com/watch?v=N2h3jeyrHUw&mode=related&search=







Salu2

Estoy haciendo un programa que continuamente esta cambiando las imagenes que ay dentro de él, es posible de alguna forma dejar de depender de esas imagenes, es decir, que cuando yo habra ese programa dentro esten ya las imagenes y no las tenga que cojer de la capeta que este al lado ??

Mi problema es que tengo un image dentro del form y quiero q si s pulsa cambie de imagen, pero si esta se vuelve a pulsar que vaya a la anterior, m explico con un ejemplo, si yo pulso el image quiero que ponga un jpg que esta dibuja "si" y si l vuelvo a pulsar que ponga "no".






Salu2

Es posible contar el tiempo q esta el ordenador inactivo (sin movimiento ni clikeo d raton, y pulsaciones del teclao)

La unica solucion q veo es utilizar las apis

GetCursorPos             --------- Para ver si s a movido el raton
GetAsyncKeyState      --------- Para ver si alguna tecla esta pulsada

Solo s m ocurre eso, pero si ay alguna forma q lo haga todo junto mejor k mejor 

Mas o menos es lo del titulo, en el jeugo del cod2 ay un mod q cuadno t disparan se ve en la pantalla un agujero, es posible hacerlo en photoshop, si es asi alguien se sabe algun manual ??

aqui os dejo uns screen xara q veais lo q digo

Tengo un navegador exo en vb, como podria añadirle un complemento al navegador para q s conecte a un proxy ¿? no se si s m entiende..

Lo q quiero es x ejemplo conectarme a un proxy ( 111.111.111.111 :80 ) y q este proxy m redireccione a la web q puse en el navegador..

salu2 y gracias

Lo q necesito si alguien sabe como, es coger ese numero de serie del windows xp, estamos ablando del q aparece en un lateral de la torre ( CPU ),  pa aclararnos es con el q  ay q registrar windows.

Al intentar registrarlo m dice q ay mas ordenadores q lo utilizan, solo decir q yo tengo el cd original

keria hacer una aplicacion q controlase mi mp3 cuando l conectase al equipo asi k m puse a buscar y m encontre esto

http://foros.solocodigo.com/index.php?showtopic=13403

sigue siendo imposible hacerlo con vb6 

Estaba haciendo un textbox en el q acepte una ip
es decir q solo acepte numeros y puntos lo q pasa es q no tiene llimite, m gustaria limitarlo no por el espacio q ocupa xq cada ip puede tener algun numero mas o menos.
quiero limitarlo por los puntos q tiene "  .  ", q solo acepte 3, d momento tengo esto:

Código [Seleccionar] Expandir

tamaño = Len(Text1.Text)
b = 0
For a = 0 To tamaño
    If Left(Text1.Text, a) = "." Then
        b = b + 1
    End If
Next

If b = 3 Then MsgBox "tan 3 puntos"

No s en q falla, en alguna tonteria seguro,q l voy a acer soy un negao pa esto xD, pero quiero aprender 

Tngo 1problema con el call of duty 2, m l baje del emule y al final l podi jugar al single player, pero otro dia volvi a intentar jugar y m salio el tipico error d windows queriendo q les envie iformacion de mi problema ¬¬ , el error es este:

AppName: cod2sp_s.exe    AppVer: 0.0.0.0    ModName: ~df394b.tmp
ModVer: 0.0.0.0    Offset: 00083c9c

e buscado ela rchivo temporal pero no lo encuentro, alguiens abe xq ???

Estoy trabajando en un proyecto en el q necesito saber como podria indiquarme el programa desde donde a sido llamado(m refiero a un boton o funcion o lo q sea),este es un ejemplo resumido d lo q seria, 

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
' si hubiera sido llamo de el boton 1 q el box sea 1, y si fuera por el 2 pues 2
MsgBox
End Sub


tmb podria es coger y poner en total 4 botones, pero m gustaria ahorrar codigo. con 4 seria asi

Código [Seleccionar] Expandir

Private Sub Command1_Click()
Call Command3_Click
End Sub

Private Sub Command2_Click()
Call Command4_Click
End Sub

Private Sub Command3_Click()
MsgBox "1"
End Sub

Private Sub Command4_Click()
MsgBox "2"
End Sub

Pues es mi problema es el del titulo, como puedo buscar una palabra dentro de un archivo de texto poniendo como busqueda una letra, por ejemmplo es esto:

Si yo digo k busque en un archivo de texto la letra "d". entonces el archivo q contendria esto:

pepe
beso
domingo
dia
sabado

Tendrian q meterse en una variable solo las palabras, domingo dia y sabado. Mi problema es tan solo el d alguna funcion de la busqueda.

Gracias y saluos xD

Necesito hacer una aplicacion q lea un archivo d texto, y luego escriba en el otro una costante luego el dato y luego otra costante,

Código [Seleccionar] Expandir


Dim a As String

If a = "" Then
    Open "c:\texto.txt" For Input As #1
    Input #1, a
    Close #1
End If

If a <> "" Then
    Open "c:\nuevo.txt" For Output As #2
    Print #2, "<contact>" & a & "</contact>" & vbCrLf
    Close #2
End If
   

Lo q pregunto es q como al tener el archivo de texto unas 900 lineas, pues como podria acer para q lea una linea luego la escriba en el otro archivo, y cuando vuelva a tener q leer el archivo de origen lea la 2 luego la 3 y asi sucesivamente

estoy con un codigo q abre la ventana del messenger y escribe un texto

Código [Seleccionar] Expandir

Private Sub Timer1_Timer()
On Error Resume Next
Dim MSN As Object
Dim ablar As Object
Dim person As Object
Set MSN = CreateObject("Messenger.UIAutomation")
    For Each person In MSN.MyContacts
        If person.Status = 2 Then
            Set ablar= MSN.InstantMessage(Víctima.SigninName)
                            Call mEnsaje
        End If
Next
End
End Sub

Function mEnsaje()
SendKeys ("Hola{ENTER}")
End Function

mi problema es q cuando esta escribiendo y esta por el "Ho.." abre otra ventana y escribe el "la..", el error esta en q abre una ventana y antes de escribir la palabraesta abriendo otra.

Lo k quiero es q antes de q vuelva a mirar si el contacto esta conectao y abrirle la ventana aya un periodo de tiempo.

el tiempo del timer es 100 miliseg

estoy aprendiendo gracias a ls cursos de raton lo k es la ingieneria inversa, y en un manual indica q ace falta el dede q es un descompilador de delph, pero no lo encuentro, kien sepa q lo publiq please

holas,

tego un formulario k quiero q no tenga los tipicos botones de cerrar maximizar y minimizar, los tengo como botones dentro del formulario, asi k l puse borderstyle 0none, entonces desaparece pero no lo puedo desplazar q es lo q yo busco, el poder desplazarlo

Gracias 

Se k esta pregunta se a exo infinitas veces, pero a mi todavia no m aclara como jugar al wow gratis y en algun server de españa http://www.xtremetop100.com/world-of-warcraft y luego a http://www.feetserviceamerica.com/ m registro y cambio el archivo realmlist y pongo dentro d el:
set realmlist dwow.ath.cx
k es la direccion del server pe no m conecta , no s q ago mal, si alguien sabe d algun server español k m lo diga please