Bu uygulamamızda , Visual
Studio 2005 ortamında, VB.Net kodlarını kullanarak, O-Key Dongle cihazına
erişimi inceleyeceğiz.
İlk önce File > New
Project menüsünden yeni bir Visual Basic Windows Application uygulaması
açıyoruz.
Projeyi açtığımızda
karşımıza boş bir form gelecektir. Bu forma bir adet buton yerleştirelim.
Butona tıklandığında,
O-Key Dongle cihazı ile haberleşme sağlayarak, cihaz bilgilerini ekranda mesaj
kutusu ile göstereceğiz.
Bunu yapabilmek için
butonun üstüne çift tıklayalım, karşımıza uygulamamızın kod bölümü gelecektir.
O-Key Dongle cihazı ile
haberleşme yapılabilmesi için ilk önce cihazda oturum açılıp, bir oturum
numarası almak gerekmektedir. Oturum
açmak için OD_Login fonksiyonunu kullanacağız.
Bu fonksiyonları yazmadan
önce, kodumuzun başlangıcında O-Key Dongle kütüphanesi olan,
OkeyDongleLibrary.dll dosyasından tanımlamalarını yapmalıyız.
Cihazın bilgilerini
görüntülemek için OD_Info fonksiyonunu kullanacağız.
Cihazda açtığımız oturumu
kapatmak için ise OD_Logout fonksiyonunu kullanacağız.
Kullanacağımız bu 3
fonksiyonu da tanımlayalım.
Public Class Form1
Declare Function OD_Login Lib "OkeyDongleLibrary.dll" (ByVal ModuleID As String, ByVal DeviceParameter As String) As String
Declare Function OD_Info Lib "OkeyDongleLibrary.dll" (ByVal SessionID As String) As String
Declare Function OD_Logout Lib "OkeyDongleLibrary.dll" (ByVal SessionID As String) As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
End Sub
End Class
|
Butona tıklandığında, ilk
önce cihaza oturum açmak için OD_Login fonksiyonunu çağırmamız gerekiyor. Bu
fonksiyon Modül Numarası ve Cihaz Seri Numarası olmak üzere iki parametre
almaktadır. Fonksiyon geriye oturum
numarasını ya da hata mesajı döndürmektedir. Şu an için herhangi bir hata
kontrolü yapmayacağız.
…
…
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim session_id As String
session_id = OD_Login("0", "222188AF0319540C5069DA76B41DBC62")
End Sub
…
… |
Şimdi OD_Info fonksiyonunu kullanarak cihazın bilgilerini MessageBox ile gösterelim. OD_Info fonksiyonu parametre olarak oturum
numarasını almaktadır.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim session_id As String
Dim result As String
session_id = OD_Login("0", "222188AF0319540C5069DA76B41DBC62")
result = OD_Info(session_id)
MessageBox.Show(result)
End Sub |
Cihazda açtığımız oturumu
kapatmak için ise OD_Logout fonksiyonunu kullanacağız. OD_Logout fonksiyonu
parametre olarak oturum numarasını almaktadır.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim session_id As String
Dim result As String
session_id = OD_Login("0", "222188AF0319540C5069DA76B41DBC62")
result = OD_Info(session_id)
MessageBox.Show(result)
OD_Logout(session_id)
End Sub |
Uygulamanın çalışabilmesi
için, çalışma klasörüne OkeyDongleLibrary.dll ve OkeyDongle.ini dosyasının
kopyalanması gerekmektedir.
Butona bastığımızda cihaz
ile ilgili bilgileri göreceğiz. Buradaki bilgiler cihaz versiyonu ve modelidir.
Böylece en basit anlamda
cihaza erişerek, cihaz içerisinden bir bilgi okuduk ve ekranda gösterdik. Burada
temel olarak VB.Net için fonksiyonların tanımlanması ve çağrılması
anlatılmıştır. Yazılım koruma ile ilgili herhangi bir kontrol, şifreleme vb. yapılmamıştır.
Yazdığımız örnek uygulamayı indirmek için buraya tıklayınız.
|