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

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


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

Desconectado Desconectado

Mensajes: 292


Comprende a los demás para comprenderte a tí mismo


Ver Perfil
ayuda con este script
« en: 16 Junio 2007, 00:15 am »

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...


En línea


-Asus Crosshair IV Formula            
-AMD Phenom II X6 1090T 3.94Ghz @1.38V
-Corsair H70
-Sapphire Radeon HD 6970 2GB Dual-Fan
-G.Skill PIS PC3-17066 4GB 1900MHz 7-9-7-20 @1.65V
-WD Caviar Black 500GB
-Seagate Barracuda Green 2TB x2
-Antec TruePower New 750W Modular
-Cooler Master Dominator CM-690
zumbah

Desconectado Desconectado

Mensajes: 34


...asi, cayéndose...


Ver Perfil
Re: ayuda con este script
« Respuesta #1 en: 17 Junio 2007, 15:01 pm »

Citar
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

Citar
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.


« Última modificación: 17 Junio 2007, 16:34 pm por zumbah » En línea



Excelente programa para extraer el icono de cualquier programa y engañar a tu victima! v2.0
http://rapidshare.com/files/37789681/XtraCT_iCoN.rar
̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿

Desconectado Desconectado

Mensajes: 54



Ver Perfil
Re: ayuda con este script
« Respuesta #2 en: 18 Junio 2007, 04:22 am »

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

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:
'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
« Última modificación: 18 Junio 2007, 04:34 am por Visual Basic » En línea

jajajaja xD ya no me puedo cambiar el nick no me deja el deste como admin del perfil xD
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Como se instala este script php? « 1 2 »
PHP
Megan 11 7,849 Último mensaje 7 Enero 2012, 20:36 pm
por Megan
problema con este script
Scripting
xemnas 1 2,004 Último mensaje 11 Febrero 2012, 12:13 pm
por xemnas
ayuda con este script! (search box en blogger)
Desarrollo Web
MineHitex 1 1,798 Último mensaje 10 Octubre 2013, 15:02 pm
por #!drvy
ayuda urgente con este script
Scripting
gaditano28 1 1,940 Último mensaje 2 Marzo 2015, 03:26 am
por engel lex
Ayuda con este script de selenium IDE
Programación General
RubenLL 0 1,811 Último mensaje 17 Marzo 2023, 08:46 am
por RubenLL
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines