سلاو لهم رون كردنهوهيه باس لهلێك بهستنی Winsock دهكهم لهگهڵ Form بۆ دهركهوتنی IP Network Connection
ريَكخستنى ئهم پرِۆژه بچوكه هيوادارم سود بهخش بيت
سهرهتا كرته بكه لهسهر بهرنامهی Microsoft Visual Basic 6.0 دوای كرته كردن ئهمجاره له بونهوهی پهنجهرهی پڕۆژه نويهكان Standard EXE نيشان بكهو كرته بكه لهسهر Open دوای كرته كردن لهسهر Open پهنجهرهی داڕشتنی پڕۆژه ئهبيتهوه وهك له وينهی خوارهوه ببينه
دوای بينينی وينهی فۆرِمی پڕۆژه له ليستی سهرهوهی مينو كرته بكه لهسهر Project پاشان كرته بكه لهسهر Components
Components دوای كرته كردن لهسهر Components ئهمجاره پهنجهرهی نيشاندانی Dll و OCX ئهبيتهوه زياتر ئهم پهنجهرهيه كاری ليك بهستنی پی ئهكريت له نێوان پڕۆژهو Dll و OCX وهتا شتيكی ئاسايه گهر Dll و OCX گشت بهرنامهكان تۆ له پرۆژهكهی خۆت بهكاری بهينيتهوه بينينی ئهو كارهش لهم وينهی خوارهوه سهير بكه
تۆ لهم پهنجهرهيه Mswinsck.Ocx نيشان بكه پاشن كرته به لهسهر OK بينی ئهو كارهش لهم وينهی خوارهوه سهير بكه
دوای كرته كردن سهرنجی ليستی General بده ئهبينيت ئايكونهكی نوی لهم ليسته دهركهوتوه كه ئهمهش ئايكۆنی Winsock كه
تۆ له ليستی General به نوكی مهوسهكهت Winsock بكيشه ناو فۆڕمی پڕۆژه
ههر له ليستی General يهك Command يهك Text بهێنه ناو فۆڕمی پڕۆژه بينينی ئهو كارهش سهير بكه لهم وينهی خوارهوه
دوای هينان ريكيان بخه وهك لهم وينهيه من ريكم خستوه
ئيستا كاتی ئهوه هاتوه چهند رێكخستنێك له كۆدهكان ئهنجام بدهيت 2 جار كرته بكه لهسهر فۆِرمی پڕۆژه دوای كرتهكردن پهنجهرهی كۆد چنين ئهبيتهوه لهم پهنجهرهيه
به بهشی
کۆد:
Private Sub Form_Load() End Sub
وهك له وينهی سهرهوه رستهكان نوسراون رون كردنهوهی رستهكان له 3 خال نيشان كراوه بۆ ئهوهی دياری بكهين ليك بهستنهكان چۆن ئهنجام ئهدريت كارهكه چۆن ئهكريت و بۆچيه
1- نوسراوی ناوی Form1 لهبهر ئهوهی من ئهم ناوهم نوسيوه چون فۆڕمی پڕۆژهكه بهو ناوهيه ئهگهر فۆرِمی پڕۆژهكه به ناوێكی تر بيت ئهبيت ئهو كات ئهو ناوه له دهسپێكی داڕشتنهكه بنوسين نوسراوی . كه هيمای يهك خاڵه به نوسينی ئهو خاڵه له دوای Form1 ئهو كات ليستيك ئهبيتهوه كه چهند فهرمانيكی ئامادهی لهناوه ئيمه فهرمانی Caption دياريمان كردوه ئهم فهرمانه فهرمانی ناو نيشانه وهتا لهم رستهكۆده گهر بهكار هاتوه ئهبيت به بهرمانی ناونيشانی فۆڕم دوای ئهو هيمای = داندراوه بۆ ئهوهی ليَك ببهستريتهوه لهگهل " "
هيمای " " ئهبيته سنودقی دهقی تيدا نوسراو وهتا ههر نوسراويك له بهينی " " دا بنوسريت له داهاتو له كاتی وهكار كهوتنی پڕۆژه راستهو خۆ نوسراوی ناو " " ئهبيته ناو نيشانی پڕۆژه نمونه من ئهوهم نوسيوه "IP Network Connection" خۆم ئهو ناوهم بۆ داناوه بۆ ئهو پڕۆژهيه چون كاری نيشاندانی ئايپی ئينتهرنيته
2-ناوسراوی Command1 لهبهر ئهوهی ئهوهم نوسيوه چون من له ناو پڕۆژه دوگمهكم بهكار هيناوه چون دوگمهكهش ئهوه ناويهتی Command1 بۆيه ئهبيت لهسهرهتای ئهو كۆد چنينه ئيشارهی پی بدهين دوای ئهو . بهكار هاتوه وهتا دۆت نوسينی دۆت بۆ ئهوهيه ليك بهستی پی بكهين له دوگمهی Command1 لهگهڵ شتێكی تر بۆيه ئيمه هيمای دۆت نوسيومانه دوای نوسينی . ليستهك ئهبێتهوه من لهو ليسته نوسراوی ئامادهی Caption ههڵم بژاردوه دوای Caption هيمای = دام ناوه بۆ ئهوهی ليك بهستينك بكهم له نيوان = و " " چۆن بۆكسی
" " ئهبيته ناو نيشانی Command1 تۆ لهناو " " به كوردی بنوسه نيشاندان وهك من همان شتم نوسيوه " نيشاندان "
3- نوسراوى Text1 لهم رستهيه خۆی ئهبينيتهوه چونكه ئيمه له ناو پڕۆژهكهمان Text1 بهكارمان هيناوه بۆيه ئهبيت لهسهرهتای كۆد ئيشارهی بی بدهين دوای ئهو هيمای دۆت نوسراوه نوسينی هيمای دۆت بۆ ليك بهستنه له نيوان Text1 و فهرمانه ئامادهكراوهكانی Text1 من لهناو كۆدهكان Text م بهكار هيناوه دوای ئهو هيمای = بهكارم هيناوه بهكار هينانی = بۆ كرداری ليك بهستنه دوای ئهويش
هيمای " "بهكارم هيناوه بهبهتهتاڵی بۆ ئهوهی Text1 ناو فۆڕمی پڕۆژه خۆی به شيوهی بهتاڵ نيشاند بدات له داهاتو لهكاتی وهكار كهوتن وهكو دهسپك ئيمه پێويستمان به وهيه لهسهر شيوهی بهتاڵبيت چونكه ئايپی خهتی ئينتهرنيتهكهمان وای لی ئهكهين لهو بۆكسه بهتاڵه دهر بكهويت
دوای ئهوهی وهكو من ئهو 3 رسته كۆده به تهواوی نوسيت ئهم جاره وهره ناو بهشی ديزاينی پڕۆژه كرته بكه لهسهر نوسراوی Command1
دوای كرته كردن بهشی كۆد چينين ئهبيتهوه, بۆ من ئهم ههويت كۆد له بهشی Command1چهند رسته كۆديك ليك بهستی بۆ بكهم ؟ وهڵام لهبهر ئهوهی كاتی پڕۆژهكه وهكار كهوت وه كرته كرا لهسهر ئهم دوگمهيه ههڵبسيت بهكارهكانی خۆی ئهويش دهركهوتنی ئايپتی دواكرته كردن و بونهوهی بهشی كۆد چنينى Command1 ببينه لهم وينهی خوارهوه
وهك له وينهكه دياره ئهو شوينهی من ئيشارهم بۆ كردوه تۆ ئهم كۆده وهك خۆی بنوسهوه
وهك لهو وينهی سهرهوه دياره كه يهك رسته كۆدم نوسيوه نيشانم كردوه به ژماره 4 بۆ ئهوهی رون كردنهوهيهك لهسهری بنوسم لهسهر چۆنيهتی لێكبهستنهكان
-4 نوسراوی Text1.Text ليك بتهستنه له نيوان Text1 داندراوی ناو فۆڕمی پڕۆژه نوسراوی دۆت . بۆ ئهوهی له فهرمانه ئامادهكانی Text يهكيك دياری بكهين من ههر Text دياريم كردوه پاشان دانانی هيمای = بۆليك بهستنێكی خاريجيه له نێوان textbox بۆ شتيكی تر وهتا بهدهر له فهرمانه ئامادهكراوهكانی بهشی Text ئيمه بۆيه هيمای = بهكارم هيناوه بۆ ئهوهی پشت ببهستنمهوه لهو رسته كۆده به Winsock
Winsock ئهم OCX تايبهته به پهيوهندی كردن به تۆڕی نێت له زمانی VB6 , زۆر OCX ههن بۆ ئهم بواره تايبهت به پهيوهندی كردن به تۆڕی نێت بهلام من لهم داڕشتنه ئهمهم به كارهيناوه چون تا رادهيهكی باش ههست ئهكهم له كارهكانی سهركهوتوهبۆيه لهم پڕۆژه ئهمهم ههڵبژاردوهو دام ناوه,دانانى Winsock له ناو فۆڕمی پڕۆژه, گهر بهكاری بهينم ئهبيت لێك بهستنی بۆ بكهم بۆيه من فهرمانهی = دام ناوه دواتر نوسراوی Winsock1 نوسيومه كه ئهم ناوه هی OCX ی Winsock كه ئهم فايله له ناو فايلهكانی System32 ههيه گهر نهبو ئهبيت كۆپيهكی بخهيته ناو System32 كه ئهمهش ناوهكهيهتی Mswinsck.ocx ,
دوای نوسينی Winsock1 ئهم جاره تۆ يهك دۆت بنوسه. دوای نوسينی دۆت كۆمهڵێك فهرمانی تايبهت Winsock ئهبيتهوه كه ههريهكيك لهو فهرمانانهی Winsock ئهتواندريت بۆ سهدان پڕۆژهو بهرنامه بهكار بهێندريت , بۆ ئهو پڕۆژهمان پيويسته له ليستی فهرمانهكانی Winsock نوسراوی LocalIP دياری بكهين وهك لهم وينهی خوارهوه دياره
LocalIP فهرمانيك بۆ دهركهوتنی ئايپتی ئهم فهمانه ريكخستنی بۆ كياروه پێشتر لهناو Winsock
كه كۆی گشتی ئهم رسته كۆده بهم شيوه ئهبيت
ئهم رسته كۆدهی نوسيمان كاری نيشاندانی IP Network Connectionئهكات ئهم لێك بهستنه خاريجيه پشتی به ستوه به Winsock
دوای كرته كردن به گويرهی ئهو ليك بهستنهی بۆمان كردوه ئايپيهكه دهر ئهچيت له ناو سنوق بۆكسی Text له ناو فۆڕمی پڕۆژه له كاتی بهكار هێنانی پڕۆژه لهلايهن بهكار هينهران ,
ئهمجاره له بهشی كۆد چنينی گشتی بهشی Genreal ئهم كۆدهش بنوسه Option Explicit گشت كۆدهكان ئهم پڕۆژهيه كه بهكارمان هيناوه ببينه لهم وينهی خوارهوه
ئيستا دوای ئهوهی كۆدهكانمان وهكو خۆی نوسي ئيستا ئهتوانين ئهم پڕۆژه تاقی بكهينهوه بۆ ئهوهی پڕۆژهكهمان وهكار بێخين لهسهر تهختهكليلهی ژێر پهنجهكانت كرته بكه لهسهر دوگمهی F5 دوای كرته كردن پڕۆژهكه ئهكهويته كار
ئيستا تۆ ئهتوانيت كرته بكهيت لهسهر دوگمهی نيشاندان دوای كرته كردن راستهو خۆ ئايپی خهتی نيتهكهت دهر ئهچيت له Text له ناو فۆڕمی پڕۆژه
بهم شيوهيه ئهتوانيت پڕۆژهيه ك دروست بكهيت بۆ دهركهوتنی ئايپتی نيت به VB6 به پاڵپشتی Winsock
--------
داگرتنی پرۆژهی تايبهت بهم وانهيه
هاورده 373
g.allai@yahoo.com
مهكۆكان
مهكۆ ئهندازياريهكان
دوایین ڤیدیۆكان
دهنگدان
ڕۆژمێر