Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - NsTeam

#51
ásu
viendolo desde este punto de vista , parece un poko complicado

pero no tendras por hay alguna guia o algo similar para ver si pueda guiarme

se los agradeceria mucho
#52
Hola A todos
weno tengo una duda con "generar exe desde un programa hecho en vB"
kisiera krear un programa que me genere un Exe (aplicacion) ..... Pero que en ese
exe  este codeado de un dicho codigo que yo especifique...!
ejemplo

al darle click al boton... generara el exe en el escritorio... y ese .exe es el form2
"osea que genere en exe el form2 desde el form1"

No se si me ayan entendido :)
Pero bueno espero que alguien me ayude con esto..!
talves tenga una guia o aya visto por hay
o talves alguna idea =)

Gracias de antemano...

algo similar a esto

http://www.sendspace.com/file/7mww2k
#53
Cita de: seba123neo en 26 Septiembre 2009, 18:42 PM
Código (vb) [Seleccionar]
Text1.Text = Replace(Text1.Text, "  ", "%%")

muchisimas gracias
#54
Weno Hola a todos

tengo una pequeña duda

Weno... Mi duda es la siguiente...

tengo lo siguiente:



y que al apretar el boton reemplaze los spacios " " por los siguientes "%%"

osea que kede de la siguiente manera



algo asi como un block de notas... que reemplaze =)

espero que me ayan entendido

PD: estuve buscando la funcion Replace... Pero como que no me guio Bien

soy un poko bajo en estas cosas... aver si alguien me puede ayudar

Gracias de antemano =)
#55
Cita de: dynyck en 25 Agosto 2009, 22:47 PM
Será?:

Código (vb) [Seleccionar]
Private Sub Command1_Click()

For x = 1 To 50

List1.AddItem x

Next

List1.Selected(List1.ListCount - 1) = True

List1.Selected(List1.ListCount - 1) = False


End Sub


No entiendo la finalidad... Pero bueno...

jaja!!

si claro me olvide de eso

gracias xD! 
#56
Cita de: ssccaann43 en 25 Agosto 2009, 22:32 PM
Luego de

List1.Selected(List1.ListCount - 1) = True

Enfoca en otro control. Ejm: TxtCadena.SetFocus

de esa forma ya lo abia provado

pero el item q se agrego en el listbox

esta seleccionado y sombreado de Azul =(
#57
Cita de: SONIC88 en 25 Agosto 2009, 19:35 PM
Así funca loquito:


Private Sub Command1_Click()

For x = 1 To 50

List1.AddItem x

Next

List1.Selected(List1.ListCount - 1) = True

End Sub


SALUDOS

Muchisimas Gracias...

PErO yo keria hacerlo como la ventanada del Chat del Msn

Al escribir algo y Presionar ENTER

en el Listbox se agrege Pero Sin q se Seleccione

Solo que la BArra De MUeva =)

Aver Si me expliko BIen =)
#58
HOla  Todos.!

Bueno tengo la siguiente Duda

estuve agregando Items a un listbox, Todo me anda bien pero tengo una

duda con la barra

Me Explico Con Imagenes...

- Ahora Lo Tengo de Esta MAnera



- Quisiera que Este De Esta Manera



QUe La Barra Este Hacia Abajo.. Y que mUestre el Ultimo Item Agregado...

El COde Q tengo es Simple:

Private Sub Command1_Click()

For x = 1 To 50

List1.AddItem x

Next

End Sub


Bueno BUsque y Busque y no encontre...

prove con sus propiedades y no logre Hacerlo...

Talves alguno tenga alguna Idea =)

Gracias de Antemano

SAlu2[/b]
#59
talves lo que tu quieres HAcer es un keylogger

Prueba con la APi "GetAsyncKeyState"

Salu2
#60
Hola a todos

weno tengo una duda en mi keylogger! q estoy haciendo =)

bueno en si lo que pasa es que cuando yo presiono la tecla  BackSpace

Me manda al text1.text lo siguiente "{BSPC}"

Bueno eso lo puedo cambiar Yo =)

Pero en Si lo que quisiera es que en el text1.text se borre la ultima letra escrita!

ME Explico!...

en el text1 Contiene lo siguiente! "hols{BSPC}a a todos"

lo que yo quiero es lo siguiente

en el text1 contenga lo siguiente "hola a todos"....

Espero qe me ayan entendido =)...

Estoy q ando en mi Keylogger! y me tope con esta Duda =/

gracias de antemano =)

EDIT: EL CODe q tengo es este!


Dim EstadoTecla As Long

EstadoTecla = GetAsyncKeyState(vbKeyBack)
If (EstadoTecla And &H1) = &H1 Then
text1.Text = text1.Text + "{BSPC}"
End If


Por cual lo cambiaria ?' =/