Mensajes

Convierte código Hexadecimal a número Win32Hex

Código (vbnet) [Seleccionar] Expandir


#Region " Hex To Win32Hex "

   ' [ Hex To Win32Hex Function ]
   '
   ' // By Elektro H@cker
   '
   ' Examples:
   ' MsgBox(Hex_To_Win32Hex("FF4"))   ' Result: &HFF4
   ' MsgBox(Hex_To_Win32Hex("0xFF4")) ' Result: &HFF4
   ' Dim Number As Int32 = Hex_To_Win32Hex("0xFF4") ' Result: 4084

   Private Function Hex_To_Win32Hex(ByVal Hex As String) As String
       If Hex.ToLower.StartsWith("0x") Then Hex = Hex.Substring(2, Hex.Length - 2)
       Return "&H" & Hex
   End Function

#End Region

@DUF
Porfavor, usa el botón "Insertar código", lo puedes ver en mi firma.





La operación de asignación de permisos es correcta.

Prueba de esta manera:

Código (dos) [Seleccionar] Expandir

@Echo OFF

Set "Directory=%WINDIR%\system32"

:COPY
IF NOT EXIST "%Directory%\blat.exe" (
       Call :TAKEACCESS
COPY /Y "\\10.0.51.42\blat310\full\blat.exe" "%Directory%\blat.exe" 1>NUL
)

:INICIA
Echo [+] FIN.
Pause&Exit

:TAKEACCESS
takeown /F "%Directory%" 1>NUL
Icacls "%Directory%" /Grant "%USERNAME%":F 1>NUL
Attrib -R "%Directory%" 1>NUL
GOTO:EOF


Saludos

[Burla sangrienta]

@Seazoux
El término Ironía se queda un poco corto.

sarcasmo.

(Del lat. sarcasmus, y este del gr. σαρκασμός).

1. m. Burla sangrienta, ironía mordaz y cruel con que se ofende o maltrata a alguien o algo.

Es broma, un poco de offtopic no viene mal, pues ya ni hay source ni hay programa aquí.
PD: Ni un scan en Anubis xD.

@El Benjo
Estoy seguro que los mods aceptarán tus disculpas, yo espero poder ver el source!

Saludos!

No la intento retrasar, lo que intento es retrasar la apertura del Form2 para que se vea la imagen 2 del cuadro. XD

Ahora si, primero lo que decías que querías retrasar era una imágen y ahora es el form xD, eso sí, no estaba loco yo, ya está aclarado.

salu2!

[Thread.sleep]

A veces si tengo complicaciones para entenderte a tí, pero no me extraña!

A ver si ahora lo he captado:

Ese "timer1.start" lo tienes SÓLAMENTE PARA INTENTAR RETRASAR la ejecución de la instrucción de arriba (picturebox1.image = blablabla),
es decir que con ese timer no quieres hacer nada, solo quieres que exista para poder escribir "timer1.start" para hacer una especie de "sleep"?

Eso es más increible que lo de no entendernos,
usa Thread.sleep.

Saludos!

Ya se que la imagen no la muestra el Timer, lo que quiero hacer es que se vea... Porque si la muestro sin ponerle un retraso de 50ms mínimo no se ve nada así que...  

No, primero dices que el timer muestra una imágen (no me jodas, eso lo has dicho, no estoy loco), luego dices que sabes que el Timer no muestra la imágen pero que lo que quieres hacer es que el Timer muestre la imágen?, me parece un poco lío.

¿Que quieres hacer y cual es el problema?, tengo el form aquí, aprovecha siendo claro.

[incrédulos]

PD: A lo mejor dentro de unos años volveré a ver mis topics (cuando sepa algo más de VB.NET) y diré pues vaya gilipollez hice aquellos días Elektro llevaba razón...
Pero en fin... déjame con mi realidad...

¡¿Será posible?!

Lo más increible es que aún sigas poniéndolo en duda y creas que llevas razón.

vale, yo lo dejo, me rindo ya, llevas razón y ese timer muestra una imágen xD, ahoraaa... en el futuro no nos vengas con problemas de que un Timer no te muestra cierta imágen, porque verás...!! xD   es broma, más o menos, me rio por no llorar. incrédulos...

un saludo, ya no hago más spam.

Pues si no te has fijado arriba hay esto:

Me he fijado perféctamente, no entiendes lo que estás haciendo.

¿Me puedes explicar que es lo que crees que consigues en ese último código que acabas de mostrar? (te lo pregunto por ayudar)

Te lo vuelvo a decir macho, esto es lo que hace tu Timer:

Código (vbnet) [Seleccionar] Expandir

  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       frmMinecraft.Show()
       Me.Hide()
   End Sub

El Timer hace lo que asocias al evento Tick, absolútamente NADA más.

"timer1.start" eso sólamente inicia el timer, que lo pongas debajo de una línea que mustra una imágen eso no significa que el timer vaya a mostrar la imagen.

Repásate las cosas un poco '¬¬

Saludos!

Ehm  a ver ese Timer lo tengo para que se vea una imagen con relieive invertido...

Si hombre, si encima voy a quedar mal no? xD

Código (vbnet) [Seleccionar] Expandir


   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       frmMinecraft.Show()
       Me.Hide()
   End Sub

De imágenes nada, el código no miente, eso es lo que hace el único Timer de tu proyecto.

Saludos!

[FormClosing]

Código (vbnet) [Seleccionar] Expandir

 Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
        Application.Exit()
   End Sub

Eso está mal, debes usar el evento FormClosing, cuando el form se ha cerrado del todo ya no ocurre náh.

Aunque meter un "application.exit" en un "formclosing" tampoco sirve para nada, es decir, no estarías agregando ninguna inastrucción nueva al sub, en lugar de eso y si prefieres usa "End" (pero lee para que sirve).





El error, como yo supuse (código conflictivo), lo tienes aquí:

Código (vbnet) [Seleccionar] Expandir

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       PictureBox1.Image = Image.FromFile(".\Art\rojo1.png")
       Timer1.Start()
   End Sub

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       frmMinecraft.Show()
       Me.Hide()
   End Sub

Al pulsar el botón rojo inicias un timer que a los 50 ms oculta el form principal, cuando le das al botón "patrás" para mostrar de nuevo el form principal, ese timer sigue en marcha.

¿Como solucionarlo?, no te lo iba a decir, pero es que no sé pa que coño tienes un timer para mostrar un Form XDDD.

Código (vbnet) [Seleccionar] Expandir

   Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
       PictureBox1.Image = Image.FromFile(".\Art\rojo1.png")
       frmMinecraft.Show()
   End Sub

   ' Esto lo eliminas,
   ' Y el timer del Designer lo eliminas si solo le das este uso.
   '
   'Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
   'frmMinecraft.Show()
   'Me.Hide()
   ' End Sub

Código (vbnet) [Seleccionar] Expandir

   Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
       frmMain.Show()
       Me.Dispose()
   End Sub

PD: Si ese mismo problema estuviese en un form secundario, al liberarlo con un .Dispose se arreglaría, sigue usando .Dispose como te dije (y solo en forms secundarios) para evitar futuros problemas, eso no lo cambies.

PD2: Lo que no tenias nombrado eran los subs (algunos), tienes razón, no lo miré bien xD.

Saludos!