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

Meraklı* ısına .;:JJ:.:JU:- '&*& Visual Basic'te Kısa Kısa Uygulamalar Visual Basic kullanarak yazmış olduğunuz programlara ekleyebileceğiniz bu kısa kod parçaları çeşitli konularda, takıldığınız noktalarda size yardımcı olacak ve problemlerinizi çözecektir. İnternet günümüzde oldukça popüler lıîr ili'ii5itıı agı. Bu yüzden yazacağınız programlanıl bir noktasında Internet ile ilgili bir nokta mutlaka bulunuyor. Böyle olunca Iııternct'e bağlamı ve kı&ayol oluşturmak gibi işlerin de Visual Basic i-çı tiden nasıl yapılacağını bilmek gerekiyor. Bundan dolayı, bu ay ağır hUt olarak Internet üzerine kod parçalarına yer vermeye çalıştık Isic öğrenmek isledikleriniz: 1.Internet Bağlantısını Nasıl Başlatırım? Bir çevirmeli ag bağdaşıma hag-bır.ı ısı gerçekleştirmek aslında sanıldığından daha kolay yapmanız gereken sadece aşağıdaki kısa kodu programınıza eklemek (tablo I) 2.Internet Bağlantısını Nasıl Kesebilirim? Visual Basic kullanarak Internet î-le olan lüıu bağlantıları kapatmak isliyorsanız Kemote Access servislerinden Haııgup fonksiyonunu kullanabilirsiniz. Bağlanmaktan biraz daha zahmetli olan bu işlem için öncelikle aşağıdaki kodu formun ya da modülün Dcclaraiion bölüntüne yazarak tanımlamanız gerekiyor (tablo 2). Kodu yazdıktan sonra Declarauon kısmı harieindekiler ayrı ayrı fonksiyonlar olarak zaten otomatik olarak lammlanacaklaıdıı. Daha sonra Hangl'p prosedürünü kullanarak Dİnı res res İ Shüll("n;ntlll32.exe rriöui.dlI.RriöDial" S "uOnnectJon_name". 1) Tablo 1: Inıemer bağlantısını başlatabilmek için kullanmanız gereken kod. 'değişkenlerin tanimlannıas-Dim StrURLFile As String D n Gt-URLTsrgec As String Dön FiloNum As Integer 'değişkenlerin atanmasi 5trURLFile - "C:\Windows\Desktop\ChJpJ3niine.url'' StrURLTarget ¦ "hıtp://www chip. com.tr-* FiieNum ^ FreeFile 'Irjtamat ktsayokınun yakması Clpen StrURfcRte Far OutpuT. As FıleNum Pnnt SRİRNum, '[InrerneîShnrtcıutr Pnnt İFfeNum, 'URU* S. SirURlTarget Close RfeNum Tablo 3: Masaûstûnûzde Internet kısayolu yaralamaz için kullanabileceğiniz kod. Public Cöffât REG.SZ = 1 Puülic CcnsL HKEY_CURRENT_USER - SJHSOraOOOI Private Sulî farrn_Qu.eryUnload ICancel as Integer. UnloBöMode es Integerl Dini tıKav As Lütıg '¦ Dim strşıınCmd As String II UnfciHrfMorfp ı vfeAppVVlnd0WS Then strRunCırıd - App.Pa'Jı S T £ App G>ENarnB ti. \£XE" Cali RegCreateKe>(HK£YXURRErJT_USER. "Saltwarı:\Miciüsott\vVındows\Cı^-r-HnlA/ersiDiAPunOnce*. hKeyl Cali RsgSKtVİhıeex|hKey, "MyApp", Q&. REG.SZ. ByVül KrRunDnd, Lon(strRunCmdKI) Cali RegCloseKeyfhKeyl Endıt EndSub Tablo 4: Windows yeniden baslanldagmda otomotaik olarak haslayabüen programlar yazmak için kod parçası 210 • CHtP >KA* 1999 Public Const RA5_MAXENTRYNAME As Integer - 256 Public COTISt RAS_MAXOEVlCîrTYPE As hteger - 16 Public CcraL RAS_WAXDCVİCENAME As Inceger =138 Public Cımst HAS.RASGONNJSIZE As İrtöger = -412 Public ConK EftROR_SUtX£SS - OS Public Type R>K£n:ryNamH riwîı:ze As Long S2EntrvNaır;eiRAS_MAXr:NTRY^AME) As Byte EfHfTypâ Pubfc Type RatsCanrı ÜVşSSze As Long hRasCann As Lüng s*rtj^Name{RAS_MAXfcNTRYNAME] As B^tt; S2DevİceTvpBfPAS_MAXDEVlCElYPe) As Byte 57L)nviceNameIşAS_MAia^:VICENAME) As Byto Eı id Type Public: Declare Func&on şasEnumConnections Ut) 'resa(iİ3S.ciir Aiias "RasEnum-ConnectionsA" JIpRasConn As Any. tpcb As Long, ıpcConııccUons As Lorvşî As l_ong Pubfc Declare RmC0on tasHunnUp Lib Yasapi3S.dir Ahas 'RasHangUpA" [ByVel hl'lasConn As LckmjI As Long Public gstrlSPNamt* As Stnng Public ReuırnCodo As Lcing Public Sub HangUpî) ?fin i As Long Cn r,!pH'-'::-",:2!Jiıl i:: =tnsConn Dim Ipcll As Long Dini IpcConriHctitıns As Long Dim bllasCönn As Lchkj lpRasConn[Ct.dw&7H - RAS. RASCÛMNGIZE Ip^b - RAS,MAXEWTRVrjAME " ıpRösConn(0).e**5ize ipcConnections - O RaturnCode = fîşsErıumConneiakKis(ipPasConn[Oj. ipcö. .. lpcConnectiiı;s| l( ReCUfnCoşe - ERROR ,SUCC£SS Tben For ı ¦ı Q To lpcGonnf*çkons - 1 it TnmfB>teîtıS!/ing[lpRasCr:nnli).s2EncryName)l _ - TrimlgsırlSPNlams) Tlıon hRasConn = ipRBsGannliI.hRasConn RtıtunıCode - RasHurıaliplByVal hşıisConn] Endlt Mrxt. t Endlf Lnü Suü Public Functıon ByteToString|byL5ü'ing[; As RyteJ As Stnng Dim i As lifcger ByteToStnny - " ı=0 While DVTfirjıngli) - OS ByıeTaStıStiş ^ ByteTniîtnna £ ClnlbytSu-ingfiT} 1-1*1 Wend t nü FaDCtion Tablo 2* Intemcı bağlantısını kesmek İçin kullunubilcceginiz kod parçası. (çağırarak) çevirmeli ağ kullanarak 3Qmiş olduğunuz tüm bağlantıları kapatabilirsiniz. Cali Hangllp 3.Internet Kısayolları Yaratmak İçin Şili'nizi lanıiahilmcniıı yani reklam yapımının en iyi ve kolay yolu kullanıcıların masaûsilerine veya Başlat menüsûne bir link koymak* tan ^eçer. Böylece bir URL dosyası yaraıarak .sîzin siıenizc bağlantıyı teşvik eum$ olumunu. Bu dosyaya çift tıklandığı zaman Defaulı B*öW-ser'ınız dosya içinde depolanmış WebSitesi ile açılacaktır. Ama öncelikle hu URL dosyasının yapısını bilmemiz gerekir. URL Dosya Yapısı URL dosyasının aslında bir mcıin dosyası olup uzamışı da .URL'dir ve aşağıdaki metni içerir: îlnlernetShurlcur;] URL=hrtp://w\vw.r.hİp.com.tr Bu dosya tıklandığı zaman sizi doğrudan CHİPin We.b şilesine go-ı inecektir. Aşağıdaki kod ise Vısual Basic i-cİnden nasıl Inierne.ı lasayolu yaratacağınızı gösterir (tablo 3) 4. Otomatik Başlayan Yazılımlar Yaratmak İçin WîtıdcwS kapanldığı zaman çalışmakta olan yazılımınızın Windows yeniden başlatıldığı zaman (Win-dovvs Gezgini, Denetim Masası ve diğer uygulamalar gibi) ickrar çalışmasını istiyorsanız VUual Basic için den Rcgisiry'yi tekrar düzenlemeniz gerekir. Buttu yapmak için ise Windows Regıslrysinden KıınOnee anahtarı-mn kullanılması gerekir Aşağıdaki kodu uygulamanızın M a in Formuna yazın (tablo -1). B Mahmut Knıthoğiu mkars@chip.com. iı oc*k 1499 CHLP ı211

Arşiv Listesi