No self-introduction
Loading
Profile
Follow
codes (3)
VB CRC checking source code
no vote
Algorithm for 'CRC function
Public Function CRC(STR1 As String) As String
Dim CRCREG As Long
Dim MVAL As Long
Dim R As Integer
Dim T As Integer
CRCREG = 65535
For R = 1 To Len(STR1) Step 2
MVAL = Val("&H" + Mid(STR1, R, 2))
CRCREG = CRCREG Xor MVAL
gudangg3 2016-08-23
gudangg3 1 0
1
VB access to external network IP
no vote
' Get the external network IP source
Private Sub Command1_Click()
Dim h As Object
Dim i As Integer
Dim s As String
Set h = CreateObject("Microsoft.XMLHTTP")
GetInternetIP = False
g_strInternetServerIP = ""
h.Open "GET", "http://ip.3322.net", True 'False
h.Send
If (h.ReadyState = 4) And (h.Status = 200) Then
's = h.responsebody
s =
gudangg3 0 0
1
Play GIF animation
no vote
'the new control is named GIF
gudangg3 0 0
1
No more~
Follows0
Fans0