API 의' GetVolumeInformation' 함수를 사용하여 사용자 시스템의 하드 디스크 일련 번호를 피쳐 코드로 추출하여 등록 시 제출하고 소프트웨어 저작권자의 조작을 통해 등록 코드를 제공합니다. 마지막으로 소프트웨어 사용자가 등록 코드를 입력하여 전체 등록 프로세스를 완료합니다 (간단한 설명을 위해 이 경우 등록 코드는 피쳐 코드 빼기 10 1).

새 모듈 파일 작성

새 모듈 파일을 작성하고 다음 문과 상수를 모듈 1 에 추가합니다. Bas:

함수 getvolumeinformationlib' kernel32' 별칭' GetVolumeInformationA' 선언

(ByVal lpRootPathName 은 문자열, ByVal lpVolumeNameBuffer 는 문자열, ByVal

NVolumeNameSize 는 Long, lpVolumeSerialNumber 는 Long, lpMaximumComponentLength 는 입니다

Long, lpFileSystemFlags 는 Long, ByVal lpFileSystemNameBuffer 는 String, ByVal 입니다

NFileSystemNameSize 만큼 길다) 똑같이 길다

글로벌 GetVal As Long

프로그래밍할 때 선언문을 같은 줄에 쓰는 것이 중요하다.

양식 설정

Form 1 에 두 개의 텍스트 상자를 추가하고 Name 속성을 Text 1 및 Text2 로 각각 설정합니다. 1 개의 버튼을 추가합니다. Name 속성은 Command 1 으로 설정됩니다.

코드를 추가합니다

Form 1 의 Form 1 _ load 이벤트에 다음 프로그램 코드를 추가합니다.

개인 하위 양식 _Load ()

Dim TempStr 1 문자열로 * 256

Dim TempStr2 를 문자열로 * 256

Dim TempLon 1 As Long

Dim TempLon2 만큼 길다

......

등록 여부에 대한 정보를 보고 어떻게 통제하는지 설명하지 않습니다.

......

GetVolumeInformation("C:\ ",TempStr 1, 256, GetVal, TempLon 1, tetvolumeinformation 을 호출합니다

텍스트 1. 로컬 CD 의 일련 번호를 텍스트 상자 1 에 추출합니다.

끝단 접합

1 명령의 1 _ click 이벤트에 다음 프로그램 코드를 추가합니다.

개인 하위 명령 1_Click ()

Text 2÷CStr(GetVal) 인 경우

MsgBox "등록 코드가 잘못되었습니다. 입력이 올바른지 자세히 확인하십시오."

기타

MsgBox "성공적으로 등록했습니다. 소프트웨어를 다시 시작하십시오."

......

(향후 소프트웨어 기능에 제한이 없도록 올바르게 등록된 정보를 기록합니다. 구체적인 방법은 개인 취향에 따라 설정한다. ) 을 참조하십시오

......

만약 ... 끝날거야

끝단 접합

스스로 베껴 쓰고 천천히 연구하다. 소스 코드는 더 많은 사람들이 볼 수 있도록 제공됩니다.