تعریف متغیر (متغیری در ریجستری) در ویژوال بیسیک

[R2du-soft]

سلام
میخواستم ببینم با ویژوال بیسیک هم میشه چنین متغیری تعریف کرد؟

for /f "tokens=2*" %%a in ('reg query "HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager" /v "Version"') do set "$setM=%%b"

echo %$set%


کد بالا میاد از مسیر HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager که در ریجستری هست ، هر مقدار یا آدرسی که در فایل Version هست رو به عنوان متغیر در نظر میگیره
و با دستور echo %$set% نمایش میده.

( اگه یاهو مسنجر داشته باشید این کد بالا رو بنویسید توی فایل txt و با bat ذخیره کنید ورژن یاهو مسنجرتون رو نشون میده. )


بگذریم
کلا میخواستم ببینم که میشه از این نوع متغیر ها تعریف کرد؟
اگه امکان تعریف هست شما بلدید؟ با چه کدی میشه این کارو کرد؟

مرسی

[محسن واژدی]

سلام
با توابع کنترل ریجستری امکان ویرایش یا گرفتن داده های ریجستری وجود دارد که البته قبلا بارها در اینباره مباحثی ارائه شده،
تاپیک های زیر را بررسی کنید:
https://barnamenevis.org/showthread.php?136330
https://barnamenevis.org/showthread.php?321012

و ماژول زیر:
https://barnamenevis.org/attachment.p...7&d=1317799843


همچنین میتوانید از توابع کنترل ریجستری موجود در کتابخانه "Windows Script Host Object Model" استفاده کنید:
https://barnamenevis.org/showthread.p...=1#post1347843

موفق باشید

[R2du-soft]

مرسی محسن واژدی جان خوندم

ولی نتونستم متغیر تعریف کنم!!!!

[محسن واژدی]

چرا، به عنوان مثال اگر بخواهیم با کامپوننت "Windows Script Host Object Model" مقدار "Version" را از ریجستری دریافت کنیم میشود:

Private Sub Command1_Click() 
        MsgBox reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager\Version") 
End Sub

و یا برای تعریف مقدار جدید

Private Sub Command2_Click() 
    reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager\Version", "1.0.1.0" 
End Sub

موفق باشید

[R2du-soft]

از کد زیر استفاده کردم ولی پس از اجرا و کلیک بر روی دکمه خطای

RUN-TIME ERROR '424':
OBJECT REQUIRED

میده!!!!!

Private Sub Command1_Click()          MsgBox reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager\Version")  End Sub

بعد یه چیزی اگه کد بالا عمل کنه و توی کلید VERSION آدرس باشه مثلا :

C:\WINDOWS

بعد من بخوام با یه کد دیگه بگم که از مسیری که توی VERSION هست هرچی dll هست رو کپی کنه چطور باید تعریف کنمش؟

مرسی

[R2du-soft]

این کد رو هم توی یکی از تاپیک ها پیدا کردم

 Private Sub Form_Load()

 Set wshshell = CreateObject("WScript.Shell")

 Text1.Text =  wshshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\yaho  o\pager\Version")

 End Sub

 

کد اطلاعات فایل version رو توی text box نشون میده
حالا مثلا توی text box ما مسیر C:\WINDOWS هست
با چه کدی باید بگم که از مسیری که توی text box هست فایل reza.dll رو کپی کنه توی C:\1

مرسی

[محسن واژدی]

از کد زیر استفاده کردم ولی پس از اجرا و کلیک بر روی دکمه خطای

RUN-TIME ERROR '424':
OBJECT REQUIRED

میده!!!!!

.
.

.

طبیعتا" این خطا را میدهد چون هنوز کامپوننت "Windows Script Host Object Model" به Reference اضافه نشده، برای اضافه کردن این کامپوننت هم میتوانیم از فرم Reference این کامپوننت را انتخاب کنیم و هم با CreateObject آنرا ایجاد کنیم، که در اینجا آنرا با CreateObjectایجاد میکنیم:

Dim reg
Private Sub Form_Load()
    Set reg = CreateObject("wscript.shell")
End Sub

Private Sub Command1_Click()
    MsgBox reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager\Version")
End Sub

اگه کد بالا عمل کنه و توی کلید VERSION آدرس باشه مثلا :

C:\WINDOWS

بعد من بخوام با یه کد دیگه بگم که از مسیری که توی VERSION هست هرچی dll هست رو کپی کنه چطور باید تعریف کنمش؟

به اینصورت با توابع جستجوی میتوانیم محتوی مسیر بدست آمده را جستجو و با دستوری مانند FileCopy کپی کنیم، در مورد جستجوگر هم:
https://barnamenevis.org/attachment.p...7&d=1298962438

و یا
http://download.microsoft.com/downlo...C3/DirWalk.exe
-----
http://www.planet-source-code.com/vb...74032&lngWId=1
http://www.planet-source-code.com/vb...73753&lngWId=1
http://www.planet-source-code.com/vb...71531&lngWId=1
http://www.planet-source-code.com/vb...67051&lngWId=1
http://www.planet-source-code.com/vb...58810&lngWId=1
http://www.planet-source-code.com/vb...49401&lngWId=1


موفق باشید

[R2du-soft]

محسن واژدی جان یه سوال


من اینحالتی از کد استفاده کردم

Private Sub Command1_Click()

Dim R As Integer

R = Text1.Text

FileCopy "(R\cnlurllist.dat)", "(c:\vbasic6\cnlurllist.dat)"

End Sub



Private Sub Form_Load()

Set wshshell = CreateObject("WScript.Shell")

Text1.Text = wshshell.RegRead("HKEY_CURRENT_USER\Software\Downl  oadManager\AppDataIDMFolder")

End Sub

تو قسمت بالا R رو از توع integer تعریف کردم
بعد چطوری از دستور filecopy باید استفاده کنم؟

موقعی که این دوستورات رو مینویسم و exe میکنم
بعد از باز کردن exe روی دکمه کلیک میکنم تا فایلها کپی بشن، ولی ارور زیر میاد!!!!

run-time error '13':
type mismatch

مرسی

[arenaw]

توی تکست 1 شما چی نوشته شده؟ آدرس فولدر؟
اولا اون اروری که میده به خاطر اینه که نوع R از نوع Integer هستش و شما باید String تعریف کنی
(Integer یک نوع عددی هست و String میتونه شامل هر متنی باشه)
دوما اونطوری که شما نوشتی اشتباهه و مقدار R رو نمیذاره اونجا و فقط حرف R رو میذاره
اگه تکست 1 آدرس هستش شما میتونی اینجوری استفاده کنی:

FileCopy Text1.Text & "\cnlurllist.dat", "c:\vbasic6\cnlurllist.dat"

البته آدرسی که توی تکست مینویسی نباید آخرش \ داشته باشه اینجا

[R2du-soft]

درست شد
ای جانمی جان
مرسی arenaw جان
عالی بود



مرسی گلم

[m2011kh]

لطفا از دکمه تشکر به جای اسپم استفاده کنید.
MMD

[R2du-soft]

سلام
باز من اومدم و تا با 1سوال دیگه شما رو اذیت کنم
خلاصه ببخشید که اینقدر سوال میکنم

چطور میشه با یک text box و تعریف یک متغیر در ویژوال بیسیک 3 متن رو داخل textBox قرار داد؟
الان مثال میزنم تا بهتر منظورمو بگم:

من یک textbox به نام Text4 در برنامه ایجاد کردم

حالا میخوام متن داخل 3 مسیر از ریجستری داخل این فایل این textBox که اسمش text4 هست نشون داده بشه


از کد زیر استفاده کردم ولی متاسفانه نتیجه نگرفتم و فقط محتویات آدرسی که در متن زیر با قرمز مشخص کردم نمایش داده میشه و اون 2تای قبلی نمایش داده نمیشه

Private Sub Form_Load()

 On Error Resume Next

    Set WshShell = CreateObject("WScript.Shell")





Text4.Text = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\1")

Text4.Text = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\2")

Text4.Text = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\3")





End Sub

میخوام هر 3 مسیر با هم تو Text4 نمایش داده بشه

یعنی مثلا
تو key اول نوشته A
تو key اول نوشته B
تو key اول نوشته C

میخوام ABC یکجا در فایل text4 نمایش داده بشه


مرسی


مرسی از همه دوستان عزیزم

[محسن واژدی]

سلام علیکم
کد را بصورت زیر ویرایش کنید:

Private Sub Form_Load()



    On Error Resume Next

    

    Set WshShell = CreateObject("WScript.Shell")

    

    Text4.Text = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\1") & WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\2") & WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\3")



End Sub

موفق باشید

[R2du-soft]

داداشی محسن اگه تو کد بالا که گفتی key

HKEY_CURRENT_CONFIG\reza\2


وجود نداشته باشه اونوقت کلا دیگه نه

HKEY_CURRENT_CONFIG\reza\1
و نه
HKEY_CURRENT_CONFIG\reza\3

ثبت میشه داخل textBox !!!!!

کلا اگه چیزی که تعریف کردی وجود نداشته باشه و چند تای دیگه وجود داشته باشه textbox خالی میمونه !!!!
چطور میشه اگه یکیش هم وجود نداشت بقیه رو ثبت کنه؟
مرسی گلم

[محسن واژدی]

داداشی محسن اگه تو کد بالا که گفتی key

HKEY_CURRENT_CONFIG\reza\2


وجود نداشته باشه اونوقت کلا دیگه نه

HKEY_CURRENT_CONFIG\reza\1
و نه
HKEY_CURRENT_CONFIG\reza\3

ثبت میشه داخل textBox !!!!!

کلا اگه چیزی که تعریف کردی وجود نداشته باشه و چند تای دیگه وجود داشته باشه textbox خالی میمونه !!!!
چطور میشه اگه یکیش هم وجود نداشت بقیه رو ثبت کنه؟
مرسی گلم

در صورت نبود کلید های تعریف شده برنامه تولید خطا میکند اما چون دستگیره های خطا خاموش است خطایی ظاهر نمی شود، کد زیر را بررسی کنید:

Private Sub Form_Load()

    On Error Resume Next

    Dim WshShell As Object, sV1$, sV2$, sV3$

    Set WshShell = CreateObject("WScript.Shell")

    

    sV1$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\1")

    sV2$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\2")

    sV3$ = WshShell.RegRead("HKEY_CURRENT_CONFIG\reza\3")

    Text4.Text = sV1$ & sV2$ & sV3$

End Sub