04/11/2019, 12:16
ayrıca:
Aşağıdaki kodu formun açıldığında olayına yazınca, textbox a ip adresi otomatik geliyor. Tabi dosyanın açılması için uygulamanın olduğu bilgisayarla dosyaların olduğu bilgisayarın aynı olması gerekiyor ve bağlantı adresindeki dosyanın adını kendi bilgisayarınıza göre uyarlamanız gerekiyor. Örnek dosya ektedir.
Aşağıdaki kodu formun açıldığında olayına yazınca, textbox a ip adresi otomatik geliyor. Tabi dosyanın açılması için uygulamanın olduğu bilgisayarla dosyaların olduğu bilgisayarın aynı olması gerekiyor ve bağlantı adresindeki dosyanın adını kendi bilgisayarınıza göre uyarlamanız gerekiyor. Örnek dosya ektedir.
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_NetworkAdapterConfiguration where IPEnabled=TRUE ", , 48)
For Each objItem In colItems
Me.ip = (objItem.IPAddress(0))
Next