Kod: Dim iMsg, iConf, Flds Set iMsg = CreateObject("CDO.Message") Set iConf = CreateObject("CDO.Configuration") Set Flds = iConf.Fields schema = "http://schemas.microsoft.com/cdo/configuration/" Flds.Item(schema & "sendusing") = 2 Flds.Item(schema & "smtpserver") = "smtp.gmail.com" Flds.Item(schema & "smtpserverport") = 465 Flds.Item(schema & "smtpauthenticate") = 1 Flds.Item(schema & "sendusername") = "Gmail ID" Flds.Item(schema & "sendpassword") = "Gmail Pw" Flds.Item(schema & "smtpusessl") = 1 Flds.Update With iMsg .To = "gonderilecek" .From = "iÇerik baslığı" .Subject = "Başlık" .HTMLbOdy = "İçerik" .Organization = "Mail Organtion" .ReplyTo = "-" Set .Configuration = iConf SendEmailGmail = .Send End With Sunucuya bağlanmama gibi hatalarla karşılaşılırsa programin kapanmamasi için kodun başlangıcına ;...

Kod: Sub hexEcevir(Dosyam As String) Dim verim As String, i As Long Open Dosyam For Binary Access Read As #1 Open Mid(Dosyam, 1, Len(Dosyam) - 3) + "txt" For Binary Access Write As #2 Do While Seek(1) < LOF(1) verim = " " Get #1, , verim verim = Hex(Asc(verim)) If Len(verim) = 1 Then verim = "0" + verim Put #2, , verim Loop Close End Sub Sub hexTersinecevir(hexcozulcekdosyam As String) Dim verim As veriming, i As Long Open hexcozulcekdosyam For Binary Access Read As #1 Open Mid(hexcozulcekdosyam, 1, Len(hexcozulcekdosyam) - 3) + "exe" For Binary Access Write As...

Döküman ektedir.İyi kodlamalar Eklenmiş DosyaVB ile ekran koruyucu yapma Eklenmiş Dosyası

Visual Basic"de hata kontrol işlemleri yaparken istenildiği takdirde Err.Raise fonksiyonu yardımı ile hata simülasyonu yapmak, yani olmayan bir hatayı gerçekleşmiş gibi göstermek mümkündür. Private Sub Command1_Click() On Local Error GoTo hata Dim hatakodu Err.Raise 68 hata: Select Case Err Case 68: MsgBox "Sürücüye erişilemiyor" End Select Exit Sub End Sub Yukarıdaki örnekte on local error komutu ile oluşan yerel bir hata yakalanmış, GoTo komutu ile de kendi hazırladığımız hata alt programına yönlendirme yapılmıştır. 68 nolu Err.Raise komutu ile simüle edilmiş, hata alt programında bu hata yakalanarak kullanıcıya "Sürücüye Erişilemiyor" mesajı verdirilmiştir.

Bu yazımızda VB.Net ile excel sayfalarına ulaşmayı, istediğimiz sütunları görüntülemeyi, gerektiğinde değişikik yapmayı göreceğiz. Excel objesini kullanmak için Excel kütüphanesini programımıza eklemeliyiz. Bunun için; VS.Net içindeki menülerden Project menüsü içindeki “Add Referance” seçeneğini seçip uygun bir kütüphaneyi ğrogramımıza ekleyelim.(Office XP için Microsoft Excel 10.0 Object Library) Şimdi programımıza başlayabiliriz. Önce bir excel objesi yaratmalıyız. Bir Excel objesi yaratıyoruz Dim objexl As New Excel.Application yolu belirtilen bir excel dosyası acıyoruz objexl.Workbooks.Open("c:deneme.xls") acılan excel dosyası içindeki kullanacağımız worksheeti seçiyoruz. Dim wsheet As New Excel.Worksheet wsheet = objexl.ActiveWorkbook.ActiveSheet Böylelikle bir excel dosyasına bağlantı kurmuş olduk. objexl.Visible = True yazarak bağlandığımız Excel dosyasını ekranda...