net » 08.01.2004 (Чт) 23:10
Я не знаю как привязывать,но поробуй следующее:
cоздай лейбел,а в нём будет генерироваться рандомное число,ряджом будет текстбокс,в котором нужно ввести ключ,правильный ключ = этот лейбл + множество матем функций,например
(label1.caption * 100 + 34343434) - (32 * label1.caption) - 1 + (label1.caption * бла-бла-бла) а у тебя дома будет прога в которой 2 ткст поля : в одно тебе чел посылает свою сгенерированную цифру а в другой вычисляется (label1.caption * 100 + 34343434) - (32 * label1.caption) - 1 + (label1.caption * бла-бла-бла) О ,идея :
Private Sub Command1_Click()
Dim Serial As Long, VName As String, FSName As String
VName = String$(255, Chr$(0))
FSName = String$(255, Chr$(0))
'получаем информацию о диске
GetVolumeInformation "C:\", VName, 255, Serial, 0, 0, FSName, 255
'Strip the extra chr$(0)'s
VName = Left$(VName, InStr(1, VName, Chr$(0)) - 1)
FSName = Left$(FSName, InStr(1, FSName, Chr$(0)) - 1)
Debug.Print "Имя диска "; VName
Debug.Print "Файловая система "; FSName
Debug.Print "Серийный номер диска "; Trim(Str$(Serial))
End Sub
Это выведет в имидиэйт серийник винта,может тебе енто что-то даст
Последний раз редактировалось
net 08.01.2004 (Чт) 23:16, всего редактировалось 1 раз.