蓝图湾
博客首页
博客主人
聚合订阅
标签列表
引用列表
控制面板
博客日历
« 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
今日访问: 22535
总访问量: 24992064
友情连接
安全天使
天下网盟
河北电信测速
河北网通测速
世界网络
网世界
TT购物
sysinternals
analogx
LinuxTOY
中国站长站
中国网管论坛
mikrotik官网
鬼仔的Blog
可疑文件检测
异次元の世界
水晶泡泡淘宝店
够趣堂
死性不改
可疑文件检测2
Go Daddy
一人游走
一个空间
可疑文件检测3
腾讯哈勃分析系统
软件缘
微步云沙箱
安芯网盾
在线工具
网吧维护工具
程序版权
Powered by: SaBlog 执行时间: 0.067342 秒, 14 次查询
冀ICP备05030027号
浏览模式 标准模式 列表模式 所有时间均为 GMT +8:00 北京时间

Powered by Sablog GSM错误代码表
GSM Equipment and Network Error Codes

To show these errors on your GSM device, instead of the standard "ERROR" response, send the following commands to the GSM device:

AT+CMEE=1
AT&W
Submitted by 多情浪子 on 2007, September 6, 3:21 AM
阅读全文  |  网文采撷  |  评论(10)  |  引用(0)  |  附件:0  |  点击:8558
Powered by Sablog HaneWin DHCP
用易写的，做了教程，现在算是纯绿色版了
Submitted by 多情浪子 on 2009, November 10, 6:44 AM
阅读全文  |  自编程序  |  评论(10)  |  引用(0)  |  附件:1  |  点击:4085
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 Linux服务器提示信息的意义
学习补充中......
Submitted by 多情浪子 on 2007, February 8, 5:21 AM
阅读全文  |  学习笔记  |  评论(8)  |  引用(0)  |  附件:0  |  点击:5352
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  |  点击:4453
Powered by Sablog 0x000000A5蓝屏的一个解决办法
有人说是需要刷Bios ，但是通过进入bios load fail set，然后后设置网络启动，问题解决
Submitted by 多情浪子 on 2015, September 1, 3:16 PM
阅读全文  |  学习笔记  |  评论(8)  |  引用(0)  |  附件:0  |  点击:3879

共有204条记录, 8条/页 « 1 2 3 4 5 6 7 8 9 10 ... 26 »