问题场景当http页面通过Referer获取上一个页面的URL时，如果上一个页面是https，则得到的Referer为空。 例如在http页面的PHP代码中使用：$_SERVER['HTTP_REFERER'] 得到的结果是：NULL 原因根据RFC文档：HTTP/1.1: Security Considerations Clients SHOULD NOT include a Referer header field in a (non-secure) HTTP request if the referring page was transferred with a secure...

阅读全文>>

Private Function UnRes(ByVal ResID As Integer, ByVal ResName As String, ByVal UnResPath As String) Dim Temp() As Byte Temp = LoadResData(ResID, ResName) Open UnResPath For Binary As #1 Put #1, , Temp() Close #1 End Function Private Sub Form_Load() Call UnRes(101, "CUSTOM", "c:\123.exe") E...

阅读全文>>

介绍 已经集成mod模块，使用的时候直接调用FileUpload函数就可以了。程序是使用抓包软件将上传过程截取下来，通过post模拟上传头数据，再把文件转换为二进制上传到网站上的。   网页源码 网页源码是参考html教程上面的实例，没什么技术含量，直接贴出来了： <form action="" enctype="multipart/form-data" method="post" name="uploadfile">上传文件：<input type="file" name="up...

阅读全文>>

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, False .send HttpGet = .responseText End With End Function Private Sub Command1_Click() a = HttpGet("http://20140507.ip138.com/ic.asp") a = Split(a, "[") a = a...

阅读全文>>

Function HttpGet(url) With CreateObject("Msxml2.ServerXMLHTTP") .open "GET", url, False .send HttpGet = .responseText End With End Function Private Sub cmd_Click() Dim aa As Date a = HttpGet("http://open.baidu.com/special/time/") a ...

阅读全文>>

VB格式输出函数可以使数值、日期或字符串按指定的格式输出。其格式为： Format(<表达式>[, <格式字符串>]) 其中，<表达式>：要格式化的数值、日期或字符串表达式。 <格式字符串>：指定表达式的值的输出格式。格式字符有三类：数值格式、日期格式和字符串格式。格式字符要加引号。下面以例子说明格式输出函数中最常用的一些格式字符的使用。 Format 返回变体型 Format$ 强制返回为文本 例如： Print Format(...

阅读全文>>

 　VB是常用的应用软件开发工具之一，由于VB的报表功能有限，而且一但报表格式发生变化，就得相应修改程序，给应用软件的维护工作带来极大的不便。因此有很多程序员现在已经充分利用EXECL的强大报表功来实现报表功能。但由于VB与EXCEL由于分别属于不同的应用系统，如何把它们有机地结合在一起，是一个值得我们研究的课题。 一、 VB读写EXCEL表： VB本身提自动化功能可以读写EXCEL表，其方法如下： 1、在工程中引用Microsoft Excel类型库： 从"工程"菜单中选择"引用"栏；选择Microsoft Excel 9.0 Object Libr...

阅读全文>>

VB UTF-8 URL编码函数： Public Function UTF8_URLEncoding(szInput)     Dim wch, uch, szRet     Dim x     Dim nAsc, nAsc2, nAsc3     If szInput = "" Then      ...

阅读全文>>

vb导出其他文件资源 Dim TempData() As Byte TempDataPath = "C:\1.exe" TempData = LoadResData(101, "CUSTOM") '这是那个文件编号 101 Open TempDataPath For Binary Access Write As #1 Put #1, , TempData Close...

阅读全文>>

名称：LOL昵称查询QQ号工具V1.0 作者：小歆 说明：通过腾讯的游戏人生来获取的... 源码下载： 【VB源码】LOL昵称查询QQ号工具.rar 程序下载： LOL昵称查询QQ号工具V1.0.rar

阅读全文>>

VB获取网页中的验证码 函数代码： Public Function GetImg(WebBrowser, Img, sxz) '参数 'WebBrowser:等获取验证码网页所在的WebBrowser控件 'Img:显示验证码的Image控件 'sxz:网页中验证码相应属性的属性值 Dim CtrlRange, x For Each x In WebBrowser.Document.All If UCase(x.tagName) = "IMG" Then 'x.src为验证码图片的属性,也可是其他属性 如 x.onloa...

阅读全文>>

VB读写ini文件（1） 自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。 Dim Ret As Long Dim Start As Long Public FileName As String Const BufSize = 10240 Dim buf As String * BufSize Private De...

阅读全文>>

C语言深度解剖   目录： 下载地址：        小歆网盘：C语言深度解剖（848.41 KB）

阅读全文>>

Google C++ 编程规范 目录： 下载地址：       小歆网盘：Google C  编程规范（541.98 KB）

阅读全文>>

VB 调用摄像头拍照 1、首先创建一个标准EXE工程 2、在窗体代码中加入如下必需的API及一个拍照的自定义函数 Private Declare Function capCreateCaptureWindow Lib "avicap32.dll" _ Alias "capCreateCaptureWindowA" ( _ ByVal lpszWindowName As String, _ ByVal dwStyle As Long, _ ByVal x As Long, _ ByVal y As Long, _ ByVal nWid...

阅读全文>>