VB in kk dobit Ip od račnalnika

VB ali VBscript?

u VBscript (asp) dobis z <%= request.servervariables("remote_addr") %>

u VB pa ne bi vedu ...

V VB boš najlažje dobil IP z Winsock-om. Torej: najbolj enostavno je da v projekt dodaš kontrolo (Project/Components...Controls) Microsoft Winsock Control, jo počiš na formo in se v kodi vprašaš po lastnosti LocalIP (npr. Winsock.LocalIP)

Če te zanima za VBscript maš pa zgoraj odgovor.

lp, Tone

mal bl opis zadevco ... pomoje nisi dobr definiru vse potrebno za Winsock

no rad bi naredu nešto ko IRC sm ne v takem smislu... bi bil kliente en uporabnik i bi rad mel neki od moje GLAVne server baze... seveda se misli konektat preko neta...

no tlele pa mate kodo od KLIENTA

Private Sub Command1_Click()
MsgBox "Admin am bo dal IP setvilko, ki jo vnesete v polje poleg gumba VNESI IP... Potem ko bo status na konetkan ok lahko chata z servrjem tako da neki napisete in krensete(pritisnete) ENTER", 32, "Navodila.."
End Sub

Private Sub Command2_Click()
Klie_sock.Connect Klie_sock.RemoteHost, Klie_sock.RemotePort
'konetkan kao :) sedaaj pa bomo enablali zgbrnji gumb

Text1.Enabled = True
Command2.Enabled = False
End Sub
Private Sub Command3_Click()
Klie_sock.RemoteHost = Text3.Text
Text3.Enabled = False
Command3.Enabled = False
End Sub

Private Sub Form_Load()
MsgBox "Ta program je TESTNI tk da ne envem kok pricakovat d njega :P", 32, "Neki pac..."
End Sub

Private Sub Klie_sock_DataArrival(ByVal bytesTotal As Long)
'ko se neki dobi
Dim dasa As String

Klie_sock.GetData dasa

If dasa = "Ok konektan..." Then
Label1.Caption = "Konetkan OK...."
Exit Sub
End If

Text2.Text = Text2.Text & dasa & vbCrLf
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Klie_sock.SendData Text1.Text
Text1.Text = ""
End If
End Sub


zdaj pa še od SERVERJA

Private Sub Command1_Click()
Serv_sock.SendData Text1.Text
Text1.Text = ""
End Sub

Private Sub Form_Load()
'nastavitev socka serverja
Serv_sock.LocalPort = 13284
Serv_sock.Listen
End Sub
Private Sub Serv_sock_ConnectionRequest(ByVal requestID As Long)

' close the connection before accepting the new
' connection.
If Serv_sock.State <> sckClosed Then _
Serv_sock.Close
' Accept the request with the requestID
' parameter.
Serv_sock.Accept requestID
Label2.Caption = "Conetkan na nekoga .::." & requestID

Serv_sock.SendData "Ok konektan..."
End Sub

Private Sub Serv_sock_DataArrival(ByVal bytesTotal As Long)
'prišla je neka data
Dim data As String
Serv_sock.GetData data
Text2.Text = Text2.Text & data & vbCrLf
End Sub


+++++
ko se zadeva konetka dela naprej normalno... vsaj v mrezi... tk da rad bi da bi delal tud preko neta..

lp8-O