Hi Doostan
Az Libraryhaye B4A ,Network Ro Tik Bezanid, Dar Ghesmate Sub Globals:
Server Socket Tarif Mikonim, Ba Type Kardane x. Mitunid Bebinid Emkanatesho !
-----
Ba Method Zir Ham Mitunid Ip Ro Get Konid, Vaghti Net Vasl Nabashe IP = 127.0.0.1 Hastesh, Pas Vaghti Ip In Bood Yani Net Nist, Age Chize Dige Bood, Be Internet Vaslim :
In Ye Stringe Ke Bargashtesh [Returnesh] IP e Ma Hastesh.
Movafagh Bashim.
Be Ghole Mehdi: Priv8 ! By Csharp TeaM
Az Libraryhaye B4A ,Network Ro Tik Bezanid, Dar Ghesmate Sub Globals:
- Code:
Dim x As ServerSocket
Server Socket Tarif Mikonim, Ba Type Kardane x. Mitunid Bebinid Emkanatesho !
-----
Ba Method Zir Ham Mitunid Ip Ro Get Konid, Vaghti Net Vasl Nabashe IP = 127.0.0.1 Hastesh, Pas Vaghti Ip In Bood Yani Net Nist, Age Chize Dige Bood, Be Internet Vaslim :
- Code:
Sub GetIp() As String ' Tarife Subemon
x.Initialize(0,"") ' New Mikonim :D :D
' Avvali [0] Port Va Dovvomi Esme Event has Ke Man Khali Gozashtam Evento !
If x.GetMyIP = "127.0.0.1" Then ' Age Ip = 127.0.0.1 Bood [Yani Be Net Vasl Naboodim]
Return "No internet connection" ' Return Bede Ke Internet Connection Niiiiiiiiis
Else ' Dar Gheyre In Soorat [ Age Ip = 127.0.0.1 Nabood Yani Net Dashtim ] :
Return x.GetMyIP ' Ip Ro Return Bede
End If ' Payane If
End Sub ' Payane Sub
In Ye Stringe Ke Bargashtesh [Returnesh] IP e Ma Hastesh.
Movafagh Bashim.
Be Ghole Mehdi: Priv8 ! By Csharp TeaM