wq1282的专栏

 http://social.msdn.microsoft.com/Forums/zh-TW/232/thread/5b0e0eb7-9cd7-420a-9f56-e588154174ba http://www.mndsoft.com/blog/article.asp?id=903 http://topic.youkuaiyun.com/t/20051015/14/4328396.html

 http://www.winu.cn/ask/response.php?aid=19336 待解决问题 vb WM_KEYDOWN 参数设置？？？？  (离问题结束还有0天0小时) id="question_content">Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (

Option ExplicitPrivate Const INTERNET_OPEN_TYPE_DIRECT = 1Private Const scuseragent = "vb wininet"Private Const INTERNET_FLAG_PASSIVE = &H8000000调用设置环境Private Declare Function InternetOpen

一个CommonDialog，一个CommandButton，一个PictureBOX Option ExplicitPrivate Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As LongPriv

Private Declare Function ReleaseCapture Lib "user32" () As LongPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, l

http://topic.youkuaiyun.com/t/20060401/19/4656391.htmlPrivate Declare Function GetCurrentProcess Lib "kernel32" () As LongPrivate Declare Function SetPriorityClass Lib "kernel32" (ByVal hProcess As Lo

http://www.webuc.net/ddf3/archive/2005/08/25/6142.aspx  不用FSO的复制文件夹得方法？用API函数 SHFileOperation以下是使用SHFileOperation删除复制移动文件的例子，可以复制文件夹Private Type SHFILEOPSTRUCT 　　hwnd As Long 　　wFunc As Long　　pF

http://zhidao.baidu.com/question/33440250.html 在模块中输入以下代码 Public Declare Function sndPlaySound Lib "winmm" Alias _ "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Lo

查找运行的窗体Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declare Function GetWindowText Lib "user32"

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

添加两个TEXT(multiline=true)一个按钮 Private Function isChinese(ByVal asciiv) As Booleana = AscW(asciiv)If Len(Hex$(a)) > 2 ThenisChinese = TrueElseisChinese = FalseEnd IfEnd Function

模拟键盘http://hi.baidu.com/%B7%BF%B6%F7%BA%EA/blog/item/621c35c45b7a2fae8226ac2a.html http://www.winu.cn/ask/response.php?aid=19336 待解决问题 vb WM_KEYDOWN 参数设置？？？？  (离问题结束还有0天0小时) id="ques

Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal DirPath As String) As Long Private Sub Form_Load() MakeSureDirectoryPathExists "c:/a/b/c/d/" End Sub

以下代码是更改SysListView32内的项  Option ExplicitPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Declar

http://tieba.baidu.com/f?kz=580219489http://www.anqn.com/vb/154/8974.shtmlhttp://www.codefans.net/soft/5089.shtmlhttp://www.mndsoft.com/blog/article.asp?id=1121 http://topic.youkuaiyun.com/t/2002011

 代码:Option Explicit======================用于查找进程和终止进程的API函数常数定义================ =====Private Declare Function CreateToolhelpSnapshot Lib "kernel32" Alias "CreateToolhelp32Snapshot" (ByVal l

Private Declare Function GetWindowThreadProcessId Lib "user32" (ByVal hwnd As Long, lpdwProcessId As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassN

调用方法很简单，在Form中如下书写代码：Private Sub Form_Load()SetHotkey 1, "Ctrl,112", "Add" 按 Ctrl+F1 激活指定程序，F1的Ascii码为112SetHotkey 2, 113, "Add" 按 F2 激活指定程序，F2的Ascii码为113SetHotkey 3, "Ctrl+Alt,113", "Add"

http://blog.youkuaiyun.com/cw198624/archive/2009/02/19/3911759.aspx 添加一个ListBox和一个按钮 Option ExplicitPrivate Declare Function CloseHandle Lib "kernel32" (ByVal Handle As Long) As LongPrivate Decl

*************************************************************************----------------------------------------------------------------------**系统名称：子类化重绘仿QQ2009渐变按钮**模块描述：**模 块 名：For

用VB保存网页到MHT文件代码： 引用：Microsoft CDO For Windows 2000 Library 和 Microsoft ActiveX Data Objects 2.x Library Private Function SavePageToMHT(ByVal URL As String, ByVal FileName As String) As Bool

VB制作迅雷样式的Listview http://chinajia.com/soft/downinfo/3627.html按Ctrl+T勾选Microsoft Windows Command Controls 6.0 (SP6) 添加1个ListView命名为lv，4个按钮，1个CheckBOX，1个PictureBox命名为picBg Download by http://

<br /> <br /> <br />http://read.pudn.com/downloads23/sourcecode/windows/system/76077/vb%B7%B4%B1%E0%D2%EB%C6%F7/modAsm.bas__.htm<br /> <br />Attribute VB_Name = "modAsm" <br />'欢迎你下载使用本代码，本份代码由程序太平洋提供下载学习之用 <br />'声明: <br />'1.本站所有代码的版权归原作者所有，如果你使用了在本站下载的源

1.在form 初始化时将webbrowser控件的ScriptErrorsSuppressed = True（false调试模式，允许脚本错误提示），也可以在其他合适的事件中设置。2.写个子过程Private Sub Window_Error(ByVal sender As Object, _ ByVal e As HtmlElementErrorEventArgs) ' 忽略错误并禁止弹出对话框 e.Handled = TrueEnd Sub3.在webbrowser控

Hyper-V 找了很多资料，想用软件控制“恢复快照”的操作，但都不尽如人意，自己做了一点优化，从恢复到完成约10秒，成功后才返回。源码是VB.NET，工程需要真实添加引用（工程-引用[右键]-添加引用-程序集）找到：System.Management然后添加一个工程模块：Imports SystemImports System.Collections.GenericImports Syste...

''' &lt;summary&gt; ''' 转换Byte数组为字符串 ''' &lt;/summary&gt; ''' &lt;param name="buff"&gt;&lt;/param&gt; ''' &lt;returns&gt;&lt;/returns&gt; Public Function ReadAsString(ByVal

vb获取网页的所有元素2008-12-11 22:20vb获取网页的所有元素 原来获取网页的所有元素是这么简单： Dim theHTML As New HTMLDocument Set theHTML = wb.document ' wb = ActiveX WebBrowser ' theHTML.All 就是它了！ ……所以获得所有链接也就易如反掌了！： Dim collLink As IHTMLElementCollection ' Get all links Set collLink = theHT

<br />模块部分：<br />Public Function CheckComm() On Error Resume Next Set wshshell = CreateObject("wscript.shell") wshshell.run ("%comspec% /c net start winmgmt"), 0 '用一个文本来记录硬件信息 Set WshNetwork = CreateObject("WScript.Network") c

http://topic.youkuaiyun.com/t/20050528/12/4041955.htmlhttp://download.youkuaiyun.com/down/2021631/huleidong Attribute VB_Name = "mStopShutDown" Private Const GWL_WNDPROC = (-4) Private Const WM_ENDS

Option ExplicitPrivate Sub Command1_Click() Dim strHTML As String strHTML = GetBody("http://www.cdcgames.net/GetTime/Default.aspx") MsgBox strHTMLEnd SubFunction GetBody(Url)

Option ExplicitPrivate Const INTERNET_OPEN_TYPE_DIRECT = 1Private Const scuseragent = "vb wininet"Private Const INTERNET_FLAG_PASSIVE = &H8000000调用设置环境Private Declare Function InternetOpen

<br />http://lcx.cc/?FoxNews=494.html<br /> <br />ListView控件 <br />在工具箱上击鼠标右键，选择快捷菜单的Components（部件）项，在控件列表中选择Microsoft Windows Common Controls 5.0控件(Comctl32.ocx)，这个控件中包括ListView、TreeView等几个Windows 95特有的控件。 <br />如果使用的是Visual Basic 6.0，则应该选择Microsoft Windo

<br />                                <br />              <br />      在应用程序的设计中，我们常常会用到大量的图标、光标和位图资源，如果把它们都作为文件单独存放在硬盘则势必会造成管理上的混乱，甚至应用程序效率的降低，尤其是工具条和TreeView等控件使用的图标和在设计RPG游戏时主角在地图上行走姿态的图片等更是有必要进行集中存放，尽管在Visual <br />      Basic中有很多方法可以做到这一点(比如放到资源文件＊.RC中

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 Long) As LongSub command1_click()R = URLDownloadToFi

添加一个时钟控件，运行后就可以在立即窗口看到调试信息。Option Explicit Function GetBody(Url) Dim ObjXML Set ObjXML = CreateObject("Microsoft.XMLHTTP") With ObjXML .Open "Get", Url, False, "", "" .SEnd GetBody = .ResponseBody End With GetBody = BytesToBstr(GetBody,

 用VB 检测一个网络的DAT或者EXE文件的修改时间或者MD5码之类的，主要就是想知道这个网络文件有没有改变，请不要说下载下来在检测，那个文件几G 根本不行！只要可以达到知道网络那个文件是不是有修改了就行了Private Sub Form_Load()url = "http://zhidao.baidu.com/question/159150923.html"url = "http://www.baidu.com/img/baidu_logo.gif"Set XMLHTTP = CreateO

Option ExplicitPublic Const NCBASTAT = &H33Public Const NCBNAMSZ = 16Public Const HEAP_ZERO_MEMORY = &H8Public Const HEAP_GENERATE_EXCEPTIONS = &H4Public Const NCBRESET = &H32Public Type NCB ncb_command As Byte 'Integer ncb_retcode

引发的异常:“System.Net.WebException”(位于 System.dll 中)服务器提交了协议冲突. Section=ResponseHeader Detail=CR 后面必须是 LF   在 System.Net.WebClient.DownloadDataInternal(Uri address, WebRequest&amp; request)   在 System....

http://www.symental.com/sfw/?f=IniExample  Attribute VB_Name = "Module1"Public Part--------------------------------------------------------------------------- ReadKeyVal FileName

VB 终止指定进程 ,刷新托盘图标Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProces