Mensajes

pero solamente terminaste lo q yo habia hecho xD

no le agregaste mas nada... a mi lo q no me salia era q si llegaba al final de la oracion "Pedro, favor de responder esta pregunta" y todavia no se habia tipeado el "." borre la ultima palabra y la vuelva a escribir hasta q se toque el "."

desp faltan todavia de hacer los menus, q cuando apretes el command1 ponga el foco en el text1, y esas cosas...

osea lo unico q hiciste fue completar el mio, cosa q yo no habia hecho xq sino me salia lo otro, no queria perder tiempo en escribir todas esas cosas xD

jaja mira hagamos esto para q ganes algo jeje


mira en el primer post...

bueno viendo q lagunos por lo menos lo intentaron posteo lo q yo hice...

(no esta terminado) pero a lo mejro le serve de ayuda a unos o alguno me dice errores q tenga xD

form1
label1 = dice como en el programa "ingrese la peticion"
label2 = dice "ingrese la Pregunta"
label3 = esta invisible, se pone visible cuando pones "?" en la preg (eso me falta hacer me acabo de dar cuenta)
text1 = al lado de la label1 "ingrese peticion"
text2 = al lado de la label2 "ingrese preg"
command1 = caption "nueva pregunta"
command2 = caption "Salir"

Código [Seleccionar] Expandir

Dim Punto As Boolean

Private Sub Form_Load()
MsgBox "Bla bla bla oracion..."
MsgBox "Más bla bla bla de la oración..."
Punto = False
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then
    If Len(Text1.Text) = 0 Then
    Punto = False
    End If
Exit Sub
End If

If KeyAscii = 46 Then
   
    If Punto = False Then
    Punto = True
    Else
    Punto = False
    End If
   
    If Len(Text1.Text) = 0 Then
    Text1.Text = "P"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 1 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 2 Then
    Text1.Text = Text1.Text & "d"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 3 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 4 Then
    Text1.Text = Text1.Text & "o"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 5 Then
    Text1.Text = Text1.Text & ","
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 6 Then
    Text1.Text = Text1.Text & " "
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 7 Then
    Text1.Text = Text1.Text & "h"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 8 Then
    Text1.Text = Text1.Text & "a"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 9 Then
    Text1.Text = Text1.Text & "c"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
   
    If Len(Text1.Text) = 10 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If

    If Len(Text1.Text) = 11 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    Exit Sub
    End If
End If

If Punto = True Then

    If Len(Text1.Text) = 0 Then
    Text1.Text = "P"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 1 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 2 Then
    Text1.Text = Text1.Text & "d"
    Text1.SelStart = Len(Text1.Text)
    KeyAscii = 0
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 3 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 4 Then
    Text1.Text = Text1.Text & "o"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 5 Then
    Text1.Text = Text1.Text & ","
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 6 Then
    Text1.Text = Text1.Text & " "
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 7 Then
    Text1.Text = Text1.Text & "h"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 8 Then
    Text1.Text = Text1.Text & "a"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 9 Then
    Text1.Text = Text1.Text & "c"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If
   
    If Len(Text1.Text) = 10 Then
    Text1.Text = Text1.Text & "e"
    Text1.SelStart = Len(Text1.Text)
    GoTo Respuesta
    End If

    If Len(Text1.Text) = 11 Then
    Text1.Text = Text1.Text & "r"
    Text1.SelStart = Len(Text1.Text)
    End If

End If

Exit Sub

Respuesta:
Select Case KeyAscii
Case 48
Label3.Caption = Label3.Caption & "0"
Case 49
Label3.Caption = Label3.Caption & "1"
Case 50
Label3.Caption = Label3.Caption & "2"
Case 51
Label3.Caption = Label3.Caption & "3"
Case 52
Label3.Caption = Label3.Caption & "4"
End Select

KeyAscii = 0
End Sub


a nadie le intereso??

me gustaria q si hay alguien haciendo el code me diga, yo ayer en menos de una hora casi lo termine... me trabe es una parte... haora estoy viendo como solucionarlo...

pero quisiera q me digan si hay laguien haciendolo o si a nadie le intereso... xD
xq si no ni me gasto en terminar el code xD

si! era ese! o uno muy parecido!


muchisimas gracias!!

[Demoniox12]

bueno esto se me acaba de ocurrir... y queria saber q opinaba el foro...

la idea era buscar un programa sencillo y ver quien lo puede copiar haciendolo en VB (obvio) de la forma mas sencilla...

para empezar yo ya busque uno se llama "Pedro Responde" muchos lo conoceran, sino pueden ir a la pag oficial

http://www.pedroresponde.com.ar/

de ahi lo pueden bajar o ver su funcion...

bueno la idea era q el q ya tenga le programa q haga lo mismo q "Pedro Responde" suba el code.. y asi cada uno q logre hacerlo y desp veemos quien lo logro de la forma mas facil, o en menos tiempo.


yo ya empese! aunque estoy un poquito trabado en una parte...!!

suerte a todos!

denmen sus opiniones sobre esta idea!


Ganadores:
Demoniox12 (code base de vivachapas)

bueno hace tiempo no programo cosas interesantes... y estoy medio olvidado,
hice varios troyanos (entre otras cosas), todos x suerte funcionaron bien, y en todos tengo q agredecer la ayuda del foro

pero como hacia mucho no los usaba y tenian varias cosas "mal hechas" o mejor digamos q no estaban hechas de la mejor forma, hice "borron y cuenta nueva"

empese hacer otro troyano hice la conexion, envia datos etc todo barbaro...
pero no se como hacer a q cuando el server se desconecte se me borre la victima de la LV (List View)... antes tmp me salia y siemrpe hacia un boton de Refresh q reiniciaba todas las conexiones y se volvia a poner a la escucha, pero es de lo mas lammer... hasta q una vez encontre en el foro una forma... pero ahora no la encuentro xD


y bue resumo aca, necestio saber cuando se desconecta una victima para sacarla de la LV


desde ya muchas gracias

bueno... como buen jugador de AO creo q lo q haces esta muy mal...
segundo tengo un servidor de AO y si te veo te comes un super banneo
tecero, si no tenes los conocimientos minimos no podes pedir q te hagan todo, admeas muchos no saben ni de q se trata el juego y vos pones, quiero una macro para potear como si todos supieran q es potear...
cuarto, ya te aconsejo no usar macros muy veloces, (tomarte 20 potas en centesimas de seg) xq te descubren en 2 min el cheat y chau pj


seurte


chau

mmmm el timer no se para q lo usarias...
pero si con las keyascii lo podes hacer...

supongamos q vos tenes una calculadora como la q viene con windows, donde estan lo botones, y ya armaste todo ahroa solamente queres agregar como una macro para q la utilices mas rapido y facil con el teclado (los numeritos de la drcha)
para eso haces asi... (ahora no tengo ganas de programar pero te lo explico bien, sino corrijanme xD)

mmm bue toy pensando como explicar (soy malicimo para eso) pero mira vos asi obtenes las keyascii...

en un form pone una label1

Código [Seleccionar] Expandir

Private Sub Form_KeyPress(KeyAscii As Integer)
Label1.Caption = KeyAscii
End Sub


lo ejecutas y cada tecla q presionas te aparece su numero de keyascii. asi te fijas segun q teclas necesites saber...

entonces desp en la calculardora haces algo asi... (no se como es tu codigo pero vos adaptalo...)

Código [Seleccionar] Expandir

Private Sub cmd1_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
cmd1_Click
End If
End Sub



en ese caso seria si cmd1 es el botoncito q tiene al 1


no se como la hiciste a la calculardora! yo supongo en todo lo q te puse q es como la de microsoft q viene con windows...


bue decime si me entendiste y si me explique bien xD


SALUDOS

no habra alguna forma de buscar todas las "palabras" q tengan "@"...
yo pienso en algo asi: dodne haya un "@" q lo seleccione (como cuando uno hace doble click en una palabra) y los vaya poniendo en algun txt o algo asi...

no se como hacerlo solo es una idea...