Proteger, no Protejer
Proteger es con g, no con j. Lo siento pero me duele la vista y no puedo evitarlo..
Proteger es con g, no con j. Lo siento pero me duele la vista y no puedo evitarlo..
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úSet Objeto = CreateObject("wscript.shell")
LeerReg = Objeto.RegRead("HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Run\loquesea")
If LeerReg = "" Then 'Si la rama está vacía quiere decir que no tiene ningún valor
'Aquí ya se supone que la rama está vacía o que no contiene ningún valor
End If
Url = "http://www.loquesea.com"
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, _
vbNullString, vbNullString, 0)
hFile = InternetOpenUrl(hOpen, Trim$(Url), vbNullString, _
ByVal 0&, INTERNET_FLAG_NO_CACHE_WRITE, ByVal 0&)
Text2.Text = Inet1.OpenURL
DoEvents
Text2.Text = Inet1.OpenURL
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
Text2.Text = Inet1.OpenURL
Espera(1)
Text2.Text = Inet1.OpenURL