内容列表
在VB中实现客户端程序自动查找并连接服务端程序
        在VB中实现客户端程序自动查找并连接服务端程序               (南京审计学院教育技术中心 210029  丁国勇)在一般的讲解WINSOCK控件的用法的文章中,无论是使用T
分类:VB语言 查阅全文
自己编程模拟 MouseEnter,MouseExit 事件
  自己编程模拟 MouseEnter,MouseExit 事件   很多第三方的控件都提供的 MouseEnter 和 MouseExit 事件来补充 MouseMove 事件的不足(MouseMove 事件不能有效的捕获鼠标是否已在控件外),但是这些控件或要注册,或集合了其他实际没有什么作用控件,另外在程序中加入太多的控件也会影响程序的性能,利用 Windows 的 API 函
分类:VB语言 查阅全文
如何使用 VB 编写自动反安装的程序?
如何使用 VB 编写自动反安装的程序? 如果您安装了某一个软件之后,想要反安装,您有二个方法:1、打开【控制面板】中的【添加删除新程序】,选择该软件來反安装。2、选择【开始】【程序集】中软件所产生的程序組中的反安装。上面的第一种方法,您不需要作任何处理,一般软件在安装完后,都会在【控制面板】中的【添加删除新程序】多一个该软件的选项。而第二种方法,就必须要我们编写程序來解决了!假�
分类:VB语言 查阅全文
远程数据库的访问
远程数据库的访问(VB数据库) 杨 尚 勤 ---- 远 程 数 据 对 象(RDO) 是 VB 5.0 中 基 于 ODBC API 的 对 象 模 型, 它 短 小、 快 捷、 强 健, 可 以 访 问 任 何 32 位 ODBC 数 据 源, 如 SQL Server 和 Oracle 数 据 库, 是 访 问 远 程 数 据 库 的 更 新 更 高 级 的 工 具。 ---- 使 用
分类:VB语言 查阅全文
05-25日<一个简单实用的 vb 加密/解密算法>之改进
在看了网友 everjoe评论后,俺改进了一下该程序,其实也就是把W系列的函数用B系列去替代,然后就支持中文加密了 修改后的全部代码入下: Function UserCode(password As String) As String'用户口令加密    Dim il_bit, il_x, il_y, il_z, il_len, i As Long &n
分类:VB语言 查阅全文
★★★敬请留意★★★:和微软一模一样的记事本的源代码(1)
Private Declare Function htmlhelp Lib _ "hhctrl.ocx" Alias "HtmlHelpA" _ (ByVal hwndCaller As Long, _ByVal pszFile As String, ByVal _uCommand As Long, ByVal dwData As Long) As Long Dim Chan
分类:VB语言 查阅全文
★★★敬请留意★★★:和微软一模一样的记事本的源代码(5)
Type Formstate    Deleted As Integer    Dirty As Integer    Color As LongEnd TypePublic Fstate As FormstatePublic Fstring As StringPublic Gstring As String
分类:VB语言 查阅全文
VB中访问API函数之防错技巧
      功能强大的API(应用程序接口)函数对于VB(Visual Basic For Windows)程序员来说,不愧是很好的编程工具,然而使用API函数的程序员也许都遇到这样的现象。在VB集成环境下,程序运行后,出现一错误信息对话框,按确定键后系统自动退出VB集成环境,此时如果你的程序尚未存盘,那末很遗憾挽回损失已回天乏力。最后一次存盘之后
分类:VB语言 查阅全文
在VB中实现客户端程序自动查找并连接服务端程序
在VB中实现客户端程序自动查找并连接服务端程序               (南京审计学院教育技术中心 210029  丁国勇)在一般的讲解WINSOCK控件的用法的文章中,无论是使用TCP还是UDP,客户端程序连接服务端程序时无一例外的要指定IP地
分类:VB语言 查阅全文
如何调试 VB 6 的安装源程序 Setup1.VBP?
如何调试 VB 6 的安装源程序 Setup1.VBP?方法一:  1.随便运行一个已经打好包的 Setup.exe,不要再做其他响应了!    例如:    D:\MyVBP\SetupDemo\包\Setup.exe    (此时出现 "XX 安装程序",不要做任何响应)      2.用 VB
分类:VB语言 查阅全文
★★★敬请留意★★★:和微软一模一样的记事本的源代码(4)
Option Explicit Private Sub CancelButton_Click()OKButton_ClickForm1.Text1.SelText = Text2.TextEnd Sub Private Sub Command1_Click() If Fstring = "" Then    Fstring = Text1.TextEls
分类:VB语言 查阅全文
★★★敬请留意★★★:和微软一模一样的记事本的源代码(2)
  Public Sub Command1_Click()Dim FoundPos As IntegerIf Fstring = "" Then    Fstring = Text1.TextElse    If Text1.Text <> Fstring And Text1.Text <> "" Th
分类:VB语言 查阅全文
★★★敬请留意★★★:和微软一模一样的记事本的源代码(3)
  Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPrivate Const EM_GETLINECOUNT = &
分类:VB语言 查阅全文
VB6.0中调用API函数创建和使用逻辑字体
VB6.0中调用API函数创建和使用逻辑字体 作者:王寿兵 发布时间:2001/05/15   文章摘要:   我们在用Visual FoxPro或Power Builder 等开发工具开发各种管理系统时,都要打印出一些各式各样的报表,在设计报表时,有时会遇到如下问题:报表的纵向数据列数太多,常用的宽行打印机(如LQ
分类:VB语言 查阅全文
经典加密算法在VB中的实现(2)- MD5
 Option Explicit Dim w1 As String, w2 As String, w3 As String, w4 As String Function MD5F(ByVal tempstr As String, ByVal w As String, ByVal X As S tring, ByVal y As String, ByVal z As String, ByV
分类:VB语言 查阅全文
经典加密算法在VB中的实现(1)- Base64
    Public key(1 To 3) As Long Private Const base64 = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrst uvwxyz0123456789+/" Public Sub GenKey() Dim d As Long, phi As Long, e As Long Dim m As
分类:VB语言 查阅全文
如何实现窗体的自动隐藏显示功能
现在许多程序的窗体都有自动隐藏/显示的功能(比如OICQ)。 实现这样的功能其实很简单,原理是:判断鼠标是否移到了屏幕的最左边或最右边,如果移到了则显示窗体,如果鼠标移开了窗体则隐藏窗体。在本程序中,我们将用到GetCursorPos这个API函数是实现这个功能最重要的一步 ,这个函数的作用就是获取当前鼠标的坐标值,我们可以通过这个值来判断鼠标是否移到了屏幕的最边缘。 下面我们就开始吧。 新建一
分类:VB语言 查阅全文
经典加密算法在VB中的实现(3)- RC4
 Public Sub main() Dim key As String For i = 1 To 16     Randomize     key = key & Chr(Rnd * 255) Next i MsgBox RC4(RC4("Welcome To Plindge Studio!", key), key)
分类:VB语言 查阅全文
解除爱虫病毒的武装
Windows Scripting Host (以下简称为WSH)是为32位微软Windows操作系统平台设计的独立于程序语言的脚本主机,能在Win95、Win98、Win Me、WIN NT和Win 2000中运行。许多流行的编程语言,如Visual Basic、Scripting Edition开发系统和JavaScript等都支持WSH。它能通过基于Windows的WSCRIPT.EXE程序
分类:VB语言 查阅全文
在VB中怎样操作注册表.
在VB中系统提供了对注册表操作的两个函数.但它们只可以操作特定的键.使用起来往往不能满足需要.下面的这个函数可以实现对注册表的所有操作.并且具有标准VB函数的通用性和易用性.请指点.. Public Function SysRegControl(Optional ByVal RootKey As RegRootKey = regHKEY_LOCAL_MACHINE, Optional ByVal
分类:VB语言 查阅全文
<< 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 >>