پیدا کردن شماره تلفن کانکشن

[hadi mahmoodi]

با عرض خسته نباشید خدمت تمامی دوستان. :موفق:

می خواستم بدونم کسی میدونه جطوری می تونیم تو دلفی یا هر زبانی دیگه

بتونیم شماره تلفن کانکشن رو را در اورد. :kaf:

یعنی شماره تلفنی که شخص به isp وصل می شه.

:kaf: ممنون.

هادی :sunglass:

[koosha system]

دوست عزیز من یک مدت طولانی رو این موضوع کار کردم
من استاد دلفی هستم.کار های غیر عادی و امنیتی و *گرافیکی* رو از من بخواه
این کد را بذار:
این کد شماره تلفن رو از تو فایل ... می یاره:



procedure TForm1.Button1Click(Sender: TObject);
var
iniF:TIniFile;
a:variant;
begin
//check///////////////////////
a:=GetWindowTask(FindWindow(nil,'Connect kss'));
caption:=a;
//////////////////////////////
Edit1.Text:=GetRegStringValue('SOFTWARE\Microsoft\ Windows\CurrentVersion\Explorer\Shell Folders','Common AppData',HKEY_LOCAL_MACHINE)+'\Microsoft\Network\C onnections\Pbk\rasphone.pbk';
Memo1.Lines.LoadFromFile(Edit1.Text);
iniF:=TIniFile.Create(Edit1.Text);
Label2.Caption:=iniF.ReadString('kss','PhoneNumber ','');
end;

[nasr]

من استاد دلفی هستم
قابل توجه آقای کرامتی

تا حالا ما همچین حرفی از آقای کرامتی هم نشنیده بودیم :kaf:

با سلام خدمت استاد دلفی

این کد همه چی برمی گردونه غیر از شماره تلفن

من استاد دلفی هستم

ایول به دل شیر شما . در پست اولتون خوب اومدین ( گربه رو دم حجله کشتین ) :confy2:

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

:موفق:

[koosha system]

من (شاگرد دلفی) در کفم.... :گیج:

واقعا از برخورد شما کفم بریده.تو هیچ سایتی من با این ÷اسخهای توب رو به رو نشده بودم.

خیلی از شما ها تشکر می کنم.

من استاد دلفی نیستم و شاگردشم ::نوشتن::

سر جمع خلاصه کنم.
ازتون خوشم اومد.باهاتونم.

من تو نرم افزارهای گرافیکی یک *کمی* تجربه دارم.

نرم افزار حفاظتی pixel رو من نوشتم.
کار این نرم افزار محافظت از اسناد و تصاویره
نمی تونم راجب اون توضیح بدم گذاشتم برای خوارزمی

[koosha system]

می خواستم بدونم رو چه حسابی کاربرا درجشون عوض می شه؟
تعداد بست؟ من حرف ب سه نقطه رو نمی تونم بنویسم :sorry:

[koosha system]

این برای بدست آوردن شماره کانکشنه
فقط به جای لغط kss اسم کانکشنتون رو بذارید

[nasr]

بابا بی خیال

ما خاک کف پای اساتید هم نیستیم

اگه حرفی هم زدممحض شوخی بود

اگه ناراحت شدید معذرت می خوام .

قصدم ناراحت کردن کسی نبود

ببخشید. معذرت می خوام

بابا مایم شوخی کردیم . امیدوارم که ناراحت نشده باشین . گفتیم دم عیدی بروبچ شاد بشن . :kaf:
بازم شرمنده شما دوست عزیز هستیم .
:oops:

در ضمن پیشاپیش عیدت مبارک :flower: :flower: :flower:

:موفق: :موفق:

[Mazdeh]

سلام آقای Koosh system میشه کدی هم در مورد ساختن caller id بنویسید .
چند روزه دارم جستجو می کنم کدی گیر نیاوردم.
کامپوننت Kdtele رو هم دارم اگه ممکنه برام کد مربوطه رو بذارین با تشکر

[ghabil]

سلام استاد
راستش من چند وقتیه حوصله کار ندارم واسه همین چپ و راست نشستم کد میخونم ، میگم این کدت خیلی باحاله ولی چندتا سوال برام پیش اومده :
این کد فقط کانکشنهایی رو میاره که زمان ایجاد برای All Users ساخته شده و برای User فعلی رو نمیاره ، نه ؟
اون چکی که اولش میکنی ماله چیه دقیقا ؟ بخصوص که از GetWindowTask استفاده کرده.
بهتر نیست INIFile رو رو هوا ول نکنیم ؟
کلا نظرت در مورد اینکه اینطوریش کنیم چیه ؟


procedure TForm1.Button1Click(Sender: TObject);
{- - - - - - - - -}
function GetConnectionPhone(ACnnName: String; ARoot: DWord; out APhone: String):Boolean;
begin
APhone := '';
with TIniFile.Create(GetRegStringValue('SOFTWARE\Micros oft\Windows\CurrentVersion\Explorer\Shell Folders','Common AppData', ARoot)+'\Microsoft\Network\Connections\Pbk\rasphon e.pbk') do
try
APhone := ReadString(ACnnName,'PhoneNumber','');
finally
Free;
end;
Result := APhone <> '';
end;
{- - - - - - - - -}
var
APhone: String;
begin
if not GetConnectionPhone('ConName', HKEY_LOCAL_MACHINE, APhone) then
if not GetConnectionPhone('ConName', HKEY_CURRENT_USER, APhone) then
raise Exception.Create('Connaection Name Not Found');
ShowMessage('PhoneNumebr Is : ' + APhone);
end;


البته من اینو تو دلفی ننوشتم تست هم نکردم نمیدونم شاید مشکل داشته باشه حالا خودت یک تستیش بکن.
ولی کلا کد باحالی بود .