内容列表页
 
2010-6-7 10:31:01
'/*=========================================================================
' * Intro 新旧配置文件对比,用旧配置 更新 新配置文件
' * FileName vbscript.xml.demo.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/vbscript.xml.demo.vbs.html
' * MadeTime 2010-06-07 10:14:10
' * LastModify 2010-06-07 10:14:10
' *==========================================================================*/
 
2009-9-12 15:51:44
'/*=========================================================================
' * Intro 硬盘整数分区FAT32/NTFS正确方法
' * FileName Disk-Int-NTFS-FAT32
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/Disk-Int-NTFS-FAT32.vbs.html
' * From http://www.slyar.com/blog/disk-int-ntfs-fat32.html
' * MadeTime 2009-09-12 15:48:18
' * LastModify 2009-09-12 15:48:18
' *==========================================================================*/
 
2009-6-20 9:32:12

'/*=========================================================================
' * Intro 主要是解决在使用WebBrowser打印时,得先设置IE安全性的问题
' * FileName 添加网站到安全站点.设置安全站点打开ActiveX时提示.去页眉页脚.vbs
' * Author yongfa365
' * Version v1.0
' * WEB ..
 
2009-5-14 17:27:41
'/*=========================================================================
' * Intro 定时自动备份文件夹到一个以时间命名的新目录,设置好后加到启动项里,只要一启动机器程序就会自动运行,占系统资源可以不计
' * FileName AutoBackUpFolder.VBS
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/AutoBackUpFolder.vbs.html
' * MadeTime 2009-05-14 17:18:33
' * LastModify 2009-05-14 17:18:33
' *==========================================================================*/
 
2009-5-3 18:57:33
'/*=========================================================================
' * Intro PHP安装脚本,您所要做的操作是:保存这个文件与要安装的php文件夹放一起(不要放在C盘根目录下)
' * (当前版本php-5.2.5-Win32如果是其它请替换当前文档相关文件名),然后双击运行这个文件,<?phpinfo()?>
' * FileName PHPInstall.vbs
' * Author yongfa365
' * Version v3.1
' * WEB http://www.yongfa365.com
' * Email yongfa365@qq.com
' * FirstWrite http://www.yongfa365.com/Item/PHPInstall.vbs.html
' * From http://www.yongfa365.com/Item/PHPFirstInstall.vbs.html
' * MadeTime 2008-04-01 15:55:41
' * LastModify 2009-05-04 12:21:48
' *==========================================================================*/
 
2009-4-8 9:12:38

strURL = InputBox("请输入要读的网址", "朗读网页", "http://www.yongfa365.com/Item/ZhiXingLiBiChuangYiGengZhongYao.html")

If strURL = "" Then
Wscript.quit
End If

Set ie = WScript.CreateObject("InternetExplorer.Application")
ie.visible = True
ie.navigate strURL
Do
Wscript.Sleep ..
 
2009-3-21 10:16:11
IIS6默认情况下没有开启GZIP功能,需要我们手动配置,但他又没提供图形化配置功能,所以呀,像我这样的技术人才,都没考虑过使用他,昨天突然看到这个想到,也许对我有用,但从网上找了找,都是一堆手工操作方法,非常麻烦呀,不过以前研究过IIS的配置文件:C:\WINDOWS\system32\inetsrv\MetaBase.xml,所以呀,我知道只要是..
 
2008-12-8 23:32:32
'/*=========================================================================
' * Intro VBScript使用ADSI为IIS批量添加屏蔽或允许访问的IP
' * FileName VBScript-ADSI-IIS-Add-Deny-Grant-IP-Change-MetaBase.xml.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/ADSI-IIS-Add-Deny-Grant-IP.vbs.html
' * From http://blog.csdn.net/linyu/archive/2008/11/14/3300454.aspx
' * MadeTime 2008-12-08 23:10:45
' * LastModify 2008-12-08 23:10:45
' *==========================================================================*/
 
2008-11-6 14:16:36
'把你弄到的代理都写在一个文本文件里(IP.txt),格式是一行一个: ip:端口
IPS = CreateObject("Scripting.FileSystemObject").OpenTextFile("IP.txt", 1, True).ReadAll
IPS = Split(IPS, vbCrLf)

For Each IP in IPS
IPTemp = Split(IP, ":")
ChangeProxy IPTemp(0), IPTemp(1)
Wscript.echo I..
 
2008-11-6 9:22:08


'让SendKeys可以发送中文,clip.exe在windows2003里有
Set WshShell=CreateObject("WScript.Shell")
code="让SendKeys可以发送中文"
WshShell.Run "cmd.exe /c echo " & code & "| clip.exe", vbHide
app=WshShell.Run ("notepad")
WScript.Sleep 1000
WshShell.AppActivate app
WshShell.SendKeys "^v{BS}"
Wsc..
 
2008-10-19 17:36:16
  先说说我都用VBScript做什么吧:ASP环境开发网页时,用VBScript脚本,有些自定义函数可以直接在桌面上建个.vbs然后直接运行,有事没事用VBS采集别人网站上的部分或全部数据进行分析,然后写入数据库或存到文本文件里,有时还会用VBScript做一些移动光标及输入的操作,比如批量添加远程桌面,有时还会用VBScript还管理Windows服务器,如设置IIS,还有做一些定时提醒工具,多久执行一次,然后用声音控件提醒,很好用。。。。
 
2008-10-19 12:38:02
  经常编写VBScript,一般都用EmEditor来编辑,基本上是学到什么就只能写出什么。以前学ASP时用Dreamweaver,里面有智能提示,感觉不错。但时间一常就会发现,很多类呀,什么的,他都不会提示,所以还是得上网找,看看他都有哪些方法,这样弄总感觉不正规,理论上来说应该有像C# .net上的那个查看所有类的功能,这样就可以..
 
2008-10-18 22:20:24
'/*=========================================================================
' * Intro VBScript生成Word,并添加表格及书签
' * FileName VBScript-Word-Table-Bookmarks.vbs
' * Author yongfa365
' * Version v1.0
' * WEB http://www.yongfa365.com
' * Email yongfa365[at]qq.com
' * FirstWrite http://www.yongfa365.com/Item/VBScript-Word-Table-Bookmarks.vbs.html
' * MadeTime 2008-10-18 22:15:40
' * LastModify 2008-10-18 22:15:40
' *==========================================================================*/
 
2008-9-22 23:32:56
Set objVoice = CreateObject("SAPI.SpVoice")
Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Simplified Chinese").Item(0)
'Set objVoice.Voice = objVoice.GetVoices("Name=Microsoft Sam").Item(0)
 
2008-9-19 22:45:40
cscript
C:\WINDOWS\system32\cmd.exe
/k cscript $(Path)
$(Dir)
C:\WINDOWS\system32\cscript.exe
 
     
 
 
文章分类
 
 
.Net + C#(61)
 
 
ASP+VBS(161)
 
 
 
Linux(10)
 
 
 
web 2.0(25)
 
 
 
 
 
心程(68)
 
生活(95)
 
 
     

Power by :柳永法(yongfa365)'Blog  | 京ICP备07011491号  QQ:64049027  E-mail:64049027@qq.com yongfa365'CodePlex yongfa365'CodeGoogle

申请友情链接 要求:跟本站主题相类似正规网站,双方交换为首页位置

转载请注明来源,以便后人及时得到最新、修正、加强版!!!