CHIP Online - Arşiv: Şubat 1999 DOWNLOAD Programlama: Visual Basic'te Kısa Kısa Uygulamalar

Meraklısına Visual Basic'te Kısa Kısa Uygulamalar Visual Basic kullanarak yazmış olduğunuz programlara ekleyebileceğiniz bu kısa kod parçalan çeşitli konularda, takıldığınız noktalarda size yardımcı olacak ve problemlerinizi çözecektir. u ay kapalı l)ir kütü olan Windows Kegism'siiKİc, an-* cak Oıel ucuncü parti yazılımlarla yapılabilecek uyarların Visual Basic içinden nasıl yapabileceğimizi göreceğiz, Rcgistıy'yc ek yapılmasından fecrinde değişiklik yapılmasına, Kcmcl kullanımına kadar drgu-ik konularda Örnekleri bu ayki yazımızda bulabilirsiniz. Recycle Binin İsminin Değiştirilmesi Masaüslûndeki birçok ikona sag tuşla Tıklayarak ismim değiştirebilirsiniz. Atiuak bu bazı uzcl ikonla: Içfaı geçerli delildir. Örneğin Gen Dönft-şüm Kutusu gibi Özellikli [kanların simgesini deglşiirmek için özel baa programlar gerekir. Ama Visual lîa-sic içinden de bu lur ojelerin adım değiştirebilirsiniz. Aşağıdaki kod yardımı ile, diğer i kon tarda olduğu gibi, Cİcri Döuusıua Kutusu'nuıı da adını değiştirmeniz mûkûn olur lîu Örnek size ayın zamanda Rcgıstry'ye nasıl giriş yapılabileceğini ve bazı a-yarlarm nasıl değiştirileceğin) de gösterecektir. Öncelikle bir modül ve form İçeren yeni bir proje yaratın. Ylodu! Kulunlamalarına şunları yazın (tablo ı). Programı çalısının ve Command IJıuton'a hasın. Yeni ismi girin ve PC'ni^i reselleyim Anık yeni isim geçerli Olacaktır. Kod İçinde yer alan APT'nuı çağrıldığı bolum bazı Win dows işlemlerinde problem varaia- bılır. Eğer l'Cyi reseücme konusunda problem çıkarsa, onun yerine şu kodu kullanın: t£ = £xı'.vVirırJıws&c ÎEWXREBOOT. O) >ş Bilgisayarınızın İsmini Değiştirmek Visual Basic içinden Windowf>'un derinliklerine inmeye devam edıyo Public Const HK£YJ.OCAL_MACHINE - SHBÜÜGOHÛE H Oedare Functıon HegCriîiiiaKay Lib"sdv8pî3P.dir Alıas "RegCreaieKeyA" (ByVal Hköy As Lana, ByVal lp@ubK.ay AsStnng, phkPesulc As Long) As Long 'ş DeciBi-e Functıon RegCloseKay Lib 'advapi33 dü" [ByVal Hkey As Long) As Long ^ Declarct Function RegSetValueEx Lib "advapıSS.öll"' Alıas "RegSetValue&KA" [ByVal Hknv As Long, ByVal ipValufiNamo As Stnng. ByVal Rsserv*ı] As Long, ByVal dwTypB As Long. IpData As Any. ByVal nbData As Long] As long >Tl Public Const REG_SZ = 1=1 Public Const REG_DWORD - 4 ^ Public Sub savestnng[H>ey As Long, HJ^Path As Stnng strValus As Siring. strda-ra As Stnng) =| Dur kavhand As Long İfi Dim r As Long (H r - RegCreateKeyfHkey. strPath. keyhand) SI r - RegSetVeluefotfkeyhand. strValue. D. REG_S2, ByVHİ st-ualü Lentstrdetal) CH r - RegCloseKeylkeyhand) 1 End Sub 'i| Yine daha öncİ yaptldığ- gibi (orma bir Commanri Buttan 1 ekleyip Ciick olayına su kodu girm: Privete Sub Coınrr.and1_aick£) ^ strGrganizahonS - InaiiiBfDcf'Organtzssyon: 'J '|| If BtHDrggnİzarianS = " Then ^ VlsgBo* 'Haca* Giriş". vfcCritıcsI. "Err-or" 1 Exic Sub =i| Endtş Cüll aavestrİngfHKEY_LCCAI-_MACHINE. '5ofrware\MirxosrWAMnriw.s\CurrentVeı>-sion*. "RegısteredOrgankatian", strO"ganİzation$] >$ str0.wısrS - InputOosrKuilamcj: 1 SI If e&-Owner$ - " Then 1 MsgBcx "Hpraii Eîtris\ vbCnucai. "En-of* >J Exit Sub 1| EndıfT Cali 3aveatringlHKEY_L(XAI._MACHINE. "Soşware\Microsoft\Windov.'s\aırrRntVH^sı-?n*( "RegistöredOvnar". strCwıerSJ ^ Efid Suh 01 lablo 2: Kayıdı Kullanıcı ve Organizasyon isminin değiştirilmesi için gerekli kod. 204 • CHIP İUBM 19?? OTSKAi/ ' ¦•' ruz Rimeli ek* ag üzerinde bilgisayarınızın tanımlama admın nasıl değiştirileceğine bir bakalım. Bu ikicin Ker-ııcl üzerinden yapıldığı için bu- öncekine göre daha kolaydır. ÖnCftlIkle yeni bir proje yaıanp daha önce yaptığımız gibi buna bîr ma dul VC form ekleyin. Aşağıdaki tanımlamaları modüle ekleyin: Declars FunorJon SetC:;>npuUîfN.-irna Lib] kernei32" Alias "SetCofr.pı.-t*-Narn*A (ByVal IpComputerMarne As Stıing) Asi Mmg 1 paha sonra yeni bir Cemmand But- ıon yaratıp bunun Cttcfe olayına yandaki kodu girin: Public Const EV^.lCGÖFP ~0% Public Const EWX_SHUTTjOW'N1 - 1 oj Public Const EWX_RE8COT - 3 >] Public Const EWX_FORCE - 4 ^ Dadan? Function ExfcWindû',V£Ex üb "user32" (ByVal uşags As Long. ByVal dwRöserveü As Lsrtg) As Long Pubtic Const HKCY_CLA55E5_R00T - SH8COXC03 ^ Declaro Fjficcion RogCreateKey Lifi *'advspi32.dir Alias "RegCreateKeyA" IByVa/ Hfeey As Long. ByVal tpSubKey As Stnng. phkşesuit As LongJ As Long >|) Declare Function RegCloseKey Lib *aGvapi32dil" [ByVal HKey As Long) As long >\ Ooclarc Function Pog5etVaiueEx Lib "advapi32.dir Aiıas "RegSetValııeExA" iByVal Hkey As Lonj. ByVal tpValueNarne As String. ByVal Raeerved As Long, ByVa1 dv/Type As Long. ipData As Any. ByVal cbDara As LongJ As Long 1 Public Const REG.SZ = 1 Tl Public Consr. REG_DW0RO = 4 >ş Pubtic Suh BavastnrgJHksy As Long. strPath As Stffnş. İrVahiş As SÖlnş, str-daıa As St/ing) >ş Dini keyfilimi Aa Long ^ Dini r As Long T r - RegCreaieKeylHkey. atrPath. keytıand] >H r - RegSetVa!ueEx[keyband. strValue. O. REG_SZ. ByVal atrdata. LenlstrdataJI1 r - RegCloseKeylkeyhand) *|| End &ıh 'H Form üzerinde bir komut tuşu oluşturun ve onun Click Olayına BU kodu ekieyin: Private Sub CcrımaTûl^Clıckîl ^ strStrıngS ı InputBcoci'Regisvyde değişecek yeni ismi girin;", "Recycie Bin"] S If 5tr&riny$ ¦ Empty Tlten İ| MsgBox "Hatalı ons". vbCritical. *Erıxır° S| Exit Sub >H Endlt İII Cali aavearing[HK£YJXASEES_RQOT. 'CLS)avi645FFQ4L>SOS1-1Ü1B-;jf:Ca-COAAÜÜ2F954E]'. Ipre). strStringSI İş MsgBox "PCnıa Resetleyın*. . *Degisiklıkier> Yapıldı' Tl tS - E*itWtndowsEx(EWX FORCE Or EWX_RE8COT. ü) ^ EnrJSub^ Tablo 1: Geri Dönücüm Kutusu'nun isminin değiştirilmesi için gerekli kod. SUSAT 1994 ter B$ - "CHIP-1 C& - SelContpuierNamelaS) ¦? işletim Sisi eminizin Kanılı Kulla nıeı ve Organİzyoıı kininin Değiştirilmesi ile Registryde yolumuza daha dj pıofesyonelle&crek devanı ediyoruz. Bu örnek size KegiMry'de yer a-tan, Kayıtlı Kullanıcı ve Organİzyoıı isminin Visual Basic içinden degişri-rşmeSİ İle ilgili ayarların nasıl değiştirileceğini anlatacaktır. Şu tanımlama lan raodûfe ekleyin (tablo 2). Sonuçlan için Denelim Makası/Sistem /GenelegÖZ asabilirsiniz. H Mahmut Karshoğhı mkMfS@chip.com*tr

Arşiv Listesi