سفارش تبلیغ

گوشی سه سیم کارته با تلویزیون
حذف تبلیغات طمع‌زا از رسانه ملّی
.
هرکه عاشق شود و [عشق خود را] پنهان دارد و پاکدامنی ورزد، خداوند، او را بیامرزد و به بهشت درآورد. [رسول خدا صلی الله علیه و آله]
امروز: جمعه 93 فروردین 29



Online backup storage and collaboration

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

برنامه عالی برای دانلود یوزر و پسورد نود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

 

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

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



  • کلمات کلیدی : 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 عصر | نظرات دیگران()

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

     

    دانلود دانلود



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

    بالا

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

    بالا