رنج ای پی

[mashgholom 34]

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

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

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

[مهدی ایزدی 9,203]

سلام.

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

[mashgholom 34]

نه داداش گلم

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

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

[مهدی ایزدی 9,203]

کاری نداره.

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

ip1

ip2

ip3

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

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

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

[mashgholom 34]

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

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

[مهدی ایزدی 9,203]

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

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

[mashgholom 34]

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

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

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

[مهدی ایزدی 9,203]

سلام صبح بخیر

خب جواب شما :

فرض کنید شما یک 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 ماه هم از راه اندازی سایت نگذشته.هرچقدر کاربران سایت بیشتر باشن و تالار فعال تر باشه اطلاعات علمی همگی بالاتر میره و ما هم

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

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

[mashgholom 34]

سلامی دوباره

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

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

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