Chishin Blog 千里之堤毁于蚁穴 —— 小歆
从Https跳转到Http时不传递HTTP_REFERER的解决方案
发表于 2017-1-15 | | 软件源码
问题场景当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...

阅读全文>>

[VB函数]将资源文件输出到指定目录下
发表于 2015-9-10 | | 软件源码
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...

阅读全文>>

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

阅读全文>>

VB获取本机公网IP源码
发表于 2014-8-22 | | 软件源码
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...

阅读全文>>

VB UTC+8校正 源码
发表于 2014-8-21 | | 软件源码
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的使用
发表于 2014-7-2 | | 软件源码
VB格式输出函数可以使数值、日期或字符串按指定的格式输出。其格式为: Format(<表达式>[, <格式字符串>]) 其中,<表达式>:要格式化的数值、日期或字符串表达式。 <格式字符串>:指定表达式的值的输出格式。格式字符有三类:数值格式、日期格式和字符串格式。格式字符要加引号。下面以例子说明格式输出函数中最常用的一些格式字符的使用。 Format 返回变体型 Format$ 强制返回为文本 例如: Print Format(...

阅读全文>>

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

阅读全文>>

VB URL编码函数
发表于 2014-4-14 | | 软件源码
VB UTF-8 URL编码函数: Public Function UTF8_URLEncoding(szInput)     Dim wch, uch, szRet     Dim x     Dim nAsc, nAsc2, nAsc3     If szInput = "" Then      ...

阅读全文>>

vb导出其他文件资源
发表于 2014-4-14 | | 软件源码
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...

阅读全文>>

【VB源码】LOL昵称查询QQ号工具V1.0
发表于 2014-3-20 | | 软件源码
名称:LOL昵称查询QQ号工具V1.0 作者:小歆 说明:通过腾讯的游戏人生来获取的... 源码下载: 【VB源码】LOL昵称查询QQ号工具.rar 程序下载: LOL昵称查询QQ号工具V1.0.rar

阅读全文>>

VB获取网页中的验证码
发表于 2014-1-11 | | 软件源码
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文件方案
发表于 2014-1-7 | | 软件源码
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...

阅读全文>>

VB 调用摄像头拍照,并保存图片...
发表于 2013-12-16 | | 软件源码
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...

阅读全文>>

用VB快速读取TextBox第N行的数据
发表于 2013-9-20 | | 软件源码
TextBox 是以 vbCr+vbLf 为分行符号, 如果我们要逐一读取 TextBox 每一行, 无非是寻找 vbCr+vbLf 的所在位置, 然后取出每一行的字串, 不过这个方法不快,而且如果我们要读取第 N 行数据,还是要从第 1、2、…N-1 行逐一读起,实在麻烦。        还好 Windows API 提供有读取 TextBox 第 N 行的功能, 细节如下:  1、API 的声明:  Public Const EM_GETLINE = &HC4 Public Const EM_...

阅读全文>>

VB中LostFocus、GotFocus事件的改进
发表于 2013-9-20 | | 软件源码
---- VB中有一个LostFocus事件和一个GotFocus事件,看名字似乎是当当前窗口失去焦点或得到焦点时触发的事件。但在实际应用时却发现当这个窗口和Windows中其他窗口进行切换时并没有触发这两个事件。现在解析一下这两个事件。  ---- Form_LostFocus、Form_GotFocus是指的是一个MDI主父窗体调用了多个子窗体,当这些子窗体之间切换时,就触发这两个事件;当一个窗体中的多个文本框,鼠标点击另一个文本框时,也会触发这两个此事件,文本框在 Windows内部实际上也是一个窗口。  ---- Windows内部是通过消息来触发事件的...

阅读全文>>

TOP