Soru Webden Lisans Kontrolü Yapmak

[TURKOLOG]

Yapmış olduğum excel dosyasının öncelikle açılırken misal http://www.destek.com.tr/lisans.txt dosyasına bakmasını

ip adresi son kullanım tarihi
192.168.1.149 31.12.2020
198.165.1.158 28.11.2020
197.154.1.158 30.06.2020

ip adresinin üste göründüğü gibi yazılı olması ve son kullanım tarihinin geçmemiş olması durumunda açılması
ip listede yoksa ip listede yok diyip dosyayı kaydedip kapatması
son kullanma tarihi geçmişse son kullanma tarihi geçti diyip dosyayı kaydedip kapatması
için kodlar konusunda yardım edebilecek olan var mı acaba

 

[TURKOLOG]

Herkese Merhaba aşağıdaki kodlarla başka bir alana yüklü olan text belgesinde yazılı olan şifre ile uyuşması halinde dosya açılmaktadır
Text belgesinin yolu D:\şirket.txt olmalı texte yazılı şifre 123456 dir

Text belgesi tek bir şifre ile çalışıyor o şifre de şu an 123456

Benim istediğim sonsuz sayıda text belgesinde olan şifrelerle çalışması
123456 31.08.2020
654321 31.12.2020
987654 31.06.2020
123456789 01.01.2020
0215424515245 31.01.2021
1065135 12.12.2020
gibi satırda gördüğü şifre ve son kullanma tarihini esas alacak şekilde yardım edebilecek olan varsa çok sevinirim.

Const strTxtFile As String = "D:\şirket.txt"
Const MyCheckVal As Long = 123456
'
Sub Auto_Open()
'Sheet("Sayfa1").Selecet
Dim InputData As Variant
Dim FileNum As Long
Dim x As Integer
FileNum = FreeFile
If Dir(strTxtFile) <> Empty Then
Open strTxtFile For Input As FileNum
x = x + 1
Do While Not EOF(FileNum)
Line Input #FileNum, InputData
If Left(InputData, 6) <> MyCheckVal Then GoTo NoGo:
If x = 1 Then Exit Sub
Loop
Close FileNum
ThisWorkbook.IsAddin = False
Else
NoGo:
ThisWorkbook.IsAddin = True
MsgBox "Kayitli kullanici degilsiniz....", vbCritical, "Kullanicinin dikkatine !"
ThisWorkbook.Close SaveChanges:=False
End If
End Sub

 

[Korhan Ayhan]

Verdiğiniz örneğe göre kontrol nasıl olmalı?

 

[TURKOLOG]

Sayın @Korhan Ayhan Hocam ilgilendiğiniz için çok teşekkür ederim.

Şirket.Txt dosyasını web sitesine yükleyeceğim.
Dosya açılmadan önce belirtilen adrese bağlanıp
Text dosyasının her satırını kontrol edecek

Her satırda ilk boşluğa kadar ip numarası 1 kez tab tuşu ile boşluk verilip geçerlilik tarihi yazacak

Misal
10.72.75.84 31.10.2020
gibi satırlar alt alta devam edecek
Her işlemi ip ve süresini kendi satırından çekecek

IP varsa süresi geçmemiş ise açacak
IP yoksa yok diyip kitabı kaydedip çıkacak
IP var süre geçmiş ise süre bitti diyip kaydedip kapatacak kitabı.

1.Ama benim bulduğum örnekte sen sayfasına yüklenince excel bağlanmıyor sanki
2.Tek bir numara girebiliyorum onu da ip şeklinde değil
3.geçerlilik kontrolü yapamıyor

Yardım ederseniz cok sevinirim Hocam.

 

[Korhan Ayhan]

Sorgulama web üzerinden mi yapılacak?

 

[TURKOLOG]

Sorgulama web üzerinden mi yapılacak?

Sayın @Korhan Ayhan Hocam text dosyası Web sayfasına yüklenecek. Excel acılmadan önce kontrol yolunda yazan Web sayfasındaki text dosyasına gidecek geçerli ip var mı yok mu tarihi geçmiş mi diye kontrol edecek.

 

[TURKOLOG]

Hocam eğer internet bağlantısı yoksa internet bağlantınız yok diyip dosyayı kaydedip kapatmalı

 

[Korhan Ayhan]

Daha önce bu şekilde bir kodlama kullanmadım. Ben mesajınızda D sürücüsü geçince klasör altından sorgulamak istediğinizi düşünmüştüm.

Eğer bu şekilde bir kodlama bulursam paylaşırım.

 

[TURKOLOG]

Çok teşekkür ederim Hocam