2010年7月11日inet控件openurl方法乱码问题

这是网页编码问题引起的,如果是utf-8编码,则返回的网页源码会显示为乱码。

解决办法就是先将utf-8编码转为unicode编码,然后再显示。代码如下:

Option Explicit

Private Sub Command1_Click()
Dim a() As Byte
a() = Inet1.OpenURL("www.rrgod.com", 1)
...

分类:程序设计  标签:Inet  控件  openurl  方法  乱码  问题    网友评论0条  已浏览loading

2010年7月11日关于汇编中溢出标志(OF)的问题

在汇编语言中,OF是标志寄存器中的溢出标志位,CPU是如何来判断是否溢出的呢?

下面这个解释很清晰:

针对有符号数,CPU只要在运算结束后比较一下最高位符号位是否产生变化就能判定溢出情况了!
比如: 
  11110000 
+10001000 
——————                         
...

分类:程序设计  标签:汇编  溢出标志  OF  问题    网友评论0条  已浏览loading

2010年7月10日post实现人人网(校内网)登陆

用HttpAnalyzer抓包,得到提交方式为post,数据如下:

POST /PLogin.do HTTP/1.1
Accept: image/gif, image/jpeg, image/pjpeg, image/pjpeg, application/x-shockwave-flash, application/vnd.ms-excel, application/vnd.ms-powerpoint, application/msword, application/xaml+xml, application/x-ms-xbap, application/x-ms-application, */*
...

分类:程序设计  标签:VB  post  人人网  校内网  登陆    网友评论1条  已浏览loading

2010年7月10日Inet控件(又叫Internet Transfer 控件)的几个常用用法

用 OpenURL 方法保存到文件
如果需要将通过 OpenURL 方法获取的数据保存到文件,可以使用 Open、Put 和 Close 语句,如下面的代码所示。该示例先将获得的二进制文件传入 Byte 数组,然后将该数据保存到磁盘中:

Dim strURL As String
Dim bData() As Byte '数据变量
Dim intFile As Integer '可用文件变量
...

分类:程序设计  标签:VB  Inet  控件    网友评论0条  已浏览loading

2010年7月7日获取百度空间搜索提交的post地址

不知道这个标题是不是有误,反正就是获取一个post的地址啦^_

用到了WebBrowser控件。

代码如下:

Option Explicit

Private Sub Command1_Click()
Dim doc, objhtml
Dim strUrl As String

Set doc = WebBrowser1.Document
Set objhtml = doc.body.createtextrange()
...

分类:程序设计  标签:百度空间  搜索  post  地址    网友评论0条  已浏览loading

2010年7月7日VB中未公开的两个内存操作函数

Option Explicit

'
' 未公开的内存操作函数
' -----------------------------
'
' 这2个函数分别取自微软的VB支持库 msvbvm60.dll 中
'函数名为 __vbaCopyBytes and __vbaCopyBytesZero.
'
'vbaCopyBytesZero :
'该函数功能是从一个内存块(存储单元)中复制字节到
...

分类:程序设计  标签:VB  内存操作  函数    网友评论0条  已浏览loading

2010年3月3日关于如何在VB中处理中文字符的一点解释

以下内容摘自网络:

我们知道在处理字符串时,VB把一个汉字当成一个字符来进行出来,结果导致按一般情况做出来的key不支持中文,所以我们要做出支持中文的VBkey,就必须正确的得到组成一个汉字的两个ASCII码,如果得到呢?这里有两种方法:
  第一种:
    第一步:使用Strconv()函数进行字符串转换.
        该函数的作用是对输入的字符串进行编码转换,返回值是一个字符串.该函数原型如下:
...

分类:程序设计  标签:VB  中文字符    网友评论0条  已浏览loading

2010年3月3日VB中GetPrivateProfileString 和WritePrivateProfileString

VB没有直接读写INI文件的语句,必须借助Windows API来操作INI文件。相应的Windows API函数有两类:一类是GetProfileInt、GetProfileString、WriteProfileInt和WriteProfileString,它们是读写Win.ini中的设置;另一类是GetPrivateProfileInt、GetPrivateProfileString、WritePrivateProfileInt和WritePrivateProfileString,它们可以读写如何一个.ini文件。这些函数的声明都在Win32api.txt中找到。先在VB中建立一个模块,输入以下代码:
...

分类:程序设计  标签:VB  ini文件    网友评论0条  已浏览loading

2010年2月28日文本文件与二进制文件

文本文件与二进制文件
一、文本文件与二进制文件的定义
    大家都知道计算机的存储在物理上是二进制的,所以文本文件与二进制文件的区别并不是物理上的,而是逻辑上的。这两者只是在编码层次上有差异。
    简单来说,文本文件是基于字符编码的文件,常见的编码有ASCII编码,UNICODE编码等等。二进制文件是基于值编码的文件,你可以根据具体应用,指定某个值是什么意思(这样一个过程,可以看作是自定义编码)。
...

分类:程序设计  标签:文本文件  二进制文件    网友评论0条  已浏览loading

2010年2月28日VB6中FileSystemObject简介

 在编程中,我们经常需要对文件系统中的驱动器、文件夹和文件进行处理,比如收集驱动器的相关信息;创建、添加、移动或删除文件夹和文件等。在VB6中新提供了一套称为FSO(File System Object)对象模型来对文件系统进行访问处理。该模型提供了一个基于对象的工具,通过它所提供的一系列属性和方法,我们可以在应用程序中更简单、灵活地对文件系统进行各种操作。

  一、FSO简介

  FSO对象模型包含以下几种对象:

  Drive对象:允许收集系统物理或通过LAN与系统逻辑连接的硬盘、CD-ROM等驱动器的可用空间、共享名等信息。

...

分类:程序设计  标签:VB  FileSystemObject    网友评论0条  已浏览loading

2010年2月28日文本文件的编码

打开记事本,输入1234

按不同的编码方式(ANSI,Unicode,Unicode big endian和UTF-8)保存文件。然后勇敢winhex查看内容:

ANSI:31323334

...

分类:程序设计  标签:文本文件  编码    网友评论0条  已浏览loading

2010年2月28日关于窗口的无效区域和有效区域

1:Windows内部为每个窗口保存一个「绘图信息结构」,这个结构包含了包围无效区域的最小矩形的坐标以及其它信息,这个矩形就叫做「无效矩形」,有时也称为「无效区域」。如果在窗口消息处理程序处理WM_PAINT消息之前显示区域中的另一个区域变为无效,则Windows计算出一个包围两个区域的新的无效区域(以及一个新的无效矩形),并将这种变化后的信息放在绘制信息结构中。Windows不会将多个WM_PAINT消息都放在消息队列中。

...

分类:程序设计  标签:窗口  无效区域  有效区域    网友评论0条  已浏览loading

2010年2月10日getElementById,getElementsByName,getElementsByTagName详解

在vb中可用来网页自动填表、模拟网页按钮点击等……

getElementById:
语法: document.getElementById(id)
参数:id :必选项为字符串(String)
返回值:对象; 返回相同id对象中的第一个,如果无符合条件的对象,则返回 null
...

分类:程序设计  标签:getElementById  getElementsByName  getElementsByTagName  详解    网友评论1条  已浏览loading

2010年1月21日VB API学习(四)——打开和关闭光驱

用到的API函数:CDdoor

声明:

 Private Declare Function CDdoor Lib "winmm.dll" Alias "mciSendStringA" _
    ( _
    ByVal lpstrCommand As String, _       String,这是控制命令参数
    ByVal lpstrReturnString As String, _    String,这是返回值
...

分类:程序设计  标签:VB  打开和关闭光驱    网友评论1条  已浏览loading

2010年1月21日VB中Inet控件(Internet Transfer控件)详解

Internet Transfer 控件实现了两种广泛使用的 Internet 协议:超文本传送协议(HyperText Transfer Protocol)(也就是HTTP) 和文件传送协议(File Transfer Protocol) (即FTP)。使用 Internet Transfer 控件可以通过 OpenURL 或 Execute 方法连接到任何使用这两个协议的站点并检索文件。

可以做到的大体方向
在应用程序中添加 FTP 浏览器。


...

分类:程序设计  标签:VB  Inet控件    网友评论0条  已浏览loading