|
|||
|
摘要：
Private Sub Command1_Click() Call showiframes(WebBrowser1)End Sub Private Sub showiframes(wb As WebBrowser) Dim i%, j%, intFraLen%, objFraColl As Object Dim vTag As Object Dim strNode2 As String Set objFraColl = wb.Document.frames intFraLen = objFraColl.length Text1.Text = Text1.Text & "wb.Document 阅读全文
posted @ 2009-07-30 18:10 随风飘零0 阅读(191) 评论(0) 推荐(0) 编辑
摘要：
Option ExplicitPrivate Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As LongPrivate Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Sub Form_Load() Dim appCaption$, firstPopHWnd& If App.P 阅读全文
posted @ 2009-07-23 12:51 随风飘零0 阅读(211) 评论(0) 推荐(0) 编辑
摘要：
vbs脚本删除文件相当行，只要将文件拖入既可，处理结果保存文件为原来文件后面加_out'描述：直接将要筛选相同行的文件拖到这个vbs文件上即可'作者：sysdzw'邮箱：sysdzw@163.com'QQ：171977759'12:51 2009-7-12Dim strFileSource, strFileResult,t1On Error Resume NextstrFileSource = wscript.Arguments(0)strFileResult = Left(strFileSource, InStrRev(strFileSource, ".") - 1) & "_out.txt 阅读全文
posted @ 2009-07-02 23:56 随风飘零0 阅读(303) 评论(0) 推荐(0) 编辑
摘要：
看到有不少人都要买本本给大家推荐几款本本的测试软件. ●Everest v3.50.852 Beta整机测试软件Everest整机测试软件是从以前著名的AIDA32软件发展而来。它是一个可以测试软、硬件系统信息的工具，可以详细的显示出电脑各方面的信息，支持上千种主板和上百种显卡的检测，支持并口/串口/USB接口等PNP设备的检测，支持各种处理器和内存的检测。Everest总共拥有Home Edition和Professional两个版本。其中，Home Edition属于免费的家庭版，而Professional则属于收费的商业版。同Professional相比，Home Edition只不过 阅读全文
posted @ 2009-07-02 14:02 随风飘零0 阅读(158) 评论(0) 推荐(0) 编辑
摘要：
Private Function ResizePicture(ByVal objCtrl As Object, ByVal dblWidthRate As Double, ByVal dblHeightRate As Double) As Integer If objCtrl.Image Is Nothing Then Exit Function Dim intWidth%, intHeight% Dim objImg As System.Drawing.Image = objCtrl.Image intWidth = objImg.Width '获得原始image的大小 intHeight 阅读全文
posted @ 2009-07-01 17:18 随风飘零0 阅读(136) 评论(0) 推荐(0) 编辑
摘要：
有时窗体变化后，如改变分辨率后控件大小却不能随之改变。手工代码调整实在麻烦，下面的模块实现自动查找窗体上控件并使其改变大小以适应窗体变化。在Form的Resize事件中调用函数Resize_All就能实现控件自动调整大小，如：Private Sub Form_Resize()Dim H, i As IntegerOn Error Resume NextResize_ALL Me 'Me是窗体名，Form1,Form2等等都可以End Sub在模块中添加以下代码：Public Type ctrObjName As StringIndex As LongParrent As StringTop A 阅读全文
posted @ 2009-06-29 11:16 随风飘零0 阅读(1421) 评论(0) 推荐(0) 编辑
摘要：
Error 403--ForbiddenFrom RFC 2068 Hypertext Transfer Protocol -- HTTP/1.1:10.4.4 403 ForbiddenThe server understood the request, but is refusing to fulfill it. Authorization will not help and the request SHOULD NOT be repeated. If the request method was not HEAD and the server wishes to make public 阅读全文
posted @ 2009-06-28 00:17 随风飘零0 阅读(263) 评论(0) 推荐(0) 编辑
摘要：
Project1.vbpType=ExeForm=Form1.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationClass=JPWordDeal; clsJPWordDeal.clsObject={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; RICHTX32.OCXModule=modIni; modIni.basModule=modPub; modPub.basIconForm="Fo 阅读全文
posted @ 2009-06-26 11:41 随风飘零0 阅读(163) 评论(0) 推荐(0) 编辑
摘要：
@echo offfor /r %%a in (*.vbp) do (if exist %%a echo %%a && vb6 /make "%%a")md binfor /r %%a in (*.exe) do (if exist %%a copy "%%a" bin)pause::1.将vb目录添加到系统环境变量path::2.将此bat放到所有vbp文件的最上层目录 阅读全文
posted @ 2009-06-26 11:05 随风飘零0 阅读(308) 评论(0) 推荐(0) 编辑
摘要：
Project1.vbpType=ExeForm=frmMain.frmReference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINDOWS\system32\stdole2.tlb#OLE AutomationObject={3B7C8863-D78F-101B-B9B5-04021C009402}#1.2#0; richtx32.ocxModule=modPub; modPub.basIconForm="frmMain"Startup="frmMain"HelpFile=""Title="WindowKiller"ExeN 阅读全文
posted @ 2009-06-12 18:13 随风飘零0 阅读(217) 评论(0) 推荐(0) 编辑 |
|||
