AccessTr.neT
Ağ üzerindeki bilgisayarı komut ile açmak? - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Ağ üzerindeki bilgisayarı komut ile açmak? (/konu-ag-uzerindeki-bilgisayari-komut-ile-acmak.html)



Ağ üzerindeki bilgisayarı komut ile açmak? - prtkl - 21/08/2013

Merhabalar.
Form üzerine yerleştirlen bi buton ile ağdaki herhangi bir bilgisayarı çalıştırmak mümkün müdür? Mümkünse nasıl yapılabileceğiyle ilgili bir örnek uygulama paylaşabilir misiniz? Kolay gelsin.


Cvp: Ağ üzerindeki bilgisayarı komut ile açmak? - emturker - 22/08/2013

Merhabalar,
Kapalı olan bir bilgisayarı elektriksel olarak çalıştırmak için detaylı Elektrik panosu ve yazılım gerekir.

Screensaver olarak ekranı engellemek içinse ticari yazılımlar var örneğin (internetcafe ) programları gibi , bu programı Access de yapmak uzun zaman alabilir.

Ancak Access de yapılmış bazı ufak uygulamalar vardır bunlar,
Ağda çalışan bilgisayarların İp ve adlarını görmek gibi,bu ufak uygulamalarda form da mevcuttur.

kolay gelsin


Cvp: Ağ üzerindeki bilgisayarı komut ile açmak? - prtkl - 22/08/2013

yanıt için çok teşekkür ederim.


Cvp: Ağ üzerindeki bilgisayarı komut ile açmak? - burhanb - 27/08/2013

merhaba arkadaşım

Sub Main()
Dim objWol As ASOCKETLib.WOLClass = New ASOCKETLib.WOL()
Dim objConstants As Constants = New Constants()
Dim strMAC As String = "00-10-4B-BA-7A-51"
Console.WriteLine("WakeUp " & strMAC & " ...")
objWol.WakeUp(strMAC)
Console.WriteLine("Result: " & objWol.GetErrorDescription(objWol.LastError))
Console.WriteLine("Hazır.")
System.Threading.Thread.Sleep(5000)
End Sub

not: "00-10-4B-BA-7A-51" = açılacak bilgisayarın mac adresini giriniz.
not: açmak istediğin pc 'nin ethernet kartında WOL(wake on lan) özelliği olması gerekiyor.
çok pahalı birşey değil zaten 10-15 tl. civarındadır.


Cvp: Ağ üzerindeki bilgisayarı komut ile açmak? - ielmacilar - 18/08/2018

(27/08/2013, 15:44)burhanb yazdı: merhaba arkadaşım

Sub Main()
Dim objWol As ASOCKETLib.WOLClass = New ASOCKETLib.WOL()
Dim objConstants As Constants = New Constants()
Dim strMAC As String = "00-10-4B-BA-7A-51"
Console.WriteLine("WakeUp " & strMAC & " ...")
objWol.WakeUp(strMAC)
Console.WriteLine("Result: " & objWol.GetErrorDescription(objWol.LastError))
Console.WriteLine("Hazır.")
System.Threading.Thread.Sleep(5000)
End Sub

not: "00-10-4B-BA-7A-51" = açılacak bilgisayarın mac adresini giriniz.
not: açmak istediğin pc 'nin ethernet kartında WOL(wake on lan) özelliği olması gerekiyor.
çok pahalı birşey değil zaten 10-15 tl. civarındadır.
Paylaşım için teşekkürler fakat wol özelliği olan ethernet  kartını nasıl windowsta nasıl anlarız? Alacak olursak kutusunun üzerinde mi yazıyor? Ve son olarak bu kodu butonamı yaacağız hangi bölümüne.