2016年8月29日
vb6 wininet
摘要： 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... 阅读全文
posted @ 2016-08-29 11:10 comsky 阅读(534) 评论(0) 推荐(0)
2016年8月27日
vb6转16进制
摘要： 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... 阅读全文
posted @ 2016-08-27 17:46 comsky 阅读(629) 评论(0) 推荐(0)