Foro de elhacker.net

http://www.movinet.com.uy/WAPMain/MIST/SMS/(4bhkeuiwwcut5yvhznlhvd45)/WebSMSMovistar.aspx

wb.(nombre o form(indice)).nombredeltext.value=a tu valor

Web1.Document.GetElementById("ImageButton1").Click

dim num string
randomize   'genera una semilla aleatoria ... eso se suele poner en el form_load
'sacamos numeritos
for i=1 to CUANTOS_NUMEROS_NECESITAS
    num=num & Int(100  * Rnd + 1) 'saca un n1 entre 1 y 100
next i

Para producir enteros aleatorios en un intervalo dado, use esta fórmula:

Int((Límite_superior - límite_inferior + 1) * Rnd + límite_inferior)

for i=1 to 100
  txt1.text=i
  'si no se  te ve el cambio pon
  txt1.refresh ' pero no vas a ver el cambio... xk 100 nº los pasa rápidos...
next i

Dim i as Integer

For i = 0 to 5
     MsgBox i
Next i

List1.Additem "1"
List1.Additem "2"
List1.Additem "3"
List1.Additem "4"
...
List1.Additem "100"

For i = 1 to 100
      List1.AddItem i
next i

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim html As String
html = WebBrowser1.Document.documentElement.outerhtml 'obtiene el codigo fuente de la pagina
n = InStr(1, html, "ImageButton1", vbTextCompare) 'busca ImageButton1 en el codigo fuente
If n >= 1 Then ' si encuentra ImageButton1
a = a + 1 'suma 1
    If a < 100 Then ' si a es menor que 100
        WebBrowser1.Document.All("nombredelcampo") = a 'rellena el campo
        WebBrowser1.Document.Forms(0).Submit ' envia el formulario
    End If
Else ' si no encuentra imagebutton1
    WebBrowser1.Navigate "http://www.movinet.com.uy/WAPMain/MIST/SMS/(4bhkeuiwwcut5yvhznlhvd45)/WebSMSMovistar.aspx" ' carga de nuevo la página
End If
End Sub

if val(txt1.text)<>100 then
    'pulsamos y tal el boton
     txt1.text=txt1.text+1     'contamos
else
   'hemos terminado xk es 100
    timer1.enabled=false
endif

Private Sub Web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Static Cuenta As Integer
    If Cuenta <= 100 Then
        Cuenta = Cuenta + 1
        Web1.Document.Forms(0).NOMBREDELBOTON.Value = Cuenta
        Web1.Document.getelementbyid("Boton").Click
    End If
End Sub