Jan 3rd, 2001, 05:56 PM
Gotta funny signature(or so you think)? Then reply to this message.
In the response below the code is wrong. It returns "http://www.coolgamescentral.co" (Put then again it could be my computer). Try this code.
Private Sub Command1_Click()
Dim temp
Dim message As String
Dim res As String
message = "68 74 74 70 3A 2F 2F 77 77 77 2E 63 6F 6F 6C 67 61 6D 65 73 63 65 6E 74 72 61 6C 2E 63 6F 6D "
temp = Split(message, " ")
For x = 0 To UBound(temp)
temp(x) = "&h" & temp(x)
res = res & Chr(CLng(temp(x)))
Next x
MsgBox res
End Sub
It worked for me.
[Edited by conquerdude on 01-05-2001 at 12:16 AM]
In the response below the code is wrong. It returns "http://www.coolgamescentral.co" (Put then again it could be my computer). Try this code.
Private Sub Command1_Click()
Dim temp
Dim message As String
Dim res As String
message = "68 74 74 70 3A 2F 2F 77 77 77 2E 63 6F 6F 6C 67 61 6D 65 73 63 65 6E 74 72 61 6C 2E 63 6F 6D "
temp = Split(message, " ")
For x = 0 To UBound(temp)
temp(x) = "&h" & temp(x)
res = res & Chr(CLng(temp(x)))
Next x
MsgBox res
End Sub
It worked for me.
[Edited by conquerdude on 01-05-2001 at 12:16 AM]