vb

ServerObj.ServerBindings 一次绑定多个主机头

ServerObj.ServerBindings   =Array( "192.135.0.36:80:ok.com: ", "192.135.0.36:80:www.ok.com ") ServerBindings本身就是一个数组,你只要把要添加的多个主机头和IP做成数组就可以了

关于窗口样式的API以及处理文本的API参考

不管我们使用什么计算机语言开发,VC,VB,BCB,JAVA,NET你都脱离不开操作系统,它就是我们软件的生存土壤,JAVA的跨平台其实是因为它的虚拟机,实质上虚拟机还是要依靠操作系统,.net可以说博大精深但是它最终还是调用操作系统提供的服务,在Windows2003上运行.net程序和在windows95上运行效果肯定不同,因此只要一种语言提供给我们一种直接调用操作系统服务的接口(API)我们就不能武断的说它某些事做不了。只不过是方便与否,难以程度有差别,说这些话有些位VB申冤的嫌疑,可以说我确实有这点私心,但是如果你选择了VB你就要相信它,想办法了解到,这样才能充分发挥它的功能。   通常一种语言用久了就不知不觉中用它来思考,这有好处也有坏处,真正了解一门语言就要学会在使用中用它来思考,但是因此也会带来思维定式。很多时候局限的不是语言本身而是我们的思想。因此我们需要不停的思考,从不同角度思考,正如我的bLog的标题“我思故我在”,这句话有些唯心,但实际上在没有上学之前,在没有接收唯物主义的哲学思想之前我应该算是唯心主义者。当时我总是想我眼里的...

让VB菜鸟最快写出自己的外挂.通杀所有游戏

让VB菜鸟最快写出自己的外挂.通杀所有游戏 这年头,在这个论坛里面已经没有什么技术贴了...呵呵~发一篇惊天地,泣鬼神的帖子.当然这个只是模拟键盘的终极模拟.呵呵~   键盘是我们使用计算机的一个很重要的输入设备了,即使在鼠标大行其道的今天,很多程序依然离不开键盘来操作。但是有时候,一些重复性的,很繁琐的键盘操作总会让人疲惫,于是就有了用程序来代替人们按键的方法,这样可以把很多重复性的键盘操作交给程序来模拟,省了很多精力,按键精灵就是这样的一个软件。那么我们怎样才能用VB来写一个程序,达到与按键精灵类似的功能呢?那就让我们来先了解一下windows中响应键盘事件的机制。    当用户按下键盘上的一个键时,键盘内的芯片会检测到这个动作,并把这个信号传送到计算机。如何区别是哪一个键被按下了呢?键盘上的所有按键都有一个编码,称作键盘扫描码。当你按下一个键时,这个键的扫描码就被传给系统。扫描码是跟具体的硬件相关的,同一个键,在不同键盘上的扫描码有可能不同。键盘控制器就是将这个扫描码传给计算机,然后交给键盘驱动程序。键盘驱动程序会完成相关的工作,并...

VB禁止移动窗口

--VB禁止移动窗口-- 禁止一个窗口被移动最简单的方法是设置Form的Moveable属性为False,这样就无法拖动标题栏来改变窗口的位置了,同时系统菜单的“移动”命令变成了灰色,除此之外,还有两种方法也可禁止移动窗口。 1.拦截拖动标题栏的消息 当用户在标题栏的空白处上按下会产生WM_NCLBUTTONDOWN消息和HTCAPTION附加消息,我们可以拦截这个消息来防止用户通过拖动标题栏来移动窗口,此外还要拦截系统菜单的“移动”命令,所以我们还要处理WM_SYSCOMMAND消息,代码如下: 'Form1中 '----------------------------------------------------------- Private Sub Form_Load() Me.Show hWindow = Me.hWnd OldWindowProc = SetWindowLong(hWindow, GWL_WNDPROC, AddressOf WindowProc) End Sub Private Sub Form_Unload(Ca...

vb6.0中WebBrowser去掉滚动条禁止右键

下面的方法如果提示出错:"用户自定义类型未定义"话,建议重新安装vb6.0中文企业版(下载地址:http://www.cnzz.cc/Soft/974.html),vb6.0精简版(下载地址:http://www.duote.com/soft/3607.html)测试没有成功 引用Microsoft HTML OBject Library '加入webbrowser控件 '在窗体上自定义一个菜单(设为) '复制下面代码,运行即可禁止右键菜单了 '====窗体代码==== Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = False End Function Private Sub Webbrowser1_DownloadComplete() Set M_Dom = Webbrowser1.Document '好了,右键菜单没有了 me.PopupMenu mymenu '弹出自定...

VB 置托盘菜单 并动态显示 托盘提示

在Form中制作一个菜单,在窗体上点右键-菜单编辑器,标题随便,名称“F00”(不含引号,下同),去掉“可见”前的勾,“下一个”,标题“打开”,名称“F01”,点“右箭头”,“下一个”,标题退出,名称“F02”,点“右箭头”,“确定” 以下是代码,效果是程序运行时不显示在托盘中图标,点最小化后显示在托盘图标并且不在任务栏中显示窗口,双击图标打开窗口,右键点图标弹出菜单 '-----------------------窗体中-------------------------- Dim WindowTop, WindowLeft Function WindowStyle() '以下把程序放入System Tray====================================System Tray Begin With nfIconData .hWnd = Me.hWnd .uID = Me.Icon .uFlags = NIF_ICON Or NIF_MESSAGE Or NIF_TIP .uCallbackMessage = WM_MOUSEMO...

vb取窗口类名(例子)

要知道类名必须要知道句柄才可以所以需要两个api函数 声明findwindow和getclassname这两个代码 然后加个timer控件,打开任务管理器(取他的句柄)。 加入以下代码 Private Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Sub Timer1_Timer() Dim sClassName As String * 100 NewhWnd = FindWindow(vbNullString, "Wi...

VB 注册COM+ 删除COM+ 例子源码

sub AddComApp   strNewName  = "TESTProj"   RemoveComPlusApplication(strNewName)   Set oCatalog = CreateObject("COMAdmin.COMAdminCatalog")   Set oApplications = oCatalog.GetCollection("Applications")   oApplications.Populate   Set oApp = oApplications.Add   oApp.Value("Name") = strNewName   oApplications.SaveChanges   strDllPath = "E:\user\DataTrans\test.dll"   Err.Clear   Err.Number = 0   Call oCatalog.InstallComponent(oApp.Name, strDllPath, vbNullString, vbNullString)   If ...

用VB实现COM+组件配置

用VB实现COM+组件配置 作者:肖志云 在Windwos2000的管理工具里有一个“组件服务”工具,可以实现对COM+组件的应用的安装、启动、删除和对组件的安装、删除。这在安装一个有COM+组件的应用系统时时非常有用的,我们可以通过程序控制一个组件添加删除,可以通过程序实现这个过程的自动化,而不必人工停止应用再安装组件! 现在我们来讨论怎样用VB程序实现这个工具的这些功能。 一、COMAdmin接口简介 COMAdmin接口是实现这些功能的关键对象,它有有三个基本接口,分别是IcomAdminCatalog,IcatalogCollection,IcatalogObject,调用这三个接口的相关属性方法可以实现对COM组件的添加、删除、应用的添加、删除、启动、关闭等功能。 1、IcomadminCatalog接口介绍 IcomAdminCatalog接口代表COM+ Catalog本身。 方法:GetCollection可以取得COM+ Catalog中...

VB中如何使用模块和类模块?

问: 我在VB中建立一个标准EXE工程,想在里面使用模块或者类模块,但是不知道如何编写和调用,能否告诉我,或者给个示例或相关的文章资料,谢谢给位了。 答: 1、 模块:在模块里定义的变量,常量,FUNCTION,SUB,可以在整个工程中使用     可以用类模块来创建类 2、 填加 一个模块,然后尝试在其中写些变量、函数,到主程序中调用看看         类嘛:如果你写了一个类YourClassName,在主程序中则可以:         dim   temp   as   YourClassName     然后就可以用temp.***调用类中的变量和方法