vb实现http协议
vb实现http协议
2007-07-01 20:45
'''作者：何道德
'''网名:hedaode
'''网站:www.hedaode.cn\www.wo789.com
'''2007/07/1
'保持属性值的局部变量
Private mvarstrUrl As String '局部复制
'保持属性值的局部变量
Private mvarstrFileFiled As String '局部复制
Private mvarstrTextFiled As String '局部复制
Public Host As String
'保持属性值的局部变量
Public Function RequestData() As Byte()
Dim i As Long
Dim PostByte() As Byte '要发送的数据包
Dim headByte() As Byte '请求头域
Dim LastByte() As Byte 'multiPart/form数据包结束标记
Dim strFileByte() As Byte '文件属性
Dim fileByte() As Byte '文件体
Dim newLine() As Byte '回车换行符号
Dim strHeader As String
Dim strPostData As String
Dim boundary As String
Dim path As String
Dim textArr, fileArr, tArr, fArr
Host = Replace(strUrl, "http://", "")
i = InStr(Host, "/")
If i = 0 Then
path = "/"
Else
path = Mid(Host, i, Len(Host)) '获取资源路径
End If
Host = Replace(Host, path, "") '获取主机名
boundary = "--hedaode--"
StrToByte vbCrLf, newLine
If strTextFiled = "" And strFileFiled = "" Then
'不发送任何数据
strHeader = "GET " + path + " HTTP/1.1" + vbCrLf
strHeader = strHeader + "Accept: */*" + vbCrLf
&nb
相关文档：
JavaScript/VB Script脚本程序一般有两种执行方式，一种是嵌入在宿主程序里面执行，比如在IE浏览器里面执行；另外一种，在资源管理器里面双击执行（虽然还是通过另外一个程序解释执行，但是给人的感觉毕竟是直接运行）。
这两种方式，都可以使用Visual Studio来进行调试，先看大家用得比较频繁的网页脚本程序的调试：
1 ......
Option Explicit
Dim FSO As New FileSystemObject
Dim currentFolder As Folder
Dim currentFolderName As String
Dim folderItem, fileItem
Private Sub Form_Load()
currentFolderName = FSO.GetFolder(App.Path) & "\content"
SeachFolder (FSO.GetFolder(currentFolderName))
End Sub ......
VB颜色和RGB色互相转换头疼了我好一段时间,如今找到解决办法了
特别贴出来与大家共享
Type RGB
Red As String
Green As String
Blue As String
End Type
Public Function ColorToRGB(ByVal dwColor As Long) As RGB
Dim clrHex ......
VB数据库操作实例
2008-02-22 05:49
VB数据库操作对很多初学者朋友感到比较吃力，目前教材中的实例对数据库操作都比较单一，很多朋友提议我做一个包括浏览、添加、修改、删除功能的数据库操作实例，下面这个实例就是一个这样的数据库操作实例。
《书库管理系统》是一个最简单的数据库操作实例 ......
