三味书屋

   通常情况下，我们都是通过我的电脑里面的控制面板文件夹，或开始菜单上的设置-控制面板来使用控制面板的，但有时遇到一些特别的情况，例如一些网吧出于安全需要而禁用了控制面板，或者有时控制面板由于某种原因直接打不开的时候，我们就得使用另外的办法了。一般来说，大多数控制面板里面的项目，都是由放在WINDOWS\SYSTEM目录下的某个以CPL为扩展名的控制面板组件来提供的，有时一个CPL负责几个功能，...

'添加 Text1 Command1 List1'在Text1输入欲检测的 QQ 号Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long...

一 模块代码复制内容到剪贴板代码:Option ExplicitPublic Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPublic Declare Function...

首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。假设你的HTML页面表单代码如下： 请填写下面表单注册（*项为必添项） *姓名 *昵称 电子邮件 *密码 注意其中元素的type、Name、value属性。然后VB中的代码如下：Private Sub Command1_...

新建一个模块，把以下代码复制进去，然后在load中调用即可实现隐藏当前进程的目的。Option Explicit'-----------------------------------------------------'模块名称：modHideProcess.bas''模块功能：在 XP/2K 任务管理器的进程列表中隐藏当前进程''使用方法：直接调用 HideCu...

Private Sub UserControl_Resize()UserControl.Width = 540UserControl.Height = 540Image1.Move 0, 0, ScaleWidth, ScaleHeightEnd Sub'将属性值写到存储器Private Sub UserControl_WriteProperties(PropBag As ...

想找个Webbrowser控件的详细使用手册，网上找了好久，都没有找到详细的，只找到了这点东西，下面把它帖出来（那位朋友有更好的使用手册或者是帮助文件，分享一下，发给我一份啊）：下面就是找了好久从网上找到的了：方法 说明　GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项　GoForward 相当于IE的“前进”按钮，使你在当前历史列表...

使用vbs下载文件iLocal=LCase(Wscript.Arguments(1))iRemote=LCase(Wscript.Arguments(0))Set xPost=createObject("Microsoft.XMLHTTP")xPost.Open "GET",iRemote,0xPost.Send()set sGet=createObject("ADODB....

函数SetLayeredWindowAttributes　　使用这个函数，可以轻松的实现半透明窗体。按照微软的要求，透明窗体窗体在创建时应使用WS_EX_LAYERED参数（用CreateWindowEx），或者在创建后设置该参数（用SetWindowLong），我选用后者。全部函数、常量声明如下：Private Declare Function GetWindowLong Lib "us...

VB无疑是最先进的编程工具之一，但在涉及windows 32位系统的核心编程方面——譬如一些高级功能的实现上，它仍然显得有些力不从心，这需要我们充分利用vb的强大的Windows API函数调用能力来弥补。以下代码将向您展示如何利用Windows API控制系统托盘（图标）区、开始菜单、任务栏以及禁用/起用ctrl-alt-del、退出网络登录、立即关机、重新启动等系统高级功能。　　启动V...

Option ExplicitConst SM_CLEANBOOT = 67Const EWX_LOGOFF = 0Const EWX_SHUTDOWN = 1Const EWX_REBOOT = 2Const EWX_FORCE = 4Private Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As ...

你一定也常常因苦于无法组织自己程序中大量的picture，而头痛不已，那就让小生为各位介绍一下VB编程的好帮手--资源文件。　　所谓资源文件，就是指将在程序运行时用到的资源集中在一起的一个文件。一个资源文件可以包括文字（TEXT）、位图（BITMAP）。图标（ICON）等。并且在程序中调用时不用指明路径，这就简化了程序的编写并减少了发生错误的可能。现在我就以一个小程序为例讲述资源文件的一些使用...

1.Time 返回系统时钟的当前时间。 Date 返回系统时钟的当前日期。 Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。 Hour(Time) 返回指定时间的小时部分（0到23）。 Minute(Time) 返回指定时间的分钟部分（0到59）。 Second(Time) 返回指定时间的秒部分（0到59）。 Day(D...

第一部分 从网页上精确提取数据 本部分的实例是：下载沪深两市全部约1100家个股的基本信息及财务数据。若用手工操作，如上图所示，需要在股票代码区内分别输入1100个股票代码，在下拉式列表（ComboBox）中分别选择“个股资料”和“财务数据解读”，算下来约是2200次操作！这样的工作当然是由程序来完成划算得多。况且手工提取数据（先选中、再使用Ctrl+C拷贝）极容易出错（多选或漏选）...

自从公开了TEA算法的VB代码之后一直有人追问我如何调用这两个过程,如何取得加密/解密结果的问题,在此就针对这点做一个补充说明关于我给出的TEA算法VB实现的模块代码仅仅实现了TEA算法中最基本的:以128位密匙(长度4的长整型数组)加密(解密)64位数据(长度2的长整型数组)用法与算法描述中的C代码基本一样,仅增加了一个可以选择加密轮次的参数,提供16轮和32轮两种选择...

前些日子不少人都要挂QQ,有客户需求就自然有人去研究,所以不少人开始研究QQ的协议.其中最重要的一步就是研究QQ使用的加密算法---TEA算法关于TEA算法的描述以及C语言源码这里就不多说了,现在给出该算法的VB实现' ----------------------------------------------------------------------------...

协议说明:协议由报文头(T)+发送者(T)+接收者(T)+报文类型(T)+报文长度(L)+报文内容组成发送者和接收者是系统内的程序种类,OICQ服务器0x01,传真服务器0x02,WEB服务器0x03,打印服务器是0x04,聊天服务器是0x05,OICQ用户是0x0A。OICQ用户到OICQ服务器的通讯协议引导符 (0x81+0x0A+0x01)报文类型报文内容报文说明...

"""The MIT LicenseCopyright (c) 2005 hoxidePermission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "So...

1. 启动一个新的 Visual Basic 标准 EXE 工程。 默认情况下会创建 Form 1。 2. 在 项目 菜单中上, 单击 删除 Form 1 。 3. 在 项目 菜单中上, 单击 添加模块 。 默认情况下会创建 Module 1。 4. 将以下代码粘贴到 Module 1 的通用声明部分中： Public Const MAX_HOSTN...

网上的教程没有一个能在多网卡或多IP下用的，总是在 CopyMemory 时程序崩溃，没办法，只好自己找原因了，几次崩溃之后，终于找到了原因，在用 0& 调用后返回的AdapterInfoSize 在多网卡时，长度超过了IP_ADAPTER_INFO 结构，而所有教程都是用AdapterInfoSize 调用的CopyMemory ，所以程序崩溃就是必然了，找到问题，解决就相对简单了，用 si...

这个其实很简单 在Private Sub Form_Load() msgbox command'这个就是参数了 End Sub在开始》运行》X:\123.exe aaaaaa提示就是aaaaaa了

1. ASC(X)，Chr(X)：转换字符字符码 [格式]： P=Asc(X) 返回字符串X的第一个字符的字符码 P=Chr(X) 返回字符码等于X的字符 [范例]： (1)P=Chr(65) ‘ 输出字符A,因为A的ASCII码等于65 (2)P=Asc(“A”) ‘ 输出65 2. Len(X)： 计算字符...

1.新建一个模块,写入以下代码:Option ExplicitPublic Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, _ ByVal hWnd As Long, ByVal Msg As Long, B...

XML文件如下: 1 自由飞翔 2007-12-7 2 自由 2007-12-7 以下是VB6.0的代码:'工程->引用->Mircosoft XML6.0Dim XMLDoc As DOMDocumentDim root As IXMLDOMNodeDim xlst As I...

在VB6.0中Web浏览器控件是WebBrowser，他的作用是让我们只要加入少量的代码，就能做出和IE功能一样强大的浏览器。将WebBrowser添加到工具箱方法是：添加"部件"中选择Microsoft Internet Controls（SHDOCVW.dll），后点确定，WebBrowser在工具箱的图标为：WebBrowser的功能强大是由众多方法、属性和行为组成的，下面说下它的主要...

我们前面的程序都只说到使用Winsock制作一对一的连接，实际上我们使用控件数组的话，那么可以制作一个多客户连接的服务器。不过本质上还是一对一，不过是服务器上不只一个Windsock而已。我们在窗体上放一个Winsock，将他的Name改为sckServer，index属性改为0。然后就是代码了：clientCount As Integer        '定义一个窗体级变量来记录客户的连接数...

按上节的说法，我们可以把Web服务器看是一个服务端，而浏览器则是一个一个的客户端，他们以一个相同的端口（如HTTP默认为80，FTP默认为21），所以就能通信。他们的工作流程大概如下：首先Web服务器在某一端口上等待浏览器的连接，然后浏览器向目标Web服务器发出要求浏览某一网页的请求，最后 Web服务根据请求发送相应的网页源文件给浏览器。用过ASP的都知道，我们有一个Web服务器叫IIS，这...

  这其实是一个很傻的话题，选择何种开发工具完全是由于程序员的面临的任务以及个人的喜好决定的。只要您选用的工具能够胜任您从事的项目，只要您对开发工具有足够的造诣以应付多变、复杂的工作，只要这个工具还在继续升级，您就没有理由更换工具，更没有必要掺和到这种无聊的讨论中去。   任何工具都有其优势与弱势，产品定位更是各自不同，每个程序员都觉得自己的选择是最好的，别人都是愚蠢的。以下的讨论只是无...

案 例 集 锦在前面的章节中讲述了使用VB创建数据库应用程序的几个范例，其实作为编程语言来说，VB易于掌握和提高，可以极为迅速和简洁的创建Windows应用程序，非常适合普通的用户来编写符合自己需要的实用小程序。在接下来的内容中将向读者介绍几个用VB开发实用小程序的方法，并且结合实例向读者介绍VB编程中的许多技巧。案例一　我的桌面小闹钟一、概述在本例中将创建一个可以自动跟随鼠标移动的小...

总结了一些Visual Basic的应用与操作技巧，并对其强大的程序调试功能进行了介绍，用于读者在案例开发过程中参考。在程序编写过程中，即使是最出色的设计人员，也难免会被这样或那样的问题所困扰，本节以FAQ的形式列举了一些在使用Visual Basic过程中的常见问题，以期为读者释疑解惑。(1)  编程中经常碰到API，请问API的意义是什么？答：API是Application Progr...

在VB6中，可以使用如下语句处理程序错误，以避免程序突然中途退出。1On Error goto errHandler:2'Input your code here 3Exit Sub45errHandler:6    MsgBox Err.Description, vbCritical, "Error: "...

Time 返回系统时钟的当前时间。 Date 返回系统时钟的当前日期。 Now 返回代表当前日期和时间的编码值。该函数经常用作其它系统时钟函数的参数。 Hour(Time) 返回指定时间的小时部分（0到23）。 Minute(Time) 返回指定时间的分钟部分（0到59）。  Second(Time) 返回指定时间的秒部分（0到59）。  Day(Date) 返回月份中的日期数（1到...

xSheet.Range("A:A").Interior.Color =&H000000FF&

一、 QQ2008 Touch包0x91a) 0x2aa8 客户端原始数据：02 11 5b 00 91 2a a8 38 25 f5 91 5d 4c af 65 54 44 6d 76 7b ff f0 14 73 e6 0a 95 9d 74 ce b3 b5 fd 61 1d 12 84 a5 04 53 3c b1 d4 f9 27 9c 7c 3f ef f0 bb 3c ...

首先，你需要安装有VPC，这样你才能运行PC版的QQ。其次，你要有你机器root用户的权限。然后，你启动VPC，注意先不要登录QQ。打开终端窗口。输入su命令，在提示里面输入root用户密码，进入root用户。这时候提示符应该是个#号。以root身份运行终端命令：tcpdump -w dump.dat -s 0 udp这个命令的作用是把网络上传输的数据截获下...

1. 首先要引用一个Microsoft XML 随便选个版本。 2. 在初始化的时候读取XML显示到TXTBOX中，代码如下： '通过2进制流将XML文件读出来，也可以是其它文件格式 Private Function pstrUpdateView(istrXMLPath As String) As String Dim wlngFr...

【简 介】由于XML文档是以树形结构为格式，所以通常采用TreeView控件显示它们。以下码段说明了如何在Visual Basic 6将XML文档传入一个TreeView控件。　　首先，建立一个新的带有窗体的Visual Basic 6工程，然后在窗体中添加一个TreeView控件，并添加一个引用到微软XML解析器。接着，在Form_Load事件中添加如下的代码：Pri...

关键字: VB 脚本 作者:董含君讨论如何让自己的应用程序支持脚本最初也是在优快云的Blog上找的,但是我再次去找的时候发现已经找不到了.在此对原作者的提示表示感谢...More...关键字: VB 脚本 作者:董含君讨论如何让自己的应用程序支持脚本最初也是在优快云的Blog上找的,但是我再次去找的时候发现已经找不到了.在此对原作者的提示表示感谢使用范围...

一. 调用系统“创建快捷方式”向导　　是否为VB不支持创建快捷方式而于着急呢？虽然您可以调用vb5stkit.dll中的fCreateShellLink函数，但它是为安装程序设计的，快捷方式的默认路径总是从当前用户的“\Start Menu\Programs”开始，也就是说，如果您的Windows95装在C盘上，您无法通过 fCreateShellLink 函数把快捷方式创建到D盘上去。　...

一个图形文字模式识别演示系统，使用了单层感知技术.感知器是模拟人类视神经控制系统的图形识别机的一种技术，该程序具有自动学习和进行分类的能力。操作是输入文字或者手写输入，然后进行预分析学习，再进行识别，准确率较高。程序具有学习速度级别设置等功能，代码具有一定的研究价值，感兴趣的朋友可以进行扩增丰富。...