program yalnız bir bilgisayarda çalışsın

[yasin]

mhb.yaptığım programın yanlız istediğim bir bilgisayarda çalışmasını istiyorum.yani başka bir bilgisayara kopyalandığında çalışmasın. aklıma gelen programın bilgisayarın hard diski seri numarasını kontrol etmesi. bu olabilirmi acaba. yada başka bir yöntem

[jale]

Merhaba,

Aşağıdaki linktede aynı talep ve açıklaması var.

http://groups.google.com/groups?hl=tr&lr=&threadm=e7R%23PKLEDHA.2172%40TK2MSFTNGP12.phx.gbl&rnum=1&prev=/groups%3Fhl%3Dtr%26lr%3D%26q%3Dhardlock%2Bfor%2Bac cess%2Bmdb%2B%26btnG%3DAra%26meta%3Dgroup%253Dmicr osoft.public.access.*

[reflection]

Function asd()
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName (drvpath)))
s = d.SerialNumber
Forms![Ana Menü]!Metin22 = s
End Function

bu komutlarla ana menü formunda metin22 ye hdd nin seri nosunu yazdırabilirsin. ordanda bu noyu sorgulattabilirsin.

:hiho:
yalnız aklınızda bulunsun bilgisayara her format atışında sizi bulması gerekir.

[djmuratcan]

peki yukardeki kodu nasıl kullanıcaz açıklıyabilirmisiniz

[Ersen]

Sayın: reflection, kodunuz üzerinde epey bir çalıştım, ancak "Bu nesneye değer atayamazsınız" mesajı veriyor :(
Umarım bu konuda birkaç kelime söylersin bana. Teşekkürler.

[Ersen]

Sayın jale, Hanım, bu konuda küçük bir örnek yerleştirebilir misiniz buraya. En basit soru gibi görünüyor, verdiğiniz linki de inceledim ancak ingilizcem yetersiz olduğu için ingilizce bilenlerden yardım da istememe rağmen yapamadım. Ayrıca bu konunun kapatılması da gerekiyor diye düşünüyorum, tabii siz de aynı fikirdeyseniz.

[jale]

Merhaba,

HDD nosunu bulmakla ilgili örnekler ekte.

[Ersen]

jale, Hanım size nasıl teşekkür edeceğimi bilemiyorum. Ben işimi fazlası ile gördüm bu arada forum arkadaşlarımızın da bu konudan istifade etmesi için soruyorum her iki modül de farklı HDD numaraları çıkıyor, acaba birisi etiket, diğeri de HDD mekanik fabrika numarası mı?
Acces şimdi tutarlı çalışıyor, HDD numarasını okutup tasarım modunda bir etikete yazıyorum, sonra açılış formu açılırken bu numaraları karşılaştırıyor ve ilk defa bu konuda tutarlı bir şekilde karar veriyor: HDD numarası tutuyorsa açılıyor, tutmuyorsa programdan çıkılıyor.
Geriye dosyayı MDE formatına çevirmek kalıyor. Emeğimin karşılığını şimdi hırsızlar bedavadan toplayamayacak.
Tekrar teşekkür ediyorum.

[jale]

Rica etsem aşağıdaki dosyayı açıp açamadığınız bildirirmisiniz lütfen.

[Ersen]

Dosya "Welcome" mesajı verip açıldı. Acaba yanlış birşey mi var, yani açılmaması mı gerekiyordu, öğrenmek isterim. :)

[jale]

hehehehe açılmaması gerekirdi....:)

Tuhaf bizim burada birine gönderdim açılmadı....

[Ersen]

Günlerdir bununla uğraşıyorum, tam halletmiş olduğumu düşünürken.... Neredeyse ağlayacağım. Pekala aynı dosyayı ben göndereyim, açabilen olursa buraya yazsın, ya ağlayım, ya da güleyim artık.

[Haluk]

.....
her iki modül de farklı HDD numaraları çıkıyor, acaba birisi etiket, diğeri de HDD mekanik fabrika numarası mı?


"VolSerialNo" fonksiyonu, sürücü seri numarasını HEX olarak veriyor.

"sGetVolumeSerialNumber" fonksiyonu ise, HEX ve DEC olarak veriyor.

Yani, hepsi aynı şeyler.... :mrgreen:

[jale]

:hey:

Çok inceleyemedim ama ,aşağıdaki linkede bir bakın boş zamanınızda.

http://members.shaw.ca/glenk/access2000.html

[hakanbolat]

Günlerdir bununla uğraşıyorum, tam halletmiş olduğumu düşünürken.... Neredeyse ağlayacağım. Pekala aynı dosyayı ben göndereyim, açabilen olursa buraya yazsın, ya ağlayım, ya da güleyim artık.

Ben de Açılmadı HDD Uyuşmuyor diyor ve Kapanıyor..

[khevst]

Ersen demiş ki:
Günlerdir bununla uğraşıyorum, tam halletmiş olduğumu düşünürken.... Neredeyse ağlayacağım. Pekala aynı dosyayı ben göndereyim, açabilen olursa buraya yazsın, ya ağlayım, ya da güleyim artık.


Ben de Açılmadı HDD Uyuşmuyor diyor

[simendifer]

bilgisayarın seri nosunu veren program örnegi
aşagıdaki linkte oradan indirebilirsiniz ben denedim gayet güzel yapanların eline saglık
http://www.excel.web.tr/viewtopic.php?t=9632
hatırlatıyım serinoyu texbox içerisnde 6 bölerseniz serinonun önündeki harfleri kaldırıyor buda sizin işinizi görmesi için misal bilgisayar seri nosu =SN24588956 / 6 yapacaksınız o zaman rakamların önündeki harfleri siler yok sayar tam sayı verir yalnız bu indirdiğiniz programdaki modülü kendi programınıza eklemeniz lazım kolay gelsin