ip ye göre kitap açma

zekikarabay · 31 Ekim 2007

Merhabalar.
Örnekte görüldüğü gibi, açıldığında otomatik mail gönderen bir dosya oluşturdum, tabii yine bu site sayesinde. İstediğim dosya açıldığı an herhangi bir internet bağlantısı yoksa (Dial Up, Lan, Kablosuz vb), "İnternet bağlantınız olması gereklidir" gibi bir hata mesajı vererek, email gönderme devreye girmeden dosyanın kapanması. Yardımlarınızı bekliyorum.
Teşekkürler.

Zeki Karabay

Haluk · 1 Kasım 2007

Kodların kötü amaçlı kullanılabileceğini düşündüğümden, mesajı sildim ..... Haluk ®

.

hsayar · 1 Kasım 2007

bende merakla cevabı bekliyordum bağkur no sorgulama makrosu çalışmadan önce internet bağlantsıının varlığının kontrol edilmesi açısından.

Haluk · 1 Kasım 2007

http://www.mrexcel.com/board2/viewtopic.php?t=165207

hsayar · 1 Kasım 2007

cevabınız için teşekkür ederim

Kod:

Private Sub CommandButton1_Click()
If TestInternetConnection = False Then
    MsgBox "BA&#286;LANTI YOK"
    Else
    MsgBox "BA&#286;LANTI var"
 End If
End Sub

mükemmel oldu

zekikarabay · 2 Kasım 2007

Sayın Haluk, Sayın Hsayar;
Cevaplarınız için teşekkürler. Bir de ilgili linkdeki kodlarda şöyle bir değiştirme yapabilir miyiz? Kullanıcı sadece belli birkaç statik IP numaralarından bağlı ise dosya çalışsın. Amacımız şirketler grubumuzdaki bazı bilgilerin dışarı sızmasını elimizden geldiğince engellemek. Teşekkür ederim.

zekikarabay · 3 Kasım 2007

Arkadaşlar, bu konuda (Kullanıcı sadece belli birkaç statik IP numaralarından bağlı ise dosya çalışsın.) yardım edebilir misiniz. Teşekkürler

Mahmut Bayram · 3 Kasım 2007

Zeki bey,
Case is leri çoğaltarak ip numarası belli olanların kitaba giriş izinlerini ayarlayabilirsiniz.
Eki inceleyiniz.
Kolay gelsin.

Ekteki dosyadan hariç aşağıdaki kodlarda IP numaranızı tespit etmektedir.

Kod:

Option Explicit

Sub IPtest()
    Dim wsh As Object
    Dim RegEx As Object, RegM As Object
    Dim FSO As Object, fil As Object
    Dim ts As Object, txtAll As String, TempFil As String
    Set wsh = CreateObject("WScript.Shell")
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set RegEx = CreateObject("vbscript.regexp")
    TempFil = "C:\myip.txt"
    ' Save ipconfig info to temporary file
    wsh.Run "&#37;comspec% /c ipconfig > " & TempFil, 0, True
    With RegEx
        .Pattern = "(\d{1,3}\.){3}\d{1,3}"
        .Global = False
    End With
    Set fil = FSO.GetFile(TempFil)
    ' Access temporary file
    Set ts = fil.OpenAsTextStream(1)
     txtAll = ts.ReadAll
    Set RegM = RegEx.Execute(txtAll)
    ' Return IP address to Activesheet cell A1 by parsing text
    ActiveSheet.Range("A1").Value = RegM(0)
    ActiveSheet.Range("A1").EntireColumn.AutoFit
    ts.Close
    ' Remove temp file
    Kill TempFil
    
    Set ts = Nothing
    Set wsh = Nothing
    Set fil = Nothing
    Set FSO = Nothing
    Set RegM = Nothing
    Set RegEx = Nothing
End Sub

hsayar · 3 Kasım 2007

hocam ben açamadım valla açmaya yetkiniz yok yazıyor
siz kodları verin.... herkes kendi ıp sine göre düzenlesin.
saygılarımla

Haluk · 3 Kasım 2007

hsayar' Alıntı:
hocam ben açamadım valla açmaya yetkiniz yok yazıyor
siz kodları verin.... herkes kendi ıp sine göre düzenlesin.
saygılarımla

Makroları etkinleştirmeden dosyayı açın, ThisWorkbook modülü içindeki kodlarda IP'leri ayarlayın ...

Not:
Bu dosyada kullanılacak IP'ler, DOS komut ekranında ipconfig komutuyla gelecek bilgiler arasında yer alan IP adres bilgisidir. Bilgisayarın internet üzerindeki IP'si değildir. Diğer bir deyişle www.whatismyip.com linkine tıkladığınızda göreceğiniz IP No değildir.

Ek:
Aynı IP adresinin WMI kullanarak bulunması için aşağıdaki alternatif de kullanılabilir;

Kod:

Sub Test()
    'IP adresi - 02/09/2005
    ' Raider &#174;
    If Err.Number <> 0 Then
          MsgBox "WMI y&#252;klenmemi&#351;! Programdan &#231;&#305;k&#305;lacak...", vbExclamation, _
          "Windows Management Instrumentation"
          Exit Sub
          On Error GoTo 0
    End If
    strComputer = "."
    Set objWMI = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    
    Set collIP = objWMI.ExecQuery _
        ("Select * from Win32_NetworkAdapterConfiguration Where IPEnabled=TRUE")
     
    For Each RetVal In collIP
        If Left(RetVal.IPAddress(0), 1) <> 0 Then
            MsgBox "IP adresi :" & RetVal.IPAddress(0), vbInformation, _
                   "IP Adresi .... Raider &#174;"
        End If
    Next
End Sub

zekikarabay · 4 Kasım 2007

Merhaba;

Sayın Mahmut Bayram Bey, Sayın Haluk Bey;
Öncelikle ilgileriniz için teşekkür ederim.

Sayın Haluk Bey;
"Not: Bu dosyada kullanılacak IP'ler, DOS komut ekranında ipconfig komutuyla gelecek bilgiler arasında yer alan IP adres bilgisidir. Bilgisayarın internet üzerindeki IP'si değildir. Diğer bir deyişle www.whatismyip.com linkine tıkladığınızda göreceğiniz IP No değildir." Demişsiniz. Evet, benim istediğimde Bilgisayarın internet üzerindeki IP'si ni kontrol etmek. İnternet üzerinde bazı statik IP numaralarına sahibiz. Kodları bu şekilde nasıl değiştirebiliriz? Teşekkürler.
Zeki KARABAY

hsayar · 4 Kasım 2007

teşekkür ederim hocam sayaneizde yeni şeyler öğreniyoruz hocam.... yalnız sormak istediğimi bir şey var makraolrı enkinleştiri kaldırınca herkes istediği ip noya göre değiştirebeileceğine göre birde şifre koymakta fayda var herhalde.
saygılaırmla

Mahmut Bayram · 4 Kasım 2007

zekikarabay' Alıntı:
Evet, benim istediğimde Bilgisayarın internet üzerindeki IP'si ni kontrol etmek. İnternet üzerinde bazı statik IP numaralarına sahibiz. Kodları bu şekilde nasıl değiştirebiliriz?

İsteğinize göre yapılmış örnek ektedir.
Kolay Gelsin.

zekikarabay · 4 Kasım 2007

Sayın Mahmut Bayram Bey;
İlgilerinize ve gösterdiğiniz emeklere çok teşekkür ederim. Son verdiğiniz kod işimi halletti, sağolun.

Kodları incelediğimde "http://k.domaindlx.com/nailgg/tr/" adresindeki ip.asp dosyasının ileride silindiğini, taşındığını, sitenin kapandığını vb düşünürsek ip.asp dosyasını kendi sitemize atmamız daha iyi olacaktır sanırım. Bu dosyayı edinebilmemiz mümkün müdür? Saygılarımla.

Zeki Karabay

Mahmut Bayram · 4 Kasım 2007

Rica ederim.

zekikarabay · 4 Kasım 2007

Merhaba;

"Kodları incelediğimde "http://k.domaindlx.com/nailgg/tr/" adresindeki ip.asp dosyasının ileride silindiğini, taşındığını, sitenin kapandığını vb düşünürsek ip.asp dosyasını kendi sitemize atmamız daha iyi olacaktır sanırım. Bu dosyayı edinebilmemiz mümkün müdür?" demiştim yukarıda.

ip.asp dosyası yaratıp
<%response.write(request.servervariables("REMOTE_ADDR"))%>
satırı ile hallettim.

Tekrar teşekkürler.

Zeki KARABAY

Mahmut Bayram · 4 Kasım 2007

Başka bir çalışma daha hazırladım.
Formdaki kod bölümünü okuyun sizi yönlendirecektir.
Artık istediğiniz siteden internete çıkış ip nizi öğrenebilirsiniz.

irfancantr · 4 Kasım 2007

makro bilgim hiç iyi olmadığı için sormak istediğim birşey var.Bilgisayarın ip sine göre kontrol yaparak kitabın açılmasını sağlayan kodu nereye yazacağız ayrıca ip numaramı nereye yazmalıyım ki yada nereye tanıtmalıyım pc mi ona göre kontrolleri yapsın.Yardımcı olursanız sevinirim...Rar dosyaları açamadığım için diğer dosyalara bakamadım

baydeniro · 5 Kasım 2007

Vista Farkı

Arkadaşlar merhaba. Bu tarz kontrollerin Vista ile bir faydası kalmıyor gibi. Çünkü Vista ile bu dosyaları yüksek makroda açıp, içindeki işlemleri yapmak mümkün. Dosyanızı vistada denemeden güvenlikten emin olmamanızı tavsiye ederim.

irfancantr · 5 Kasım 2007

yardımcı olabilecek kimse yokmu????
Ben sadece benim bilgisayarımdan başka kimsede açılmasın istiyorum ve başka bilgisayara kopyalasalarda açamasınlar....yardımlarınız için şimdiden teşekkürler..

ip ye göre kitap açma

zekikarabay

Haluk

𐱅𐰇𐰼𐰚

hsayar

Haluk

𐱅𐰇𐰼𐰚

hsayar

zekikarabay

zekikarabay

Mahmut Bayram

Özel Üye

hsayar

Haluk

𐱅𐰇𐰼𐰚

zekikarabay

hsayar

Mahmut Bayram

Özel Üye

zekikarabay

Mahmut Bayram

Özel Üye

zekikarabay

Mahmut Bayram

Özel Üye

irfancantr

baydeniro

irfancantr

ip ye g&#246;re kitap a&#231;ma

𐱅𐰇𐰼𐰚

𐱅𐰇𐰼𐰚

Özel Üye

𐱅𐰇𐰼𐰚

Özel Üye

Özel Üye

Özel Üye

ip ye göre kitap açma