رفتن به مطلب
  • 0

mashgholom
 اشتراک گذاری

سوال

سلامی دوباره به دوستای گلم

دوستان تو برنامه نویسی بیسیک میشه رنج ای پی مشخص کرد؟

اگه میشه لطفا کد بزارید همه استفاده کنن انجمن هم پربار تر از قبل بشه

لینک ارسال
به اشتراک گذاری در سایت های دیگر

8 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

  • 0

سلام.

مثلا مشخص کرد که فلان رنج ip ها بتونن از این برنامه استفاده کنن ؟

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

نه داداش گلم

مثلا تو برنامه یه رنج ای پی از 127.0.0.1 تا 127.0.0.100 تعریف کنیم بعد وقتی شخص به اینرنت وصل شد ای پی گرفت بیاد ای پی گرفته شده رو با رنج ای پی که ما دادیم مقایسه کنه اگر تو رنج ای پی تعریف شده بود پیام از قبل تعریف شده رو نمایش بده

( کد قسمت دریافت ای پی و نمایشش دارم )

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

کاری نداره.

میتونی یک database تعریف کنی چه از نوع db و چه txt و چه html و توش لیست IP هایی رو که میخوای قرار بدی.

ip1

ip2

ip3

بعد از اینکه برنامه باز شد و IP گرفته شد از طریق indexOf میتونی به راحتی Search کنی که آیا IP که الان باهاش هستی توی لیست وجود داره یا نه

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

خیلی راحته این مدل چیزی که شما میخوایین.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

داداش مشکل اینکه من 100 یا 200 تا ای پی نمیخوام معرفی کنم شما فرض کن من از 127.0.0.1 تا 127.0.0.100.100 ای پی میخوام مشخص کنم خیلی نوشتننش سخته راه دیگه ای نیست

اخ نمیشه تک تک وارد کرد باید رنج داد تعداد ای پی ها خیلی زیاده داداش

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

آهان . خب راه های مختلفی میتونه وجود داشته باشه. یکی از راه هاش split هست. ساده هست

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0
آهان . خب راه های مختلفی میتونه وجود داشته باشه. یکی از راه هاش split هست. ساده هست

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

ممنون منتظر هستم

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

سلام صبح بخیر

خب جواب شما :

فرض کنید شما یک string دارید که شامل IP شما میشه که باهاش کانکت شدید.

بیایید با IP فرضی کار کنیم خب ؟

توی Sub Globals :

Sub Globals
   Dim lines As String
End Sub

خب حالا IP فرضی رو تعریف میکنیم در Activty Create :

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("split")
lines = "192.168.30.40"
End Sub

IP چهار قسمت داره دیگه !!! توی Sub Globals اینها رو هم تعریف کن :

Dim aval As Int
   Dim dovom As Int
   Dim sevom As Int
   Dim chaharom As Int

خب حالا می مونه قسمت شرطمون. واسه تمرین یک Button از Desginger اضافه کن و وارد رویداد کلیک اش بشو :

Sub Button1_Click

End Sub

تمام کدهایی که زیر میزارم باید داخل کلیک قرار بگیرن:

خب ما اول میاییم با یک Replace حروف های "." رو به "," تغییر میدیم :

lines = lines.Replace(".",",")

خب ؟

بعدش بعدش میریم سراغ split که دیشب بهت گفتم. از طریق Regex کار میکنیم:

Dim ip() As String = Regex.Split(",",lines)

خب ؟

حالا میریم سراغ جداسازی قسمت ها:

    aval = ip(0).Trim
   dovom = ip(1).Trim
   sevom = ip(2).Trim
   chaharom = ip(3).Trim

خب کار ما تمومه / فقط حالا می مونه شرط هامون:

        If aval > 192 Then
       ToastMessageShow("قسمت اول رنج آی پی بزرگه",False)
       Return
       Else
       If dovom > 168 Then
       ToastMessageShow("قسمت دوم رنج آی پی بزرگه",False)
       Return
       Else
       If sevom > 30 Then
       ToastMessageShow("قسمت سوم رنج آی پی بزرگه",False)
       Return
       Else
       If chaharom > 40 Then
       ToastMessageShow("قسمت چهارم رنج آی پی بزرگه",False)
       Return
       Else
       ToastMessageShow("آفرین رنج آی پی درسته",False)
       End If
       End If
       End If
       End If

تمام.

سعی کنید این تالار رو به دوستاتون هم معرفی کنید.هنوز 1 ماه هم از راه اندازی سایت نگذشته.هرچقدر کاربران سایت بیشتر باشن و تالار فعال تر باشه اطلاعات علمی همگی بالاتر میره و ما هم

با انگیزه بیشتری کار خودمون رو در کنار شما ادامه میدیم .

به امید موفقیت همگی

لینک ارسال
به اشتراک گذاری در سایت های دیگر

  • 0

سلامی دوباره

اول تشکر کنم از زحمات شما و دوستای عزیز این انجمن

به روی چشم حتما من خودمم پاییه این انجمن شدم ایشاا... این انجمن تا چند هفته ی دیگه خیلی شلوغ پر بار میشه باعث افتخار من جزو این انجمنم اما نه شلوغ بشه ما رو فراموش کنی داداش مهدی :دی

منون از پاسخی که دادی دادا مهدی انجامش میدم و توهمین تایپک جوابش بهتون اعلام میکنم

:)

لینک ارسال
به اشتراک گذاری در سایت های دیگر

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
 اشتراک گذاری

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...