勇哥博客=>看完。。。发现。。。[动画版]
[
2009/04/24 23:27 | by 勇哥 ]
2009/04/24 23:27 | by 勇哥 ]
看完《大剑》发现，男人靠不住。
看完《圣斗士星矢》发现，女人靠不住。
看完《柯南》 发现，男朋友靠不住。
看完《寒蝉鸣泣之时》 发现，女朋友靠不住。
看完《钢之炼金术师》发现，爸爸靠不住。
看完《叛逆的鲁路修》发现，兄弟姐妹靠不住。
看完《夏目友人帐》发现，奶奶靠不住。
看完《驱魔少年》发现，师傅靠不住。
看完《圣斗士星矢》发现，女人靠不住。
看完《柯南》 发现，男朋友靠不住。
看完《寒蝉鸣泣之时》 发现，女朋友靠不住。
看完《钢之炼金术师》发现，爸爸靠不住。
看完《叛逆的鲁路修》发现，兄弟姐妹靠不住。
看完《夏目友人帐》发现，奶奶靠不住。
看完《驱魔少年》发现，师傅靠不住。
勇哥博客=>[续]八个禽兽欺负一个穿着暴露的年轻女子
[ 2009/04/24 22:43 | by 勇哥 ]
2009/04/24 22:43 | by 勇哥 ]
1.《初中少年深入鼠穴后奇迹生还》--- 邋遢大王历险记
2.《耸人听闻！近视少女人头分离！》--- 阿拉蕾
3.《狂躁型精神病和健忘症小时候的故事》--- 没头脑和不高兴
4.《妻子肢解丈夫食肉寝皮，禽兽警察一意包庇》--- 黑猫警长
5.《反复变性为哪般？花季少男的心酸情史》--- 乱马1/2
6.《丧尽天良！舅舅囚妹追杀外甥》--- 宝莲灯
7.《七尺男惨遭毒手变侏儒 痴情女真情不变仍同居》--- 名侦探柯南
8.《销魂！白衣女子玩弄五男生一生! 》--- 圣斗士星矢
9.《会画画的农村少年把梦想变为现实》--- 神笔马良
10.《性情各异,众不明生物丛林深处智斗变态老男淫》--- 蓝精灵
2.《耸人听闻！近视少女人头分离！》--- 阿拉蕾
3.《狂躁型精神病和健忘症小时候的故事》--- 没头脑和不高兴
4.《妻子肢解丈夫食肉寝皮，禽兽警察一意包庇》--- 黑猫警长
5.《反复变性为哪般？花季少男的心酸情史》--- 乱马1/2
6.《丧尽天良！舅舅囚妹追杀外甥》--- 宝莲灯
7.《七尺男惨遭毒手变侏儒 痴情女真情不变仍同居》--- 名侦探柯南
8.《销魂！白衣女子玩弄五男生一生! 》--- 圣斗士星矢
9.《会画画的农村少年把梦想变为现实》--- 神笔马良
10.《性情各异,众不明生物丛林深处智斗变态老男淫》--- 蓝精灵
不要把自己當做鼠，否則肯定被貓吃。
1858 年，瑞典的一個富豪人家生下了一個女兒。然而不久，孩子染患了一種無法
解釋的癱瘓癥，喪失了走路的能力。
一次，女孩和家人一起乘船旅行。船長的太太給孩子講船長有一只天堂鳥，
1858 年，瑞典的一個富豪人家生下了一個女兒。然而不久，孩子染患了一種無法
解釋的癱瘓癥，喪失了走路的能力。
一次，女孩和家人一起乘船旅行。船長的太太給孩子講船長有一只天堂鳥，
勇哥博客=>Delphi字符串函数大全
[ 2009/04/17 00:56 | by 勇哥 ]
2009/04/17 00:56 | by 勇哥 ]
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiDequotedStr(const S: string; AQuote: Char): string;
$[SysUtils.pas
功能 返回以字符AQuote为引号的表现形式原形
说明 表现形式非法时则返回S
参考 function SysUtils.AnsiExtractQuotedStr
例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =
{$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}):
string; $[SysUtils.pas
功能 返回将给定字符串的行分隔符调整为CR/LF序列
说明
AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10
参考 function SysUtils.StrNextChar
例子
首部 function AnsiDequotedStr(const S: string; AQuote: Char): string;
$[SysUtils.pas
功能 返回以字符AQuote为引号的表现形式原形
说明 表现形式非法时则返回S
参考 function SysUtils.AnsiExtractQuotedStr
例子 Edit2.Text := AnsiDequotedStr(Edit1.Text, '"');
━━━━━━━━━━━━━━━━━━━━━
首部 function AdjustLineBreaks(const S: string; Style: TTextLineBreakStyle =
{$IFDEF LINUX} tlbsLF {$ENDIF} {$IFDEF MSWINDOWS} tlbsCRLF {$ENDIF}):
string; $[SysUtils.pas
功能 返回将给定字符串的行分隔符调整为CR/LF序列
说明
AdjustLineBreaks('1'#13'2'#13)='1'#13#10'2'#13#10;AdjustLineBreaks('1'#10'2'#10)='1'#13#10'2'#13#10
参考 function SysUtils.StrNextChar
例子
勇哥博客=>最另类的签名126条（总结最新版）
[ 2009/04/16 17:37 | by 勇哥 ]
2009/04/16 17:37 | by 勇哥 ]
001 - 老鼠一发威，大家都是病猫。
002 - 和一MM争论鲸鱼是不是鱼，最后我说“曰本人也带个人字”，她这才同意鲸鱼不是鱼。
003 - 男人膝下有黄金，我把整个腿都切下来了，连块铜也没找着！004 - 春天我把玉米埋在土里，到了秋天我就会收获很多玉米。春天我把老婆埋在土里，到了秋天我就会…被枪毙！
005 - 如果你看到面前的阴影，别怕，那是因为你的背后有阳光！
006 - 踏遍青楼人未老，请用汇仁肾宝。
007 - 听君一席话，省我十本书！
008 - 0岁出场亮相，10岁天天向上。20岁远大理想，30岁发奋图强。40岁基本定向，50岁处处吃香。60岁打打麻将，70岁处处闲逛。80岁拉拉家常，90岁挂在墙上！
002 - 和一MM争论鲸鱼是不是鱼，最后我说“曰本人也带个人字”，她这才同意鲸鱼不是鱼。
003 - 男人膝下有黄金，我把整个腿都切下来了，连块铜也没找着！004 - 春天我把玉米埋在土里，到了秋天我就会收获很多玉米。春天我把老婆埋在土里，到了秋天我就会…被枪毙！
005 - 如果你看到面前的阴影，别怕，那是因为你的背后有阳光！
006 - 踏遍青楼人未老，请用汇仁肾宝。
007 - 听君一席话，省我十本书！
008 - 0岁出场亮相，10岁天天向上。20岁远大理想，30岁发奋图强。40岁基本定向，50岁处处吃香。60岁打打麻将，70岁处处闲逛。80岁拉拉家常，90岁挂在墙上！
勇哥博客=>可能全答错的19个脑筋急转弯
[ 2009/04/16 17:35 | by 勇哥 ]
2009/04/16 17:35 | by 勇哥 ]
勇哥博客=>VBS 改IP、计算机名、CSCDKEY
[ 2009/04/16 15:15 | by 勇哥 ]
2009/04/16 15:15 | by 勇哥 ]
On Error Resume Next
'取得本机器的网卡物理地址： MacAddress
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
Set objNic = objWMIService.Get _
("Win32_NetworkAdapter.DeviceID=" & objNicConfig.Index)
'本机器的网卡物理地址写入变量 : strMacAddress
strMacAddress = objNic.MACAddress
Next
'读取配置文件
dim files,file,strReadLine ,RowNumber
Const ForReading = 1
set files=CreateObject("Scripting.FileSystemObject")
if files.fileexists("c:\windows\autoconfig\config.cfg", ForReading) then
set file=files.opentextfile("c:\windows\autoconfig\config.cfg")
else
msgbox("请在程序目录下放置MAC列表文件(文件名为:config.cfg)")
end if
RowNumber = 0
Do While file.AtEndOfStream <> True
strReadLine = file.ReadLine
RowNumber = RowNumber + 1
If InStr(strReadLine,strMacAddress) <> 0 Then
ComputerConfig = Split(strReadLine , ";")
Exit Do
End If
Loop
'修改IP地址
strComputer = "."
SubnetIPAddress = "192.168.0."
LocalIPAddress = SubnetIPAddress & RowNumber
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(LocalIPAddress)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
Next
'修改机器名
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "netsh interface ip set dns name=本地连接 source=static addr=202.96.134.133 register=primary",0,TRUE
WshShell.Run "netsh interface ip add dns name=本地连接 addr=202.96.128.68",0,TRUE
Set Fso = CreateObject("SCripting.FileSystemObject")
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", ComputerConfig(0) ,"REG_SZ"
'修改CS-CDKEY
WshShell.RegWrite "HKCU\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(3),"REG_SZ"
WshShell.Run "shutdown -r -t 60",0,true
On Error GoTo 0
config.cfg文件内容格式
[ComputerName] [MacAddress] [IPAddress] [CS:CDKey]
net001;00:0A:eB:1A:06:AF;192.168.0.100;6996551041203;
net002;00:0A:EB:12:3A:BC;192.168.0.2;0416231170064;
net003;00:0A:EB:12:63:7D;192.168.0.3;5991335738183;
net004;00:E0:4C:78:47:9A;192.168.0.4;2396032072643;
net005;00:0A:EB:02:48:82;192.168.0.5;0700233570541;
net006;00:0A:EB:02:69:CA;192.168.0.6;2306437281560;
net007;00:14:85:5B:5C:6D;192.168.0.7;3997145348020;
net008;00:14:85:34:7E:24;192.168.0.8;7842715618877;
net009;00:14:85:34:82:28;192.168.0.9;1509899106786;
net010;00:14:85:34:81:22;192.168.0.10;3922648525588;
net011;00:14:85:5B:91:C2;192.168.0.11;5991335738183;
net012;00:14:85:34:89:32;192.168.0.12;7893392675840;
'取得本机器的网卡物理地址： MacAddress
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colNicConfigs = objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")
For Each objNicConfig In colNicConfigs
Set objNic = objWMIService.Get _
("Win32_NetworkAdapter.DeviceID=" & objNicConfig.Index)
'本机器的网卡物理地址写入变量 : strMacAddress
strMacAddress = objNic.MACAddress
Next
'读取配置文件
dim files,file,strReadLine ,RowNumber
Const ForReading = 1
set files=CreateObject("Scripting.FileSystemObject")
if files.fileexists("c:\windows\autoconfig\config.cfg", ForReading) then
set file=files.opentextfile("c:\windows\autoconfig\config.cfg")
else
msgbox("请在程序目录下放置MAC列表文件(文件名为:config.cfg)")
end if
RowNumber = 0
Do While file.AtEndOfStream <> True
strReadLine = file.ReadLine
RowNumber = RowNumber + 1
If InStr(strReadLine,strMacAddress) <> 0 Then
ComputerConfig = Split(strReadLine , ";")
Exit Do
End If
Loop
'修改IP地址
strComputer = "."
SubnetIPAddress = "192.168.0."
LocalIPAddress = SubnetIPAddress & RowNumber
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array(LocalIPAddress)
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.1")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
Next
'修改机器名
Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "netsh interface ip set dns name=本地连接 source=static addr=202.96.134.133 register=primary",0,TRUE
WshShell.Run "netsh interface ip add dns name=本地连接 addr=202.96.128.68",0,TRUE
Set Fso = CreateObject("SCripting.FileSystemObject")
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", ComputerConfig(0) ,"REG_SZ"
WshShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname", ComputerConfig(0) ,"REG_SZ"
'修改CS-CDKEY
WshShell.RegWrite "HKCU\Software\Valve\CounterStrike\Settings\Key", ComputerConfig(3),"REG_SZ"
WshShell.Run "shutdown -r -t 60",0,true
On Error GoTo 0
config.cfg文件内容格式
[ComputerName] [MacAddress] [IPAddress] [CS:CDKey]
net001;00:0A:eB:1A:06:AF;192.168.0.100;6996551041203;
net002;00:0A:EB:12:3A:BC;192.168.0.2;0416231170064;
net003;00:0A:EB:12:63:7D;192.168.0.3;5991335738183;
net004;00:E0:4C:78:47:9A;192.168.0.4;2396032072643;
net005;00:0A:EB:02:48:82;192.168.0.5;0700233570541;
net006;00:0A:EB:02:69:CA;192.168.0.6;2306437281560;
net007;00:14:85:5B:5C:6D;192.168.0.7;3997145348020;
net008;00:14:85:34:7E:24;192.168.0.8;7842715618877;
net009;00:14:85:34:82:28;192.168.0.9;1509899106786;
net010;00:14:85:34:81:22;192.168.0.10;3922648525588;
net011;00:14:85:5B:91:C2;192.168.0.11;5991335738183;
net012;00:14:85:34:89:32;192.168.0.12;7893392675840;
"健康教母"马悦凌气血养生真法：不生病的智慧
马悦凌，著名民间中医，以多年的亲身实践为代价，独创食疗、经络疗法，受众极广，人称“健康教母”。99%的病都可以用补血的简单方法治好，这样，我们的身体至少能用120年。为了解决身体的根本问题，我们甚至需要生一些小病。只要照书里所说的一招一式做下去，不生病谁都可以做到。
这是一本被无数患者誉为“健康教母”的民间奇医马悦凌为天下老百姓写的健康养生书。里面凝聚了作者十几年独创的各种不生病的方法和治疗众多疑难杂病的奇效良方，不管是老人、孩子、妇女、成年人都能用上，特别适合一家老小。
内容介绍
马悦凌，著名民间中医，以多年的亲身实践为代价，独创食疗、经络疗法，受众极广，人称“健康教母”。99%的病都可以用补血的简单方法治好，这样，我们的身体至少能用120年。为了解决身体的根本问题，我们甚至需要生一些小病。只要照书里所说的一招一式做下去，不生病谁都可以做到。
这是一本被无数患者誉为“健康教母”的民间奇医马悦凌为天下老百姓写的健康养生书。里面凝聚了作者十几年独创的各种不生病的方法和治疗众多疑难杂病的奇效良方，不管是老人、孩子、妇女、成年人都能用上，特别适合一家老小。
内容介绍
@echo off
可以新建BAT文件
reg add HKCR\.bat\ShellNew /v nullfile /f >nul
reg add HKCR\batfile /ve /d bat文件 /f >nul
以下批处理在运行之后，无需在文件夹选项中设置，直接刷新就能看到隐藏、系统文件及文件扩展名。
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t reg_dword /d 1 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d 0 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ShowSuperHidden /t reg_dword /d 1 /f
可以新建BAT文件
reg add HKCR\.bat\ShellNew /v nullfile /f >nul
reg add HKCR\batfile /ve /d bat文件 /f >nul
以下批处理在运行之后，无需在文件夹选项中设置，直接刷新就能看到隐藏、系统文件及文件扩展名。
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v Hidden /t reg_dword /d 1 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v HideFileExt /t reg_dword /d 0 /f
reg add "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Advanced" /v ShowSuperHidden /t reg_dword /d 1 /f
男人好色，英雄本色！女人风骚，高尚情操！男人不色，形同虚设！女人不骚，档次不高！
天下三难：
登天，求人，找处女!
人间三苦：
黄莲，贫穷，硬不起。
天下三险：
江湖，人心，艾滋病。
人间三薄：
纸张，人情，安全套! ! !
四大绝技：
焊雷管，锯灯泡，精修处女膜，火补避孕套
天下三难：
登天，求人，找处女!
人间三苦：
黄莲，贫穷，硬不起。
天下三险：
江湖，人心，艾滋病。
人间三薄：
纸张，人情，安全套! ! !
四大绝技：
焊雷管，锯灯泡，精修处女膜，火补避孕套
勇哥博客=>DIY高手自制Vista系统登录界面
[ 2009/04/14 22:49 | by 勇哥 ]
2009/04/14 22:49 | by 勇哥 ]
1.下载 ResHacker
2.用 ResHacker 打开 Vista盘符/Windows/System32/imageres.dll 文件,点击左侧的 IMAGE 项,选择 "操作-保存[IMAGE]资源" 选定一个位置随便输个名称保存然后退出软件
3.找到保存的文件,可以看见 13 张 jpg 图片,文件名从 Data_1.jpg 到 Data_13.jpg,尺寸分别为 1280x1024,1280x960,1024x768,1600x1200,1440x900,1920x1200,1280x768,
1360x768,1024x1280,960x1280,900x1440,768x1280,768x1360, 找出与自己桌面分辨率相同或宽高比相同且最接近的一张
2.用 ResHacker 打开 Vista盘符/Windows/System32/imageres.dll 文件,点击左侧的 IMAGE 项,选择 "操作-保存[IMAGE]资源" 选定一个位置随便输个名称保存然后退出软件
3.找到保存的文件,可以看见 13 张 jpg 图片,文件名从 Data_1.jpg 到 Data_13.jpg,尺寸分别为 1280x1024,1280x960,1024x768,1600x1200,1440x900,1920x1200,1280x768,
1360x768,1024x1280,960x1280,900x1440,768x1280,768x1360, 找出与自己桌面分辨率相同或宽高比相同且最接近的一张
勇哥博客=>妻子、情人和红颜知己的差别
[ 2009/04/14 22:47 | by 勇哥 ]
2009/04/14 22:47 | by 勇哥 ]
什么是妻子？就是你愿意把积蓄交给她保管的女人。什么是情人？就是你偷偷摸摸地去和她约会又怕妻子撞见的女人。什么是红颜知己？就是你能把有些秘密说给她听却不能说给妻子听的女人
妻子是一种约束，约束你不能随便和别的女人交往；情人是一种补偿，补偿你想从妻子那得到却又无法得到的激情；红颜知己就是一种点拨，点拨你心中的迷津
妻子陪你过日子，情人陪你花钞票，红颜知己陪你聊聊天。妻子不能替代情人，因为她没有情人有情调；情人不能代替妻子，因为她没有妻子的亲情；妻子和情人都代替不了红颜知己，那是心灵的需要。
妻子是一种约束，约束你不能随便和别的女人交往；情人是一种补偿，补偿你想从妻子那得到却又无法得到的激情；红颜知己就是一种点拨，点拨你心中的迷津
妻子陪你过日子，情人陪你花钞票，红颜知己陪你聊聊天。妻子不能替代情人，因为她没有情人有情调；情人不能代替妻子，因为她没有妻子的亲情；妻子和情人都代替不了红颜知己，那是心灵的需要。
: