1、获得浏览器信息： 
Private Sub Command1_Click() 
WebBrowser1.Navigate "http://www.applevb.com" 
End Sub 
Private Sub Command2_Click() 

查看更多...

1.实现的代码片段：
<input type="button" name="Button" value="点这保存这页面" onClick="document.all.WebBrowser.ExecWB(4,1)">
<object id="WebBrowser" width=0 height=0 classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2">
</object>
 

查看更多...

1、控件复制到system目录下，然后用regsvr32   xxx.ocx方式直接注册   
2、把控件放在当前工程目录下，然后在控制台下进到当前工程目录再用regsvr32   xxx.ocx方式注册，或者在当前工程目录中新建一个"Reg.bat"的文件，文件中写入"regsvr32   xxx.ocx"保存然后双击运行   
  然后在VB里"工程->引用"   

查看更多...

需要更多的内存空间，或是遇到 64K 段边界限制。此错误有以下的原因和解决方法： 

打开了太多的、文档或资源文件。 
关闭不需要的应用程序、文档或资源文件。 

查看更多...

错误号                                 信息   
  
  
 3                                  没有返回的GoSub 
 5                                  无效的过程调用 

查看更多...

Function GetURL(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "GET", url, False
.Send

查看更多...

StringBuffer s_buffer = new String(<String>字符串); 
String s_string = new StringBuffer(<StringBuffer>字符串).toString();

查看更多...

用命令 
jar cvf *.jar *.class 
或者 
jar cvf *.jar 文件夹名 
jar cf *.jar 文件夹名 

查看更多...

delphi盒子 http://www.2ccc.com 
编程论坛http://www.programbbs.com 
学delphi网http://www.xuedelphi.cn 
大富翁编程网站http://www.delphibbs.com/ 
Delphi K.Top讨论区http://delphi.ktop.com.tw 

查看更多...

Shell "CMD /C XCopy f:\test\*.xls c:\test /E /I /Y"

or

Shell "CMD /C XCopy f:\test\*.xls c:\test /e" 

查看更多...

方法一
'获取用户名的API函数
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

    On Error Resume Next

查看更多...

按钮类组件：
button 组件：
CAPTION 属性 ：用于在按钮上显示文本内容
Cancel     属性：是否设置成默认的取消按钮，当设置为真的时候（true） 按ESC触发改按钮的事件！
Default  属性：是否设置成默认的确认按钮，当设置为真的时候 按ENTER键的时候触发事件

查看更多...

最近在用VB6解决一个网页解析的应用，涉及到了正则。如何在VB6中使用正则表达式，这个在MS网站上有介绍，不过介绍的不是很全面。下面结合MS网站的内容和搜索到的东西，自己汇总一下。

　　引用了Microsoft VBScript Regular Expressions 5.5 后就可以声明正则相关对象了。主要有三个对象：RegExp、MatchCollection、Match。
　　
　　1. RegExp　这是VB使用正则表达式匹配模式的主要对象了。其提供的属性用于设置那些用来比较的传递给 RegExp 实例的字符串的模式。 其提供的方法以确定字符串是否与正则表达式的特定模式相匹配。

查看更多...

Public   Function   Convert_ToCrLf(FILENAME   As   String)   
          '将使用0d0a重构文本文件即回车换行   
          Dim   src   As   String   
          Open   FILENAME   For   Input   As   #1   
          '         Input   #1,   src   

查看更多...

Option Explicit
Dim ZiShiYing_T(), ZiShiYing_L(), ZiShiYing_H(), ZiShiYing_W(), ZiShiYing_N%

Private Sub Form_Load()
Dim mcontrol As Object

查看更多...

以下只是小小結,以后慢慢添加...

1.枚舉類型:
     type
        DayOfWeek=(Sunday,Monday,Tuesday,Wednesday,Thursday,Friday,Saturday);//變量名=(枚舉列表)

查看更多...

v在你阅读此文前我必须得说明一些需要注意的
1：QQ版本2007 B4 (其他版本未测，希望能帮我测试)
2：盗取的并不是明文密码，而是被MD5加密过的Hash串[可通过此Hash登录QQ ]
3：如果用的是外挂登录QQ[如珊瑚虫] 可能会导致读不出密码或读出多个错误密码[目前尚未出现这种情况]
4 ： 我不会在这里公布任何有关盗取的方法，但会给出一些DEBUG数据，动手能力强的肯定也能尝试成功~

查看更多...

相信安装过VB6的绝大多数网友们都是用111-1111111这个序列号安装的吧？？
并且我们随便输入一些数字也能高概率通过....
对此我很疑惑~

今天我重装系统，又要重新安装VB6，反正没事可做干脆就研究研究它的序列号算法。

查看更多...

以前在Window 2000 IIS5.0一直使用ISAPI_Rewrite进行动态链接重写HTML静态网址，

最近升级到 Widnows 2003 IIS6.0 后，发现ISAPI_Rewrite根本运行不起来，在IIS 6.0里面一直提示“未加载”，后来查了又查，原来是文件的权限问题。

IIS 6.0 ISAPI_Rewrite 是在Service帐号下运行的,将数据文件的读写权限给予Service 帐号后,ISAPI_Rewrite 终于可以正常运行了。

查看更多...

ISAPI_Rewrite是一个强大的基于正则表达式的URL处理引擎。它非常类似于Apache's mod_Rewrite，但它是专为IIS设计的。 
ISAPI_Rewrite有两个版本：ISAPI_Rewrite Full与ISAPI_Rewrite Lite。 
ISAPI_Rewrite Lite是免费版本，但不支持反向代理功能。 
ISAPI_Rewrite Full只能下载到30天的试用版本。 
这篇文章介绍的是基于ISAPI_Rewrite Full实现反向代理。配置实际上很简单。写出来的目的主要是希望给初次使用ISAPI_Rewrite的朋友提供参考。 

查看更多...