www.pc3enter.tk
یک شنبه 22 فروردین 1395, 10:59 صبح
شما با این چند خط میتوانید یک کلید و یا تغییر در ریجستری به راحتی بدهید
تشکر فراموش نشه
Option Explicit
Dim SysVarReg, Value
Dim Input
Input = InputBox("Enter your name")
Value = Input
Set SysVarReg = WScript.CreateObject("WScript.Shell")
SysVarReg.RegWrite "HKCU\vijay\vijay1\123", Value
تشکر فراموش نشه
Option Explicit
Dim SysVarReg, Value
Dim Input
Input = InputBox("Enter your name")
Value = Input
Set SysVarReg = WScript.CreateObject("WScript.Shell")
SysVarReg.RegWrite "HKCU\vijay\vijay1\123", Value