Mensajes

No me funciona el link... 

El link esta correcto  , saludos



La imagen es en respuesta al mensaje que sigue... es para no publicar una y otra vez el que el link esta ok 

Estaba jugando con la carpeta  , por lo visto no se utilizaba porque ya no esta, así como tampoco esta su contenido, eso, o se renombraron 

Lo de "Topic solved". deberia de ser para los siguientes usuarios:
El usuario Creador del tema.
Los Moderadores.

Idem... Se había propuesto que los usuarios pusieran [SOLUCIONADO] en el asunto, pero muchos no lo hacen, de este modo muchos más lo harían 

Saludos

No puedes impedir que se ingresen letras, pero si puedes verificar luego que lo ingresado no lo sea 

Código (vb) [Seleccionar] Expandir

valor = inputbox("Ingrese un valor","Completar","")
msgbox isnumeric(valor)
Saludos 

P.D: con el code anterior también puedes filtrar esto ---> Case else

[msgbox]

Buenas...
Bueno, el inputbox no devuelve valores como lo hace el msgbox , funciona un tanto distinto.

• Si se ingresa texto y se presiona Aceptar, devuelve el texto ingresado
• Si se ingresa o no cualquier cosa, y se preciona Cancelar, entonces devuelve una cadena vacía ---> ""
• Si el valor que se ingresa es nulo, es decir, no se escribe nada, y se presiona Aceptar, también devuelve lo mismo que el anterior

Si tienes el inputbox en un bucle, entonces deberías de verificar que lo que se ingresa sea distinto de "", si es igual, se termina (ten en cuenta que con el Aceptar vació también ocurrirá), y de lo contrario, sigue 
Un ejemplo 

Código (vb) [Seleccionar] Expandir

Do
opcion = inputbox("Seleccione alguna opcion" & chr(13) & chr(13) & "1 - Masculino" & _
chr(13) & "2 - Femenino" & chr(13) & "3 - Ninguna XD","Opciones","")
Select case opcion
Case "1"
msgbox "Eres hombre"
Exit do
Case "2"
msgbox "Eres mujer"
Exit do
Case "3"
msgbox "Eres.....mmm"
Case ""
msgbox "Ha cancelado o bien, ha ingresado un valor nulo"
Exit do
Case else
msgbox "La opcion seleccionada no es válida"
End Select
Loop

Saludos 

[IE.document.body.innerhtml]

IE.document.body.innerhtml e instr, del resto te encargas tú

Saludos 

P.D: esta también es una de las soluciones a la clásica pregunta de... "como obtengo el código fuente de una web" XD

Busca la variable en el código fuente de la web y realizas una espera igual o un tanto mayor de lo que contiene dicha variable, así es como lo he hecho en algún momento 

Saludos

P.D₁: Te recomiendo leer un poco más, sobre todo sobre el webbrowser y las maneras de crear "bots" de navegación, ya que por las preguntas que realizas... quieres que te programemos nosotros el downloader? XD

P.D₂: No estaría mal algo de html y javascript, ya que en la parte de código que muestras es donde se va mostrando la variable, pero la misma se define más abajo en el código fuente de la web, siendo más sencillo recuperarla

P.D₃: Google no muerde, Google es tu amigo XD

Con eso no consigo el link que necesito... no se por que.

Porque tienes que esparar que a termine el contador de rapidshare para poder obtener las propiedades del form 

Saves como especificar el nombre del form?. en ves de forms(0)

En lugar de utilizar el número de índice pones el nombre del formulario.

Código (vb) [Seleccionar] Expandir

msgbox IE.document.forms("dlf").action

Saludos

Cuando navegas la página simplemente debes de hacer referencia al formulario del cual quieres obtener el action.

Código (vb) [Seleccionar] Expandir

msgbox IE.document.forms(0).action
'mostramos un mensaje con el "action" del formulario "0"

Saludos 

lo q quiere hacer es reemplazar el 1000 x la letra A.. es muy facil, se hace con la funcion Remplace

Código [Seleccionar] Expandir

Text1.Text = Replace(Text1.Text, "1000", "A")

Es otra manera, pero igualmente deberá de generar un listado de letras/números, y bien se reemplaza en la cadena completa, o bien se lee número a número y se genera el resultado