English Sentence Loading...
英语句子加载中...
摄像头游戏
作者:newpants 日期:2008-05-30
所有物体都可以是游戏控制器：
Flash动画
官方介绍：
1. We have decided to release only free versions of the product. We will never charge users for the software.
2. We are currently getting ready to release a BETA version for Windows. We can't talk about a specific time period, but soon. Very soon.
3. A version for Mac is on our to-do list. Linux is as well.
4. We are currently a small garage operation and are overwhelmed by the attention and excitement our video created. We promise to grow to the challenge as soon as possible and make good on our plans.
5. Bloggers - Thank you very much!!! Your work breathed new life to our work (and got us addicted to youtube). You drive us forward on all levels and together we will revolutionize the industry.
More updates are soon to come.
官方网站
http://www.cam-trax.com/
Flash动画
官方介绍：
1. We have decided to release only free versions of the product. We will never charge users for the software.
2. We are currently getting ready to release a BETA version for Windows. We can't talk about a specific time period, but soon. Very soon.
3. A version for Mac is on our to-do list. Linux is as well.
4. We are currently a small garage operation and are overwhelmed by the attention and excitement our video created. We promise to grow to the challenge as soon as possible and make good on our plans.
5. Bloggers - Thank you very much!!! Your work breathed new life to our work (and got us addicted to youtube). You drive us forward on all levels and together we will revolutionize the industry.
More updates are soon to come.
官方网站
http://www.cam-trax.com/
因为我对这土地爱得深沉
作者:newpants 日期:2008-05-19
默哀
作者:newpants 日期:2008-05-19
第一：三天国丧期间，着装要正式、肃穆，不要穿戴太时尚或者颜色鲜艳的衣服、鞋帽，女同志不要用鲜艳的口红眼影化彩装，不要佩戴时尚的首饰；
第二：工休的时候不许开音乐、不许打牌，不许打闹嬉戏；
第三：要注意维护公共场所的气氛，在街上行走的时候，不要三五成群的嘻闹；
第四：下班之后不要出入舞厅、卡拉OK厅、台球社，也不要在家里放歌曲，唱卡拉OK、举办朋友聚会；
第五：可以佩戴一些表示哀悼、追念的标志或饰品；
第六：今天下午，停止工作三分钟。
第七：这是第一次为百姓举行国丧，中国的百姓会不习惯、不重视，也不知道该怎么做，希望大家尽量在亲朋好友中传递这些信息，并随时纠正看到的不正确行为
第二：工休的时候不许开音乐、不许打牌，不许打闹嬉戏；
第三：要注意维护公共场所的气氛，在街上行走的时候，不要三五成群的嘻闹；
第四：下班之后不要出入舞厅、卡拉OK厅、台球社，也不要在家里放歌曲，唱卡拉OK、举办朋友聚会；
第五：可以佩戴一些表示哀悼、追念的标志或饰品；
第六：今天下午，停止工作三分钟。
第七：这是第一次为百姓举行国丧，中国的百姓会不习惯、不重视，也不知道该怎么做，希望大家尽量在亲朋好友中传递这些信息，并随时纠正看到的不正确行为
利用宏功能导出excel中的flash文件
作者:newpants 日期:2008-05-16
1. 点击工具——>宏——>宏
2. 弹出一个宏创建窗体,在窗口中输入宏名（例如：宏名：ExtractFlash）点击创建按钮。
3. 弹出一个编程界面，在界面的中间有一个小窗口，在窗口中输入下面的程序段。
Sub ExtractFlash()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "確定要分析的 Office 檔")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
If myArr(i) = &H46 Then
If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
ReDim swfArr(swfFileLen - 1)
For myIndex = 0 To swfFileLen - 1
swfArr(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId
MsgBox "以" & tmpFileName & "名字保存"
End Sub
4. 按F5运行宏。
5. 弹出一个选择文件的窗口，选择你想要提取flash的excel文件，点击打开按钮。
6. 这时会弹出一个提示窗口“以......名字保存”，点击确定。
7. 在excel所在的位置会产生一个同名的flash文件。到此flash文件已经导出了。
2. 弹出一个宏创建窗体,在窗口中输入宏名（例如：宏名：ExtractFlash）点击创建按钮。
3. 弹出一个编程界面，在界面的中间有一个小窗口，在窗口中输入下面的程序段。
Sub ExtractFlash()
Dim tmpFileName As String, FileNumber As Integer
Dim myFileId As Long
Dim myArr() As Byte
Dim i As Long
Dim MyFileLen As Long, myIndex As Long
Dim swfFileLen As Long
Dim swfArr() As Byte
tmpFileName = Application.GetOpenFilename("office File(*.doc;*.xls),*.doc;*.xls", , "確定要分析的 Office 檔")
If tmpFileName = "False" Then Exit Sub
myFileId = FreeFile
Open tmpFileName For Binary As #myFileId
MyFileLen = LOF(myFileId)
ReDim myArr(MyFileLen - 1)
Get myFileId, , myArr()
Close myFileId
Application.ScreenUpdating = False
i = 0
Do While i < MyFileLen
If myArr(i) = &H46 Then
If myArr(i + 1) = &H57 And myArr(i + 2) = &H53 Then
swfFileLen = CLng(&H1000000) * myArr(i + 7) + CLng(&H10000) * myArr(i + 6) + CLng(&H100) * myArr(i + 5) + myArr(i + 4)
ReDim swfArr(swfFileLen - 1)
For myIndex = 0 To swfFileLen - 1
swfArr(myIndex) = myArr(i + myIndex)
Next myIndex
Exit Do
Else
i = i + 3
End If
Else
i = i + 1
End If
Loop
myFileId = FreeFile
tmpFileName = Left(tmpFileName, Len(tmpFileName) - 4) & ".swf"
Open tmpFileName For Binary As #myFileId
Put #myFileId, , swfArr
Close myFileId
MsgBox "以" & tmpFileName & "名字保存"
End Sub
4. 按F5运行宏。
5. 弹出一个选择文件的窗口，选择你想要提取flash的excel文件，点击打开按钮。
6. 这时会弹出一个提示窗口“以......名字保存”，点击确定。
7. 在excel所在的位置会产生一个同名的flash文件。到此flash文件已经导出了。
我们共同抗灾
作者:newpants 日期:2008-05-13
源自：http://www.china.com.cn/info/txt/2008-05/13/content_15184495.htm
中国红十字会总会救灾专用账号和热线
开户单位：中国红十字会总会
人民币开户行：中国工商银行北京分行东四南支行
人民币账号：0200001009014413252
外币开户行：中信银行酒仙桥支行
外币账号：7112111482600000209
热线电话：(8610)65139999
捐款有如下几种途径：
银行汇款：账号见上文
邮局汇款：
地址：北京市东城区北新桥三条8号
邮编：100007
网上捐款:登陆中国红十字会总会网站：www.redcross.org.cn，点击捐款热线栏目进行在线捐款。
（通过银行、邮局和网上捐款在捐款时请注明捐款人姓名、通信地址、捐款意向如：四川地震捐款等信息，以便邮寄捐赠收据和感谢信）
通过短信捐款：中国移动、中国联通手机用户以及中国电信、中国网通小灵通用户均可编辑短信1或2，发送至1069999301，即向“红十字救援行动”捐款1元钱或2元钱。
通过短信咨询：中国移动、中国联通手机用户以及中国电信、中国网通小灵通用户均可编辑短信“中国红十字会”，发送至12114，即可了解中国红十字会有关情况。
中国红十字基金会同时也接受社会各界捐赠：
地址： 北京市东城区东单北大街干面胡同53号
邮编：100010
银行汇款：
户名： 中国红十字基金会
开户银行： 中国银行北京分行
账号： 800100921908091001
开户银行：中国工商银行北京东四南支行
账号：0200001019014483874
开户银行：中国建设银行北京朝内大街支行
账号：11001070300059000427
外币开户银行：中国银行
账号： 800100086608091014
捐款热线电话： 010-65124154 010-65129947 010-65599176
Tags: 地震
