• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü İnternet Bağlantısı Msgbox Yardımı Hk.

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
E

Erdogan34

Yeni Üye
Katılım
3 Eki 2022
Mesajlar
85
Çözümler
1
Aldığı beğeni
23
Excel V
Office 2013 TR
Konu Sahibi
Merhabalar,
Excel dosyam aşağıdaki makro ile internete bağlı iken çalışsın ancak bağlı olmadığında MsgBox "Dosyayı açmak için lütfen cihazınızın internet bağlantısını aktif hale getirin" mesajı yazsın istiyorum. Kodum internet aktifken yapmasını istediğim herşeyi yapıyor ancak bilgisayarın internet bağlantısı kapalı iken Msgbox gelmesini sağlayamadım. Desteğiniz ricasıyla.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Tarihe göre sırala Oylara göre sırala
modüle yapıştırın İnternet bağlantı kontrolü
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
modüle yapıştırın İnternet bağlantı kontrolü
HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...

Private Declare Function InternetGetConnectedState Lib "wininet.dll" _ (ByRef dwflags As Long, ByVal dwReserved As Long) As Long

Bu kısım hata veriyor.
 
Olumlu oy 0 Negatif oyla
ofis 64 bit mi
 
Olumlu oy 0 Negatif oyla
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
(ByRef dwflags As Long, ByVal dwReserved As Long) As Long kodunu silin yerine alttaki kodu yazın


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Adnan' Alıntı:
Private Declare Function InternetGetConnectedState Lib "wininet.dll" _
(ByRef dwflags As Long, ByVal dwReserved As Long) As Long kodunu silin yerine alttaki kodu yazın


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Genişletmek için tıkla...
Hocam maalesef çözüme ulaşamadım. Eke bir dosya ekledim. Bu dosyaya istediğim eğer internete bağlı değilse İnternete bağlanmalısınız Msgbox'u gelsin dosya açılmasın. Eğer bağlıysa standart şekilde açılsın. Sizi de çok uğraştırdım ama yapabilirseniz sevinirim. Aksi takdirde çözümü başka bir yöntemle aramaya çalışacağım.

Saygımlarımla,
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Bir modüle aşağıdaki kodu
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
Başka bir modüle aşağıdaki kodu yapıştırarak deneyin.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 1 Negatif oyla
Çözüm
Konu Sahibi
Üstte belirtilen kodu modüle, aşağıdakini de açılış kodunun içine eklediğimde çalıştı. Sadece Msgbox geliyor ancak dosya açılmasın noktası olmuyordu. Aşağıdaki kodu şu şekilde düzenlediğimde tam da istediğim gibi oldu. Desteğiniz için çok teşekkür ederim.

HTML:
C++:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst