ايران ويج

نسخه‌ی کامل: كد هاي مفيد ويژوال (بعضي به همراه سورس)
شما در حال مشاهده‌ی نسخه‌ی متنی این صفحه می‌باشید. مشاهده‌ی نسخه‌ی کامل با قالب بندی مناسب.
صفحه‌ها: 1 2 3 4 5
سورس نامهای فارسی به همراه معانی آنها
مبدل تاریخها
تبدیل چند نوع تاریخ به یکدیگر
سلام دوستان اینم یک سورس ساده که در تصویر می بینید کارش رو
[تصویر:  9aca73bd2bbab931d6081aa2e64b2c8b.jpg]
iranvag?????????Amaze
فکر کنم جای دو گزینش اشتباه رخ داده به بزگی خودتون ببخشید
یک برامه براتون نوشتم که باعث میشه هر وقت پنجره ی تسک منیجر باز شد اون رو درجا می بنده این کار برای ویروس نویسا می تون کاربرد داشته باشه
به سورسش قابلیت استارت آپ داده نشده
این سورس کد یک ماژول به همراه توابع API لازم برای کار با رجیستری هست که با استفاده از یک پروژه به شما نشون می ده چطور می تونید در رجیستری مقداری بسازید، اون رو تغییر بدید یا جذفش کنید.
[attachment=4828]
سورس کدها یه کم اماتوری هست البته منو بببخشید
یه کم رو پروسه ها مانور بدیم :-)
کد:
Option Explicit

Private Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Long, ByVal dwPriorityClass As Long) As Long
Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
  
Const PROCESS_ALL_ACCESS = &H1F0FFF

Const IDLE_PRIORITY_CLASS = &H40
Const BELOW_NORMAL_PRIORITY_CLASS = &H4000
Const NORMAL_PRIORITY_CLASS = &H20
Const ABOVE_NORMAL_PRIORITY_CLASS = &H8000
Const HIGH_PRIORITY_CLASS = &H80
Const REALTIME_PRIORITY_CLASS = &H100

Public Enum PRIORITY_CLASS
    IDLE_PRIORITY
    BELOW_NORMAL_PRIORITY
    NORMAL_PRIORITY
    ABOVE_NORMAL_PRIORITY
    HIGH_PRIORITY
    REALTIME_PRIORITY
End Enum

Public Function RunAndSetPriority(PathName$, WindowStyle As VbAppWinStyle, Priority As PRIORITY_CLASS) As Long
    Dim hInst, hProcess, dwPriorityClass As Long
    Select Case Priority
        Case IDLE_PRIORITY
            dwPriorityClass = IDLE_PRIORITY_CLASS
        Case BELOW_NORMAL_PRIORITY
            dwPriorityClass = BELOW_NORMAL_PRIORITY_CLASS
        Case NORMAL_PRIORITY
            dwPriorityClass = NORMAL_PRIORITY_CLASS
        Case ABOVE_NORMAL_PRIORITY
            dwPriorityClass = ABOVE_NORMAL_PRIORITY_CLASS
        Case HIGH_PRIORITY
            dwPriorityClass = HIGH_PRIORITY_CLASS
        Case REALTIME_PRIORITY
            dwPriorityClass = REALTIME_PRIORITY_CLASS
        Case Else
            dwPriorityClass = NORMAL_PRIORITY_CLASS
    End Select
    hInst = Shell(PathName, WindowStyle)
    hProcess = OpenProcess(PROCESS_ALL_ACCESS, 0&, hInst)
    Call SetPriorityClass(hProcess, dwPriorityClass)
    Call CloseHandle(hProcess)
    RunAndSetPriority = hInst
End Function
نیازی به توضیح نیست میتونید مقدار pirority procsses برنامه مورد نظر را بالا ببرید
ابزاري بسيار عالي براي انتخاب رنگ كرك شده و كارايي جالبي داره
ابزاري براي ساخت منو هاي متنوع و زيبا

http://www.mehriran.ir/files/VB/program/VLMenu.rar
اینم یک سورس فوق عالی برای قرار دادن یک فــــیــــلــــم در بکگراند (BackGround) که من واقعاً لذت بردن از این سورس
این سورس با 9 ماژول نوشته شده دانلود نکردی ضرر کردی
ابزارهاي كرك شده codeJock نسخه 13.2 يكي از بهترين ابزار هاي برنامه نويسي
پك كاملش را از سايت codeJock بگيريد و ابزارهاي كرك شدش را از اين لينك

کد php:
كركش
http
://www.4shared.com/file/197595378/30a932aa/OCX.html 
پك كاملش
کد php:
http://www.codejock.com 
صفحه‌ها: 1 2 3 4 5