کمک:بدست آوردت ip با ویبی

[vb6666]

با سلام به تمام ویبی کارها
من یه تروجان درست کردم که می خوام تو سرورش دستوری رو بدم که
به کلاینت من ارسال کنه منظورم همون ip address
طرفی که سرور رو اجرا می کنه هست من این کد رو نوشتم تو فرم لود سرور
ولی dim s
s=tcpserver.localip
tcpserver.senddata s
ولی این ارور ران تایم می ده
جون مادرتون کمکم کونید
دمتون گرم

[kuh_nur]

میشه متن ارور رو بزاری

[mpmsoft]

دوست عزیز آیا شما از کنترل winsock استفاده کردید ؟
اگر به این شکل باشه شاید بروی سیستم طرف Wnsock.ocx نصب نیست
شما باید با API کار کنی

می تونی از سایت www.planet-source-code.com این واژه winsock api رو بگردی و 100% نتیجه می گیری

[vb6666]

با سلام وخسته نباشید به تمامی ویبی کارها
آقا ارور برنامه server من این بود
Run time error '40006
wrong protocol or connection state for the requested transaction or request
در ضمن من از وینسوک استفاده می کنم

[mpmsoft]

دوست عزیز باید قبل از وصل شدن کانکشن رو ببندی Winsk(0).Close

[vb6666]

منظور شما این توریه
Private Sub Form_Load()

tcpserver.LocalPort = 5000
Call tcpserver.Listen
Dim s
s = tcpserver.LocalIP
tcpserver.SendData s
tcpserver.Close
end sub
این کد تو سرو فرم لود هستش
و وقتی برنامه سرور رو اجرا می کنم اون اروره از این قسمت ایراد می گییره
tcpserver.SendData s

[aminbrleevb]

برنامه اولی کارش اینه که آدرس سایت رو می گیره آیپی و بدست میاره
این برنامه کاملا تست شده فقط باید برنامه رو بدون http:// استفاده کنید موفق باشید
یه توضیح هم داده باشم در اینجا که ما قبلا با دیال آپ که کنکت می شدیم برای برای بدست آوردن آیپی سایت راحت از دستور ping استفاده می کردیم ولی در adsl نمی شه این کارو کرد ولی این برنامه مشکل رو حل کرده

برنامه دومی هم کارش اینه که آیپی کلاینت رو بر می گردونه که شما نیاز به این برنامه دارین.

[vb6666]

آقا یکی نیست به ما کمک کنه

[aminbrleevb]

اگه مشکل شما بدست آوردت ip با ویبی هست برنامه دومی که گذاشتم این کارو انجام میده.

[vb6666]

دوست عزیز aminbrleevb
اون کد قسمت دومی رو که گذاشتید رو می دونم
من مشکلم اینجاست که وقتی اون کد اجرا می شه
همون طور که مثل بالا گفتم
از اون قسمت ایراد می گیره و ارور می گیره
از این تیکه کد ایراد می گیره
tcpserver.senddata s

[aminbrleevb]

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

[vb6666]

دوست عزیز فیروال من خاموش بود
اما بازم برنامه همون ارور رو می ده
در ضمن یه چیزی رو هم بگم اینکه وقتی برنامه
ارور می ده من وقتی دکمه دیباگ رو می زنم
ip در داخل متغیر وجود داره ولی ارور می ده یعنی ip در داخل متغیری که من
تعریف کردم هست (tcpserver.senddata s) منظورم همون s متغیری که خودم تعریف کردم هست

[r0ot$harp]

دوست عزیز فیروال من خاموش بود
اما بازم برنامه همون ارور رو می ده
در ضمن یه چیزی رو هم بگم اینکه وقتی برنامه
ارور می ده من وقتی دکمه دیباگ رو می زنم

تعریف کردم هست (tcpserver.senddata s) منظورم همون s متغیری که خودم تعریف کردم هست

دوست عزیز لطفا اون قسمت از پروژه که مشکل داره رو اینجا قرار بدبد .



باتشکر احسان

[مهران رسا]

دوست عزیز aminbrleevb
اون کد قسمت دومی رو که گذاشتید رو می دونم
من مشکلم اینجاست که وقتی اون کد اجرا می شه
همون طور که مثل بالا گفتم
از اون قسمت ایراد می گیره و ارور می گیره
از این تیکه کد ایراد می گیره
tcpserver.senddata s

قبل از


tcpserver.connect

بنویس


tcpserver.close

[vb6666]

با سلام
اینم قسمت سرور برنامه