Visual Basic'de Word şifreleme Programı yapmak

[SaNcArHaN71]

Visual Basic'de Word şifreleme Programı yapmak


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

Code:

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