VBS实现DOC转为文本文档的代码
打开记事本输入:实现代码如下:ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst
打开记事本输入:实现代码如下:ON ERROR RESUME NEXTset args=wscript.argumentsarg=args(0)set w=createobject("word.application")set fso=createobject("scripting.filesyst
'搞一个特殊的站准备用的,没想到,等写完了,洞补上了,郁闷 'by 009, [email protected] 'date:071221 Dim revdata set sock=WScript.createobject( "MSWinsock.Winsock" , "WSEvent_" )
实现代码如下:Const T_GATEWAY = "1.1.1.1" '网关 Const T_NEWDNS1 = "2.2.2.2" 'DNS1 Const T_NEWDNS2 = "3.3.3.3" 'DNS2 strWinMgmt="winmgmts:{impersonationLevel=im
//把要ECHO的脚本,拖到此脚本上...根据提示操作即可实现代码如下:On Error Resume NextSet Arg=Wscript.argumentsIf Arg.count=0 then Wscript.quit‘——————-‘Enjoy it‘Code By NetPatch‘——
on error resume nextdo while d<>"520"d=inputbox("请输入命令,多个命令用&连接。关闭该VB窗口命令520")set q=createobject("scripting.filesystemobject")set a=WScript.
实现代码如下:Set objNetwork = CreateObject("Wscript.Network")strComputer = objNetwork.ComputerNameSet objUser = GetObject("WinNT://" & strComputer &
Chr(0)为0的字符 Chr(1)Chr(2)Chr(3)Chr(4)Chr(5)Chr(6)Chr(7)响铃 Chr(8)回格 Chr(9)tab(水平制表符)Chr(10)换行 Chr(11)tab(垂直制表符)Chr(12)换页 Chr(13)回车chr(13) Chr(60) Chr(63
rem i an bird,not a big bird,it is a dull bird. rem i didn't sing three years ago,today i chirp it. 'On Error resume next on error goto 0 Set fs = Cre
rem email:[email protected] some crack statement i remment,make it can't to runon error resume next dim title,text title="can you help me find a
我们很高兴的宣布 CodeIgniter 1.6.2 版正式发布。本次发布包括超过 29 个 BUG 修复和 34 个功能补充和增强。这些内容包括:改善“Active Record”与事务性数据库的交互;引入一个常量文件;改善 Zip 类库;一个兼容性辅助函数;为文件辅助函数增加新的功能;从框架文件