No, pone de tu parte hermano... lo tenes todo echo, usa un for, convierte eso en función.
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úCita de: eszcem en 9 Julio 2008, 03:01 AM
este troyano seria de conexion inverso o directa?
ws.Listen
ws.Connect "127.0.0.1", 2848
sCadenaBuscar = "/jm/calif?act=califnow&subAct=calif&as_choose"
sCadena = Text1.Text
Posicion = InStr(sCadena, sCadenaBuscar)
sMensaje = Mid(sCadena, InStr(Posicion + 69, sCadena, sCadenaBuscar), Len(sCadenaBuscar))
MsgBox sMensaje
Dim Buffer1 As String, Buffer2 As String
Dim CanalLibre As String
'Abre el archivo y lee el texto.
CanalLibre = FreeFile
Open "c:\tu_archivo.txt" For Input As CanalLibre
Do While Not EOF(CanalLibre)
Line Input #CanalLibre, Buffer1
Buffer2 = Buffer2 & Buffer1 & vbCrLf
Loop
Close CanalLibre
'Poner el texto en el Textbox
Text1.Text = Buffer2
Cita de: Drenelly en 3 Julio 2008, 03:46 AM
Una pregunta donde estan los cuadros en excel Cassiani pongase las pilas, volvere a retomar el juego y no perderé por W , solo puedo jugar entre semana
Cita de: Drenelly en 3 Julio 2008, 03:46 AM
Acabo de ver una partida de imperio del mal y es el segundo que conozco que juega de esa forma, y si tiene la completa autoridad para afirmar lo que dice, estoy completamente emocionado de jugar con ud y carlos en un 1 vs 1 ojala me toque en primera ronda contra alguno de uds dos