Excel Dosyası olan CD

[Ayhan Ercan]

Sayın Ayhan Ercan tekrar indirdim ve değişiklik yok. Son bahsettiğim hatayı hala sürdürüyor. Sizde böyle bir hata vermiyor mu_?

Ne demek istediğinizi anladım. Doğru bir tespit. Ancak en son güncelleme yaptığım dosyada bu hatayı düzeltecek ek kod yazdım. Şuan devam edilemediğinde "Yetkisiz Kullanım" diye bir mesaj verip formu da kapatıyor, uygulamayı da kapatıyor....
Yani hata olmaması lazım. Bende hata vermiyor....

 

[dragon44760]

"deneme" dosyasını açıyorum ama devam demeden "x" den "deneme" dosyasını kapatıyorum. ve herhangibir xls uzantılı dosya açtığımda "deneme" dosyasıda açılıyor.

 

[Ayhan Ercan]

"deneme" dosyasını açıyorum ama devam demeden "x" den "deneme" dosyasını kapatıyorum. ve herhangibir xls uzantılı dosya açtığımda "deneme" dosyasıda açılıyor.

Tamamdır.. "x" den kapamayı engelledim. Tekrar indirip denermisiniz...

 

[1Al2Ver]

Sayın Ayhan Ercan tekrar indirdim ve değişiklik yok. Son bahsettiğim hatayı hala sürdürüyor. Sizde böyle bir hata vermiyor mu_?

merhaba,

excel.txt isimli dosyayı C:\Windows\system'e kopyalamadan önce excel kelimesini küçük harf ile yani excel.txt yaptım ve içerisine 1 rakamını yazdım,

bundan kaynaklanmıyor da olabilir ama bende sorun çıkartmadı,

 

[dragon44760]

Şimdi sorun çıkmıyor. Elinize sağlık...

 

[Ayhan Ercan]

Şimdi sorun çıkmıyor. Elinize sağlık...

Sorun tamamlandığına göre artık yatayım bende...
İyi geceler...

 

[dragon44760]

Sizlere de iyi geceler hocam. Mükemmel oldu..

 

[dragon44760]

Hocam devam'ı geçtikten sonra yetkisiz kullanım mesajına hayır dediğimde yani sayfayı kapattığımda herhangi bir xls dosyası açtığımda "deneme" dosyası herhangi bir şifre istemeden yine açılıyor.
yine şifre yanlış girdiğimde çıkan hata mesajında iptali tıkladığımda sayfayı kapattığımda herhangi bir xls dosyası açtığımda "deneme" dosyası herhangi bir şifre istemeden yine açılıyor.
Umarım rahatsızlık vermiyordurum...

 

[Ayhan Ercan]

Hocam devam'ı geçtikten sonra yetkisiz kullanım mesajına hayır dediğimde yani sayfayı kapattığımda herhangi bir xls dosyası açtığımda "deneme" dosyası herhangi bir şifre istemeden yine açılıyor.
yine şifre yanlış girdiğimde çıkan hata mesajında iptali tıkladığımda sayfayı kapattığımda herhangi bir xls dosyası açtığımda "deneme" dosyası herhangi bir şifre istemeden yine açılıyor.
Umarım rahatsızlık vermiyordurum...

Dosya ekte....

 

[dragon44760]

Teşekkürler hocam

Program şimdi gayet güzel olmuş. Elinize sağlık. Bahsettiğiniz textboxtaki rakamlara karşılık gelen şifrelerin nasıl oluştuğunu(hangi mantıkla meydana geldiğini) bizlerle paylaşacak mısınız? Şifrelerin mantığını paylaşırsanız sevinirim.

 

[Ayhan Ercan]

Program şimdi gayet güzel olmuş. Elinize sağlık. Bahsettiğiniz textboxtaki rakamlara karşılık gelen şifrelerin nasıl oluştuğunu(hangi mantıkla meydana geldiğini) bizlerle paylaşacak mısınız? Şifrelerin mantığını paylaşırsanız sevinirim.

Bunun cevabını zaten vermiştim...

* Rakamların karşılıkları :

4 adet textbox var, sırasıyla;

1 textboxtaki rakamı 15 ile çarpıyorsunuz. İlk 4 hanesini karşılık olarak yazıyorsunuz.
2 textboxtaki rakamı 16 ile çarpıyorsunuz. İlk 4 hanesini karşılık olarak yazıyorsunuz.
3 textboxtaki rakamı 17 ile çarpıyorsunuz. İlk 4 hanesini karşılık olarak yazıyorsunuz.
4 textboxtaki rakamı 18 ile çarpıyorsunuz. İlk 4 hanesini karşılık olarak yazıyorsunuz.

Tabi bütün bu rakamlar insanın hayal gücü ile değişik biçimlenebilinir...
Kodları incelerseniz anlayacağınızı umuyorum.
.

Üst Textboxlardaki (aslında Label) oluşan rakamlarda;

Dim SerialNumber As Long
    GetVolumeInformationA "C:\", vbNullString, 0, SerialNumber, 0, 0, vbNullString, 0
    txts1.SetFocus
    mytime = Format(Time, "ss")
    Label1.Caption = Mid(SerialNumber, 1, 4) + 210 * mytime
    Label2.Caption = Mid(SerialNumber, 2, 4) + 300 * mytime
    Label3.Caption = Mid(SerialNumber, 3, 5) + 150 * mytime
    Label4.Caption = (mytime * 123) + 1953

 

[dragon44760]

Hocam kusura bakmayın dikkatsizlik işte. İlk 4 hanesini karşılık olarak yazıyorsunuz değilde İlk 4 hanesini karışılık olarak yazıyorsunuz olarak okuyorum. iyi çalışmalar

 

[Ayhan Ercan]

Konu kapanarak aşağıdaki linkte "Kullanıcı adı ve Parola Uygulamaları" adlı bölüme geçmiştir.

http://www.excel.web.tr/f129/her-hdd-de-sifre-isteyen-program-t60171.html