El error salta en timepo de ejecución:
Error 91 en tiempo de ejecución:
Variable de tipo Object o la variable de tipo With no esta establecida.
La linea que señala el depurador es esta:
var_value.Value = Val(Text3.Text)
Código
Option Explicit 'FIXIT: Declare 'doc' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim doc As Object 'FIXIT: Declare 'var_input' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim var_input As Object 'FIXIT: Declare 'var_value' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim var_value As Object 'FIXIT: Declare 'var_but' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim var_but As Object 'FIXIT: Declare 'hangar' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim hangar As Object Dim naves As String Private Sub Command1_Click() Set doc = WebBrowser1.Document Set var_input = doc.getelementbyid("username") var_input.Value = Text1.Text Set var_input = doc.getelementbyid("password") var_input.Value = Text2.Text Set var_but = doc.getelementbyid("submit") var_but.Click End Sub Private Sub Command2_Click() Dim bucle As Long Dim cantidad As String For bucle = 1 To Val(Text4.Text) WebBrowser1.Navigate "http://uni3.zagamex.com.ar/game.php?page=buildings&mode=fleet" Set hangar = WebBrowser1.Document Set var_value = hangar.getelementbyid(Label20.Caption) var_value.Value = Val(Text3.Text) Set var_but = hangar.getelementbytagname("INPUT") 'FIXIT: Declare 'result' con un tipo de datos de enlace en tiempo de compilación FixIT90210ae-R1672-R1B8ZE Dim result For Each result In hangar.getelementbytagname("INPUT") If result.Value = "Construir" Then var_but.Click Next Next End Sub Private Sub Form_Load() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" WebBrowser1.Navigate "http://uni3.zagamex.com.ar" End Sub Private Sub Option1_Click() If Option1.Value = True Then Label20.Caption = "fmenge[202]" End Sub Private Sub Option2_Click() If Option2.Value = True Then Label20.Caption = "fmenge[203]" End Sub Private Sub Option3_Click() If Option3.Value = True Then Label20.Caption = "fmenge[204]" End Sub Private Sub Option4_Click() If Option4.Value = True Then Label20.Caption = "fmenge[205]" End Sub Private Sub Option5_Click() If Option5.Value = True Then Label20.Caption = "fmenge[206]" End Sub Private Sub Option6_Click() If Option6.Value = True Then Label20.Caption = "fmenge[207]" End Sub Private Sub Option7_Click() If Option7.Value = True Then Label20.Caption = "fmenge[208]" End Sub Private Sub Option8_Click() If Option8.Value = True Then Label20.Caption = "fmenge[209]" End Sub Private Sub Option9_Click() If Option9.Value = True Then Label20.Caption = "fmenge[210]" End Sub Private Sub Option10_Click() If Option10.Value = True Then Label20.Caption = "fmenge[211]" End Sub Private Sub Option11_Click() If Option11.Value = True Then Label20.Caption = "fmenge[212]" End Sub Private Sub Option12_Click() If Option12.Value = True Then Label20.Caption = "fmenge[213]" End Sub Private Sub Option13_Click() If Option13.Value = True Then Label20.Caption = "fmenge[214]" End Sub Private Sub Option14_Click() If Option14.Value = True Then Label20.Caption = "fmenge[215]" End Sub Private Sub Option15_Click() If Option15.Value = True Then Label20.Caption = "fmenge[216]" End Sub
HE leido sobre el error pero no termino de entender el motivo, si me lo pudieran explicar muy simple como para tontos lo agradeceria.
Gracias de antemano y Salu2