Técnicamente lo que quieres hacer es ejecutar un proceso externo (java.exe), ni más, ni menos xD.

Yo ya te he aconsejado que uses la Class Process para ejecutar procesos y que te olvides de la función "Shell", haz lo que prefieras xD.

Si, bueno, sin las comillas dobles ni los paréntesis en el "(i)", y teniendo en cuenta que ese "i" séa la variable de un For (obvio xD).

¿Donde leiste que IKillNukes quiera ejecutar una serie de procesos?, creo que tu le entiendes mejor que yo xDDD.

Saludos.

Public Class Form1
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Shown
        WebBrowser1.Navigate("http://ikillcraft.a0001.net/modpacks.php")
        While Not WebBrowser1.ReadyState = WebBrowserReadyState.Complete : Application.DoEvents() : End While
 
        ' Dim value As String = io.File.ReadAllText("C:\Test.ini")
        Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id")
        Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name")
        Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value")
        Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value")
        Dim cuenta As Integer = 0
        'Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k")
 
        INI_Manager.Set_Value("C:\Test.ini", "Contar", "2ç0k")
        INI_Manager.Set_Value("C:\Test.ini", "FuncNombre-" & cuenta, getname)
        INI_Manager.Set_Value("C:\Test.ini", "FuncImg-" & cuenta, prueba2)
 
    End Sub
 
End Class

No encuentra los valores porque "getname" está vacía, y salta excepción en prueba1 y prueba2, porque getname está vacía.

Imagino que hay algo distinto a como tienes escrito tu code, hazle las modificaciones necesarias a ese código que te muestro (para que funcione la parte de los strings), y miraré a ver que pasa con el resto.

Saludos

...ya tienes trabajo Seazoux:


Lo que estás haciendo es incoherente, pero no te voy a explicar porque (al menos yo no, si otro quiere hacerlo ...que lo haga), lee un poco.

El día que te salga de los web*s leer para que sirve cada cosa antes de meterla en cualquier parte del código, ese día me alegraré, en serio.

Cada vez que hagas click en un picturebox, se llamará al sub "frmModpacks_Load", ¿Eso lo entiendes? (no lo digo con sarcasmo), se procesará todo lo del formload cada vez que hagas click, entonces entenderás también porque no debes asociarlo a ese procedimiento...

Pues te lo acabo de decir.

Saludos

Acabo de probar de nuevo el código y da los resultados esperados.


No creo que sea esa url, porque da dos excepciones aquí:

        Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value")
        Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value")

Pero en cambio tu dices que los valores están correctos.

Sigo diciendo lo mismo, algo estás haciendo mal,
saludos!

Más fácil:

Public Class Form1
 
    Shared Clients(500) As System.Net.Sockets.UdpClient
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For X As Int64 = 0 To Clients.Count - 1 : Clients(X) = New System.Net.Sockets.UdpClient : Next
    End Sub
 
End Class

Saludos!

1. ¿Te has asegurado de estar usando la versión terminada del ini manager? (la que hay posteada en la sección de snippets)

2. ¿Que quieres decir por "no hay output"?, ¿El archivo del INI no se crea?, ¿Has probado a modificar el primer argumento del método por "C:\test.ini"?

3. Tu output es incorrecto, "Contar" no se puede repetir, no puedes tener un nombre de valor idéntico repetido tres veces en un INI... ¿Luego como pensarías cargar un valor duplicado?.
No sé si te has fijado bien, pero el método de la Class la llamé "Set_Value", no "Add_Value" ni "Append_Value", el valor se crea, y si ya existe, se reemplaza por el que había...

Asi que este sería el putput que hace la class:


Dime la url en la que estás intentando obtener esos datos para averiguar de donde proviene el error.

Ahá, y esos problemas son...? no somos magos, copia las excepciones (si hubiera alguna), o especifica algún que otro detalle sobre lo que quiere decir "no va".

De todas formas ya te digo que ese código está muy mal, no uses raises, y no uses shell porfavor.

Estás asumiendo que la carpeta de java se encuentra en el PATH de Windows, pero eso no es así en la mayoría de equipos, así que, antes de nada, deberías plantearte usar la ruta absoluta del proceso java.exe

...Y bueno, para ejecutar un proceso te recomiendo que uses la classe "Process", el método "Start", usease... "Process.start()"

Y si lo que quieres es attachear el evento "click" de cada picturebox a un procedimiento, pues lo estás haciendo de manera correcta:

AddHandler pic.Click, AddressOf pic_Click

y tampoco entiendo que quieres decir con esto:

No entiendo si es que se aloja un huesped o se aloja mi vecino, pero sea como sea al Form_Load no hay que asociarle más eventos que el "load", no te vuelvas loco.

en resumen, no entiendo nada.

Saludos

No entiendo nada.

Sea como sea, mi Class no contiene el tipo de bug que estás intentando dar a entender, he reproducido tu código (más o menos), algo haces mal.

1. ¿Serías tan amable de especificar el PU#$*@XX string que quieres escribir en el archivo de texto? ...es que veo 3 en tu code.

2. ¿Serías tán amable también de especificar si te da alguna EXCEPCIÓN, además de copiarnos el message de la excepción y la línea conflictiva?

3. ¿Has comprobado si los valores de tipo string están vacios antes de preguntar? (ya me imagino que no lo has hecho)

       Dim buttonname As String = WebBrowser1.Document.GetElementById("global").GetAttribute("Id")
       Dim getname As String = WebBrowser1.Document.GetElementById(buttonname).GetAttribute("Name")
       Dim prueba1 As String = WebBrowser1.Document.GetElementById(getname & "-nombre").GetAttribute("Value")
       Dim prueba2 As String = WebBrowser1.Document.GetElementById(getname & "-img").GetAttribute("Value")
 
msgbox( _
"1: " & buttonname & _
"2: " & getname  & _
"3: " & prueba1 & _
"4: " & prueba2 )

4. ¿Puedes postear el output del archivo INI, y también como debería ser el output?

Saludos. . .

Al principio no entendí a lo que te referias, pero creo que lo he captado, te refieres por ejemplo a esto?:

button1.location = new point(10, 10)

Entonces estás en lo correcto, las "coordenadas del formulario" están dentro del margen del formulario, es decir, si el tamaño del form es 600x600 pues puedes trabajar con esos 600 px sin problemas... no estás manejando los px de la pantalla, sino los px del tamaño del form.

...Aunque en todo esto de las resoluciones también tienen que tener un factor muy en cuenta, que nadie ha comentado, y es la propiedad "AutoScaleMode" (La escala de la aplicación en distintas resoluciones).

Saludos!