Başka bir bilgisayarda çalışmasın

Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
Arkadaşlar benim epeyce ugraştıgım bir pc toplama sistemin var yalnız bunun başka bir bilgisayarda çalışmasını istemiyorum bunun ile ilgili bir konu vardı ama dosyaları silinmiş eğer yardımcı olursanız çok sevinirim
[bana yadığınız cevaplara gec cevap verebilirim ]
 
Son düzenleme:
Katılım
19 Eylül 2008
Mesajlar
331
Excel Vers. ve Dili
2003
sayın muratbseker programına şifre koy açamasınlar ayrıca kodlarına şifre koy göremesinler.
araçlar/güvenlik/veritabanı parolası belirle
ve
alt+f11
tools/veritabanıadı properties/protection dan şifre belirle
iyi çalışmalar
 
Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
kardeş bu şifrelerle şifreyi bilen bir insan programı başka bir bilgisayara taşıyabilir benim sıkıntım başka bir bilgisayara taşındıgı zaman program çalışmasın silinen dosyarında bunu ile ilgili bir örnek vardı
 

akd

Destek Ekibi
Destek Ekibi
Katılım
14 Ağustos 2004
Mesajlar
1,114
Excel Vers. ve Dili
2003
HHd.yi referans vererek başka bir pc de çalışmamasını engellebilirsin.
 

BG

Özel Üye
Katılım
5 Mayıs 2008
Mesajlar
1,378
Excel Vers. ve Dili
Office 2021 TR & EN
Arkadaşlar benim epeyce ugraştıgım bir pc toplama sistemin var yalnız bunun başka bir bilgisayarda çalışmasını istemiyorum bunun ile ilgili bir konu vardı ama dosyaları silinmiş eğer yardımcı olursanız çok sevinirim
[bana yadığınız cevaplara gec cevap verebilirim ]
Cpu Id baz alınmıştır, örnek dosya ektedir.
 

Ekli dosyalar

Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
daha önceki komularadan buldum bir değişkenin içine sürücü ve hdd ile bilgileri çarpıp bir rakam oluşturuyouz şimdi if kulanarak bunu kontrol edep başka birformu açtırmam gerek bu c# yada php'de yapsam şöyle olurdu
/////////////
<?
$hdd="bizim dhhden ürettigimiz deger";
$hdd_kayitli="bizim çalışmasını istediğimiz bilgisayarın hddsini numarası";
//evet şimdi ise kontrol etmemiz gerekiyor
if($hdd==$hdd_kayitli)
{
eger doğruysa çalışacak kodlar buradatabiki biz burada formu çagıracagız
}
else
{
yanlış ise çalışacak kodlar biz burada uyarı veren bir formu cagıracagız
}
?>
umarım derdimi anlatabilmişimdir bana vb'de nasıl if yazılaçak o lazım vede formları vb'ile nasıl
çağiracagım
 
Katılım
18 Nisan 2007
Mesajlar
2,053
Excel Vers. ve Dili
Access 2019
Kod:
if hdd=hdd_kayitli then
docmd.openform "form_adı"
else
msgbox"uyarı mesajı buraya yazılacak"
end if
Merhaba..

Kod sistematiğini vba da bu şekilde kurabilirsiniz.. Tabi öncesinde Hdd bilgisini aldırmış olduğunuzu varsayıyorum.. Eğer aldıramadıysanız sayın beab05'in bu ve buna benzer pc bilgilerini aldırdığı linkteki örneği inceleyiniz..

http://www.excel.web.tr/f58/pc-bilgileri-wmi-t65698.html
 
Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
evet akşam biraz vb notlarını karıştırdım els eif olayı c# ile aynı fakat karşılaştırma operatörleri farklı c#"da "==" bunda "=" neyse burada makroyu caşıştıracak kod nasıl olacak
 
Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
evet yorumları için bütün arkadaşlara teşükkürler artık programım sadece benim key verdigim bilgisayarlarda çalışıyor
 
Katılım
6 Ağustos 2008
Mesajlar
171
Excel Vers. ve Dili
EXCEL 2007
hocam nasıl hallettin bizide aydınlatta bizde öğrenelim
 
Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
arkadaşlar bu gün şunu fark ettim bizim labaratuvarlardaki bilgisayarların hepsi ghost ile kurulmuş üretilen key hepsinde aynı şimdi keyi nasıl ürettihimi yazacagım bir bilgisi olan varya yardım ederse sevinirim mesela bb ile hdd numarası alınıyor fakat bunu nasıl bir algoritma ile sayi sistemine cevirecegim
//////////////key bu şekilde üretiliyor/////////////////////////////////////
Dim fs, d, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(drvpath)))
s = d.SerialNumber
[Metin0] = s
//////////////hdd ismi ver seri numarası////
Me.TxtHdd = Hdd_Ismi_bb
bu şekilde alınıyor bunu sayı sistemine nasıl cevirip yeni bir key üretecegim
 
Katılım
5 Şubat 2009
Mesajlar
14
Excel Vers. ve Dili
2003 kullanıyorum fakat ben web programcısıyım
yardım bekliyorum acil hemde
 
Üst