Mensajes

Ok complikemolas mejor!!! jejeje mientras mas complicado mejor:

lo que are sera conectarlo a internet y verificar con otro timer, lo que haremos es ver si estas conectado a internet, de se haci lo que hacemos es salir de los timers!!!

Código [Seleccionar] Expandir


Private Declare Function InternetAttemptConnect Lib "wininet" (ByVal dwReserved As Long) As Long


Private Sub Timer1_Timer()
On Error GoTo ERROR:
SendKeys "{enter}"
Error:
End Sub

Private Sub Timer2_Timer() 'Cada un segundo!!!!
If InternetAttemptConnect(ByVal 0&) = 0 Then
  'Se Conecto a internet
  Timer1.Enabled=False
  Timer2.Enabled=False
  End ' por si keremos salir!!!!!
End If
End Sub


es cuestion de ingeniarcelas!!! y usar google o:http://allapi.net/apilist/InternetAttemptConnect.shtml

si te entiendo, pero te falto al app.activate... que koloke en el otro code mio....

para parlo tendras que hacer esto:
Despues de esto...(agregale el app.activate)

Código [Seleccionar] Expandir

SendKeys "{enter}"
End

Timer1.Enabled=False

Eso lo que hace es desabilitar el timer, si lo keres avilitar:
Timer1.Enabled=True

Saludos!

todo muy bien pero el que pregunto no keria eso el keria ver el codigo fuente y solo sakar una parte del texto (osea una parte del codigo fuente), pero lo que haces vos es ver si existe o no la url!!!!!

mi codigo es el que le serivra para el proposito!

Weno estaba respondiendo y se cayo la web...
jejeje

lo que keres hacer es como algun gestor de descarga, pero como usas el machine del IE, te aparece el encargado de descargar archivos, para esto podes ver este programa (esta el code fuente):
http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=54010&lngWId=1

te recomiendo esa web, podes encontrar un navegador, muy weno!!!

http://www.planet-source-code.com/vb/scripts/BrowseCategoryOrSearchResults.asp?optSort=Alphabetical&txtCriteria=navigator&blnWorldDropDownUsed=TRUE&txtMaxNumberOfEntriesPerPage=10&blnResetAllVariables=TRUE&lngWId=1

con respecto al link es. que si el usuario tiene esto:
<a href="http://www.google.com.ar" target="_blank">Google</a>

lo que haga es que te abra el programa tuyo y no el IE, para esto tendras que hacer esto.
1- Poner como navegadr principal tu programa
2- en el evento load, o smain (en caso de que se carge de un modulo), poner

Código [Seleccionar] Expandir


Archivo = Command()
If Archivo<>"" Then
  AbrirUrl(Archivo)
  'Donde AbrirUrl es tu funcion o objeto para abrir una url
EndIf


No vas a poder ejecutar ninguna aplicacion windows en DOS puro, lo que si podes ejecutar es un programa de DOS, usando QBasic, o en algun .Bat, etc...

eso es lo que te recomiendo...

Yo entiendo lo que keres hacer, yo realize un crakeador de webs (de files, osea que busca si existe el index.php, index.asp, etc),  y para eso lo que ice fue leer el codigo fuente de la web, y verificar si existia la palabra error, 404 etc...

Yo para esto use este programa, que me muestra codigos fuentes de las api de windows:
http://www.allapi.net/agnet/appdown.shtml

y use este codigo:

Código [Seleccionar] Expandir

Const scUserAgent = "API-Guide test program"
Const INTERNET_OPEN_TYPE_DIRECT = 1
Const INTERNET_OPEN_TYPE_PROXY = 3
Const INTERNET_FLAG_RELOAD = &H80000000
Const sURL = "http://www.microsoft.com/index.htm"
Private Declare Function InternetOpen Lib "wininet" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet" (ByVal hInet As Long) As Integer
Private Declare Function InternetReadFile Lib "wininet" (ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, lNumberOfBytesRead As Long) As Integer
Private Declare Function InternetOpenUrl Lib "wininet" Alias "InternetOpenUrlA" (ByVal hInternetSession As Long, ByVal lpszUrl As String, ByVal lpszHeaders As String, ByVal dwHeadersLength As Long, ByVal dwFlags As Long, ByVal dwContext As Long) As Long
Private Sub Form_Load()
    'KPD-Team 1999
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net

    Dim hOpen As Long, hFile As Long, sBuffer As String, Ret As Long
    'Create a buffer for the file we're going to download
    sBuffer = Space(1000)
    'Create an internet connection
    hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
    'Open the url
    hFile = InternetOpenUrl(hOpen, sURL, vbNullString, ByVal 0&, INTERNET_FLAG_RELOAD, ByVal 0&)
    'Read the first 1000 bytes of the file
    InternetReadFile hFile, sBuffer, 1000, Ret
    'clean up
    InternetCloseHandle hFile
    InternetCloseHandle hOpen
    'Show our file
    MsgBox sBuffer
End Sub

este te dara un ejemplo de como es leer un file en internet en este caso lee los primeros 1000 bytes de la web, www.microsoft.com/index.htm.

ahora para buscar lo que vos keres seria:

Reemplasas
MsgBox sBuffer
Por

Código [Seleccionar] Expandir


If Instr(sBuffer,"Santiago de Chile")>0 Then
   Texto = ""
   For I=Instr(sBuffer,"Santiago") To Len(sBuffer)
     Cadenita = Mid(sBuffer,I,1)
     If Cadenita<>"." Then
      Texto = Texto + Cadenita
     Else
      Exit For
     EndIf
   Next
End If
'Esto lo que hace es comenzar a extraer la cadena desde donde encontro santiago, hasta que encuentre un punto.....

Saludos!!!


te colokare este codigo a modo de ayuda...(no tengo el VB donde estoy asike es intuitivo el codigo) (si me olvidava de alguna funcion use GOOGLE!!!):

Código [Seleccionar] Expandir


Sub Instalar()
On Error Goto Error
'Esta funcion instala archivos a una determinada localizacion.
'Preguntamos a donde keremos enviar los archivos:
DirDestino=""
PedirDir:
DirDestino = InputBox("Destino de los archivos.","",DirDestino)

'Si el usuario no koloko nada le preguntamos si salimos de la instalacion
If DirDestino="" Then
  Resp = MsgBox("Esta seguro de salir de la instalacion", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
  If Resp=6 Then
   End
  Else
   Goto PedirDir
  End If
End If

'Vemos si existe el directorio, sino lo kreamos
If Dir(DirDestino,vbDirectory)="" Then
  Resp = MsgBox("El Directorio De Destino No Existe, Decea Crearlo", vbQuestion + vbYesNo + vbDefaultButton2, "Atencion!")
  If Resp=6 Then
   MkDir DirDestino
  Else
   Goto PedirDir
  EndIf
EndIf

'Comenzamos a instalar los archivos
Dim Archivo(0 To 5) 'Depende de la cantidad de archivos
Archivo(0)="file1.txt"
Archivo(1)="file2.txt"
Archivo(2)="file3.txt"
Archivo(3)="file4.txt"
Archivo(4)="file5.txt"
Archivo(5)="file6.txt"


For I = 0 To Ubound(Archivos)
  FileCopy Archivo(I), DirDestino & "\" & Archivo(I)
Next

'Creamos Acceso Directo
Dim AccesoDirectos(0 To 1) 'Depende de la cantidad de accesos directos que keremos krear
AccesosDirectos(0) = "file1.txt"
AccesosDirectos(1) = "file5.txt"

For I=0 To Ubound(AccesosDirectos)
  CrearAcceso(AccesosDirectos(I), DirDestino)
Next

'Avisamos
Msgbox "Instalacion Realizada Con Exito"

Exit Sub

Error:

End Sub


Sub CrearAcceso(Link,Directorio)
Private m_wsShell As Variant
Dim sLnkPath As String
Dim sLink As String
Dim sAppPath As String
Dim vLnk As Variant

Set m_wsShell = CreateObject("WScript.Shell")
sAppPath = Directorio
sLink = Link + ".lnk"

sLnkPath = m_wsShell.SpecialFolders("Desktop") 'En el escritorio
'Otros path
  ' AllUsersDesktop
  ' AllUsersStartMenu
  ' AllUsersPrograms
  ' AllUsersStartup
  ' Desktop
  ' Programs
  ' StartMenu
  ' Startup
  ' MyDocuments
'
sLnkPath = sLnkPath & "\" & sLink

' Crear el acceso directo
Set vLnk = m_wsShell.CreateShortcut(sLnkPath)
vLnk.Targetpath = sAppPath

vLnk.WorkingDirectory = Directorio

vLnk.Save 'Creamos el acceso directo!

Set m_wsShell = Nothing
End Sub


Espero que te sea de ayuda!!!

Si no funciona algo es poke no lo prove, pero te da una idea de como es!!!

No es renegar es aprender a usar google!!!!!!!, y cuando decis: "Pero tengo el VB 6.0", funciona en cualkier VB de 32 bits, jejejejeje

saludos... a mi tambien se me cruso por la cabeza lo del explorer (la shell), pero pense que si usa firefox u algun otro navegador se lo abre con el explorer y no con el navegador por defecto del usuario!!!!

por eso... Saludos!!!

Yo te entieno lo que keres hacer:
si ya seleccione un pis que me muestre su capital, pero si al text box le agrego ";", que lo que haga, es agregar al texto box otra capital.
EJ:
Presione en Argentina (el text box dice ahora: BS AS), y al text box le coloko ";", y ahora resiono en Brasil, ahora el text box dira: BS AS; Bracilia.

Eso es lo que keres hacer.....

weno manos a la obras (lo estoy haciendo sin el VB, asike si hay un error me avisas que te dice):

Código [Seleccionar] Expandir


'Fuera de los eventos:
Dim Capitales(0 TO 5)
Private Sub Form_Load()
'Agregas las opciones
List1.AddItem "Argentina"
List1.AddItem "Brasil"
List1.AddItem "Peru"
List1.AddItem "Ecuador"
List1.AddItem "Mexico"
Capitales = ("Buenos Aires","Brasilia","Nidea 1","Nidea 2","Nidea 3")
End Sub

Private Sub List1_Click()
'Agregas lo que se haya seleccionado al texbox
IF RIGHT(LIST1.TEXT,1)=";" THEN
      Text1.Text = Text1.Text & Capitales(List1.ListIndex)
ELSE
      Text1.Text = Capitales(List1.ListIndex)
ENDIF
End Sub


Espero que sea de tu ayuda, el indixce del array deve coincidir con el indice del listado.
Fijate bien si esto funciona:
Capitales = ("",""....etc)
porke en una de esas me confundi con php
sino tendras que poner:
Capitales(0)="Buenos Aires"
Capitales(1)="Brasilia"
etc...

Saludos!