Mensajes

Gracias, esto de Visual Basic Scrip estuve estupendo.. lo active y funcionó correctamente..

Pero estaba interesado en hacer un progarama *.exe en Visual Basic 6.0, con unas opciones para cambair el registro del systema.. en un cierto tiempo.

Gracias..

[Text5.Text = Right("000000000" & Val(NoProf) + 1, 10)]

OK.. esto te puede dar una idea  esto es un trabajo que hice

' NoProf = numero de proforma ok
' rsNProforma = tabla de la proforma ok

Dim NoProf As String
Dim rsNProforma As New Recordset

rsNProforma.Open "SELECT * FROM EncabezadoProforma", dbConex, adOpenStatic, adLockOptimistic
rsNProforma.MoveLast
NoProf = rsNProforma(0)
Text5.Text = Right("000000000" & Val(NoProf) + 1, 10)
rsNProforma.Close


**explico..

el punto esta en esta parte:

Text5.Text = Right("000000000" & Val(NoProf) + 1, 10)

**supongamos que la longitud de tu código es 10 ok.. por eso se agregó 10 ceros (0000000000). luego le sumamos 1 al número actual de regitrso.. si vas en el registro 100 (cien). al juntalor sería así: 0000000000"&"0000000100 la pc lo leería todo juento-- ose aasí 00000000000000000100

Luego de todo este valor solo tomamos los 10 primeros enpezando por la derecha... porque codigo es de longitud 10 ok.

por eso se usa: Right(00000000000000000100,10)
luego saldría así 0000000100


Espero que te dé una buena idea...

Hola, a todos.

Me gustaría saber como desactivar el click derecho del escritorio, editando el registro de windows (regedit).

Esta es la clave: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\System]
"NoDispCPL"=dword:00000001

Quiero hacer este mismo procedimeinto, pero desde Visual Basic: 

Solo, tengo problema con el tido DWORD

Miren aquí tengo un ejemplo, pero del tipo DATO, para que se ejecute un programa al iniciar windows, en este caso el Exel:

***** aquí las declaraciones generales *****
'Autor: TheGhost(Z)
'E-mail: jericangana@yahoo.es

Const REG_SZ = 1
Const HKEY_CURRENT_USER = &H80000001

' Permite Abrir, Ingresar y Cerrar una clave
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long

******** aquí un command button *******
Private Sub Command1_Click()
Dim strString As String

strString = "C:\Archivos de programa\Microsoft Office\Office\EXCEL.EXE"
' llamamos la funcion savestring
SaveString HKEY_CURRENT_USER, "Software\Microsoft\Windows\CurrentVersion\Run", "excel", strString
MsgBox ("Programa ingresado el registro run"), vbInformation
End
End Sub

******** aquí la función SaveSrtring ********

Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
Dim Ret
    'Crea una nueva llave
    RegCreateKey hKey, strPath, Ret
    'salva el contenido de la llave
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    'cierra la llave
    RegCloseKey Ret
End Sub


Porfavor. Si alguién me puede ayudar con el tipo de dato DWORD que necesito para la clave NoDispCPL que es para desactivar el click derecho y así no me esten tocando la configuracion del escritorio..  :'(

Saludos

Lima-Perú