elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [Resuelto] Chinese - Japanese
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [Resuelto] Chinese - Japanese  (Leído 1,823 veces)
Miseryk

Desconectado Desconectado

Mensajes: 217


SI.NU.SA U.GU.DE (2NE1 - D-Unit)


Ver Perfil
[Resuelto] Chinese - Japanese
« en: 26 Diciembre 2010, 12:08 »

Hola a to2, una vez, como me suele pasar, encontré un código que me mostraba un mensaje (MsgBox) con Kanjis (simbolos chinos / japoneses) no me acuerdo donde está, vale oro, alguno de ustedes sabe como hacer éso? Desde ya muchas gracias.


« Última modificación: 30 Diciembre 2010, 20:03 por Miseryk » En línea

Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It’s never too late to change our luck
So, don’t let them steal your light
Don’t let them break your stride
There is light on the other side
And you’ll see all the raindrops falling behind
Make it out tonight
it’s a revolution

CL!!!
Miseryk

Desconectado Desconectado

Mensajes: 217


SI.NU.SA U.GU.DE (2NE1 - D-Unit)


Ver Perfil
Re: [Resuelto] Chinese
« Respuesta #1 en: 26 Diciembre 2010, 12:21 »

Weno encontré el código, es super largo, hace controles propios, acá pongo algo muy útil.

Código
  1. Option Explicit
  2.  
  3. Private Declare Function GetModuleHandleW Lib "kernel32" (ByVal lpModuleName As Long) As Long
  4. Private Declare Function GetProcAddress Lib "kernel32" (ByVal hModule As Long, ByVal lpProcName As String) As Long
  5. Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
  6. Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  7. Private Declare Function SetWindowLongW Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
  8. Private Declare Function SetWindowTextW Lib "user32" (ByVal hWnd As Long, ByVal lpString As Long) As Long
  9.  
  10. Private Const GWL_WNDPROC = -4
  11.  
  12. Private m_Caption As String
  13.  
  14. Public Property Get CaptionW() As String
  15.    CaptionW = m_Caption
  16. End Property
  17.  
  18. Public Property Let CaptionW(ByRef NewValue As String)
  19.    Static WndProc As Long, VBWndProc As Long
  20.    m_Caption = NewValue
  21.    ' get window procedures if we don't have them
  22.    If WndProc = 0 Then
  23.        ' the default Unicode window procedure
  24.        WndProc = GetProcAddress(GetModuleHandleW(StrPtr("user32")), "DefWindowProcW")
  25.        ' window procedure of this form
  26.        VBWndProc = GetWindowLongA(hWnd, GWL_WNDPROC)
  27.    End If
  28.    ' ensure we got them
  29.    If WndProc <> 0 Then
  30.        ' replace form's window procedure with the default Unicode one
  31.        SetWindowLongW hWnd, GWL_WNDPROC, WndProc
  32.        ' change form's caption
  33.        SetWindowTextW hWnd, StrPtr(m_Caption)
  34.        ' restore the original window procedure
  35.        SetWindowLongA hWnd, GWL_WNDPROC, VBWndProc
  36.    Else
  37.        ' no Unicode for us
  38.        Caption = m_Caption
  39.    End If
  40. End Property
  41.  
  42. Private Sub Form_Load()
  43. Me.CaptionW = "UniControls sample: " & ChrW$(&H3042) & ChrW$(&H3044) & ChrW$(&H3046) & ChrW$(&H3048) & ChrW$(&H304A)
  44. End Sub
  45.  

El archivo se llama UniControl2117366192008.rar, por si lo encuentrar en internet,, debe ser de Planet Source Code (Y), no sé como subirlo acá y x lo q ví, creo q no se puede. (Y)


« Última modificación: 26 Diciembre 2010, 13:11 por Miseryk » En línea

Can you see it?
The worst is over
The monsters in my head are scared of love
Fallen people listen up! It’s never too late to change our luck
So, don’t let them steal your light
Don’t let them break your stride
There is light on the other side
And you’ll see all the raindrops falling behind
Make it out tonight
it’s a revolution

CL!!!
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [Resuelto] Chinese
« Respuesta #2 en: 26 Diciembre 2010, 16:52 »

Muy interesante ;)
Voy a buscar más al respecto... :)

DoEvents! :P
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Chinese Theme [Photoshop and Flash]
Diseño Gráfico
MinusFour 5 2,522 Último mensaje 27 Mayo 2006, 02:55
por MinusFour
resuelto
Programación Visual Basic
usuario oculto 2 1,350 Último mensaje 12 Enero 2009, 00:29
por usuario oculto
{Resuelto} [vbs] HTA.. ¬¬ « 1 2 »
Scripting
xassiz_ 10 5,325 Último mensaje 2 Octubre 2009, 21:50
por kevlar
Chinese Win
Windows
jacksonkynh 1 1,298 Último mensaje 20 Mayo 2010, 22:22
por Randomize
[Taller] Chinese Remainder Theorem
Criptografía
kub0x 3 3,948 Último mensaje 24 Mayo 2016, 04:59
por Gh057
Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines