arkadaşlar radsutido c++ dll'ye çevirebilecek varmı bu kodları
Private Sub Timer24_Timer()
Dim Drive As String
Drive = "c"
Text200.Text = Hex$(GetSerialNumber(Drive))
If Text200.Text = Text300.Text Then
Else
End
Me.Hide
Unload Me
End If
End Sub
Private Sub Timer25_Timer()
If Text200.Text = Text300.Text Then
Else
End
Me.Hide
Unload Me
End If
Timer24.Enabled = True
Timer25.Enabled = True
If Timer25.Enabled = False Or Timer24.Enabled = False Or Timer24.Interval = 0 Or Timer25.Interval = 0 Then
End
Me.Hide
Unload Me
End If
End Sub
Public Function GetSerialNumber( _
ByVal sDrive As String) As Long
If Len(sDrive) Then
If InStr(sDrive, "") = 1 Then
' Make sure we end in backslash for UNC
If Right$(sDrive, 1) <> "" Then
sDrive = sDrive & ""
End If
Else
' If not UNC, take first letter as drive
sDrive = Left$(sDrive, 1) & ":"
End If
Else
' Else just use current drive
sDrive = vbNullString
End If
' Grab S/N -- Most params can be NULL
Call GetVolumeInformation( _
sDrive, vbNullString, 0, GetSerialNumber, _
ByVal 0&, ByVal 0&, vbNullString, 0)
End Function
Private Declare Function GetVolumeInformation _
Lib "kernel32" Alias "GetVolumeInformationA" _
(ByVal lpRootPathName As String, _
ByVal pVolumeNameBuffer As String, _
ByVal nVolumeNameSize As Long, _
lpVolumeSerialNumber As Long, _
lpMaximumComponentLength As Long, _
lpFileSystemFlags As Long, _
ByVal lpFileSystemNameBuffer As String, _
ByVal nFileSystemNameSize As Long) As Long
Son düzenleme:
