Sorgu için arama sonuçları: ping

Hocam bu örneği deneyebilirsiniz. pingle.bat dosyası içeriği ping %1 -t Sub pingle() ip = "127.0.0.1" CommandString = "d:\temp\pingle.bat" + " " + ip + " " Call Shell("cmd.exe /c" & CommandString, vbNormalFocus) End Sub

...Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) End Sub Yanlış anlamadıysam. Sayfa1 başka bir excel dosyasına kopyalansın, sadece ping ile ilgili kodlar kalsın ve diğerleri silinsin isitiyorsunuz. Ben o şekilde kodlama yapamam. Ama belki başka bir üstad...

...birden fazla makro kodu görevide var farklı hücrelere çift tıklayarak yaptırdığım çok başka şeyler var. yani anlaycağınız Sayfa1 içerisinde bu ping kodu dışında çok daha fazla kod var şimdi sorum şu. ben bazen bu sayfa1 de bulunan verilerimin bir kopyasını yrı bir makro kodu ile hem mail...

Alternatif; pingle.bat dosyası içeriği ping %1 -t 'Sayfa kodu Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("G:G")) Is Nothing Then Exit Sub ip = Target.Value Call pingle End Sub 'Modul1 kodu Public ip As String '...

Webden cmd ile komut çalıştırabilecek bir makro bulup isteğinize göre ayarladım. İp adresi yazan hücreye çift tıklayarak ping atmasını sağlayabilirsiniz. https://www.mediafire.com/file/2uqtu8n1zfvr7vo/ping.xlsm/file

Merhabalar Ekteki Örnek excel dosyamda G sütununda IP adresleri var. ben bu ip adreslerine ping atmak için klasik olan ip adresini kopyalayıp windows da başlat butonundaki run satırına "ping ipadress -t" komutunu yazıp o ip adresine ping sonucuna bakıyorum. ama ben bunu her seferinde bu şekilde...

Arkadaşlar excel vba üstünde internet hızını ve ping süresini öğrenmek mümkün mü? Bulabildiğim sadece internet var mı yok mu şeklinde. Diğer bilgilere nasıl ulaşacağımı anlayamadım.

Sub PingSystem() '----First clear the cells in Row B----------------- ClearStatusCells '--------------------------------------------------- Dim strcomputer As String Application.ScreenUpdating = True For introw = 2 To Workbooks("Günlük_Ciro.xlsm").Worksheets("Toplam").Cells(65536...

...müdür ? ilgili görsel ve kodları bilginize sunarım. Çalışma prensibi: bir sutunu seçip butona tıkladığınızda belirlemiş ip üzerinden o sunucuya ping atıyor eğer pingten cevap alırsa yeşil alamazsa kapalı diye kırmızı şekile dönüyor. Sub GetIPStatus() Dim Cell As Range Dim ipRng As...

...cevabı alır. 10 000 gonderiden 500 ü geri dönse bu da ayrı kaos oluşturur. Yerinizde olsam planlamak yerine ttnete veya operatörünüz kim ise bu anlamda bir danışmanız doğru olabilir. Ayrıca adresin yaşayıp yaşamadığını analiz edebilen bir ping programı da geri dönmeleri en aza indirecektir.

öncelikle Merhaba cmd üzerinden ping attıgım cihazdan gelen veriyi list boxta görüntülemeyi başardım fakat gelen veriyi herhangi bir hücreye yeşil veya kırmızı bicimine nasıl çeviririm

...network adapter açık veya kapalı oluşu (sonuç hızlıdır), ikincisi ise adapter bağlı ise internete bağlanabilirlik (en kötü bağlantı hızında bile ping işlemi 10 saniyeyi geçmez). Probleminiz muhtemelen Dir fonksiyonunuzun henüz dosyanın varlığını kontrol etmeden önce ağ köprüsünü...

Merhaba, Excel dosyası açılışta ip adresine ping atmadığında açılmasın şeklinde bir tedbir eklene bilir mi? 2-3 ip adresi pinglerse gibi kontrol eklesem ve sonuç olumlu olursa açılsın diye düşündüm. Kullanıcılara attığımız bazı raporlar şirket dışında açılmasını engellemek için yol arıyorum...

...Tabi bu şekilde alt alta tüm satırlarda bu işlemi yapsın istiyorum Örneğin alt alta veriler şu şekilde aşağıya sıralanıyor. D2 hücresinde Ping 10.10.10.10 D3 hücresinde Ping 10.10.10.11 D4 hücresinde Ping 10.10.10.12 . . . .. Ben bu veriler bir butona atadığım makro ile aşağıdaki gibi hale...

Arkadaşlar merhaba; ekteki dosyada, bir ip adresine ping atmak, sonra bu sonuçların excel e kaydedilmesini sağlamak istiyorum. ayrıca mümkünse eğer belli ms nin üzerindeyse sesli uyarı vermesini istiyorum. Son olarak ise bu sistemin çalışması için excel, dosyasının, açık mı olması gerekir...

Merhabalar Excel üzerinden ip lere ping çeken bir düzen kurdum. ve bu düzenekte bir butonada 20 snyede bir ping çekmesi için aşağıdaki kodu ekledim Application.OnTime Now + TimeValue("00:00:20"), "ping" Bu kodla 20 saniyede bir ip lere ping çekip durumlarını kontrol ediyor. çalışan görünce...

...gidin txt dosyasını açın o zaman tırnak işaretlerini göreceksiniz. ORJİNAL HALİ use warnings; use strict; use Net::Telnet::Cisco; use Net::Ping; my $satir; my $cmd; my @sutun; my @sutun2; my @output; my $ip; my $hostname; my $username="username"; my $password="password"; my...

Merhaba arkadaşlar ben notepad ile basit bi ping atma programı yapmaya çalışıyorum bu konuda yardımcı olabilcek varmı acaba şu tarz birşey istiyorum ping sonuçlarını test1 dosyasına otomatik yazıp kapanacak. @echo off title "Ping Programı" color a echo IP NUMARANIZ ? set /p IP NUMARANIZ= echo...

Merhaba, Excel üzerinden şu şekilde ping atmak istiyorum. Bağlı olduğum network ekipmanlarından diğerlerine ping atmam gerekiyor. Bu nedenle Source IP si olacak. Destination IP olacak. PC den çalıştırdığımda benim PC den değil Source Ip den Destination IP ye doğru 1500byte paketler şeklinde 1...

...önce Korhan bey bir konuda yardımcı oldu.Ancak şöyle bir seneryo gerçekleşir mi ? Listemde bulunan switch lere ve server lara 10 dk bir ping attırsam ana çıkış hatlarıma tracert komutu ile durum bilgisi alsam ve belirlediğim kriterlerin altında bir durum var ise mail atmasını yada...