ايران ويج

سلام به همه بچه های گل
تازه واردم تحویل بگیرید! Wink

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

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

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

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

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

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

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

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

کد: 
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;

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

asfo

civilmans

asfo

civilmans

joker

veyskarami

asfo