Mensajes

Seria algo así?

Código [Seleccionar] Expandir


2009-00000200
2009-00000199
2009-00000198
2009-00000197
2009-00000196
2009-00000195
2009-00000194
2009-00000193
2009-00000192
2009-00000191
2009-00000190
2009-00000189
2009-00000188
2009-00000187
2009-00000186
2009-00000185
2009-00000184
2009-00000183
2009-00000182
2009-00000181
2009-00000180
2009-00000179
2009-00000178
2009-00000177
2009-00000176
2009-00000175
2009-00000174
2009-00000173
2009-00000172
2009-00000171
2009-00000170
2009-00000169
2009-00000168
2009-00000167
2009-00000166
2009-00000165
2009-00000164
2009-00000163
2009-00000162
2009-00000161
2009-00000160
2009-00000159
2009-00000158
2009-00000157
2009-00000156
2009-00000155
2009-00000154
2009-00000153
2009-00000152
2009-00000151
2009-00000150
2009-00000149
2009-00000148
2009-00000147
2009-00000146
2009-00000145
2009-00000144
2009-00000143
2009-00000142
2009-00000141
2009-00000140
2009-00000139
2009-00000138
2009-00000137
2009-00000136
2009-00000135
2009-00000134
2009-00000133
2009-00000132
2009-00000131
2009-00000130
2009-00000129
2009-00000128
2009-00000127
2009-00000126
2009-00000125
2009-00000124
2009-00000123
2009-00000122
2009-00000121
2009-00000120
2009-00000119
2009-00000118
2009-00000117
2009-00000116
2009-00000115
2009-00000114
2009-00000113
2009-00000112
2009-00000111
2009-00000110
2009-00000109
2009-00000108
2009-00000107
2009-00000106
2009-00000105
2009-00000104
2009-00000103
2009-00000102
2009-00000101
2009-00000100
2009-00000099
2009-00000098
2009-00000097
2009-00000096
2009-00000095
2009-00000094
2009-00000093
2009-00000092
2009-00000091
2009-00000090
2009-00000089
2009-00000088
2009-00000087
2009-00000086
2009-00000085
2009-00000084
2009-00000083
2009-00000082
2009-00000081
2009-00000080
2009-00000079
2009-00000078
2009-00000077
2009-00000076
2009-00000075
2009-00000074
2009-00000073
2009-00000072
2009-00000071
2009-00000070
2009-00000069
2009-00000068
2009-00000067
2009-00000066
2009-00000065
2009-00000064
2009-00000063
2009-00000062
2009-00000061
2009-00000060
2009-00000059
2009-00000058
2009-00000057
2009-00000056
2009-00000055
2009-00000054
2009-00000053
2009-00000052
2009-00000051
2009-00000050
2009-00000049
2009-00000048
2009-00000047
2009-00000046
2009-00000045
2009-00000044
2009-00000043
2009-00000042
2009-00000041
2009-00000040
2009-00000039
2009-00000038
2009-00000037
2009-00000036
2009-00000035
2009-00000034
2009-00000033
2009-00000032
2009-00000031
2009-00000030
2009-00000029
2009-00000028
2009-00000027
2009-00000026
2009-00000025
2009-00000024
2009-00000023
2009-00000022
2009-00000021
2009-00000020
2009-00000019
2009-00000018
2009-00000017
2009-00000016
2009-00000015
2009-00000014
2009-00000013
2009-00000012
2009-00000011
2009-00000010
2009-00000009
2009-00000008
2009-00000007
2009-00000006
2009-00000005
2009-00000004
2009-00000003
2009-00000002
2009-00000001
2009-00000000



Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
   Static NumS As Integer
   txt.Text = Format(Date, "YYYY") & "-" & Format(NumS, "0000000#") & vbCrLf & txt.Text
   NumS = NumS + 1
End Sub


Dulces Lunas!¡.

http://es.wikipedia.org/wiki/Criptografía

Un ejemplo: Sustitucion de caracteres por ejemplo K = H, H =o etc.

Es solo la base lo demas vendra de ti realmente

Dulces Lunas

Caption

lamentablemente si no analisas el problema no podras realizar nada.

Por el MP que me mandaste veo que estas mas despistado que nada, aquí tienes

Código (vb) [Seleccionar] Expandir


Private Sub Command1_Click()
    Dim Pos1 As String
    Dim Pos2 As String
    Const IniPos As Integer = 1
    Pos1 = InStr(IniPos, RichTextBox1.Text, "{", vbTextCompare)
    Pos2 = InStr(Pos1, RichTextBox1.Text, "}", vbTextCompare) - 1
    '   // Sin Reemplazar los caracteres
    RichTextBox1.SelStart = Pos1
    RichTextBox1.SelLength = Pos2 - Pos1
    RichTextBox1.SelColor = vbRed
End Sub


Dulces Lunas

[Forma Dificil]

la constantes es vbkeytab...

Forma Dificil
Aun asi no captura dicha tecla usalo con api y con un hook a el teclado o Form (como te acomodes mejor) y cuando se este seleccionado un texbox y se oprima tabulador haga el setfocus.

Nota: Practicamente casi todas las constantes de clas del teclado inician con "vbkey"

Forma Facil
Una forma aun mas sencilla es cambiando la propiedad TabIndex en tiempo de Diseño

Dulces Lunas!¡.

mm nadie opina?
Animense aunque sea opiniones menores :p

Salu2

Ranslsad

Para eso tendrias que hacer un resampled (creo que asi se le llama) para bajar el peso del audio, armar un buffer pequeño (este deberia ser el resample) y mandar dicho buffer, hay unas DLL llamadas "Lame" que hacen esto (Ojala conociera la estructura del archivo mp3 o derivados)

Para el video si es un archivo de video entonces mandar  bytes segun el rate del video es decir, si el rate del video es de 128kb's entonces mandar cada segundo 128kb's de dicho archivo o reajustar el tamaño o calidad del mismo... y armar un buffer de envio

Nota: no se si sea rate en el video pero me referia a la calidad del video. la libreria LAME esta en RecursosVisualBasic me parece y si no en PSC

Edito Link Ejemplo "Lame": http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/enviar-mail-de-voz-en-formato-mp3.htm

Dulces Lunas!¡.

vete a la mierd...

Esto es programacion en Basic6

P.D.: se escribe Crack

me podrias dar un ejemplo o hacerme esa parte del code , porq no  entiendo

Código (vb) [Seleccionar] Expandir


Dim pos1 As Long, pos2 As Long
Const datos = "Miguel {Angel Ortega} Avila"
pos1 = InStr(datos, "{") + 1
pos2 = InStr(datos, "}")
MsgBox Mid(datos, pos1, pos2 - pos1)


Dulces Lunas

Busca las posiciones de ambos limitadores, guardalos has las operaciones para calcular el tramo sin los limitadores iniciales, despues reemplaza los limitadores si asi es tu proceso y por ultimo ilumina dicho texto entre las pociones del inicio y fin del texto definido por las posiciones ya guardadas.

Puedes usar InStr(), Replace().