Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - z3nth10n

#1391
Cita de: EleKtro H@cker en 14 Junio 2013, 19:42 PM
¿Donde leiste que IKillNukes quiera ejecutar una serie de procesos?, creo que tu le entiendes mejor que yo xDDD.

Puede ser, aunque nunca se sabe.... Yo lo unico que quiero ejecutar es esto:

java  -Xincgc -Xmx1024m -cp "%APPDATA%\.minecraft\bin\minecraft.jar;%APPDATA%\.minecraft\bin\lwjgl.jar;%APPDATA%\.minecraft\bin\lwjgl_util.jar;%APPDATA%\.minecraft\bin\jinput.jar" -Djava.library.path="%APPDATA%\.minecraft\bin\natives" net.minecraft.client.Minecraft Playa


Es un code de Batch, pero lo quiero ejecutar desde el mismo Vb.NET, Si es es eso lo que he dicho y es lo que tu entiendes por Serie de Procesos, puede que entonces Syntax me haya entendido :P




Ole! Pa que luego Google digan que es basura :P

Código (vbnet) [Seleccionar]
Imports System
Imports System.Drawing
Imports System.Windows.Forms

Public Class AddressOfEvent : Inherits System.Windows.Forms.Form

   Private WithEvents pcb As PictureBox

   Public Sub New()
       pcb = New PictureBox()
       pcb.Location = New Point(50, 50)
       pcb.BackColor = Color.FromArgb(255, 0, 0, 0)
       pcb.Height = 77
       pcb.Width = 126

       Controls.Add(pcb)
       AddHandler pcb.Click, AddressOf pcb_Click
   End Sub

   Public Shared Sub Main()
       Application.Run(New AddressOfEvent())
   End Sub

   Private Sub pcb_Click(ByVal sender As Object, _
       ByVal e As EventArgs)
       MessageBox.Show("pcb_Click method", "Events Demonstration")
   End Sub

   Private Sub pcb_ClickHandles(ByVal sender As Object, _
       ByVal e As EventArgs) _
       Handles pcb.Click
       MessageBox.Show("pcb_ClickHandles method", "Events Demonstration")
   End Sub

End Class


Ara solo me queda adaptarlo xD
Un saludo! >:D




Mientras publicabas un mensaje... blablabla

CitarTé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.

No hombre pa eso hago lo que tu dices, ya que tu eres el que sabe de esto :P
#1392
Pero que no quiero ejecutar un archivo Batch desde la app... Quiero ejecutar un comando batch desde VB.NET, le pregunté a Black Master y le di un code y me lo transformó en eso.... :-\
#1393
Vale ehm soy medio tonto xD Estoy sacandole el Name a una cosa que no tiene.

Prueba a ver:

Código (vbnet) [Seleccionar]
    Sub prueba()
        Dim value As String = File.ReadAllText(".\Test.ini")

        Dim getname As String = WebBrowser1.Document.GetElementById("cacota").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 = Find_String_Occurrences(value, "2ç0k")

        INI_Manager.Set_Value(".\Test.ini", "Contar", "2ç0k")
        INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1)
        INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2)
    End Sub


Lo curioso que sigue sin crearse el ini... :-\
#1394
#1395
Que excepción te da?
A mi no me da ninguna, si no me crees te lo muestro por Skype. :laugh:
#1396
Cita de: EleKtro H@cker en 14 Junio 2013, 18:19 PM
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.

Código (vbnet) [Seleccionar]
       Dim widaco As Integer = 126 'Tamaño del picbox
   Dim pcb_() As PictureBox

Private Sub frmModpacks_Load(sender As Object, e As EventArgs) Handles MyBase.Load

       AddHandler pcb_.Click, AddressOf frmModpacks_Load

       For pcb_num = 0 To Array_Size
           Application.DoEvents()
           pcb_(pcb_num) = New PictureBox
           pcb_(pcb_num).BackColor = Color.FromArgb(255, pcb_num * 3, pcb_num * 2, pcb_num)
           pcb_(pcb_num).Height = 77
           pcb_(pcb_num).Width = widaco
           pcb_(pcb_num).Left = 36
           pcb_(pcb_num).Top = 90 * pcb_num
           pcb_(pcb_num).Image = Image.FromFile(".\Art\im\" & pcb_num + 1 & ".png")
           pcb_(pcb_num).Click = Shell("java -Xincgc -Xmx1024m -cp "%appdata%\.likesoft\launcher\.minecraft\bin\minecraft.jar;%appdata%\.likesoft\launcher\.minecraft\bin\lwjgl.jar;%appdata%\.likesoft\launcher\.minecraft\bin\lwjgl_util.jar;%appdata%\.likesoft\launcher\.minecraft\bin\jinput.jar" -Djava.library.path="%appdata%\.likesoft\launcher\.minecraft\bin\natives" net.minecraft.client.Minecraft " & text1.text, AppWinStyle.Hide)
           Me.Controls.Add(pcb_(pcb_num))
           pcb_(pcb_num).Parent = Panel1
       Next
   End Sub


CitarfrmModpacks_Load

Hay es donde se aloja el code para ponerle el AdressOf.




Sobre lo del Shell no se como podría llamar al juego si no es por shell... Ya veré. :silbar:




Sobre lo del shell haré lo que has dicho cuando termine con lo del Click, tomemos preferencias. :P
#1397
Cita de: EleKtro H@cker en 14 Junio 2013, 18:30 PM
1. ¿Te has asegurado de estar usando la versión terminada del ini manager? (la que hay posteada en la sección de snippets)

Sipo.

Cita de: EleKtro H@cker en 14 Junio 2013, 18:30 PM
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"?

No se crea no. Y si pongo C:\test.ini tampoco. :-\

Cita de: EleKtro H@cker en 14 Junio 2013, 18:30 PM
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:

Contar=2ç0k
Nombre-1=Nombredelmodpack
Img-1=Ruta de la imagen de fondo del pcb_1
Nombre-2=Nombredelmodpack
Img-2=Ruta de la imagen de fondo del pcb_2
Nombre-3=Nombredelmodpack
Img-3=Ruta de la imagen de fondo del pcb_3


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

Te refieres a la url del WebBrowser, en ese caso es: http://ikillcraft.a0001.net/modpacks.php

Un saludo.
#1398
1. Quiero escribir las 3 :laugh:
2. Excepción te refieres a un error en la consola de errores? No hay ninguno.
3. He puesto el code y cuando pulso el evento no pasa nada. Se supone que lo estoy llamando así:

Código (vbnet) [Seleccionar]
Case "input" : prueba()

Si pongo un msgbox nada más si que va. :s

4. Output no hay... Pero debería quedar algo así:

CitarContar = 2ç0k
Nombre-1 = Nombredelmodpack
Img-1 = Ruta de la imagen de fondo del pcb_1
Contar = 2ç0k
Nombre-2 = Nombredelmodpack
Img-2 = Ruta de la imagen de fondo del pcb_2
Contar = 2ç0k
Nombre-3 = Nombredelmodpack
Img-3 = Ruta de la imagen de fondo del pcb_3
......

Un saludo! :P
#1399
Bueno, pues tengo problemas con el pcb

Código (vbnet) [Seleccionar]
RaiseEvent pcb_(pcb_num).Click = Shell("java -Xincgc -Xmx1024m -cp "%appdata%\.likesoft\launcher\.minecraft\bin\minecraft.jar;%appdata%\.likesoft\launcher\.minecraft\bin\lwjgl.jar;%appdata%\.likesoft\launcher\.minecraft\bin\lwjgl_util.jar;%appdata%\.likesoft\launcher\.minecraft\bin\jinput.jar" -Djava.library.path="%appdata%\.likesoft\launcher\.minecraft\bin\natives" net.minecraft.client.Minecraft " & text1.text, AppWinStyle.Hide)

Pero no va....

El primer problema está en el .click, y el siguiente en el shell()

a ver si resuelvo algo, pero no se si voy a poder. :-\

PD: El raisevent me lo pedía el VS2012 :P




He quitado el RaiseEvent, y he intentado añadir un Handler con

Código (vbnet) [Seleccionar]
AddHandler pic.Click, AddressOf pic_Click

Pero la función pic_Click se tendría que cambiar por Form_Load que es donde está alojada? :P




He probado eso pero:

CitarError   1   'Click' is not an event of '1-dimensional array of System.Windows.Forms.PictureBox'.   C:\Users\Alvaro\Documents\IkillLauncher\IkillLauncher\frmModpacks.vb   151   25   IkillLauncher

Jorl. xD Ara que hago? :P
#1400
Hola muy buenas, pues a ver he aquí mi code:

Código (vbnet) [Seleccionar]
   Sub prueba()
       Dim value As String = File.ReadAllText(".\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 = Find_String_Occurrences(value, "2ç0k")
       INI_Manager.Set_Value(".\Test.ini", "Contar", "2ç0k")
       INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1)
       INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2)
   End Sub


Con lo que tengo problema es:

Código (vbnet) [Seleccionar]
   Sub prueba()
       Dim value As String = File.ReadAllText(".\Test.ini")
       Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k")
       INI_Manager.Set_Value(".\Test.ini", "FuncNombre-" & cuenta, prueba1)
       INI_Manager.Set_Value(".\Test.ini", "FuncImg-" & cuenta, prueba2)
   End Sub


Estoy sacando la variable "value" para luego asignarsela a un pcb. Pero no hay manera de que se introduzca mi String en el .ini

Que puedo hacer?

Un saludo. :P
PD: Todos los codes que no están por defecto en VB.NET son snippets de Elektro. :silbar:

http://foro.elhacker.net/net/crear_picturebox_a_traves_de_una_config_ini-t391685.0.html;msg1860636#msg1860636

http://foro.elhacker.net/net/libreria_de_snippets_posteen_aqui_sus_snippets-t378770.0.html;msg1860295#msg1860295




Para descartar he hecho un code:

Código (vbnet) [Seleccionar]
   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim value As String = File.ReadAllText(".\Test.ini")
       Dim cuenta As Integer = Find_String_Occurrences(value, "2ç0k")
       MsgBox("Usté es el nigga numero: " & cuenta)
   End Sub


El caso es que parece que si va. :P




También he introducido un "2ç0k" a caso hecho dentro del ini, pero parece que si lo lee... :(




Confirmado, es problema del Ini_Manager :P