Posted on 2008/03/20 23:12
Filed Under Programming/VB

DNS server, DNS service  

   Dim linebuffer As String

   Dim sHex As String

   Dim i As Integer

   

   sHex = ""

   linebuffer = "Hello"

   For i = 1 To Len(linebuffer)

        sHex = sHex & Hex(Asc(Mid(linebuffer, i, 1)))

   Next i

   

   Debug.Print sHex

2008/03/20 23:12 2008/03/20 23:12

트랙백 주소 : 이 글에는 트랙백을 보낼 수 없습니다

About

by CoCo

Notice

Counter

· Total
: 878907
· Today
: 45
· Yesterday
: 47