VB.NET Kullanıcıya ait klasörlerin yolunu bulmak.

Kullanıcıya ait klasörlerin yolunu bulmak.

1) My.Computer.FileSystem.SpecialDirectories ile

http://msdn.microsoft.com/en-us/library/microsoft.visualbasic.fileio.specialdirectories.aspx

Ulaşılabilecek klasör isimleri:

- AllUsersApplicationData
- CurrentUserApplicationData
- Desktop
- MyDocuments
- MyMusic
- MyPictures
- ProgramFiles
- Programs
- Temp

MD5 - SHA1- SHA256 - SHA512 ile string bir değeri şifrelemek.

MD5 - SHA1- SHA256 - SHA512 ile string bir değeri şifrelemek.

Combobox - cbAlgorithms
txtValue - TextBox
txtResult - TextBox(Multiline=true)

btnEncrypt - Button

Imports System.Text

Imports System.Security.Cryptography

Public Class frmMain

    Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        cbAlgorithms.Items.Add("Seçiniz...")

        cbAlgorithms.Items.Add("MD5")

        cbAlgorithms.Items.Add("SHA1")

        cbAlgorithms.Items.Add("SHA256")

        cbAlgorithms.Items.Add("SHA512")

        cbAlgorithms.SelectedIndex = 0

    End Sub

    Public Function EncryptMD5(ByVal ClearString As String) As String

        Dim uniEncode As New UnicodeEncoding()

        Dim bytClearString() As Byte = uniEncode.GetBytes(ClearString)

        Dim md5 As New MD5Cng

        Dim hash() As Byte = md5.ComputeHash(bytClearString)

Bir XML Web Servis nasıl deploy edilir?

http://msdn.microsoft.com/en-us/library/87h5xz7x(VS.80).aspx

"The test form is only available for requests from the local machine."

Kendi makinenizde oluşturduğunuz bir web servisi, web sunucuya yüklediğinizde "The test form is only available for requests from the local machine." uyarısı ile karşılaşabilirsiniz. Bu durumda yapmanız gereken web.config dosyasında <system.web> tag lerinin arasına, aşağıdaki <webServices>.....</webServices> tag bloğunu yerleştirmeniz.

<configuration>
    <system.web>
    <webServices>
        <protocols>
            <add name="HttpGet"/>
            <add name="HttpPost"/>
        </protocols>
    </webServices>
    </system.web>
</configuration>

Türkiye Vergi Daireleri Listesi 2013 SQL

Metin dosyası olarak paylaşamadığım için kusura bakmayın.

CREATE TABLE [dbo].[t_VergiDaireleri](
[VDID] [int] NULL,
[PlakaKodu] [varchar](3) NULL,
[IlAdi] [nvarchar](50) NULL,
[IlceAdi] [nvarchar](100) NULL,
[VergiDairesiAdi] [nvarchar](255) NULL
) ON [PRIMARY]

INSERT [t_VergiDaireleri] ([VDID], [PlakaKodu], [IlAdi], [IlceAdi], [VergiDairesiAdi]) VALUES (1, N'01', N'ADANA', N'Merkez', N'5 Ocak Vergi Dairesi Müdürlüğü')
INSERT [t_VergiDaireleri] ([VDID], [PlakaKodu], [IlAdi], [IlceAdi], [VergiDairesiAdi]) VALUES (2, N'01', N'ADANA', N'Merkez', N'Yüreğir Vergi Dairesi Müdürlüğü')
INSERT [t_VergiDaireleri] ([VDID], [PlakaKodu], [IlAdi], [IlceAdi], [VergiDairesiAdi]) VALUES (3, N'01', N'ADANA', N'Merkez', N'Seyhan Vergi Dairesi Müdürlüğü')

VB.NET GUID formatında ETTN üretmek

Guid.NewGuid().ToString()