ไปที่เนื้อหา


goodwideza

เป็นสมาชิกตั้งแต่ 07 Apr 2008
ออฟไลน์ ใช้งานล่าสุด May 09 2008 09:37 AM
-----

โพสต์ที่ฉันโพสต์

ในกระทู้: adminและโปรแกรมเมอร์เข้ามาทีๆ

10 April 2008 - 09:26:58 AM

ครั้งแรก ผม ใช้ WPE ดักที่ตัวเกมส์
......................................................
แน่นอนครับ มี ข้อ ก้อต้องมีข้อดี ก้อ ต้อ
งมีข้อเสีย
......................................................
*-* ลอง ๆ ใช้ดู นะครับ

ในกระทู้: ถามเรื่องคำสั่งใน VB ครับ

10 April 2008 - 09:23:31 AM

Public Function SP_Dec2Hex(ByVal Num As Long, ByVal Size As Integer) As String
On Error GoTo OnError
SP_Dec2Hex = Right$(String$(Size, "0") & Hex(Num), Size)
Exit Function
OnError:
Call SP_eErr(Err)
End Function

ในกระทู้: ถามเรื่องคำสั่งใน VB ครับ

10 April 2008 - 09:11:22 AM

VB นะครับ Asc2Hex

Public Function SP_Asc2Hex(ByVal strAscii As String) As String
Dim i As Integer
Dim strHexTmp As String

For i = 1 To Len(strAscii)
strHexTmp = strHexTmp & Right$("00" & Hex(Asc(Mid$(strAscii, i, 1))), 2)
Next
SP_Asc2Hex = strHexTmp
End Function
QUOTE
Asc2Hex