国际海员

        下面贴出本工具中用到的关闭本地计算机共享目录的代码(与其相对应的创建共享的代码也整理出来一同贴上)，实际上用这个代码还可以关闭网络中其他计算机的共享目录，但要保证有足够的权限(至少可以通过网上邻居正常访问到对方计算机)。创建或删除本机的共享目录，用127.0.0.1就可以了。代码如下：Option Explicit共享类型Private Const STYPE_ALL      

键盘常用代码一览表 常  量    值  说   明vbKeyLButton 0x1 鼠标左键 vbKeyRButton 0x2 鼠标右键 vbKeyCancel 0x3 CANCEL键 vbKeyMButton 0x4 鼠标中键 vbKeyBack 0x8 退格键 vbKeyTab 0x9 TAB 键 vbKeyClear 0xC CLEAR健 vbKeyReturn 0xD 回车键 v

如何加长 ComboBox 的下拉选单？2007-04-20 07:40:57Combo 预设的下拉长度只有 5,6 个选项，当选项很多时，要卷老半天才能找到资料，很不方便！要加长 ComboBox 的下拉选单，方法如下： 在声明区中放入以下声明及 SubroutinePrivate Declare Function MoveWindow Lib "user32" (ByVal hwn

这是我的数据备份和恢复模块  Option Explicit  Public conn As New ADODB.Connection 数据库连接变量  Private WithEvents objBackup       As SQLDMO.Backup  Private WithEvents objRestore       As SQLDMO.Restore  Public isql As

windows里有一个名字是 abc 的帐号，我想用命令行或者编程的方式来重命名为userSub changeusername()       Dim myname As String, objWMIService As Object, objComputer As Object, r As Long       Name = InputBox("Enter the new compute

  有时候我们为了特殊的需要，设置COMBOX的下拉的宽度和高度，或者得到宽度，使用下面的3个函数即可  要改变COMBOX的本来控件高度（非下拉高度），直接修改字体大小即可得到效果！Private Declare Function SendMessage Lib _          "USER32" Alias "SendMessageA" _          (ByVal hwnd

我们在用IE或者是Access时，一定都注意到这个很有意思的东西：输入文本框控件能通过匹配我们过去键入的内容来帮助我们自动添加完成我们要输入的内容，很是方便。但是，在我们编程时，这样花哨的功能并没有被封装在控件里。其实，要教会它们这样做一点也不困难，涕淌以ComboBox控件为例（因为ComboBox用来做这个示例再合适不过了呵呵），给大家秀一段很简单的代码。其他的文本输入控件也是一样样的道理

这两天一个朋友以前的 rar 密码忘记了我说：你到网上找软件他回答：都对应不了最新的版本要不就是不好使的我说：那就自己写个程序 调用 rar 带的命令行公具穷举吧，然后判断rar.ext 返回的信息他回答：好像很难 我很急我说：那我试验一下，给你写几行程序他回答：好我等打开“传说中可以让任何人忘记其他开发环境的 VS.NET”新建一个 C# 的工程，准备写代码nnd 好久不写捕获命令行还要找资料

文件名SourceDB.ini文件Private Declare Function GetPrivateProfileString Lib "kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As Any, ByVal lpDefault As String

因为98以上增加了安全机制,所以需要判断是否是NT操作系统!!Option ExplicitPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function OpenProcessToken Lib "advapi32" (ByVal ProcessHandle As Lon

今天在研究我的新系统的时候坐在我旁边的磊磊说...想要一个热键功能~习惯了使用热键...我想想也是...于是就上网找了找VB全局热键的写法...一看才知道NND全局热键都很占资源大都用DO~LOOP来监视.不喜欢.于是在查阅一些关于GetWindowLong与HotKey的资料后半抄半写的情况下写了以下程序.全局键盘热键~~~希望对来我站的朋友有帮助~拿来写外挂也素不错的哦~抄完代码记得帮我点点广

************************************** 模块名: 增强校验E-mail地址有效性 功能描述:这个模块主要功能是检查e-mail地址、IP/DNS 主机名以及上一级的管理域的有效性，他将给予任何地方最正确的确认。校验 域/主机名可以查找整个 IPv4地址段并给予标识，私有网络排除，lookback等，若保留范围是被排除的，则进行多点传送。 返回值:每个函

Private Sub Command1_Click()  Shell "c:/windows/system32/shutdown.exe -s -f -t 100"End Sub 

得到以及设置屏幕分辨率 Option Explicit Private Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long    Const SM_CXSCREEN = 0    Const SM_CYSCREEN = 1  Private Declare Function EnumDi

///////////////////////////////////////////////////////CSV MDB Convert ToolWritten By griefforyou///////////////////////////////////////////////////////Option ExplicitPrivate Sub Command1_Click(

过了很久才抽时间写了这篇东西,望和谐处之代码的具体下载位置在：http://yuan505.vicp.net/cy_filesxxx/vbsrc/autocomplete.rar在IE地址栏中输入文字，与该文字相关的候选地址列表就会出现在其下方——这就是我们早已见怪不怪的Windows自动完成。那么，我们能在自己的应用程序中实现这样的功能么？答案当然是肯定的。使用Shell API函数SHAuto

真正删除数据库的记录 大家知道，缺省情况下，VB 删除记录只是把记录作上个删除标志而已，并没有真正删除。要真正删除记录，你可以使用 VB 提供的以下方法：BeginTrans、CommitTrans、RollBack。其中，BeginTrans 方法开始记录数据库的变动，CommitTrans 方法确认数据库的变

 Viking的肆虐让很多受害者忍无可忍，更可气的是专业软件公司提供的专杀工具竟然无法彻底清除。      无奈之余自己动手写了一个，请需要的朋友到这里下载：http://www.chenoe.com       该工具可以有效解除被感染的exe中的病毒并还原exe文件，网上的大部分工具是直接删除exe文件。另外，本工具还具有Viking免疫功能。        下载后直接运行即可查杀，如果查

代码涵义你能理解当然最好，不能理解也无关大碍，你只需要根据所需选择性地照搬到自己的程序中就行了。 模块文件Module1.basOption Explicit用于操作注册表的API函数定义 -begin-Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal

在VB6.0中实现大面积不规则区域的填充一、引言 区域填充是指先将区域内的一个像素 ，一般称为种子点赋予给定的颜色和辉亮，然后将该颜色扩展到整个区域内的过程。 二、已有的填充算法及缺点 1．扫描线法 扫描线法可以实现已知多边形域边界的填充，多边形域可以是凹的、凸的、还可以是带孔的。该填充方法是按扫描线的顺序，计算扫描线与待填充区域的相交区间，再用要求的颜色显示这些区间的像素，即完成填充工作

看到带Alpha通道的32位图标那绚丽性感的外表，对于无法逃离“爱美之心人皆有之”这句俗话的人(包括我)早就垂涎三尺了。感谢微软给我们选择美丽的机会，能让我们自己的软件也在外表上成为让别人倾慕甚至以身相许的筹码。想起来容易，做起来才发现整容工作原来还真没那么简单。对于饱读“有志者事竟成,破釜沉舟百二秦关终属楚......”的我......嗯嗯嗯，夸张的天昏地暗、飞沙走石...... 终于皇天不负苦

网上有一篇这样的,大家帮忙测试下,是不是都能. 该代码出自http://www.99orc.net/thread-135-1-1.html 3.驱动级模拟     如果上面的方法你都试过了，可是你发现目标程序却仍然顽固的不接受你模拟的消息，寒~~~~~~~~~还好，我还剩下最后一招，这就是驱动级模拟：直接读写键盘的硬件端口！     有一些使用DirectX接口的游戏程序，它们在读取键盘操作时绕过

方法1：(声明：魏滔序原创，转贴请注明出处。)        用这个类可以替代VB自带的Timer控件，这样就不用在无窗体的项目中仅为了使用Timer而多加一个窗体了。我一般用在ActiveX exe中用来分离系统控制权，用Timer的好处是避免控制权死锁，这样也就模拟出了多线程(实际上是多进程)，能给用户更好的体验。代码如下：        想直接使用的请到这里下载：http://www.c

 VB:***************************************************************************FUNCTION                  :strID_Card**INPUT                          :strOldID(String) -OLDid**OUTPUT             

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

新建EXE工程,添加三个按钮.按钮一是音量增加,按钮二是音量减少,按钮三是静音切换.Option ExplicitPrivate Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _     ByVal hwnd As Long, _     ByVal wMsg As Long, _     ByVal w

MCRC16.bas这个就是快速 CRC ,用查表代替计算。Option ExplicitPrivate HI16(0 To 255)  As BytePrivate LO16(0 To 255)  As BytePrivate bInited         As BooleanPublic Function CRC16(Data() As Byte) As Integer    Dim C

//定义Option ExplicitPrivate Type Weather    strAdd     As String    strDate    As String    strPicPath As String    strWeather As String    strWind    As String    strSM(10)  As String    End TypeP

Visual Basic での ICMP を使用した ping 1. Microsoft Visual Basic 6.0 を起動します。  2. [新しいプロジェクト] ダイアログ ボックスで、[標準 EXE] をクリックして、[開く] をクリックします。Visual Basic Design Editor が開き、Form1 が読み込まれます。  3. このプロジェクトに新しいモジュールを追加

Option ExplicitPublic Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As LongPublic Declare Function SetWindowLong Lib "user32" Alias "S

在菜单上增加图标 声明：Declare Function GetMenu Lib "user32" (ByVal hwnd As Long) As LongDeclare Function GetSubMenu Lib "user32" (ByVal hMenu As Long, ByVal nPos As Long) As Long Declare Function GetMenuItemID

今天上网看到一个很好的例子 ,引用过来大家共享,如果有朋友引用,请写上作者名字!作者：崔占民Microsoft Visual Basic 的MDI窗口虽然可以通过窗口的PICTURE属性设置窗口的背景图，使程序美化了不少。但是图片加载之后当窗口在不同的分辨率下，会出现缺口的现象，比如在800*600下设计的图片，到了1024*768下右边和下边就会出现一块空余（背景色露了出来，非常难看）。

  Dim Flag As BooleanPrivate Sub form_load()    On Error Resume Next    URL = "http://gmail.google.com"    wb.Navigate URLEnd SubPrivate Sub Command1_Click()    Dim vDoc, vTag    Dim i As In

添加一个新工程，添加两个窗体Form1，Form2，然后在form1上面放一个命令按钮即可看到效果：  Option  Explicit  Private  Declare  Function  EbExecuteLine  Lib  "vba6.dll"  (ByVal  pStringToExec  As  Long,  ByVal  Unknownn1  As  Long,  ByVal  

API函数定义 Dim eR As EIGCInternetConnectionState Dim sMsg As String Dim sName As String Dim bConnected As Boolean Private Declare Function InternetSetDialState Lib "wininet.dll" _ (ByVal lpszConnectoid

Public Declare Function ChangeDisplaySettings Lib "user32.dll" Alias "ChangeDisplaySettingsA" (ByRef lpDevMode As DEVMODE, ByVal dwFlags As Long) As LongPublic Declare Function EnumDisplaySettings Lib

扩展标记语言XML是一种简单的数据存储语言，使用一系列简单的标记描述数据，而这些标记可以用方便的方式建立，虽然XML占用的空间比二进制数据要占用更多的空间，但XML极其简单易于掌握和使用。 　　XML与Access,Oracle和SQL Server等数据库不同，数据库提供了更强有力的数据存储和分析能力，例如：数据索引、排序、查找、相关一致性等，XML仅仅是展示数据。事实上XML与其他数据表现形式

【VB源码推荐：一个操作Ini文件的类】--------cIniFile.cls 代码----------------这里定义了一个cIniFile类Option Explicit// Private member that holds a reference to// the path of our ini filePrivate strInI As String// Win API

这个比较简单,各直线直接取2点 ,计算斜率!只有相等才是平行(这里是在一个平面)下面是VB代码,计算的是正切 (TAN) Option ExplicitConst xx As Double = 0.0000001Private Sub Command1_Click()    MsgBox IsConnect(Line1, Line2)End SubPublic Function I

***********************************************************************/* Function Name: ToExcel */* Input Arguments: */* Out Arguments : */* : */* Description : */* Author : by yarno QQ：841153