ip adresi bulma

[alpergltekin]

Merhabalar;

Ben bugün çok soru sordum ama ip adresini çalışma sayfasının herhangi bir hücresi içinde görebilmek mümkün mü? Mümkünse kodu nedir?

Saygılarımla;

 

[Mahmut Bayram]

[vb:1:5c1d63cecd]Private Declare Function apiGetUserName Lib _
"advapi32.dll" Alias "GetUserNameA" _
(ByVal lpBuffer As String, _
nSize As Long) _
As Long
'
Sub Auto_Close()
Sheets(1).Range("A1") = "Son Kullanıcı :"
Sheets(1).Range("B1") = fGetUserName
Sheets(1).Range("C1") = Now
End Sub
'
Function fGetUserName() As String
Dim lngLen As Long, lngRet As Long
Dim strUserName As String
strUserName = String$(254, 0)
lngLen = 255
lngRet = apiGetUserName(strUserName, lngLen)
If lngRet Then
fGetUserName = Left$(strUserName, lngLen - 1)
End If
End Function[/vb:1:5c1d63cecd]

 

[Haluk]

Merhaba;

IP adresini bulmak için ekli örneği inceleyebilirsiniz...