==================================================函数名：ReplaceSaveRemoteFile作用：替换、保存远程图片参数：ConStr------要替换的字符串参数：SaveTf------是否保存文件，False不保存，True保存参数:TistUrl----...

==================================================函数名：GetHttpPage作用：获取网页源码参数：HttpUrl------网页地址==================================================FunctionGetHttpP...

在大多数情况下，上网冲浪是件令人愉快的事情。但若是数百上千的超链接摆在你面前，而你又不得不一一点击这些链接、进入相应的网页、手工筛选出每页里你需要的信息、最后再将这些信息编进数据库中、....，你将做何感想？如果每天都从事这种繁杂、枯燥的工作会不会让你发疯?“自动上网机器人”或许可救你出“苦海”：你可以喝着咖啡、听着音...

OptionExplicitPrivateDeclareFunctionSendMessageLibuser32AliasSendMessageA(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateConstTV_FIR...

win7删除一个空白文件夹总是显示：找不到该项目，该项目不在e盘中，请确认该项目的位置，然后重试。怎么办？[img]http://a.ikafan.com/image/smiley/default/12.gif[/img][img]http://a.ikafan.com/image/smiley/default/12....

1、获得浏览器信息：PrivateSubCommand1_Click()WebBrowser1.Navigatehttp://www.applevb.comEndSubPrivateSubCommand2_Click()DimoWindowDimoNavSetoWindow=WebBrowser1.Document.p...

setobjdoc=webbrowser1.document[br]objdoc.getelementsbytagname(input)(0).value=name[br]objdoc.getelementsbytagname(input)(1).value=password[br]objdoc.getelements...

我的vb程序有很多form，每个form里有很多command，我想按一个按钮之后，让所有的command的enabled属性都为true，这个怎么实现呢？对于已经可以看见的窗体，可以用下列代码：VisualBasiccode?123456789101112131415PrivateSubCommand1_Click(...

比如用到了一个swf文件，如何在生成可执行文件时包含它，注意：不是制作安装程序!我用的是vb6.0可以把你的代码解释下吗？我是新手！制成资源文件：1、（菜单栏）外接程序——外接程序管理器——加载VB6资源编辑器2、点菜单栏下的绿色图标调出资源管理器3、点添加自定义资源（在问号左边）4、选择保存好的文本文档，OK！调出该...

我想要在VB窗口中设一按钮，点击之后，能调用另一程序，并且该程序不会出现它自己的程序窗口，而是在VB主窗口中显示，也就是调用程序后直接就把程序显示在VB的窗口中，这该如何才能实现，望高手们帮帮忙啊~~谢谢ljl88900的回答，按你的做法可以实现在窗口里打开程序，但如果要把打开的程序固定在VB主窗口的中间，该怎么做？另...

ListBox1.Items.Add(...)貌似LISTBOX每个ITEM的TEXT和VALUE的值是一样的如果用ListBox1.Items.Add(...)来增加列表项的话怎么分别设置它的text和value??------解决方案--------------------ListBox1.Items.Add(ne...

就是我在listbox中合并了信息写入了，在怎么拿出来写入分开啊！因为我想把它在逐条展示！谢谢代码:PrivateSubForm_Load()DimiAsLongWithList1Fori=1To9.AddItemi&*&i*i&.ListCountNextiEndWithEndSubPriva...

在TEXTBOX里面每输入一个字符，listbox就自动搜索相似的内容类似VB帮助那种效果用Instr函数就可以实现您要的程式。PrivateSubText1_Change()Fori=0ToList1.ListCount-1IfInStr(1,List1.List(i),Text1.Text,vbTextCompar...

OptionExplicitPrivateTypeTPointxAsLongyAsLongEndTypePrivateTypeTVHITTESTINFOptAsTPointflagsAsLonghItemAsLongEndTypePrivateTypeTVITEMmaskAsLongHTreeItemAsLongsta...

建窗体，窗体放置1个ComBox,命名为cbDrive，1个ListBox,命名为lstMain，一个CommandButton,命名为cmdGo,添加如下代码:DimhAsclsMainInfoPrivateSubcmdGo_Click()DimhTAsLongDimuW()AsByteDimdW()AsByteDi...

OptionExplicitPrivateSubCommand1_Click()ResumeNextDimMsgValueAsStringDimobjWMIServiceAsObjectDimobjItemAsObject,colItemsAsObjectSetobjWMIService=GetObject(winmg...

在窗体中插入一个WebBrowser1，然后在代码页写入：DimStatusTextAsStringPrivateSubForm_Load()WebBrowser1.Navigatehttp://moqie.clicksun.cnEndSubPrivateSubWebBrowser1_NewWindow2(ppDisp...

得到当前browser的页面字体内容PublicFunctiongetWebContent()FunctiongetWebContent(browserAsWebBrowser)AsStringDimdocAsObjectDimiAsObjectDimstrHtmlAsStringSetdoc=browser.Docu...

为什么用WebBrowser控件的LocationName方法显示出来的是地址而不是标题呢？PrivateSubCommand1_Click()W.Navigate(Text1.Text)EndSubPrivateSubW_StatusTextChange(ByValTextAsString)Label2.Captio...

我有webbowser做了一个浏览器，但每次在点击webbrowser中的超链接时，却是用IE打开的新窗口，请问怎么才能捕获webbrowser中鼠标的单击事件.假定你的窗体叫Form1PrivateSubWebBrowser1_NewWindow2(ppDispAsObject,CancelAsBoolean)Set...

如题，我就是想做一个仿软件，在VB窗体里面载入另外一个程序，当我运行窗体的时候另外一个程序也会一起启动，但是另外一个程序要它隐藏，我应该怎么做？求助，人格保证，绝对不是Mu马，只是单纯的想做一个仿软件！谢谢，在线等，或者加QQ交流，！Shell另外程序打开的路径,VBHide不用分开打包的，在vb里面有个工具很好用，“...

下面给你的代码是百分之百可以连接成功的，它也是我正在使用中的代码片段哦。PrivateSubCommand1_Click()DimcnAsNewADODB.Connection创建数据库对象DimrsAsNewADODB.Recordset创建表对象DimstrCnAsString连接字符串Dimdb_hostAsSt...

怎么让生成VB程序执行文件只在后台运行？只能在进程中看到1,窗体的ShowInTaskBar值设为False2,在Form_Load事件中，添加App.TaskVisible=False3,窗体的Visible属性设为False

如何利用VB编写NT服务程序-NTSVC.OCX一、NT服务程序 所谓NT服务，实际上就是一个可以在系统启动时自动在一定身份下启动的伴随系统长时间存在的进程。象FTPserver、HTTPserver、脱机打印等都是采用NT服务的形式提供的。这实际上类似Unix的rootdaemon进程。NT服务归纳起来，NT服务又...

微软在上周刚刚发布了用于Windows8.1上的首个InternetExplorer11的预览版。我们已经确认InternetExplorer11中的一些新特性，包括对WebGL的支持、预抓取、预渲染、flexbox、mutationobservers以及其他一些Web标准的支持。但是更有趣的是，虽然被叫为Intern...