摘要:
Private Const UserAgent = "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; .NET CLR 1.1.4322)" 'InternetOpenA Private Declare Function InternetOpen Lib "wininet.dll" Alias _ "InternetOpenA" (ByVal... 阅读全文
摘要:
Public Function xEncode(ByVal strEncode As String) As String If strEncode "" Then var_51 = "0x" For i = 1 To Len(strEncode) var_50 = Hex(AscW(CStr(Mid(strEncode, i, 1)))) var_51 = var... 阅读全文