www.softwaredevelopmentdeveloper.com
옥션 아이폰/아이팟 집에서 즐기기 롯데마트 11번가 주민등록번호 도용사실이 있는지 확인해 보세요! CJmall 회원가입 도메인 NO.1-호스팅 NO.1 든든한 웹파트너 가비아 ! 건담 전문몰 건담샵 No.1 중고차 쇼핑몰! SK엔카
아래출처는 http://ad.web2r.net/r.php?c=shop 입니다.Option Compare Database Option Explicit Private Const cstrSignature As String = _ "53 00 74 00 72 00 69 00 6E 00 67 00 46 00 " & _"69 00 6C 00 65 00 49 00 6E 00 66 00 6F 00 "Public Function GetAcc97LicKey(ByVal vstrAcc97FullPath As String) Const clngRecLen As Long = 32767 Dim intFn As Integer Dim strInBuf As String * clngRecLen Dim lngOffSet As Long Dim lngPos As Long Dim strSign As String Dim i As Integer Dim lngLOF As Long For i = 1 To Len(cstrSignature) Step 3 strSign = strSign & Chr( "&h" & Mid(cstrSignature, i, 2))Next i intFn = FreeFile Open vstrAcc97FullPath For Binary Access Read As #intFn lngLOF = LOF(intFn) Do While (1) Get #intFn, , strInBuf lngPos = InStr(1, strInBuf, strSign) If lngPos <> 0 Then Exit Do If lngOffSet + clngRecLen > lngLOF Then Exit Do lngOffSet = lngOffSet + clngRecLen Seek #intFn, lngOffSet strInBuf = ""Loop If lngPos <> 0 Then Seek #intFn, lngOffSet + lngPos - 1 + 704 + 172 - 18 Get #intFn, , strInBuf GetAcc97LicKey = Left(strInBuf, 20) End If Close #intFn End Function
