Word şifreleme

[alimania]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Bu dersimizde Microsoft Word programını şifre ile açmayı öğrenelim..

Public Class Form1     Dim i As Byte     Dim hak As Byte     Dim objdocument As Object     Dim objword As Object     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         hak = 3         If TextBox1.Text = "By_YuSuF" And TextBox2.Text = "123456" Then             objdocument = objword.documents.add()             MsgBox("Hoşgeldiniz Yusuf Bey!")             objword.visible = True             Close()         Else             TextBox1.Text = ""             TextBox2.Text = ""             MsgBox("Kullanıcı Adı Veya Şifre Yanlış!")             i = i + 1             Label3.Text = (hak - i & " Hakkınız Kaldı")          End If         If Label3.Text = (0 & " Hakkınız Kaldı") Then             Close()         End If     End Sub      Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         objword = CreateObject("Word.Application")     End Sub End Class