ayuda con este script

[Isótopo]

hola, no s si este tema va aqui, supongo que si. bueno mi problema esk no consigo escribir esto en el registro:

Set variable4 = CreateObject("WScript.Shell")
variable4.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon",
"Shell"="Explorer.exe c:\ola.txt"

me tira error y no s porque, e repasado las rutas y tal y parece k esta bien. estoy recien empezando asi k no s si es por los comandos. aun asi lo e intentado desde la consola y me dice que la operacion finalizo correctamente pero no sale nada de lo que e dicho que cree. Si alguien m puede ayudar...

[zumbah]

Set variable4 = CreateObject("WScript.Shell")
variable4.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon",
"Shell"="Explorer.exe c:\ola.txt"

Prueba a poner esto

Set variable4 = CreateObject("WScript.Shell")
variable4.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Winlogon",
"Shell"="Explorer.exe c:\ola.txt", vbMaximizedFocus

Si no te va no se por que da el error.

[̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿]

Qué onda con tu programa para extraer iconos,
En ese caso yo publico mi programa para hacer sumas

mis respetos si lo hiziste en c++ la verdad no se si sea facil o dificil nunca lo eh manejado,aunque dudo que este copilado en c++

Código [Seleccionar] Expandir

'offset: 00001611
VERSION 5.00
Begin VB.Form Form1
   Caption         =   "XtraCT iCoN v1.0.0  By  -:ZumBaH:- To elHacker.NeT"
   ForeColor       =   &H80000008&
   BorderStyle     =   1
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ClientLeft      =   300
   ClientTop       =   885
   ClientWidth     =   6105
   ClientHeight    =   3990
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   700
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
'offset: 000019AB
   Begin VB.CommandButton Command1
      Caption         =   "Agradecimientos"
      Left            =   240
      Top             =   3480
      Width           =   1455
      Height          =   375
      TabIndex        =   11
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
   End
'offset: 000019EF
   Begin VB.textBox Text1
      Left            =   2640
      Top             =   360
      Width           =   2775
      Height          =   375
      TabIndex        =   8
   End
'offset: 00001A26
   Begin VB.PictureBox Picture1
   End
'offset: 00001D75
   Begin VB.Frame Frame1
      Caption         =   "Acciones"
      Left            =   8
      Top             =   32768
      Width           =   20485
      Height          =   14346
'offset: 00001DB7
   Begin VB.Frame Frame2
      Caption         =   "Icono"
      Left            =   8
      Top             =   32768
      Width           =   53253
      Height          =   61442
'offset: 00001DF6
   Begin VB.Image Image1
      Left            =   360
      Top             =   240
      Width           =   495
      Height          =   495
   End
   End
'offset: 00001E13
   Begin VB.CommandButton ssbSigue
      Caption         =   "Adelante"
      Left            =   1560
      Top             =   1440
      Width           =   1095
      Height          =   375
      Visible         =   0   'False
      TabIndex        =   5
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00001E54
   Begin VB.CommandButton ssbAtrás
      Caption         =   "Atrás"
      Left            =   120
      Top             =   1440
      Width           =   1095
      Height          =   375
      Visible         =   0   'False
      TabIndex        =   4
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   6,7
         Name            =   "Tahoma"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00001E92
   Begin VB.Label Label2
      Caption         =   "Atrás, Adelante"
      ForeColor       =   &H80000008&
      Left            =   720
      Top             =   1080
      Width           =   1575
      Height          =   255
      TabIndex        =   10
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
      Appearance      =   0  'Flat
   End
   End
'offset: 00001EE3
'CMDialog1
'offset: 00001F6E
   Begin VB.FileListBox File1
      Left            =   240
      Top             =   1680
      Width           =   2175
      Height          =   1590
      TabIndex        =   2
   End
'offset: 00001FCA
   Begin VB.DirListBox Dir1
      Left            =   240
      Top             =   480
      Width           =   2175
      Height          =   1155
      TabIndex        =   1
   End
'offset: 00002000
   Begin VB.DriveListBox Drive1
      Left            =   240
      Top             =   120
      Width           =   2175
      Height          =   315
      TabIndex        =   0
   End
'offset: 00002038
'ImageList1
'offset: 000020C2
   Begin VB.Label Label1
      Caption         =   "Ruta"
      ForeColor       =   &H80000008&
      Left            =   2640
      Top             =   120
      Width           =   855
      Height          =   255
      TabIndex        =   9
      BeginProperty Font
         Strikethrough   =   0   'False
         Underline       =   0   'False
         Italic          =   0   'False
         Weight          =   400
         Size            =   8,3
         Name            =   "MS Sans Serif"
      EndProperty
      Appearance      =   0  'Flat
   End
'offset: 00002108
   Begin VB.Menu MnuFila
      Caption         =   "&Fila"
'offset: 00002125
   Begin VB.Menu MnuGuardaco
      Caption         =   "&Guardar Como"
   End
'offset: 0000214F
   Begin VB.Menu nada
      Caption         =   "-"
   End
'offset: 00002165
   Begin VB.Menu MnuSale
      Caption         =   "&Salir"
   End
   End
End