29-04-13, 03:22 AM
السلام عليكم
كود :
Private Function StringToHex(ByVal StrToHex As String) As String
On Error Resume Next: Err.Clear
Dim StrTemp As String
Dim strReturn As String
Dim I As Long
For I = 1 To Len(StrToHex)
StrTemp = Hex$(Asc(Mid$(StrToHex, I, 1)))
If Len(StrTemp) = 1 Then StrTemp = "0" & StrTemp
strReturn = strReturn & StrTemp
DoEvents
Next I
StringToHex = strReturn
End Function
Private Sub Command2_Click()
On Error Resume Next: Err.Clear
CD.Filter = " Files (*.*)|*.*|"
CD.ShowOpen
Dim F As Integer
Dim FileData As String
F = FreeFile
DoEvents
Open Trim$(CD.FileName) For Binary Lock Read Write As #F
DoEvents
FileData = Space$(LOF(F))
DoEvents
Get #F, , FileData
DoEvents
Close #F
DoEvents
Text2.Text = ""
For F = 1 To Len(FileData)
Text2.Text = Text2.Text & _
StringToHex(Mid$(FileData, F, 1)) & " "
Next
MsgBox "OK"
End Sub