regedit kaydını vbs çevirmek istiyorum

Programlama dilleri konusunda bilgi paylaşım alanıdır.
Cevapla
Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen Bien » 22 Oca 2013, 01:13

Aşağıda bulunan kaydı .vbs çevirmek istiyorum yardım olabilir misiniz

Kod: Tümünü seç

Windows Registry Editor Version 5.00 

[HKEY_CLASSES_ROOT\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy To]
@="{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
 



Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28756
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen velociraptor » 22 Oca 2013, 01:15

Bunu iki yöntemle yapabilirsin fakat en sağlamı aşağıdaki , çünkü RegWrite metodunun bazı sakıncaları var :
1. REG_MULTI_SZ değerlerini desteklemez
2. REG_BINARY e bir DWORD yazabilir daha uzunlarını desteklemez

Kod: Tümünü seç

Const HKEY_CLASSES_ROOT = &H80000000
strComputer = "."
Set objReg=GetObject( _
    "winmgmts:{impersonationLevel=impersonate}!\\" & _
   strComputer & "\root\default:StdRegProv")

strKeyPath = "AllFilesystemObjects\shellex\ContextMenuHandlers\Copy to"
objReg.CreateKey HKEY_CLASSES_ROOT,strKeyPath
strValue = "{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
objReg.SetStringValue HKEY_CLASSES_ROOT,_
    strKeyPath,strValueName,strValue
WScript.Echo "istediğin değer oluşturuldu bien"
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen Bien » 22 Oca 2013, 01:22

Teşekkürler

Sonunda ki mesajda güzel olmuş :)

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28756
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen velociraptor » 22 Oca 2013, 01:30

bir iki deneme yapayım RegWrite metodunu kullanrak ta aynı değer nasıl yazılır onu da görürüz
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28756
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen velociraptor » 22 Oca 2013, 01:50

RegWrite Metodu ile daha az kod kullanarak aynı sonuç alınmış hali

Kod: Tümünü seç

Dim WshShell, bKey
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCR\AllFilesystemObjects\shellex\ContextMenuHandlers\Copy to\", "{C2FBB630-2971-11D1-A18C-00C04FD75D13}"
WScript.Echo "istediğin değer RegWrite ile oluşturuldu bien"
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Kullanıcı avatarı
Bien
Kilobyte3
Kilobyte3
Mesajlar: 471
Kayıt: 04 Haz 2012, 16:47

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen Bien » 22 Oca 2013, 01:51

Bu daha kısa ve daha anlaşılır.
Tekrar teşekkürler :)

Kullanıcı avatarı
velociraptor
Yottabyte3
Yottabyte3
Mesajlar: 28756
Kayıt: 14 Mar 2006, 02:33
cinsiyet: Erkek

Re: regedit kaydını vbs çevirmek istiyorum

Mesaj gönderen velociraptor » 22 Oca 2013, 01:54

Evet ama dediğim gibi bazı kullanılamadığı durumlar var yukarında sakıncalarını yazdım ama %90 iş görecektir
Knowledge determines destiny, And ye shall know the Truth and the Truth shall make you free

Cevapla