sonraki »

[Cengiz Demir]

Çok önceleri böyle bir şey yapılabiliyor mu diye araştırmış ve bulamamıştım.

İşyeri bilgisayarımda, bazı adresler ethernetten bazıları ise wifiden çalışşsın istiyordum.

Bu program tam olarak öyle olmasa bile, bu işe yapıyor.
Belirlediğiniz tarayıcının wifi üzerinden çalışmasını sağlayabiliyorsunuz.
Belli arayüzleri(Gui) var ama ben çalıştıramadım.

Şu anda işyeri bilgisayarımda portable bir firefoxu wifi den çalışacak şekilde ayarladım. Çok kolaylık oluyor. Telefonda paylaşım yapıp istediğim yerlere rahatça giriyorum.

Diğer herşey ethernet üzerinden çalışıyor. Yüksek ihtimal her bilgisayarda ethernet ilk wifi ikinci olacak şekile ayarlıdır. Değilse netten araştırıp değiştirebilirsiniz.

Programın ismi, wifi ip adresi ve çalıştırılacak tarayıcının yolunu bir bat dosyası içerisine yazıp kullanabilirsiniz.
Sanırım 64 bit tarayıcı için 64bit uygulamayı 32 bit için 32 bit olanı kullanmanız gerekiyor.

Örnek:
ForceBindIP 192.168.11.12 C:\ozel\Prog\FirefoxPortable\App\Firefox\firefox.exe

Firefox için about:config yapıp bu ayarın
browser.launcherProcess.enabled
false yapılması gerekiyor.

Chrome'da yeni versiyonlarda çalışmıyormuş.
Eski sürüm Chrome'lar için chrome://flags yapıp
network-service-in-process
enabled yapmak gerekiyormuş.

İndirme linki ve detaylı açıklama : https://r1ch.net/projects/forcebindip


Bat dosyası yaparsanız; telefonunuzun sonraki paylaşımında ip adresi değişebilir.
Böyle olunca içinden değiştirmeniz gerekir.

Bu durum için de; netten excel VBA için, çalışan bağlı ağların ip adreslerini tesbit eden bir fonksiyon buldum.
Foksiyon sırasıyla ip adreslerini getM'ye atıyor.
Wifi ikinci sırada olduğu için en son onu atıyor. (O yüzden direk ip'yi tesbit eden bir kod aramadım.)
Ve o adresi de program açılış paremetlerinin içine yerleştirip programı açıyor.

Fonksiyonu çağıran bir makro da yazdım.
Böylece, hızlı erişim araç çubuğunda, o makroyu çalıştıran bir düğme oluşturdum. İsterseniz sizde böyle yapabilirsiniz.
Fonksiyondaki yolları kendinize göre uyarlamayı unutmayın.
(Kodlar personel.xls'de)

-------------------------------------------------------------------
Public Function getM()
Dim myWMI As Object, myobj As Object, itm
Set myWMI = GetObject("winmgmts:\\.\root\cimv2")
Set myobj = myWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled = True")
For Each itm In myobj
  getM = itm.IPAddress(0)
  
Next

Dim RetVal
dosya = "C:\ozel\Prog\ForceBindIP-1.32\ForceBindIP " & getM & " " & "C:\ozel\Prog\FirefoxPortable\App\Firefox\firefox.exe"
RetVal = Shell(dosya, 1)

End Function

Sub Fire()
Call getM
End Sub