这个class主要用于操作asp中的xmlhttp。首先是类定义Cls_AspHttp.asp：<%=================================================================飞扬远程获取类(AspHttp)1.0.1Bate1By奔腾的心2006-04-19...

********************************************************************************名称：远程抓取函数作用：利用XMLHTTP远程抓取数据参数：sMethod---发送方式sUrl------目标地址iMode-----返回内容类型：0为二进制...

==================================================函数名：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