<?xml version="1.0" encoding="utf-8"?>
<rss version="2.0">
  <channel>
    <title>宝峰科技 - Visual Basic</title>
    <link>https://wgbcw.com/forum-9-1.html</link>
    <description>Latest 20 threads of Visual Basic</description>
    <copyright>Copyright(C) 宝峰科技</copyright>
    <generator>Discuz! Board by Comsenz Inc.</generator>
    <lastBuildDate>Wed, 13 May 2026 00:25:01 +0000</lastBuildDate>
    <ttl>60</ttl>
    <image>
      <url>https://wgbcw.com/static/image/common/logo_88_31.gif</url>
      <title>宝峰科技</title>
      <link>https://wgbcw.com/</link>
    </image>
    <item>
      <title>本人曾经仿照过的偷xxx的VB源代码</title>
      <link>https://wgbcw.com/thread-3951-1-1.html</link>
      <description><![CDATA[是用VB仿照网上曾经出现过了一个偷xxx的ID软件；现在丢了不搞了也被xxx封闭了
发上来请各位高手斧正{:soso_e121:}]]></description>
      <category>Visual Basic</category>
      <author>liuyh7788</author>
      <pubDate>Tue, 10 Mar 2015 05:21:40 +0000</pubDate>
    </item>
    <item>
      <title>调用QQ DLL 截屏返回BASE64</title>
      <link>https://wgbcw.com/thread-3593-1-1.html</link>
      <description><![CDATA[[mw_shl_code=vb,true]Option Explicit
Private Declare Function GetShortPathName Lib \&quot;kernel32\&quot; Alias \&quot;GetShortPathNameA\&quot; (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
Private Declare Function CameraSub]]></description>
      <category>Visual Basic</category>
      <author>cpspig</author>
      <pubDate>Sat, 08 Feb 2014 10:05:20 +0000</pubDate>
    </item>
    <item>
      <title>VB6实现GDI+ IStream、StdPicture、Byte() 互转</title>
      <link>https://wgbcw.com/thread-3580-1-1.html</link>
      <description><![CDATA[首先要下载一个IStream库，用该库可以减少代码量，如果直接全部用API也同样可以。


下载好上面的IStream库后，我们来看下魏滔序的一个模块：
[mw_shl_code=vb,true]
\' By 魏滔序
\'常量声明
Private Const ClsidJPEG As String = \&quot;{557CF401-1A04-11D3-9A73-0000F81EF32 ...]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Sat, 01 Feb 2014 14:13:15 +0000</pubDate>
    </item>
    <item>
      <title>vb 恶搞小程序源码</title>
      <link>https://wgbcw.com/thread-3437-1-1.html</link>
      <description><![CDATA[这是个恶搞小程序（注意：不了解代码含义的禁止下载）
[mw_shl_code=vb,true]\'为指定窗口设置一个新父窗口
Private Declare Function SetParent Lib \&quot;user32\&quot; (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
\'获得活动窗口句柄
Private Declare Funct ...]]></description>
      <category>Visual Basic</category>
      <author>lmz365117</author>
      <pubDate>Fri, 07 Jun 2013 13:03:20 +0000</pubDate>
    </item>
    <item>
      <title>VB自动填写表单</title>
      <link>https://wgbcw.com/thread-1385-1-1.html</link>
      <description><![CDATA[请教下VB webbrowser注册163邮箱后，大家都用什么方法取得注册成功的邮箱名。]]></description>
      <category>Visual Basic</category>
      <author>nwfoaf</author>
      <pubDate>Wed, 18 Jan 2012 13:31:01 +0000</pubDate>
    </item>
    <item>
      <title>VB中直接调用wsock.dll或wsock32.dll的网络通讯模块</title>
      <link>https://wgbcw.com/thread-1094-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Thu, 30 Dec 2010 02:05:27 +0000</pubDate>
    </item>
    <item>
      <title>VB 判断指定名字的进程是否存在函数</title>
      <link>https://wgbcw.com/thread-1090-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Sat, 25 Dec 2010 09:12:06 +0000</pubDate>
    </item>
    <item>
      <title>VB 十进制，八进制，十六进制，二进制相互转换大全</title>
      <link>https://wgbcw.com/thread-1089-1-1.html</link>
      <description><![CDATA[[mw_shl_code=vb,true]\'\' 用途：将十进制转化为二进制
\'\' 输入：Dec(十进制数)
\'\' 输入数据类型：Long
\'\' 输出：DEC_to_BIN(二进制数)
\'\' 输出数据类型：String
\'\' 输入的最大数为2147483647,输出最大数为1111111111111111111111111111111(31个1)
Public Function DEC_t ...]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Sat, 25 Dec 2010 09:10:46 +0000</pubDate>
    </item>
    <item>
      <title>VB 移动手机炸弹</title>
      <link>https://wgbcw.com/thread-1086-1-1.html</link>
      <description><![CDATA[唉，现在的手机号不知道怎么的，总是有很多广告

当然，如果是营业厅的广告我们就没办法了

但是如果是手机号，那么，我们就用个手机炸弹弄死他吧

昨天我就写了个这小程序

程序原理很简单，找个网站，看到有给手机发送验证码的，那么，配合我的教程  

VB 教程 QQ自动 ...]]></description>
      <category>Visual Basic</category>
      <author>花心胡萝卜</author>
      <pubDate>Thu, 23 Dec 2010 02:46:40 +0000</pubDate>
    </item>
    <item>
      <title>VB中位操作运算函数模块</title>
      <link>https://wgbcw.com/thread-1077-1-1.html</link>
      <description><![CDATA[VB中不能直接进行位操作，刚好今天写段代码发现这个，和大家分享了……]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Tue, 21 Dec 2010 08:36:09 +0000</pubDate>
    </item>
    <item>
      <title>VB 教程 QQ自动申请 操作网页元素</title>
      <link>https://wgbcw.com/thread-1075-1-1.html</link>
      <description><![CDATA[嗯，做了个VB的教程，教大家怎么操作网页的元素



就是用的 Document.getElementsByTagName(\&quot;***\&quot;)和 Document.getElementById(\&quot;***\&quot;)



貌似没啥技术含量--



有兴趣的下载来看看吧



教程地址：




http://u.115.com/file/f06336700c#

VB_教程__QQ自动申请__操 ...]]></description>
      <category>Visual Basic</category>
      <author>花心胡萝卜</author>
      <pubDate>Sun, 19 Dec 2010 10:18:20 +0000</pubDate>
    </item>
    <item>
      <title>Hook简介</title>
      <link>https://wgbcw.com/thread-1061-1-1.html</link>
      <description><![CDATA[辅助制作不可不知的Hook简介

Hook这个东西有时令人又爱又怕，Hook是用来拦截系统某些讯息之用，例如说，我们想
让系统不管在什麽地方只要按个Ctl-B便执行NotePad，或许您会使用Form的KeyPreview
，设定为True，但在其他Process中按Ctl-B呢？那就没有用，这是就得设 ...]]></description>
      <category>Visual Basic</category>
      <author>sc85343012</author>
      <pubDate>Sat, 11 Dec 2010 07:57:04 +0000</pubDate>
    </item>
    <item>
      <title>VB6中SendKeys的用法</title>
      <link>https://wgbcw.com/thread-988-1-1.html</link>
      <description><![CDATA[SendKeys ：模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，  
其使用格式为：object.SendKeys string  
“object”：表示WshShell对象  
“string”：表示要发送的按键指令字符串，需要放在英文双引号中。  
1.基本键  
　　一般来说， ...]]></description>
      <category>Visual Basic</category>
      <author>潇潇</author>
      <pubDate>Sun, 14 Nov 2010 16:16:09 +0000</pubDate>
    </item>
    <item>
      <title>上传个VB比较数字大小源码（新手专用）</title>
      <link>https://wgbcw.com/thread-987-1-1.html</link>
      <description><![CDATA[上传个VB比较数字大小源码（新手专用）]]></description>
      <category>Visual Basic</category>
      <author>a2331975</author>
      <pubDate>Sat, 13 Nov 2010 12:53:16 +0000</pubDate>
    </item>
    <item>
      <title>VB实现水印破解总结</title>
      <link>https://wgbcw.com/thread-925-1-1.html</link>
      <description><![CDATA[传统意义上的水印是指半透明的文字或图片叠加在背景上，下面是一段常见的图片水印的VB编程过程：

\'1.建立单色mask DC 
    maskDC = CreateCompatibleDC(0)  
    maskBitmap = CreateBitmap(S_Width, S_Height, 1, 1, 0) 
    SelectObject maskDC, maskBitmap 
\'2.把 ...]]></description>
      <category>Visual Basic</category>
      <author>破解狼人</author>
      <pubDate>Sun, 31 Oct 2010 15:15:02 +0000</pubDate>
    </item>
    <item>
      <title>强制结束进程源码</title>
      <link>https://wgbcw.com/thread-843-1-1.html</link>
      <description><![CDATA[这几天闲来无事玩了玩DNF 退出游戏的时候觉得N慢 想了想直接结束进程是最快的所以突发奇想写出的  请各位大虾们指点 
Form1:
--------------------------------------------------调用方法---------------------------------------------------模块:
------------------ ...]]></description>
      <category>Visual Basic</category>
      <author>mythhack</author>
      <pubDate>Wed, 13 Oct 2010 12:07:43 +0000</pubDate>
    </item>
    <item>
      <title>VB编写记事本的源码</title>
      <link>https://wgbcw.com/thread-654-1-1.html</link>
      <description><![CDATA[[mw_shl_code=vb,true]需要3个控件
Microsoft Common Dialog Control 6.0
Microsoft Rich Textbox Control 6.0
Microsoft Windows Common Controls 6.0

\'声明查找变量
Dim sFind As String
\'声明文件类型
Dim FileType, FiType As String
\'声明文字是否改变
Dim change ...]]></description>
      <category>Visual Basic</category>
      <author>q455431511</author>
      <pubDate>Sat, 31 Jul 2010 02:33:57 +0000</pubDate>
    </item>
    <item>
      <title>VB实现全局钩子</title>
      <link>https://wgbcw.com/thread-535-1-1.html</link>
      <description><![CDATA[这是我写的一个小程序。我的目的：是在启动我的程序后，我在启动其他的程序，比如打开记事本，我在记事本里输入字母A同时我也希望通过A键来触发我编写的那个程序的按钮事件。我再网上查的说需要安装全局钩子来时截取键盘信息。来实现这个功能。但是我一直做不出来，希望 ...]]></description>
      <category>Visual Basic</category>
      <author>楚天哲</author>
      <pubDate>Thu, 03 Jun 2010 05:04:00 +0000</pubDate>
    </item>
    <item>
      <title>VB中获取屏幕当前鼠标坐标</title>
      <link>https://wgbcw.com/thread-518-1-1.html</link>
      <description><![CDATA[]]></description>
      <category>Visual Basic</category>
      <author>admin</author>
      <pubDate>Wed, 26 May 2010 13:21:01 +0000</pubDate>
    </item>
    <item>
      <title>VB各种控件属性及使用大全（老鸟闪过）</title>
      <link>https://wgbcw.com/thread-499-1-1.html</link>
      <description><![CDATA[http://www.360doc.com/content/10/0415/23/1228260_23269349.shtml]]></description>
      <category>Visual Basic</category>
      <author>zxc3412</author>
      <pubDate>Thu, 20 May 2010 05:57:24 +0000</pubDate>
    </item>
  </channel>
</rss>