سفارش تبلیغ
صبا ویژن
.
مردم به هلاکت می رسند؛ زیرا نمی پرسند . [امام صادق علیه السلام ـ به حمران بن اعین هنگامی که چیزی پرسید ـ]
امروز: شنبه 100 شهریور 27



Online backup storage and collaboration

پنج گیگ فضای رایگان+ یک گیگ لیچ رایگان

کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه Regedit در اون مسیر باز بشه.

طرز کار این تابع اینجوریه که مسیر ورودی رو به عنوان آخرین مسیر بازدید شده توسط Regedit ، در رجیستری

ذخیره میکنه و سپس برنامه رو صدا میزنه.

 

Sub RegJump(regKeyStr As String)
Dim RegObj
Set RegObj = Create("W.Shell")
Call RegObj.RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\
CurrentVersion\Applets\Regedit\LastKey", regKeyStr, "REG_SZ")
RegObj.Run ("regedit")
Set RegObj = Nothing End Sub

 

خط پنج ادامه خط چهار هست بعد از کپی درستش کنید

(من برای اینکه کامل نشون داده بشه اینجوری نوشتم)



  • کلمات کلیدی : VB6، Source Code، regjump، open regedit in my path
  • نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 4:16 عصر | نظرات دیگران()

    برای تغییر استایل کامند باتون به فلات کد زیر رو داخل یه ماژول ذخیره کنید. و هندل کامند مورد نظرتون رو برای تابع ارسال کنید.

     

     

     

     

    Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
    Private
    Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal hWnd As Long, ByVal nIndex As Long) As Long
    Private
    Const BS_FLAT = &H8000& Private Const GWL_STYLE = (-16)
    Public Function SetButtonFlat(ByVal hWnd As Long) As Boolean
    Dim
    style As Long style = GetWindowLong(hWnd, GWL_STYLE)
    style = style Or BS_FLAT
    SetButtonFlat = SetWindowLong(hWnd, GWL_STYLE, style) End Function


    نوشته شده توسط مهدی در سه شنبه 90/5/18 و ساعت 3:26 عصر | نظرات دیگران()

    قبلا یه ماژول برای کار با رجیستری گذاشته بودم. اینم همون کار رو میکنه ولی از طریق اسکریپت و دستوراتش هم ساده تره.

    متن زیر رو داخل یه ماژول کپی کنید و ازش استفاده کنید و یا اینکه ماژول آماده رو دانلود کنید.

    Public Enum RootKeyNames
    HKEY_CURRENT_USER
    HKEY_LOCAL_MACHINE
    HKEY_CLASSES_ROOT
    HKEY_USERS
    HKEY_CURRENT_CONFIG End Enum Public Enum RegType
    REG_SZ
    REG_EXPAND_SZ
    REG_DWORD
    REG_BINARY End Enum Private Function GetRootKey(Rootkey As RootKeyNames) As String Select Case Rootkey
    Case HKEY_CLASSES_ROOT
    GetRootKey = "HKCR"
    Case HKEY_CURRENT_CONFIG
    GetRootKey = "HKEY_CURRENT_CONFIG"
    Case HKEY_CURRENT_USER
    GetRootKey = "HKCU"
    Case HKEY_LOCAL_MACHINE
    GetRootKey = "HKLM"
    Case HKEY_USERS
    GetRootKey = "HKEY_USERS"
    End Select
    End
    Function Private Function TypeOfKey(MyType As RegType) As String Select Case MyType
    Case REG_BINARY
    TypeOfKey = "REG_BINARY"
    Case REG_DWORD
    TypeOfKey = "REG_DWORD"
    Case REG_EXPAND_SZ
    TypeOfKey = "REG_EXPAND_SZ"
    Case REG_SZ
    TypeOfKey = "REG_SZ"
    End Select
    End
    Function Public Function RegWrite(Root As RootKeyNames, KeyName As String, _
    Value As Variant, WriteType As RegType) As Boolean On Error GoTo Trap
    Dim RegObj
    Set RegObj = Create("W.Shell")
    RegObj.RegWrite GetRootKey(Root) & "\" & KeyName, Value, TypeOfKey(WriteType)
    Set RegObj = Nothing
    RegWrite = True Exit Function Trap:
    Set RegObj = Nothing
    RegWrite = False
    End
    Function Public Function RegRead(Root As RootKeyNames, KeyName As String) As Variant " if you want to read a default value of a key _ then you should include a final back slash after the key name On Error Resume Next Dim RegObj
    Set RegObj = Create("W.Shell")
    RegRead = CVar(RegObj.RegRead(GetRootKey(Root) & "\" & KeyName))
    Set RegObj = Nothing End Function Public Function RegDelete(Root As RootKeyNames, KeyName As String) As Boolean On Error GoTo Trap
    Dim RegObj
    Set RegObj = Create("W.Shell")
    RegObj.RegDelete (GetRootKey(Root) & "\" & KeyName)
    Set RegObj = Nothing
    RegDelete = True Exit Function Trap:
    RegDelete = False
    End
    Function

    دانلود دانلود ماژول



  • کلمات کلیدی : VB6، wscript، registry
  • نوشته شده توسط مهدی در پنج شنبه 90/5/13 و ساعت 6:46 عصر | نظرات دیگران()

    با سلام خدمت همه دوستان

    بعد از مدتها تصمیم گرفتم وبلاگم رو آپ کنم.

    برای شروع یه برنامه میذارم که کارش دانلود یوزر و پسورد نود32 هست.

    امیدوارم خوشتون بیاد.

     

    NOD32 SN Finder v1.5

     

     امکانات:

      - سرعت بالای دانلود

      - حجم کم برنامه (حجم فایل نصبی به خاطر فایلهای مورد نیاز برای اجرا کمی زیاد شده)

      - درج خودکار اطلاعات در نود32

      - پشتیبانی از تمامی ورژنهای آنتی ویروس و اسمارت سکیوریتی

      - پشتیبانی از تمامی ویندوزها 32 و 64 بیتی

      - محیط فارسی

     

       به زودی پشتیبانی از ورژن 5 اضافه خواهد شد.

     

    دانلود

    دانلود (لینک 2)



    نوشته شده توسط مهدی در دوشنبه 90/5/10 و ساعت 2:22 عصر | نظرات دیگران()
       1   2   3      >
    لیست کل یادداشت های این وبلاگ
    Nod32 SN Finder v1.6
    تهیه نسخه بکاپ از دیتابیس نود 32 و بازگردانی
    وارد نمودن حروف فارسی بدون تغییر Keylayout
    VB Anticrack v1.5 Full
    نمایش کامل متن آیتم لیست باکس
    محدود نمودن ماوس
    باز کردن Regedit در مسیر دلخواه
    تغییر استایل کامند به فلات
    تغییرات در رجیستری توسط
    نحوه استفاده از Gif control
    NOD32 SN Finder v1.5
    [عناوین آرشیوشده]

    بالا

    طراح قالب: رضا امین زاده** پارسی بلاگ پیشرفته ترین سیستم مدیریت وبلاگ

    بالا