使用vbs下载文件的代码加强版
说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码: iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) Set xPost=createObject("Microsoft.XMLH
说到使用vbs下载文件是不是想到了XMLHTTP呢,呵呵,以下是比较经典的代码: iLocal=LCase(Wscript.Arguments(1)) iRemote=LCase(Wscript.Arguments(0)) Set xPost=createObject("Microsoft.XMLH
使用方法:1. 将下面的代码保存为:Ring.vbs (文件名可自定)2. 将Ring.vbs移动到程序启动组,这样可以随WINDOWS自动启动了(位置是:开始--程序--启动,XP的启动组位置是:C:\Documents and Settings\你的用户名\「开始」菜单\程序\启动\)3. 我这
class CFoosub PrintHello()response.Write "Hello World!"end sub end class dim obj set obj = new CFoocall obj.PrintHello set obj = nothing
'code by NetPatch code="\x29\xc9\x83\xe9\xa1\xd9\xee\xd9\x74\x24\xf4\x5b\x81\x73\x13\x92\x06\x5b\x18\x83\xeb\xfc\xe2\xf4\x79\x16\x01\x52\xa1\xcf\x3d\x
'============================================ 'code by lcx 修改网上原有的一个小程序,不知作者,那个程序没有对目录实现递归查找 '将本程序放在你要查找的目录下,或把查找的目录拖到此脚本上,估计还有bug '==================
On Error Resume Next Set Arg=Wscript.arguments If Arg.count=0 then Wscript.quit '------------------- 'Enjoy it 'Code By NetPatch '-------------------
微软有篇文章:http://support.microsoft.com/kb/193998/zh-cn,用doc读取和显示二进制数据,《怎样读取二进制文件》,没测试,懒得编译dllasp程序:控件代码:第一步:在VB中创建一个ActiveXDLLProject第二步:把工程名改为MyObject第三
Option Explicit Dim WshShell, Pro Set WshShell = WScript.CreateObject("WScript.Shell") Pro = "D:\Program Files\千千静听\TTPlayer.exe D:\千千静听\默认.ttpl" WshS
作者:lcx 来源:vbs小铺 wmic RDTOGGLE WHERE ServerName='%COMPUTERNAME%' call SetAllowTSConnections 1 开远程:WMIC /node:"远程机器名" /user:"administrator" /password:"l
代码一:'******************************************************************************************* 'Version:3.1 '调整错误处理方法,错误信息输出到LogFile文件,可以查看扫描失败原因 '如