宝宝3岁相册

Apr 26th, 2012

由宝贝计划设计和制作。

Read more…

Tags:

正面管教应用案例

Jul 15th, 2015

学习正面管教的工具和知识,我觉得最重要的是领会这些工具背后的目的和意义,一边应用一边感悟,就能越来越自然,而不是生搬硬套。

每天晚饭后,如果不出去学特长,我们都会出门散步。这么多年来小区中心绿化岛附近逐渐成为一个小小的社交中心,老人聚在路灯下打牌,孩子们在这玩耍,大人三五成群地聊天。悦悦也喜欢在这和同龄的另外两个小女孩惠子、芠芠一起玩。因为以前和悦悦的一些沟通,她们仨现在也能一起玩的很开心,而不是每次两个女孩一起,排斥第三个。

今天晚饭后,悦妈在厨房里切奶酪,我带悦悦出去散步。我们走到绿化岛附近,芠芠和惠子还没出来。我们走到不远的芠芠家楼下,悦悦喊了几声住一楼的芠芠可能没听到,我用密码打开单元门,悦悦跑上楼梯敲门,芠芠姥姥把悦悦接进去,我就在楼下等着她们。

过了一会,惠子跑到我身边,笑咪咪地看着我。我告诉她悦悦在芠芠家,我帮她打开单元门,她也上楼去找她们。

10来分钟后,惠子和悦悦出来了,我听见芠芠在家里大哭。悦悦手里拿着纸和笔,我问:“纸和笔从哪来的啊?”悦悦说是借的,然后就把纸铺在地上画画,惠子在边上看着。悦悦画了几笔,走到我面前,我揽着她,柔声说:

“宝宝,如果芠芠向你借画笔,你没同意,她就把笔拿走了,你会不会很生气啊?”芠芠在家的哭声还是很响亮。悦悦点点头,惠子跟着她一起上楼去芠芠家。

这里,不能说教,用孩子能理解的语言引导她思考,更重要的是给她好的感觉。

不一会儿,单元门响,悦悦号啕大哭地跑向我,惠子很惊讶地跟在后面。我抱着她,等她能平静一些,问:“发生什么事了?”

“芠芠把我的画撕了!”悦悦哭着说,“地图,我画的那么好的朵拉的地图!芠芠撕了!”

“哦,你一定气坏了!”我说。

“呜呜,我画的那么好!”悦悦很伤心,”芠芠最坏了,我再也不和她玩了。”

我抱着她,轻轻拍她的背:“你觉得很委屈啊。”

反射式倾听和共情

悦悦哭得满脸泪水,脸都红了,满头大汗。惠子皱眉看了一会,感觉害怕跑走了。我家楼下的小女孩静茹和妈妈过来,静茹很想和悦悦玩,却不敢靠近。

芠芠姥姥下楼过来说:“悦悦,现在没事了,去玩吧。”悦悦使劲摇头不愿意,姥姥无奈走了。

我轻声说:“静茹妹妹很想和你玩啊。”悦悦平静了一些,走向静茹,可还是不想说话。静茹妈妈微笑着说:“悦悦,你们俩怎么啦?怎么这么陌生了?”悦悦又跑回我身边,告诉我出门时带出来的公主贴画本丢在芠芠家。

芠芠妈妈领着芠芠下楼,想让芠芠道歉和好。芠芠靠在墙上不过来。悦悦看到芠芠,哭着对我说:“我再也不想和芠芠玩了。”

芠芠小声说:“拉倒吧!”

悦悦忍不住又哭了。

我和芠芠妈妈说:“悦悦的书忘记拿了。”芠芠妈妈领着芠芠回去拿书。

悦悦悄悄告诉我:“我要谢谢阿姨。”

芠芠拿着书和妈妈下楼,芠芠妈妈想让她递给悦悦,芠芠不乐意。芠芠妈妈把书递给悦悦,悦悦说:“谢谢阿姨!”

然后告诉我:“爸爸,我想回家。”

我确认一下:“你不想再和惠子或静茹玩了吗?”

她摇头:“我明天再找静茹玩。”

“好吧。”我们往回走,悦悦没忘记和芠芠妈妈说再见,她的情绪好多了。

拉着手走在回家的路上,我说:“看来芠芠还是很生气啊,她好像没有原谅你借她笔……”

只说现象,不能说教

悦悦打断我:“爸爸我知道了。以后我一定要经过别人的同意。”

我很欣慰:“宝宝,你发现这点就立刻去再问芠芠,这真是需要勇气,还不拖延。相信以后你能处理的更好。”

鼓励

坐电梯上楼时,我弯腰亲了她额头一下,说:“爸爸永远爱你。”

悦悦说:“我也永远爱你,爸爸,你老了我也爱你!”

Tags:

Yosemite: 端口转发

Jan 29th, 2015

Yosemite下安装DNSCrypt,在GoAgent里打开DNS,会提示无法绑定本地53端口,而Yosemite删除了ipfw,端口转发如下实现:

新建并编辑/etc/pf.anchors/com.rico

rdr pass on en0 inet proto udp from any to any port 53 -> 127.0.0.1 port 8053

编辑/etc/pf.conf,添加蓝色文字

scrub-anchor “com.apple/*”

nat-anchor “com.apple/*”

rdr-anchor “com.apple/*”

rdr-anchor “com.rico”

dummynet-anchor “com.apple/*”

anchor “com.apple/*”

load anchor “com.apple” from “/etc/pf.anchors/com.apple”

load anchor “com.rico” from “/etc/pf.anchors/com.rico”

编辑/System/Library/LaunchDaemons/com.apple.pfctl.plist,开机载入转发策略

        <key>ProgramArguments</key>

<array>

<string>pfctl</string>

<string>-f</string>

<string>-e</string>

<string>/etc/pf.conf</string>

</array>

可以手工加载测试效果:

$ pfctl -ef /etc/pf.conf

另外两条有用的Apple Script:

do shell script “/Users/ricojiang/Applications/3.2.3/local/goagent-osx.command > /dev/null 2>&1 &” with administrator privileges

载入GoAgent

do shell script “open ‘/Applications/Google Chrome.app’ –args –ssl-version-min=tls1 –ignore-certificate-errors”

载入Chrome,忽略证书错误,并指定只能用TLSv1

Tags:

Yosemite: 切换默认打开程序

Jan 28th, 2015

打开Finder,选取要设定/更改默认打开程序的文件,右击Get Info (Command+I),在弹出的属性浮动窗口里,找到Open with: 挑选指定的程序,单击下方的Change All…

Screen Shot 2015-01-28 at 下午2.19.15

Tags:

VBScript:调用UltraISO制作光盘镜像

Jan 17th, 2015

用VBScript调用UlraISO,判断子目录如果非空,就自动生成光盘镜像和卷标

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders, objFileToWrite
Dim objWSHShell : Set objWSHSHell = CreateObject(“WScript.Shell”)

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“f:\cd\cdok\2Do\test\ok\”)
Set dest = fso.GetFolder(“f:\up\”)
Set srcSubfolders = src.Subfolders
‘Set destSubfolders = dest.Subfolders

For Each srcSubfolders In src.Subfolders
If Not FolderEmpty(fso.BuildPath(srcSubfolders.path , “配套PPT课件\”)) And Not FolderEmpty(fso.BuildPath(srcSubfolders.path , “课后习题Word版\”)) Then
objWSHShell.CurrentDirectory = dest.Path
Dim strCMD
strCMD = “””” & “d:\Program Files\UltraISO\UltraISO.exe” & “””” & ” -imax -l -d ” & srcSubfolders & ” -volu ” & srcSubfolders.Name & ” -out ” & dest & “\” & srcSubfolders.Name & “.iso”
Dim objExec : Set objExec = objWSHShell.Exec(“CMD /C ” & strCMD)
Else
WScript.Echo “移动” & srcSubfolders
fso.MoveFolder srcSubfolders, “f:\cd\cdok\2Do\”
End if
Next

Function FolderEmpty(strFolder)
Dim objFSO, objFolder
Set objFSO = CreateObject(“Scripting.FileSystemObject”)

If objFSO.FolderExists(strFolder) Then
Set objFolder = objFSO.GetFolder(strFolder)

If objFolder.Files.Count = 0 And objFolder.SubFolders.Count = 0 Then
FolderEmpty=True
Else
FolderEmpty=False
End If
End If
Set objFSO = Nothing
End Function
WScript.Echo “iso处理完成!”

Tags:

VBScript:将方正经典新版转出的Word和pdf文件合并到同名目录

Jan 16th, 2015

新版方正经典转出的Word存放到“书名_WordXPort”目录里,同时生成的pdf存放在“书名_PdfXPort”目录里,用VBScript写程序删除_WordXPort和_PdfXPort,并将文件合同到该书名的目录里。程序如下:

Option Explicit

Dim fso, src, dest, srcSubfolders, destSubfolders, destName, srcName

Set fso = CreateObject(“Scripting.FileSystemObject”)
Set src = fso.GetFolder(“f:\方正\工作目录\”)
Set dest = fso.GetFolder(“f:\方正\Word\”)
Set srcSubfolders = src.Subfolders
Set destSubfolders = dest.Subfolders

For Each destSubfolders In dest.Subfolders
destName = destSubfolders.Name
destName = Replace(destName,”_WordXPort”,””)
if (destName<>destSubfolders.Name) then
fso.MoveFolder destSubfolders, fso.BuildPath(dest.path , destName)
end If
Next

For Each srcSubfolders In src.Subfolders
srcName = srcSubfolders.Name
srcName = Replace(srcName,”_PdfXPort”,””)
if (srcName<>srcSubfolders.Name) then
fso.MoveFolder srcSubfolders, fso.BuildPath(src.path , srcName)
end If
Next

For Each destSubfolders In dest.Subfolders
For Each srcSubfolders In src.Subfolders
If srcSubfolders.Name = destSubfolders.Name Then
fso.CopyFolder srcSubfolders , destSubfolders, True
fso.DeleteFolder srcSubfolders
End if
Next
Next

WScript.Echo “pdf合并完成!”

Tags: