Mensajes

no se si se puede en un textbox, pero si se puede quedaria bastante desprolijo me pa:S jejje.

es muy posible ver el codigo fuente COMPLETO del ejecutable, guiate con lo que tenes, disculpaque no te ayude en muhco! suerte! tomi!

Gracias! me parece que me llego la hora de aprender delphi, no todo es batch y vb! jaja

Hola! si te referís a la ubicacion en el disco podrias asi:

Código (vb) [Seleccionar] Expandir

Dim dir as string
dir = app.Path
winsock.SendData dir

Espero que te sirva!

Hola que tal, miren estaba programando y viendo el foro al mismo timepo, jajaj, yme fije que en el visual basic 6 no te separa el codigo en colores como creo que lo hacia asi el vb.net que lo use muy poquito tiempo. me gustaria que en el 6 se pueda ver por ejemplo como en los foros, que si pones un codigo se ve todo en colores. muchas gracias por su atencion Suerte! tomi!

mira no tengo mucha idea para yudarte, si podrias subir el codigo veo en que te puedo dar una mano. suerte!

[Una fotito:]

Bueno aca les vengo a traer una simple pero util aplicacion que hice en mi tiempo libre. muy util para sql injection, pero si la quieren usar para otra cosa, les sirve. tiene la opcion de encerrar el resultado entre parentesis "()", o de separar con lo que ustedes quieran: ","; "."; " "; "-"


Una fotito:




Aca esta el código por si alguien lo quiere (no soy ningun profesional!) :

Código (vb) [Seleccionar] Expandir

Private Sub Command1_Click()
If text1.Text = "" Then
MsgBox "Escribí algo para convertir!", vbCritical, "Error"
Else
If Check1.Value = Checked Then
Dim letras As String
Dim vseparador As String
Dim separador As String
Dim caca As String
Dim msj As String
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = "(" + Left(caca, letras - vseparador) + ")"
Text2.Text = msj
Else
caca = ""
separador = Text3.Text
For i = 1 To Len(text1)
caca = caca + CStr(Asc(Mid(text1.Text, i, 1))) & separador
Next i
vseparador = Len(separador)
letras = Len(caca)
msj = Left(caca, letras - vseparador)
Text2.Text = msj
End If
End If
End Sub
Private Sub text1_click()
text1.Text = ""
End Sub


La descarga ya compilado por si lo quieren asi: Descargar


Suerte a todos!

Photoshop cs3
Flash mx
dreamweaver mx
fireworks mx
microsoft paint! jajaj

Muy bueno loco! ahora hago lo que quedamos. Muy ingenioso y de muy facil codigo. saludos!
Tomi!