Mensajes

Código (vb) [Seleccionar] Expandir

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Código (vb) [Seleccionar] Expandir


Private Sub Form_Load ()
   Me.Show
   Call Sleep (5000)
   'Call Function
End Sub

DoEvents¡!

[+1]

Sin duda, expresiones regulares...

+1

puedes usar tambien Instr y Replace...

-1

http://foro.rthacker.net/programacion-visual-basic/(src)-(funcion)-text_between_words-(by-*psyke1*)/

o expresiones regulares, pero te va a costar

+0.5

DoEvents¡!

[DoEvents¡!]

OKk raulete!!
En unos dias, lo probare

DoEvents¡!

[DoEvents¡!]

Hasta unos dias no puedo probarlo...
Voy a mirar eso que dices xkiz.
El problema es que aplico transparencia a un form que esta detras, pero cada vez que lo hago se me pone delante...
A ver si alguien me guia un poco mas...

Gracias

DoEvents¡!

Suponiendo que tengo 7 Forms, como hago que el septimo se situe debajo de los demas? (sin llamar a los 6 uno a uno y traerlos delante... )
Algo con SetWindowPos() ??

Gracias

[DoEvents¡!]

Ya lo creo...
http://www.deviantart.com/#/d2y4io0


Gracias

DoEvents¡!

[DoEvents¡!]

las estructuras internas de cada juego son diferentes y la unica opcion que tienes es hacer ing inversa a los datos que contiene. tus coordenadas son unicas, solo tienes que buscar, moverte, buscar etc.

Ok gracias, investigare

DoEvents¡!

[DoEvents¡!]

Para comprobar si una web existe hago esto:

Código (vb) [Seleccionar] Expandir


Option Explicit

Function Check_Web_Exists(ByVal sURL As String) As Boolean
Dim oXHTTP                  As Object
Set oXHTTP = CreateObject("MSXML2.XMLHTTP")
  If Not UCase$(sURL) Like "HTTP:*" Then sURL = "http://" & sURL
  On Error GoTo Error_
  With oXHTTP
      .Open "HEAD", sURL, False
      .Send
      If .Status = 200 Then Check_Web_Exists = True
  End With
  Set oXHTTP = Nothing
  Exit Function
Error_:
End Function

Ejemplo:

Código (vb) [Seleccionar] Expandir

Private Sub Form_Load()
   MsgBox Check_Web_Exists("www.google.es")
   MsgBox Check_Web_Exists("www.eljuaker.net")
End Sub

Devuelve:

Verdadero
Falso

Alguien lo sabe hacer más rapido?¿

DoEvents¡!

[DoEvents¡!]

Fue cierto, e incluso conozco en persona a uno de los autores...

DoEvents¡!

[DoEvents¡!]

O asi:

Código (vb) [Seleccionar] Expandir


Option Explicit

Private Sub Wait(ByVal lSeconds As Long)
Dim ActualTime              As Date
Dim FutureTime              As Date
   ActualTime = Second(Now)
   FutureTime = ActualTime + lSeconds
   Do
       DoEvents
   Loop While FutureTime > Second(Now)
End Sub

Y para esperar minutos:

Código (vb) [Seleccionar] Expandir


Option Explicit

Public Sub Wait_Minutes(ByVal lMinutes As Long)
Dim Sgl_Start          As Single
Dim Sgl_End            As Single
   lMinutes = lMinutes * 60
   Sgl_Start = Timer
   Sgl_End = Sgl_Start + lMinutes
   Do While Sgl_End > Timer
       DoEvents
       If Sgl_Start > Timer Then Sgl_End = Sgl_End - 24 * 60 * 60
   Loop
End Sub

DoEvents¡!