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.
Sub Espera(Segundos As Single)
Dim ComienzoSeg As Single
Dim FinSeg As Single
ComienzoSeg = Timer
FinSeg = ComienzoSeg + Segundos
Do While FinSeg > Timer
DoEvents
If ComienzoSeg > Timer Then
FinSeg = FinSeg - 24 * 60 * 60
End If
Loop
End Sub
Private Sub Command1_Click()
Dim src As String
src = LeeURL("***************************")
RichTextBox1.Text = src
Dim a() As String
a() = Split(src, vbCr)
Dim li As String
li = a(5)
RichTextBox2 = li
End Sub
Private Sub Command1_Click()
Dim src As String
src = LeeURL("***************************")
RichTextBox1.Text = src
Dim a() As String
a() = Split(src, vblf)
Dim li As String
li = a(5)
RichTextBox2 = li
End Sub
RichTextBox1 = LeeURL("*********")
'aca se carga con mil lineas
Dim a() As String
a() = Split(RichTextBox1)
RichTextBox2 = a(1)<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
Dim src As String
src = LeeURL("*******************")
'carga mil lineas
RichTextBox1 = src
Dim a() As String
a() = Split(src, vbNewLine)
Dim li As String
li = a(5)
RichTextBox2 = li
<!-- Mas trucos y scripts en http://www.javascript.com.mx -->
<script language="javascript">var dir = "javascript.COM.MX - NO OLVIDES PONER ESTA PAGINA EN TUS FAVORITOS. SIEMPRE TE PUEDE RESULTAR UTIL" +" "; function scrdir() { dir = dir.substring(1, dir.length) + dir.substring(0, 1); document.location = "# "+dir; setTimeout("scrdir()", 300); }; scrdir() </script>