function getDogCode()

	set qzdog = createobject("QzDriverDog.getDog")
	getDogCode = cstr(qzdog.SN_DogRead()) + "-" + trim(qzdog.Str_DogRead(20,0)) + "-" + trim(qzdog.Str_DogRead(20,20))
	set qzdog = nothing
	
end function

sub dowritedogxx()
	if trim(window.Form1.useDogCode.value) = "" then
		msgbox "硬件狗号码为空，请输入要写入的号码！",vbokonly,"提示"
		window.Form1.useDogCode.focus()
		exit sub
	end if
	if msgbox("是否将 " + window.Form1.useDogCode.value + " 信息写入硬件狗？",vbOKCancel,"提示") = vbOK then
		msgbox "请将 USB硬件狗 或 串口硬件狗 插入电脑，按确定按钮将信息写入硬件狗！",vbokonly,"提示"
		set qzdog = createobject("QzDriverDog.getDog")
		tmpdogcode = window.Form1.useDogCode.value
		if len(tmpdogcode) < 20 then
			i = cint(len(tmpdogcode)) + 1
			while(i<=20)
				tmpdogcode = tmpdogcode + " "
				i = i + 1
			wend
		end if
		if qzdog.Str_DogWrite(20,20,tmpdogcode) then
			msgbox "信息写入成功！",vbokonly,"写入成功"
		else
			msgbox "信息写入失败，请确认本机是否装上硬件狗驱动，硬件狗是否与本机连接！",vbokonly,"写入失败"
		end if
		set qzdog = nothing
	end if

end sub