Título: ayuda con este script
Publicado por: Isótopo 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...
Título: Re: ayuda con este script
Publicado por: zumbah en 17 Junio 2007, 15:01 pm
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.
Título: Re: ayuda con este script
Publicado por: ̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿̿ 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++ '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
|