THT DUYURU

 
 
THT Yardım Merkezi THT Yardım Merkezi bölümünden; teknoloji ve bilişim ile ilgili her konu için yardım isteyebilirsiniz.

Seçenekler

Bunu Naıl yapcam BECEREMEDİM

gtgg - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2011
Mesajlar:
87
Konular:
28
Teşekkür (Etti):
11
Teşekkür (Aldı):
0
Ticaret:
(0) %
5
350
22-11-2012 21:51
#1
işlevi şu belirtilen sürücüdeki(onu sen belirlicen) dosya.txt varmı bak yoksa o sürücüyü gizle

not:"o srücüye karşılık gelen sayı" yazan yere hangi usb sürücüsüyse onun rakamını yaz

E: 16
F: 32
G: 64
H: 128
I: 256
J: 512

Set yaz = CreateObject("wscript.shell")
If Dir("sürücü harfi:\dosya.txt") = "" Then
Else
yaz.regwrite_ "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoDrives", "o_ srücüye karşılık gelen sayı", "REG_DWORD"
End If




BUNU YAPMAM LAZIM ÖDEVV AMA NASIL YAPCAMMM detaylı anlatacak olan.
\WoRTeX-CoSMoS/ - ait Kullanıcı Resmi (Avatar)
Kıdemli Üye
Üyelik tarihi:
10/2009
Mesajlar:
2.653
Konular:
266
Teşekkür (Etti):
193
Teşekkür (Aldı):
1076
Ticaret:
(0) %
22-11-2012 22:00
#2
kodu veren kişiye sorarsan daha çabuk sonuca ulaşabilirsin
---------------------
Görünen,gerçek değildir; gerçek,her zaman görünür değildir.
ahmet2356532 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2009
Nereden:
Konya
Mesajlar:
492
Konular:
38
Teşekkür (Etti):
65
Teşekkür (Aldı):
60
Ticaret:
(0) %
22-11-2012 22:20
#3
Dostum Bence On Error REsume Next Komutunu Kullan Ve Adan Z ye Tarattır Hangisi Acıksa Onu Kontrol Etsin Yada Mevcut Baglantıları Hafızaya Aldır Timerle 1 saniye Aralıkla Denettir Yeni Giriş Bulundugu Anda Diger Tabloyla Karsılastırt Fazla Olan Uzerınde Komutunu Uygula Birden Fazla Yolu var Yani
--------------------- [CENTER][COLOR=Lime]Çevrem genis diyenlere küçük bir not;

10 tane 10 kurus da 1 lira eder,

2 tane 50 kuruş da..
gtgg Teşekkür etti.
Unlimited Fps - ait Kullanıcı Resmi (Avatar)
Hesap Askıya Alındı
Üyelik tarihi:
10/2012
Nereden:
İstanbul
Yaş:
24
Mesajlar:
1.370
Konular:
87
Teşekkür (Etti):
13
Teşekkür (Aldı):
234
Ticaret:
(0) %
22-11-2012 22:28
#4
Hayır Usb İçin Az Önce Konu Açmışta
Çok Kolay Bak Usb'in J'mi Neyse Sadece Onu Yaz Kodlarıda Yaz Sonrada Kayıt Defterine Kaydet Bu Kadar
gtgg Teşekkür etti.
gtgg - ait Kullanıcı Resmi (Avatar)
Üye
Üyelik tarihi:
02/2011
Mesajlar:
87
Konular:
28
Teşekkür (Etti):
11
Teşekkür (Aldı):
0
Ticaret:
(0) %
23-11-2012 08:55
#5
Alıntı:
Unlimited Fps´isimli üyeden Alıntı Mesajı göster
Hayır Usb İçin Az Önce Konu Açmışta
Çok Kolay Bak Usb'in J'mi Neyse Sadece Onu Yaz Kodlarıda Yaz Sonrada Kayıt Defterine Kaydet Bu Kadar
yardımcı oll ne olur
ahmet2356532 - ait Kullanıcı Resmi (Avatar)
Katılımcı Üye
Üyelik tarihi:
11/2009
Nereden:
Konya
Mesajlar:
492
Konular:
38
Teşekkür (Etti):
65
Teşekkür (Aldı):
60
Ticaret:
(0) %
23-11-2012 13:23
#6
Dostum Mesela Bir Flash Tak Bilgisayarına Adı Ne Olarak Gozukuyor Onu Once Bul Mesela E
mesela Set yaz = CreateObject("wscript.shell")
If Dir("sürücü harfi:\dosya.txt") = "" Then
Else
yaz.regwrite_ "HKEY_CURRENT_USER\Software\Microsoft\Windows\ Curr entVersion\Policies\Explorer\NoDrives", "Buraya 16 Yazıcaksın Sürücü Adı E Oldugu İcin", "REG_DWORD"
End If
--------------------- [CENTER][COLOR=Lime]Çevrem genis diyenlere küçük bir not;

10 tane 10 kurus da 1 lira eder,

2 tane 50 kuruş da..

Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler