Mensajes

mmm gracias pero estaba buscando algo mas automatico...quisa con vb o con C o algun otro lenguaje pueda hacerlo

gracias de todos modos

yo tengo estas lineas

@reg delete HKLM\SOFTWARE\KasperskyLab\LicStorage /f
@reg delete HKLM\SOFTWARE\KasperskyLab\protected\AVP8\settings\LicenseNotifications /f
@reg delete HKLM\SOFTWARE\Microsoft\Cryptography\RNG /f
@reg delete HKLM\SOFTWARE\Microsoft\SystemCertificates\SPC\Certificates /f
@reg add HKLM\SOFTWARE\KasperskyLab\protected\AVP8\settings /v EnableSelfProtection /t REG_BINARY /d 00000001 /f
"C:\Archivos de programa\Kaspersky Lab\Kaspersky Anti-Virus 2009\avp.exe"
exit

la anteultima vuelve a activar la autodefenza
y la ultima vuelve a lanzar el antivirus

es ahi cuando aparece la ventanita para volver a activarlo

-activar mediante llave
-activar versión de evaluacion
-activar con codigo

ahora tengo q elegir la opcion manualmente(la que yo quiera, pero en este caso quiero q sea la 2da "activar version de evaluacion")

lo que quiero es el el mismo script me autoseleccione la operacion y el antivirus quede activado solamente con lanzar el .bat y no tener q hacer el ultimo paso manualmente

yo tengo un .bat que me modifica el registro de windows, eliminando algunas claves que refieren al kaspersky y luego vuelve a inciciar el antivirus(que hay que cerrar antes de lanzar el script porque sino no te deja eliminar las claves de registro), al arrancar el antivirus aparece la pantalla para volver a activarlo, la cual te da tres opciones:

-activar mediante llave
-activar versión de evaluacion
-activar con codigo

ahora tengo q elegir la opcion manualmente(la que yo quiera, pero en este caso quiero q sea la 2da)

lo que quiero es el el mismo script me autoseleccione la operacion y el antivirus quede activado solamente con lanzar el .bat y no tener q hacer el ultimo paso manualmente


se entendio?

MOD : Ortografía.

hola a todos

queria pedir ayuda para automatizar una tarea con un bat, la idea es crear un trial resset para el kaspersky

si alguien utilizó alguno me va a entender que despues de ejecutar el trail resset tenemos que volver a activar el kaspesky nosotros, lo que quiero es que se vuelva a activar solo

yo logre crear el bat q me resetea el periodo de prueba y me vuelve a abrir el kaspersky, cuando este se abre lo primero que aparece es la pantallita para volver a activarlo

se tendria que autoseleccionar la 2da opcion (activar la versión de evaluacion)

muchas gracias!


PD: me dio la idea un trial resset que encontre del avira antivir que te lo autoactiva todo solo, rellena formularios y todo

MOD :
Ortografía.

hola a todos

necesito agregar una clave de registro con valor exa, asi la agrego desde un .reg:

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer]
"link"=hex:00,00,00,00

lo que hace es omitir el "acceso directo a" cuando creamos un acceso directo y desde un .cmd utilizo esto para agregar

AÑADIR CLAVE EN EL REGISTRO

REG ADD clave [/v nvalor | /ve] [/t tipo] [/s separador] [/d datos] [/f]

  clave      [\\equipo\]tclave
             Equipo     nombre del equipo remoto. Si se omite se usa el
                        equipo actual. Sólo HKLM y HKU están disponibles
                        para equipos remotos.
             tclave     CLAVERAIZ\subclave
             CLAVERAIZ  [ HKLM | HKCU | HKCR | HKU | HKCC ]
             subclave   Nombre completo de una clave de registro en la
                        CLAVERAIZ seleccionada.

  /v         Nombre del valor en la clave seleccionada para agregar

  /ve        Agrega el nombre de valor vacío <sin nombre>

  /t         Tipos de datos de clave de registro
             [ REG_SZ    | REG_MULTI_SZ  | REG_DWORD_BIG_ ENDIAN    |
               REG_DWORD | REG_BINARY    | REG_DWORD_LITT LE_ENDIAN |
               REG_NONE  | REG_EXPAND_SZ ]
             Si se omite, se asume REG_SZ

  /s         Especifica el carácter que usa como separador en su cadena
             de datos para REG_MULTI_SZ. Si se omite, se usa "\0" como
             separador

  /d         Datos que se asignan a nvalor del registro que se agrega

  /f         Fuerza la sobrescritura de entradas de registro existentes
             sin avisar.

Ejemplos:

  REG ADD \\ABC\HKLM\Software\MiCo
    Agrega una clave HKLM\Software\MiCo en el equipo remoto ABC

  REG ADD HKLM\Software\MiCo /v datos /t REG_BINARY /d fe340ead
    Agrega un valor (nombre: datos, tipo: REG_BINARY, datos: fe340ead)

pero no se como agregar un valor exa


si me pueden ayudar...gracias

mejor uso  el ejemplo de ░▒▓BlackZeroҖ▓▒░


solo me falta sabe como poder incluir otro tipo de imagenes ademas de .bmp

o como hacer la conversion de jpg o otros a bmp sin tener q incluir un picturebox

solo encotre ejemplos incluyendolo

Picture1 = LoadPicture(Text1.Text)

SavePicture Picture1, "C:\imagen.bmp"

alguna manera de ahcer eso si usar el picture??
se puede declar alguan variable como para q cumpla la funcion del picture?

grrrr desde el visual me lo corre pero desde windos noooo

component COMDLG32.OCX. or one of its depedencies not correctly registered . a file is missing or invalid.

alguien sabe a que se debe

ya ta 


lo resolvi con un CommonDialog

es q estoy ahciendo un programita para cambiar el Wallpaper de windows y era para seleccionar la imagen q deseabas poner como fondo de escritorio


pero logre solo q me acepte imagenes .bmp el muy hijo de mil jaja

asi me quedo

Private Sub Command2_Click()
Dim documento As String
CommonDialog1.ShowOpen
documento = CommonDialog1.FileName
Text1.Text = documento

igual lo tengo q probar ahi en el mismo command 2 dps viene el resto de los comandos para cambiar el wallpaper y no se si me espera a q yo busque la imagen y la cargue en el textbox....porque de el textbox lee la ruta donde esta la imagen a reempalzar...

me marearon jajaja


no entendi alf inal se peude o no con ese codigo???

tengo este comando para examinar carpetas y derivar la ruta a un textbox
alguien sabe como adaptarlo apra q aparezcan losarchivos tmb y no solo la ruta de carpetas?


'CREE UN BOTON Y UN CUADRO DE TEXTO en un formulario nuevo

Option Explicit
DefLng A-Z
'DECLARACIONES
' Este es el tipo que se pasa a la función del API SHBroseForFolder
Private Type BROWSEINFO
hWndOwner As Long 'ventana propietaria del dialogo de buscar carpetas
pidlRoot As Long 'puntero al ItemID de la carpeta raíz
pszDisplayName As String 'el nombre mostrado del objeto
lpszTitle As String 'el titulo de la ventana de dialogo
uFlags As Integer 'modificadores - ver abajo
lpfn As Long 'direccion de una funcion "callback" (opcional)
lParam As Long 'para el "callback", no utilizado
iImage As Long 'para el "callback", no utilizado
End Type
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long
Private Declare Function SHBrowseForFolder Lib "Shell32" Alias "SHBrowseForFolderA" (lpbi As BROWSEINFO) As Long
Const BIF_RETURNONLYFSDIRS As Integer = 1 'Devolver sólo directorios del Sistema de Ficheros
'--------------------------------------------------------------------------------------
' Muestra un diálogo de buscar carpetas y devuelve el path a la carpeta escogida
' o una cadena vacía si la operación se canceló. Nótese que este procedimiento sólo
' devuelve carpetas del sistema de ficheros, no carpetas virtuales como Mi Ordenador o
' el Panel de Control
'--------------------------------------------------------------------------------------
Private Function BrowseForFolder(ByVal f_HWnd As Long, Optional lpTitle As Variant) As String
On Error Resume Next
Dim lpiidl As Long, lResult As Long
Dim lpbi As BROWSEINFO
Dim lpszBuf As String
Dim lpszNameSpace As String
lpszBuf = String$(255, Chr$(0))
lpszNameSpace = String$(255, Chr$(0))
'fijar los valores iniciales
With lpbi
.hWndOwner = f_HWnd 'el propietario del diálogo (para operación modal o no modal)
.pidlRoot = vbNullString 'comenzar a partir del Escritorio
.lpszTitle = lpTitle 'el texto por encima del árbol de carpetas (NO el "caption" del diálogo)
.pszDisplayName = lpszBuf 'contendrá al volver el nombre del objeto seleccionado
.uFlags = BIF_RETURNONLYFSDIRS 'devolver sólo carpetas del sistema de ficheros
.lpfn = vbNullString 'no hay función de "callback"
.lParam = 0& 'para el "callback", no utilizado
.iImage = 0& 'para el "callback", no utilizado
End With
' Mostrar el diálogo de buscar carpetas y obtener el puntero al ItemID asociado a la carpeta escogida
lpiidl = SHBrowseForFolder(lpbi)
' Si el usuario canceló el diálogo o ocurrió un error, devolver una cadena vacía
If lpiidl = 0 Then BrowseForFolder = "": Exit Function
' Obtener el path del objeto seleccionado a partir del itemID
lResult = SHGetPathFromIDList(lpiidl, lpszNameSpace)
If lResult = 1 Then 'la función devuelve 1 si tuvo éxito, 0 si hubo algún fallo
' Devolver el path a la carpeta, quitando los caracteres nulos extras
BrowseForFolder = Left$(lpszNameSpace, InStr(lpszNameSpace, Chr$(0)))
End If
End Function


Sub Command1_Click()
Dim ShellPath As String
ShellPath = BrowseForFolder(Me.hWnd, "Escoja una carpeta")
If ShellPath <> "" Then
Text1.Text = Left(ShellPath, Len(ShellPath) - 1)
Else
MsgBox "¡Operación cancelada!"
End If
End Sub