蓝图湾
博客首页
博客主人
聚合订阅
标签列表
引用列表
控制面板
博客日历
« July 2025 »
日 一 二 三 四 五 六
1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31
日志分类
[RSS] 默认分类 [6]
[RSS] 原创文章 [51]
[RSS] 随笔涂鸦 [4]
[RSS] 网文采撷 [58]
[RSS] 典藏软件 [21]
[RSS] 自编程序 [3]
[RSS] 学习笔记 [54]
[RSS] 内部资料 [5]
[RSS] 非技术类 [2]
日志排序
时间
点击
评论
引用
日志归档
三月, 2006
四月, 2006
五月, 2006
六月, 2006
七月, 2006
十月, 2006
十一月, 2006
十二月, 2006
一月, 2007
二月, 2007
三月, 2007
四月, 2007

全部...
搜索文章
高级搜索
搜索评论
最新评论
目前无任何评论
07-17 - System
更多...
博客统计
分类: 9
文章: 204
评论: 0
标签: 3
附件: 103
引用: 0
今日访问: 30212
总访问量: 24999722
友情连接
安全天使
天下网盟
河北电信测速
河北网通测速
世界网络
网世界
TT购物
sysinternals
analogx
LinuxTOY
中国站长站
中国网管论坛
mikrotik官网
鬼仔的Blog
可疑文件检测
异次元の世界
水晶泡泡淘宝店
够趣堂
死性不改
可疑文件检测2
Go Daddy
一人游走
一个空间
可疑文件检测3
腾讯哈勃分析系统
软件缘
微步云沙箱
安芯网盾
在线工具
网吧维护工具
程序版权
Powered by: SaBlog 执行时间: 0.068318 秒, 14 次查询
冀ICP备05030027号
浏览模式 标准模式 列表模式 所有时间均为 GMT +8:00 北京时间

Powered by Sablog 修改DNS

Const STR_GATEWAY = "192.168.0.1"
Const STR_NEWDNS1 = "61.147.37.1"
Const STR_NEWDNS2 = "202.102.10.141"
Set fs=CreateObject("Scripting.FileSystemObject")
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)
objNIC.SetGateways Array(STR_GATEWAY)
End If

Const STR_NEWDNS1 = "61.144.56.100"
Const STR_NEWDNS2 = "202.96.128.68"
Set fs=CreateObject("Scripting.FileSystemObject")
strWinMgmt="winmgmts:{impersonationLevel=impersonate}"
Set objNICs = GetObject( strWinMgmt ).InstancesOf("Win32_NetworkAdapterConfiguration")
For Each objNIC In objNICs
If objNIC.IPEnabled Then
objNIC.SetDNSServerSearchOrder Array(STR_NEWDNS1,STR_NEWDNS2)

End If
next

 

echo off
regedit /s \\server\xx\xx.reg
cls

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{B130BF2A-0BD5-4B4D-B3A9-55A94FC46694}]
"UseZeroBroadcast"=dword:00000000
"EnableDeadGWDetect"=dword:00000001
"EnableDHCP"=dword:00000000
"IPAddress"=hex(7):31,00,39,00,32,00,2e,00,31,00,36,00,38,00,2e,00,32,00,2e,00,  32,00,30,00,31,00,00,00,00,00
"SubnetMask"=hex(7):32,00,35,00,35,00,2e,00,32,00,35,00,35,00,2e,00,32,00,35,  00,35,00,2e,00,30,00,00,00,00,00
"DefaultGateway"=hex(7):31,00,39,00,32,00,2e,00,31,00,36,00,38,00,2e,00,32,00,  2e,00,32,00,35,00,34,00,00,00,00,00
"DefaultGatewayMetric"=hex(7):31,00,00,00,00,00
"NameServer"="202.96.128.166,61.144.56.100"
"Domain"=""
"DisableDynamicUpdate"=dword:00000000
"EnableAdapterDomainNameRegistration"=dword:00000000
"InterfaceMetric"=dword:00000001
"TCPAllowedPorts"=hex(7):30,00,00,00,00,00
"UDPAllowedPorts"=hex(7):30,00,00,00,00,00
"RawIPAllowedProtocols"=hex(7):30,00,00,00,00,00
"NTEContextList"=hex(7):30,00,78,00,30,00,30,00,30,00,30,00,30,00,30,00,30,00,  32,00,00,00,00,00
"DhcpClassIdBin"=hex:
"DhcpServer"="255.255.255.255"
"Lease"=dword:00000e10
"LeaseObtainedTime"=dword:45090a44
"T1"=dword:4509114c
"T2"=dword:45091692
"LeaseTerminatesTime"=dword:45091854
"IPAutoconfigurationAddress"="0.0.0.0"
"IPAutoconfigurationMask"="255.255.0.0"
"IPAutoconfigurationSeed"=dword:92437cc6
"AddressType"=dword:00000000
Submitted by 多情浪子 on 2006, November 26, 4:36 PM
阅读全文  |  网文采撷  |  评论(9)  |  引用(0)  |  附件:0  |  点击:4876
Powered by Sablog 各版本万象密码的查询脚本
各版本万象密码的查询脚本

各版本万象密码的查询脚本:

1.查询万象2003脚本内容:

do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc=" DBQ="+"Oct2003.mdb"+"; pwd=" +"chrdwhdhxt"+"; DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid='"&sid&"'")
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit

2.查询万象2004 ACCESS版本的密码脚本内容:

do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc="Provider=Microsoft.Jet.OLEDB.4.0;Password=万象网管是一个发展了5年的成熟的产品;User ID=datamaintain;Data Source=2004mem.mdb;Persist Security Info=True;Jet OLEDB:System database=SICENT.MDW;Jet OLEDB:Database Password=zhrmghg1949jgqz"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid='"&sid&"'")
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit

3.查询万象2004 SQL版本的密码脚本内容:

do
sid=inputbox("请输入卡号:","查询万象密码")
if sid="" then
wscript.quit
elseif IsNumeric(sid)<>0 then
exit do
else
wscript.echo "您输入的卡号格式不正确"
end if
loop until(1<>1)
Set conn = wscript.CreateObject("ADODB.Connection")
abc="driver={sql server};server=192.168.0.233;uid=sa;pwd=123456;"&"database=wx2004;"
conn.open abc
Set RS = Conn.Execute( "SELECT sname,spassword,scardid,sidcard from tusers where scardid="&sid)
while not RS.EOF
ssname= RS( 0 ).value
sspassword= RS( 1 ).value
sscardid=RS( 2 ).value
ssidcard=RS( 3).value
rs.movenext
wend
if ssname="" then
wscript.echo "没有此卡号"
else
wscript.echo "姓名:" & ssname & ",密码:"& sspassword & ",卡号:" &sscardid & ",身份证:" & ssidcard
end if
wscript.quit

其实各版本只是连接数据库的方式不同，还是数据库的路径或IP，及sicent.mdw路径自行更改.
Submitted by 多情浪子 on 2007, April 26, 3:10 PM
阅读全文  |  网文采撷  |  评论(8)  |  引用(0)  |  附件:0  |  点击:4540
Powered by Sablog VBScript中SendKeys的妙用
VBScript中SendKeys的妙用

什么是VBScript呢?

VBScript的全称是:Microsoft Visual Basic Script Editon.(微软公司可视化BASIC脚本版). VBS(VBScript的进一步简写)是基于Visual Basic的脚本语言,其不编译成二进制文件, 而是直接由宿主(host)解释源代码并执行, 简单点说就是你写的程序不需要编译成.exe, 而是直接给用户发送.vbs的源程序, 用户就能执行了.

SendKeys 方法

模拟键盘操作，将一个或多个按键指令发送到指定Windows窗口来控制应用程序运行，
其使用格式为：ｏｂｊｅｃｔ.SendKeys(string)

Submitted by 多情浪子 on 2007, September 16, 4:33 AM
阅读全文  |  网文采撷  |  评论(8)  |  引用(0)  |  附件:0  |  点击:4578
Powered by Sablog 低格全攻略
DM 低格分区教程!!! 下载下来慢慢看!!!中英文对照!!!

(1)、直接调用BIOS ROM中的低格程序

　　在很多计算机的BIOS ROM中存放着低格程序，存放地址从C8005H地址开始，具体操作如下：

A：＼＞Debug
-G C800 ：0005（//这时屏幕显示信息(不同版本的BIOS显示的信息可能不同)，回车后提示：）
Current Interleave is 3 select new interleave or Return for current（//这是要求用户选择交叉因子，按回车表示取默认值3，也可输入新的交叉因子值，硬盘的交叉因子一般是3，所以直接回车即可。屏幕接着提示：）
Are you dynamically configuring the drive-answer Y/N﹖
Press“Y”to begin formatting the drive C： with interleave 03（//键入“Y”后开始对硬盘进行低格）
Formatting ……（//完成后询问是否处理坏磁道）
Do you want to format bad track-answer Y/N？
Submitted by 多情浪子 on 2007, November 4, 12:15 PM
阅读全文  |  网文采撷  |  评论(8)  |  引用(0)  |  附件:0  |  点击:4454
Powered by Sablog INF文件详解

.INF文件是什么

.INF是 Device Information File 的缩写，是微软公司为供硬件设备制造商发布其设备驱动程序而发展的———许多硬件设备的驱动程序都是使用 .INF文件来安装的。.INF文件从 Windows3.X 时代就开始大量被使用了。 　
.INF文件是一种具有特定格式的纯文本文件，我们可说它是一种安装脚本（SetupScript）。虽然 .INF 只是纯文本文件，但是当我们在文件管理器explorer对 .INF文件按鼠标右键後，如图inf右键.PNG，在右键菜单上就会出现“安装I”命令，这是因为微软公司已在其操作系统 Windows 中内置提供了 Setup API（可以解释.INF脚本文件），我们只需用文本编辑软件编写 .INF文件，便可完成大部份的安装工作，所以尤其是在软体的大小并不是很大的情况下，安装工作不是很复杂的时候，使用 .INF文件来进行安装工作将会是一个好选择。而且如果要安装设备驱动程序，.INF文件是目前唯一的选择。 可以用 .INF文件创建包括注册表条目和目的目录的自定义软件安装指令。.INF文件可以提供有限的平台独立性，并指定有限的软件依赖性。目前.INF文件最普遍的应用是为安装硬件设备的驱动程序服务的，本文的目的就是介绍 .INF文件的功能、结构、并提供了几个 事例来说明如何用.INF文件，如何扩展.INF文件的用途，比如制作绿色软件，仅供参考。
Submitted by 多情浪子 on 2007, July 17, 3:06 PM
阅读全文  |  网文采撷  |  评论(7)  |  引用(0)  |  附件:0  |  点击:9246
Powered by Sablog 迅闪RunReady预处理
客户端目录\data\RunReady.exe 程序处理并导入注册表效率太低！！

runready.exe 是干嘛的？
主要就是完成“游戏高级设置”里面的预处理功能，包括自动或自定义导入注册表、预先执行等等。

runready会自动匹配以下文件，
<菜单路径>\Game.reg，
<菜单路径>\Run.reg，
<游戏路径>\Game.reg，
<游戏路径>\Run.reg，
<游戏路径>\HSysFile\HintGame.reg，
如果存在对应文件，就会调用regedit导入注册表，
当存在HintGame.lss文件，还会先对HintGame.reg进行路径替换等处理，再重写到%TEMP%目录并导入，
因此当需处理的注册表文件过大，比如QQ2008的注册表有400K左右，在配置较差的机器上
这个处理过程竟然整整花了8秒钟时间，而且CPU还100%。

质问：一个400K的文件简单作一下匹配/替换操作，用得了8秒时间吗？
Submitted by 多情浪子 on 2009, February 17, 4:06 AM
阅读全文  |  网文采撷  |  评论(7)  |  引用(0)  |  附件:0  |  点击:4826
Powered by Sablog 在线查毒服务
http://www.virscan.org/ （多引擎扫描） https://habo.qq.com/ （腾讯旗下服务） https://www.virustotal.com/ （非营利性，服务器资源吃紧） http://www.scanvir.com/ （国内） https://virusscan.jotti.org/ （国内多引擎） http://webscan.360.cn/ （360网页检测） http://onlinelinkscan.com/ （国外LINK检测） https://security.symantec.com/nss/getnss.aspx （需要安装网页控件）
Submitted by 多情浪子 on 2019, August 27, 2:01 AM
阅读全文  |  网文采撷  |  评论(6)  |  引用(0)  |  附件:0  |  点击:2203
Powered by Sablog ARP解决方法＋ARP工具＋快速解决ARP
ARP解决方法＋ARP工具＋快速解决ARP
ARP的分析与解决
Submitted by 多情浪子 on 2006, April 19, 6:36 AM
阅读全文  |  网文采撷  |  评论(5)  |  引用(0)  |  附件:0  |  点击:4276

共有58条记录, 8条/页 « 1 2 3 4 5 6 7 8 »