搜索资源列表
EncryptSimple
- 可逆加密组件 ====================== 使用方法 ============================================ Dim objEncrypt Set objEncrypt = Server.CreateObject(\"myEncrypt.clsEncrypt\") Dim strReturn 加密后文本 Dim strValue 加密前文本 加密开始 设置密钥(此行可以省略) o
vnx4
- vnc本地口令破解C源代码 默认情况下VNC服务端的密码是放在注册表中的，本工具只针对这种情况。首先用ASP读出注册表中的加密密码，然后用破解工具破解。我给出大家一个读取VNC密码的ASP脚本，默认情况下VNC密码存放在HKCU\\Software\\ORL\\WinVNC3\\Password Set WshShell = server.CreateObject(\"Wscr ipt.Shell\") bkey=WSHShell.RegRead(\"HKCU\\Software\\ORL\
u8_interface
- 这种方式可根据开发者的需要批量处理或者实时处理。 接口调用非常简单，简化了编程。开发者只需将标准数据传入接口，如下： Set Obj=CreateObject(U8Distribute.iDistribute) Str = obj. Process(sXml)
AspJpeg
- 一个浏览缩小图的组件，专为像创建在线相册薄等以网络为基础的应用程序开发服务。 name:www.chinaz.com sn:48958-77556-02411 name:chinaz sn:71316-48529-38722 安装的时候 填入name:后面的用户名 例如 www.chinaz.com 然后在程序写 Set jpg = Server.CreateObject(\"Persits.Jpeg\") jpg.RegKey = \"48958-7755
VB注册码代码示例
- 软件限时使用与注册功能的实现 众所周知，一些共享软件往往提供给使用者的是一个功能不受限制的限时使用版，在试用期内使用者可以无限制的使用软件的全部功能（只是可能会出现提示使用者注册的窗口），试用期一过部分（或全部）功能失效，要想继续使用只能向作者索取注册码（或注册文件）完成对软件的合法注册，注册后的软件将解除一切使用限制。如果您也开发出一个有价值的作品，是否也希望为自己的软件增加一个这样的功能呢？这里笔者就提供一个实现软件限时的完整代码。 软件启动后会首先运行本代码并从注册表HKEY_
filefolder.ZIP
- 利用 CreateObject进行的实用文件操作代码。-CreateObject practical use for file operations code.
create_ajax_object
- JS 处理 AJAX 函数 值得大家分享 -JS function to deal with AJAX is worth to share
Base64Com
- BASE64编码和解码COM组件 Set Obj=Server.CreateObject("DBstep.Base64") 创建对象 x=Obj.EncodeBase64("要加密的字符串") y=Obj.DecodeBase64("要解密的字符串") Set Obj=nothing 释放对象 -BASE64 encoding and decoding COM components Set Obj=Server.CreateObject("DBstep.Base
JSCalls
- 能够从VC程序中调用网页中的JS代码，从而扩展你程序和网页的功能-VC program can call the page from the JS code to extend the functionality of your application and web pages
mail
- 用法示意如下： < @LANGUAGE="VBscr ipt" > < option explicit dim DbConn,connstr,db Email配置信息 dim SmtpHost, AdminName, AdminEmail, NeedAuth, EmailAccount, EmailPW SmtpHost="smtp.263.net" AdminEmail="XXX@263.net" NeedAuth=true 是否需要
97a614fa66ed72b89e514696
- 想用vbs来控制鼠标的移动和点击，虽然按键精灵可以做到，但做这么简单的事情不想启动那么大一个程序，所以自己用VC写了一个小程序，可以让VBS来控制鼠标移动和点击。 用法： 移动鼠标到桌面坐标200,50的vbs命令如下： CreateObject("Wscr ipt.Shell").Run "mouse.exe m,200,50" 点击鼠标左键的vbs命令如下： CreateObject("Wscr ipt.Shell").Run "mouse.exe
PBExcel
- PB操作EXcle的介绍 如何用PB程序在excel画表格边框线，如何改变文字大小 1．创建Excel对象 eole=CREATEOBJECT(′Excel.application′) 2．添加新工作簿 eole.Workbooks.add 3．设置第3个工作表为激活工作表 eole.Worksheets(″sheet3″).Activate 4．打开指定工作簿 eole.Workbooks.Open(
loadtxttolistbox
- 用VBA控件导入一个已知文件到列表框 CreateObject函数 getfile函数 OpenAsTextStream函数 ReadLine函数 AtEndOfStream函数 文件路径和文件名根据需要自己更改变量-Import a known file with VBA controls need to change the variable to the list box CreateObject getfile the OpenAsTextStream the R
SendShortcutToDesktop
- Option Explicit sub uu() Dim wshShell, Shortcut, oArgs Dim strDir, strName, TargetPath, szSrc,cnt,i Set oArgs = Wscr ipt.Arguments TargetPath = oArgs(0) szSrc = Split(TargetPath, \ , -1, 1) cnt = UBound(szSrc) For i = 0 To
vbs
- Set objFSO = CreateObject( scr ipting.FileSystemObject ) Set objTS = objFSO.OpenTextFile( users.txt ) Set objLog = objFSO.OpenTextFile( lognames.txt ) Set objBat = objFSO.CreateTextFile( newfolders.bat ) Do strLog = objLog.ReadLine strU
WEB编程开发常用的代码 .txt
- asp连接数据库 2. ASP与SQL数据库连接： dim conn set conn=server.createobject("ADODB.connection") con.open "PROVIDER=SQLOLEDB;DATA SOURCE=SQL服务器名称或IP地址;UID=sa;PWD=数据库密码;DATABASE=数据库名称;" 建立记录集对象： set rs=server.createobject("ado
xianhoupaixu
- Function 提取(t As Range) '按照出现先后顺序排序＝提取(a1:a100) Dim d, s, R, i% Set d = CreateObject("scr ipting.Dictionary") For Each R In t s = s & R Next s = StrReverse(s) & "0123456789" For i = 1 To
ArduinoJson-master
- ArduinoJson is a C++ JSON library for Arduino and IoT (Internet Of Things).(JsonArray KEYWORD1 JsonObject KEYWORD1 JsonVariant KEYWORD1 StaticJsonBuffer KEYWORD1 DynamicJsonBuffer KEYWORD1 add KEYWORD2 createArray KEYWORD2 createNestedArray KE