PDA

View Full Version : بدست آوردن ip



programmermp
شنبه 04 شهریور 1385, 13:07 عصر
با سلاممی خواستم بدونم چطوری می شه ip یک سیستم در حال استفاده از برناممو که با نک اطلاعاتی آن sql server و روی سرور هست و کاربر در کلاینت بدست اوردیعنی ip کاربر در کلاینت رو بدست بیارمبا تشکر

titbasoft
شنبه 04 شهریور 1385, 14:02 عصر
اگر اشتباه نکنم شما چنین چیزی لازم دارید:


Dim myIPs As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHos tName())
For Each myIP As System.Net.IPAddress In myIPs.AddressList
Console.Write(myIP.ToString())
Next

programmermp
شنبه 04 شهریور 1385, 15:17 عصر
با سلام و تشکر از شما

اگه بخواهم بجای کنسول در یک textbox ای پی (IP) رو نشون بده چه تغییراتی لازم هست

در کد فوق انجام بدهم

با تشکر

titbasoft
شنبه 04 شهریور 1385, 15:38 عصر
2 تا نکته:
1) الزاما Client شما با یک IP کار نمی کنه، مثلا ممکنه یک IP از اینترنت گرفته و یک IP هم از اینترانت
2) myIP.ToString یک مقدار رشته ای است پس به راحتی می تونید از کد زیر برای نمایش اون توی TextBox استفاده کنید:

textbox1.text=myIP.ToString اما توجه داشته باشید که با جایگذین کردن این کد با کد پست قبلی، شما فقط آخرین IP ای رو که از داخل حلقه بدست اومده ، خواهید دید.

programmermp
شنبه 04 شهریور 1385, 16:08 عصر
با سلام

بنابر این برای نمایش دادن تمام ipها ی بدست آمده باید از listviewbox یا combobox به

جای textbox استفاده کنم درسته

با تشکر

حامد رضائی
یک شنبه 05 شهریور 1385, 11:52 صبح
این هم کد بالا با یکمی تغییرات
این نام و IP سیستم رو در یک لیست باکس نشون می ده



MyListBox.Items.Clear()
Dim myIPs As System.Net.IPHostEntry = System.Net.Dns.GetHostByName(System.Net.Dns.GetHos tName())
Dim temp As String
For Each myIP As System.Net.IPAddress In myIPs.AddressList
temp = myIPs.HostName & " IP is : " & myIP.ToString()
MyListBox.Items.Add(temp)
Next

tayebeh
دوشنبه 02 بهمن 1385, 10:01 صبح
با سلام
یک سئوال برای من پیش آمد . اگه بخواهیم بدانیم که آیا این کامپیوتر در شبکه کار می کنه یا اینکه نه بصورت single هست و خارج از شبکه هست باید چیکار کرد؟

Sub Zero
دوشنبه 02 بهمن 1385, 12:02 عصر
اگه بخواهیم بدانیم که آیا این کامپیوتر در شبکه کار می کنه یا اینکه نه بصورت single هست و خارج از شبکه هست باید چیکار کرد؟

اگه اشتباه نکنم :


If My.Computer.Network.IsNetworkAvailable Then MsgBox("You Are In The Network")

tayebeh
دوشنبه 02 بهمن 1385, 12:33 عصر
ببخشید my از چه نوع کلاسیه ؟

programmermp
دوشنبه 02 بهمن 1385, 12:46 عصر
سلام

اگه توی help وی بی می نوشتی بهت می گفت ولی باز هم به مطالب زیر نگاه کن




The My feature makes programming faster and easier by giving you intuitive access to commonly used methods, properties, and events. This table lists the objects contained in My, and the actions that can be performed with each.

Action Object Accessing application information and services.
My.Application Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/a0ecfccf-acf7-49ec-a08b-72e6458c5c8d.htm)
Accessing the host computer and its resources, services, and data.
My.Computer Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/cc814d79-6f7f-4e54-8b9d-5ecfdd77a0b8.htm)
Accessing the forms in the current project.
My.Forms Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/f6bff4e6-6769-4294-956b-037aa6106d2a.htm)
Accessing the application log.
My.Log Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/309b14b4-8875-4b2f-9661-a734b8cbff07.htm)
Accessing the current web request.
My.Request Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/93d5f0e2-6b60-4a2c-8652-d90216f6ad10.htm)
Accessing resource elements.
My.Resources Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/34c3f2dc-7b87-432c-9d5f-17ea666bb266.htm)
Accessing the current web response.
My.Response Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/626359bc-3165-40b4-bfaf-2c610e26eb5b.htm)
Accessing user and application level settings.
My.Settings Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/41f30dc1-202a-4273-b9b7-5728941f996c.htm)
Accessing the current user's security context.
My.User Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/caa7462e-2149-4bdb-8850-802b80b93cbf.htm)
Accessing XML Web services referenced by the current project.
My.WebServices Object (http://www.barnamenevis.org/forum/ms-help://MS.VSCC.v80/MS.MSDN.v80/MS.VisualStudio.v80.en/dv_vbalr/html/f188dc05-2c75-41b6-bb68-122d1c3110a2.htm)



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

البته اگه جستجو می کردید توی تالار به نتیجه می رسیدید چون

من یادمه یه جا دیگه این مطلب رو گفته بودم

titbasoft
دوشنبه 02 بهمن 1385, 12:57 عصر
ببخشید my از چه نوع کلاسیه ؟به VB.Net 2005 مراجعه شود

tayebeh
دوشنبه 02 بهمن 1385, 13:51 عصر
ببخشید من با vb2003 کار می کنم . معادل این دستور در 2003 چی هست؟