برنامه عالی برای دانلود یوزر و پسورد نود32

فقط یکبار اجراش کنید!!

Nod32 SN Finder v1.6

 امکانات:

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

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

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

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

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

  - محیط فارسی

 - ** پشتیبانی از ورژن 5 **

دانلود برنامه NOD32 SN FINDER v1.6

اگه کسی دوست نداره برنامه نصبی رو دانلود کنه میتونه فقط فایل اجرایی برنامه رو با حجم کمتر دانلود کنه، البته اگه هنگام اجرا با پیغام خطا مواجه شدید ناچارا باید برنامه نصبی رو دانلود کنید. دانلود فایل اجرایی

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

 با سلام

قبلا این دوتا برنامه رو واسه دانلود گذاشته بودم، که با اومدن ورژن 5 نود یه تغییراتی دادمشون و برای دانلود میذارم. امیدوارم به کارتون بیاد.

من شخصا 7 الی 8 ساله از این روش استفاده میکنم و تا حالا مشکلی نداشتم باهاشون.

برنامه اول Nod32 DB Backup v2 هست که کارش تهیه بکاپ از دیتابیس محصولات شرکت ESET هست (Nod32 Antivirus,Smart Security)

کافیه برنامه رو اجرا کنید و با تعیین مسیر بکاپ اقدام به بکاپگیری کنید، برنامه بصورت اتوماتیک فولدری با نام ورژن فعلی دیتابیس ایجاد میکنه و فایلها رو درون اون کپی میکنه.

همچنین میتونید یک مسیر به عنوان مسیر پیش فرض تعیین کنید، برای اینکار بر روی Set Default Folder کلیک کرده و مسیر دلخواه رو تعیین میکنید، سپس از منو گزینه Create Shortcut رو انتخاب میکنید. برنامه یک شرتکات از فایل اجرایی رو روی دسکتاپ میسازه.

با هربار اجرای این شرتکات بدون اینکه وارد برنامه بشید، یک بکاپ از دیتابیس نود در مسیر تعیین شده خواهید داشت.

برنامه دوم با نام Nod32 DB Restore v4 کارش عکس برنامه اول هست و فایلهای بکاپ رو در مسیر برنامه نود کپی میکنه (اینکار از ورژن 4 به بعد بصورت دستی غیر قابل انجامه)

فقط کافیه شما برنامه رو داخل فولدر حاوی بکاپ اجرا کنید و کار رو تا آخر ادامه بدید.

** فقط برای بازگردانی بکاپ برای نود ورژن 5، ابتدا باید ویندوز رو به حالت Safe Mode بوت کنید.

Nod32 DB Backup v2

Nod32 DB Restore v4

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

از این کد هم میتونید توی رویداد KeyPress تکستتون استفاده کنید و یا اینکه اونو توی تابع بذارید و مقدار کداسکی رو از KeyPress براش ارسال کنید و جواب رو داخل تکست بنویسید.

کارش هم تغییر حروف وارد شده به فارسی هست بدون اینکه نیاز باشه زبان سیستم عوض بشه.

If KeyAscii = 72 Then KeyAscii = 194
If KeyAscii = 104 Then KeyAscii = 199
If KeyAscii = 102 Then KeyAscii = 200
If KeyAscii = 92 Then KeyAscii = 142
If KeyAscii = 106 Then KeyAscii = 202
If KeyAscii = 101 Then KeyAscii = 203
If KeyAscii = 91 Then KeyAscii = 204
If KeyAscii = 93 Then KeyAscii = 141
If KeyAscii = 112 Then KeyAscii = 205
If KeyAscii = 111 Then KeyAscii = 206
If KeyAscii = 110 Then KeyAscii = 207
If KeyAscii = 98 Then KeyAscii = 208
If KeyAscii = 118 Then KeyAscii = 209
If KeyAscii = 99 Then KeyAscii = 210
If KeyAscii = 96 Then KeyAscii = 129
If KeyAscii = 115 Then KeyAscii = 211
If KeyAscii = 97 Then KeyAscii = 212
If KeyAscii = 119 Then KeyAscii = 213
If KeyAscii = 113 Then KeyAscii = 214
If KeyAscii = 120 Then KeyAscii = 216
If KeyAscii = 122 Then KeyAscii = 217
If KeyAscii = 117 Then KeyAscii = 218
If KeyAscii = 121 Then KeyAscii = 219
If KeyAscii = 116 Then KeyAscii = 221
If KeyAscii = 114 Then KeyAscii = 222
If KeyAscii = 59 Then KeyAscii = 152
If KeyAscii = 39 Then KeyAscii = 144
If KeyAscii = 103 Then KeyAscii = 225
If KeyAscii = 108 Then KeyAscii = 227
If KeyAscii = 107 Then KeyAscii = 228
If KeyAscii = 44 Then KeyAscii = 230
If KeyAscii = 105 Then KeyAscii = 229
If KeyAscii = 100 Then KeyAscii = 237
If KeyAscii = 109 Then KeyAscii = 198
If KeyAscii = 57 Then KeyAscii = 49

نوشته شده توسط مهدی در چهارشنبه 90/6/2 و ساعت 12:42 عصر | نظرات دیگران()

قبلا این برنامه رو معرفی کرده بودم، کارش تغییر متن توی سورس هست، در واقع متن بکار رفته شده توی سورس رو عوض میکنه (ما بین دو تا ") تا کسی به راحتی با باز کردن برنامه توی یه ادیتور هگز یا برنامه های کرک نتونه اونهارو بینه.

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

نحوه اعمال تغییرات در سورس در تصاویر مشخصه:

    Name : http://vbcode.parsiblog.com
Code : F5D4-0A21-F5DC-0A23

Name : MMBDev
Code : FE03-0201-FDFD-0202

دانلود

نوشته شده توسط مهدی در چهارشنبه 90/6/2 و ساعت 12:37 عصر | نظرات دیگران()

این برنامه کمک میکنه که شما بتونید متن یک آیتم در لیست باکس رو که گاهی هم طولانی شده بصورت تولتیپ نشون بدین

عکس زیر منظورمو واضح نشون میده.

دانلود

نوشته شده توسط مهدی در چهارشنبه 90/6/2 و ساعت 12:30 عصر | نظرات دیگران()

یه سورس براتون میذارم که نحوه محدود کردن ماوس رو بر روی یه فرم خاص نشون میده.

این به این معنیه که کاربر فقط میتونه ماوس رو توی محدوده تعریف شده ما (روی فرم) حرکت بده.

من دیدم بیشتر ازش توی فرمهایی که رمز ورود به برنامه رو از کاربر دریافت میکنن استفاده میکنن. (شاید یه حرکت امنیتیه!!)

دانلود

نوشته شده توسط مهدی در چهارشنبه 90/6/2 و ساعت 12:27 عصر | نظرات دیگران()

کافیه مسیر مورد نظرتون از رجیستری رو به تابع زیر بفرستید تا برنامه 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
 
خط پنج ادامه خط چهار هست بعد از کپی درستش کنید
 (من برای اینکه کامل نشون داده بشه اینجوری نوشتم)

نوشته شده توسط مهدی در سه شنبه 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
 دانلود ماژول

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

بنا به درخواست دوست گرامی آقا میثم یه نمونه از کاربرد Gif control براتون میذارم.

دانلود

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