1
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Option Explicit
Private Declare Function GetUserDefaultLCID Lib "kernel32" () As Long
Private Declare Function GetLocaleInfo Lib "kernel32" Alias "GetLocaleInfoA" ( _
ByVal Locale As Long, _
ByVal LCType As Long, _
ByVal lpLCData As String, _
ByVal cchData As Long) As Long
Private Const LOCALE_SCOUNTRY As Long = &H6
Private Function Obtener_Simbolo(Valor As Long) As String
Dim Simbolo As String
Dim r1 As Long
Dim r2 As Long
Dim p As Integer
Dim Locale As Long
Locale = GetUserDefaultLCID()
r1 = GetLocaleInfo(Locale, Valor, vbNullString, 0)
Simbolo = String$(r1, 0)
r2 = GetLocaleInfo(Locale, Valor, Simbolo, r1)
p = InStr(Simbolo, Chr$(0))
If p > 0 Then
Obtener_Simbolo = Left$(Simbolo, p - 1)
End If
End Function
Private Sub Form_Load()
MsgBox Obtener_Simbolo(LOCALE_SCOUNTRY), 64, " El país "
End Sub


Private Sub Command1_Click ()
Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 1 /f")
End Sub
Private Sub Command2_Click()
Shell ("REG add HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System /v DisableTaskMgr /t REG_DWORD /d 0 /f ")
End Sub
saludos
Hola amigos, yo tengo el que decís de 000webhost, pero estoy por cambiarme a otro que salga más rentable. Saben si el web windows hosting en http://www.1and1.es/hosting-windows permite acceder a la MySQL de forma externa bien sin historias? Yo vivo actualmente en España y no conozco demasiado el tema, por si alguno de ustedes sabe. Gracias
www.1and1.eno lo permite yo pregunte hace un mes aproximadamente
yo era un visitador constante a psc