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

[asfo]

سلام به همه بچه های گل
تازه واردم تحویل بگیرید!
به کرک برنامه Target Email Extractor - ver. 1.2 نیاز دارم. یک برنامه بسیار عالی برای حمع آوری ایمیل ها از سطح و زیر و بالا و پائین سایت با تعیین نوع عمق بمب گذاری و...!

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

منتظر یاری کرکیتان هستم.
البته نه از اون کرک بلکه از این کرک

[civilmans]

لينك برنامه كجاست؟ محدوديت برنامه ؟ ....

[asfo]

من از اینجا دانلود کردم
http://www.brothersoft.com/target-email-...41675.html
نوع محدودیتش: وقتی میخوام نتایج رو save کنم نمیذاره و میگه:
saving is disabled in demo version
ماشالا قیمتش هم کم نیست ... 195 $ !
البته جایی که S/N بخواد بذارم رو ندیدم. واقعیتش رو بخوای نمیدونم دقیقا چجوری باید رجیستر بشه. تو قسمت About میزنه unregistered همین.
هیچ گزینه دیگه ای برای رجیستر کردن نداره یا حداقل من ندیدم.
ممنون

[civilmans]

دوست عزيز برنامه دمو هست و قابليت ارتقا به فول ورژن را ندارد.

[joker]

برنامه های این مدلی را باید براشون یا کد اینجکت کنی یا کد فایل را جوری تغییر بدی که به جای نمایش توی Listview یه جای دیگه ذخیره کنه

ببین ارش قبلا یه کاری میخواست بکنه که صورت مسئله پاک بشه ، ببین اگه آماده چیزی داره ، کارت را راه میندازه حتما
http://www.iranled.com/forum/Thread-%D8%...A-ListView

[veyskarami]

کد:

function GetItemsText(Wnd: HWND): string;
var
  temp: string;
  item: PChar;
  i, count: integer;
  lvi: TLVITEM;
  _lvi: PLVITEM;
  pid: longint;
  proc: HWND;
  null: cardinal;
begin
  Result := '';
  count := SendMessage(Wnd, LVM_GETITEMCOUNT, 0, 0);
  GetWindowThreadProcessId(Wnd, @pid);
  proc := OpenProcess(PROCESS_VM_OPERATION or PROCESS_VM_READ or
        PROCESS_VM_WRITE or PROCESS_QUERY_INFORMATION, FALSE, pid);
  try
    _lvi := VirtualAllocEx(proc, nil, SizeOf(TLVITEM), MEM_COMMIT, PAGE_READWRITE);
    item := VirtualAllocEx(proc, nil, 255, MEM_COMMIT, PAGE_READWRITE);
    SetLength(temp, 255);
    lvi.cchTextMax := 255;
    null := 0;
    for i := 0 to count-1 do
    begin
      lvi.iSubItem := 0;
      lvi.pszText := item;
      WriteProcessMemory(proc, _lvi, @lvi, SizeOf(TLVITEM), null);
      SendMessage(Wnd, LVM_GETITEMTEXT, wParam(i), lParam(_lvi));
      ReadProcessMemory(proc, item, PChar(temp), 255, null);

      Result := Result + '"' + PChar(temp) + '",';
    end;
    Delete(Result, Length(Result), 1);
  finally
    VirtualFreeEx(proc, _lvi, 0, MEM_RELEASE);
    VirtualFreeEx(proc, item, 0, MEM_RELEASE);
  end;
end;

[asfo]

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