Cengiz Demir
Altın Üye
- Katılım
- 29 Haziran 2018
- Mesajlar
- 595
- Excel Vers. ve Dili
- Office 365 TR (32 Bit)
- Altın Üyelik Bitiş Tarihi
- 05-04-2025
Ç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 telefondan paylaşım yaptığım wifiden çalışsın istiyordum.
Bu program tam olarak öyle olmasa bile, bu işi yapıyor.
Belirlediğiniz tarayıcının, wifi üzerinden çalışmasını sağlayabiliyorsunuz.
Bazı arayüzleri(Gui) var ama ben çalıştıramadım. O yüzden önce komut dosyası, sonra excel ile çalışacak şekilde ayarladı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. (S.A.P. vb..)
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.
Chrome kullanıyorsanız; Firefox'u telefon paylaşımı için kullanabilirsiniz.
Ben varsayılan Firfox kullandığım ve yeni sürüm chromlarda çalışmadığı için; telefon paylaşımında kullanmak üzere portable firefox ayarladım onu kullanıyorum.
Bat dosyası için örnek çalışma kodu :
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çinde; netten excel VBA için, çalışan bağlı ağların ip adreslerini tesbit eden bir fonksiyon buldum.
Ve kendime göre düzenleme yaptım.
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 wifi ip sini 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. ( Fire )
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)
İşyeri bilgisayarımda, bazı adresler ethernetten, bazıları ise telefondan paylaşım yaptığım wifiden çalışsın istiyordum.
Bu program tam olarak öyle olmasa bile, bu işi yapıyor.
Belirlediğiniz tarayıcının, wifi üzerinden çalışmasını sağlayabiliyorsunuz.
Bazı arayüzleri(Gui) var ama ben çalıştıramadım. O yüzden önce komut dosyası, sonra excel ile çalışacak şekilde ayarladı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. (S.A.P. vb..)
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.
Chrome kullanıyorsanız; Firefox'u telefon paylaşımı için kullanabilirsiniz.
Ben varsayılan Firfox kullandığım ve yeni sürüm chromlarda çalışmadığı için; telefon paylaşımında kullanmak üzere portable firefox ayarladım onu kullanıyorum.
Bat dosyası için örnek çalışma kodu :
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çinde; netten excel VBA için, çalışan bağlı ağların ip adreslerini tesbit eden bir fonksiyon buldum.
Ve kendime göre düzenleme yaptım.
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 wifi ip sini 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. ( Fire )
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)
C++:
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