basic] 4바이트 Long to String - "http://" & host

http:// 까지는 4바이트 값 2개로 구성되어있고,
나머지 host 를 붙여서 출력해주는 함수 입니다
4바이트 문자를 사용하면 문자열을 축소 할수 있습니다
ANSI 1바이트 , Unicode 2~4바이트

Private Function http(ByRef host As String) As String

Dim i As Long, h As Long, b As Long, s As Long

  h = &H70747468

  http = String(7 + Len(host), 0)

  Mid$(http, 8) = host

  s = &HFF

  For i = (i Xor i) + 1 To 4

    b = h And s

    Mid$(http, i) = Chr$(b)

    h = h \ &H100

  Next

  h = &H2F2F3A

  For i = i To i + 2

    b = h And s

    Mid$(http, i) = Chr$(b)

    h = h \ &H100

  Next

'&H68 &H74 &H74 &H70 = h t t p

'&H3A &H2F &H2F = : / /

End Function