تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




صفحه 9 از 15 اولاول ... 5678910111213 ... آخرآخر
نمايش نتايج 81 به 90 از 150

نام تاپيک: ساخت ترینر توسط ویژوال بیسیک

  1. #81
    حـــــرفـه ای ALt3rnA's Avatar
    تاريخ عضويت
    Jun 2005
    محل سكونت
    Politziea
    پست ها
    4,748

    پيش فرض

    حقیقت من الان دارم عکسای اموزش تی سرچمو اپلود میکنم ولی بعدا مطمءن باشید میزارم

  2. #82
    آخر فروم باز vorojax's Avatar
    تاريخ عضويت
    Mar 2006
    محل سكونت
    آنجا که دل خوشست....
    پست ها
    1,270

    پيش فرض

    بازم اين گيم هكر دمت گرم

  3. #83
    پروفشنال Morteza_SOS's Avatar
    تاريخ عضويت
    Apr 2006
    پست ها
    577

    پيش فرض

    به نام خدا
    با سلام خدمت همگی من آمده ام با دست پر اگر با زبان انگلیسی مشکلی ندارید یک سایت آموزش ساخت تراینر معرفی کنم در ضمن من نیز در آن سایت همکار مدیر کل سایت هستم پس با این همه مشغله کاری توقع نداشته باشید هر روز سر بزنم در ضمن وروجکس جان خیلی ممنون اگه از گیم هکر راضی باشی انگار از من راضی هستی پس پاچه خواری ممنوع !
    آدرس سایت : [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
    اگر مشکلی داشتید از اول تابستان به بعد ما منتظر نظراتتان هستیم !
    بچه من نمی دانم شماها چی خواستید و ما نگذاشتیم!!!؟

  4. #84
    پروفشنال Morteza_SOS's Avatar
    تاريخ عضويت
    Apr 2006
    پست ها
    577

    پيش فرض

    به نام خدا
    در جواب دوست گرانقدر گیم هکر جان عرض کنم که اون موضوعی که من در پست های قبلی مطرح کردم به هیچ عنوان به فارسی سازی بازی ها ربطی نداشت بلکه 100% به هک کردن بازی مرتبط بود .
    راستی دوست عزیز چرا تاپیک هک کردن بازی را کند پیش می بری .

  5. #85
    حـــــرفـه ای ALt3rnA's Avatar
    تاريخ عضويت
    Jun 2005
    محل سكونت
    Politziea
    پست ها
    4,748

    پيش فرض

    مرتضی جدا راست میگی؟؟؟؟ تو دستیار رییس گروه ces هستی؟؟

  6. #86
    حـــــرفـه ای ALt3rnA's Avatar
    تاريخ عضويت
    Jun 2005
    محل سكونت
    Politziea
    پست ها
    4,748

    پيش فرض

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

  7. #87
    حـــــرفـه ای ALt3rnA's Avatar
    تاريخ عضويت
    Jun 2005
    محل سكونت
    Politziea
    پست ها
    4,748

    پيش فرض

    دوستان شرمنده یکم هیجانی زدم....

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

    دوم اینکه من همین امروز امتحاناتم تموم شد خب معلومه که دیر به دیر میومدم

    سوم اینکه هنوز اموزش ها رو توی سایت قرار نداده اند ولی من ارشیو همه رو دارم اگه چیز خاصی مد نظرتونه پی ام بدید

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

    پنجم هم اینکه اقای مرتضی ایدی یاهوتو اگه داری بده کارت دارم

  8. #88
    حـــــرفـه ای ALt3rnA's Avatar
    تاريخ عضويت
    Jun 2005
    محل سكونت
    Politziea
    پست ها
    4,748

    پيش فرض

    WriteProscessMemory Tutorial
    Basic Game Hacking Tutorial For Visual Basic 6.0
    By LCSBSSRHXXX

    Tools:
    ArtMoney (or other memory searchers)
    VB 6.0
    Program you want to write new memory too.

    In this example we will use a free game called PQ (Progress Quest)
    [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]




    ################################################## #################################
    ### NOTICE: ###
    ### Addresses, and search results will often varry for different users ###
    ################################################## #################################




    OK to start out make a file on PQ.
    Open up ArtMoney and Select Progress Quest in the "Select process" combo box
    Now click search set it up as the fallowing :

    Search - Exact Value
    Value -
    Type - ALL

    Value is what you want your searching for. Well start out by searching for your characters Race, my characters race it Panda Man,
    you need to type the value your searching for exactly how it is in the game (because the search is Case sensetive)

    Search - Exact Value
    Value - Panda Man
    Type - ALL

    You should come up with a couple of results, around 4 maybe more or less, but around there.


    ################################################## #################################
    ### NOTICE: ###
    ### Addresses, and search results will often varry for different users ###
    ################################################## #################################

    Value 1 - 0012002F - Panda Man - Text 9 Bytes
    Value 2 - 0016E247 - Panda Man - Text 9 Bytes
    Value 3 - 004D0BCE - Panda Man - Text 9 Bytes
    Value 4 - 009F98D8 - Panda Man - Text 9 Bytes

    Now your going to change the values.


    Value 1 - 0012002F - 1 - Text 9 Bytes
    Value 2 - 0016E247 - 2 - Text 9 Bytes
    Value 3 - 004D0BCE - 3 - Text 9 Bytes
    Value 4 - 009F98D8 - 4 - Text 9 Bytes

    Now go to the the bottom of ArtMoney and click save, or go to the "Table" menu then click "Save".
    Now open PQ back up, and look at your race. It should be the original value with the first letter replaced with one of the numbers you listed.

    Race - 4anda Man

    Now that it you know what number wrote to Panda Man (in my case 4) look at Value 4, and write down, or rember that address.


    Value 4 - 009F98D8 - 4 - Text 9 Bytes

    The address for value 4 is 009F98D8, now you know what address to write to.
    Open up VB, and start a new project, make a module, and a from called what ever
    In the module you want to put ur API in it (you dont need all of those calls, but those are the basic API calls you would use to write a ---- / trainer.)

    Option Explicit
    Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
    Public Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As Long
    Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
    Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function ReadProcessMemory Lib "kernel32" (ByVal hProcess As Long, ByVal lpBaseAddress As Any, ByVal lpBuffer As Any, ByVal nSize As Long, lpNumberOfBytesWritten As Long) As Long
    Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
    Public Const PROCESS_ALL_ACCESS As Long = &H1F0FFF

    Ok now your going to make a form with a command button, and textbox on it. Name the button cmdChange1, and the textbox txtRace.
    Double click cmdChange1, so u bring up the code window start out by writing this.

    Private Sub cmdChange1_Click()
    Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim hProcess as Long

    hwnd = FindWindow(vbNullString, "Progress Quest")
    If (hwnd = 0) Then
    MsgBox "Window not found!"
    Exit sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
    MsgBox "Couldn't get a process handle!"
    Exit Sub
    End If
    End Sub

    Ok that part of the code will find Progress Quest's Window and get the proscess's handle, if the window isn't open it will bing up an error.
    Now, for the other part of the code, This will write the new memory to the address, take the address from earlier and plug it in to the code:
    Since my address is 009F98D8, we will do this &H009F98D8, this will chop off the first digits (VB will do this automaticly)

    Input
    WriteProcessMemory pHandle, &H009F98D8, txtRace.Text, Len(txtRace.Text), 0&
    Output
    WriteProcessMemory pHandle, &H9F98D8, txtRace.Text, Len(txtRace.Text), 0&



    Finished code should look like this :

    Private Sub cmdChange1_Click()
    Dim hwnd As Long
    Dim pid As Long
    Dim pHandle As Long
    Dim hProcess as Long

    hwnd = FindWindow(vbNullString, "Progress Quest")
    If (hwnd = 0) Then
    MsgBox "Window not found!"
    Exit sub
    End If
    GetWindowThreadProcessId hwnd, pid
    pHandle = OpenProcess(PROCESS_ALL_ACCESS, False, pid)
    If (pHandle = 0) Then
    MsgBox "Couldn't get a process handle!"
    Exit Sub
    End If
    WriteProcessMemory pHandle, &H9F98D8, txtRace.Text, Len(txtRace.Text), 0&
    CloseHandle hProcess
    End Sub

  9. #89
    پروفشنال mshiraz.2006's Avatar
    تاريخ عضويت
    May 2006
    محل سكونت
    شيراز
    پست ها
    698

    پيش فرض

    به نام خدا
    کدهای زیر رو کجا باید وارد کرد؟
    میشه یه کم بیشتر توضیح بدید؟

  10. #90
    آخر فروم باز vorojax's Avatar
    تاريخ عضويت
    Mar 2006
    محل سكونت
    آنجا که دل خوشست....
    پست ها
    1,270

    پيش فرض

    اقايه توضيح كوچكولو هم بده دمت گرم

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

  • شما نمی توانید تاپیک ایحاد کنید
  • شما نمی توانید پاسخی ارسال کنید
  • شما نمی توانید فایل پیوست کنید
  • شما نمی توانید پاسخ خود را ویرایش کنید
  •