2013年4月14日星期日

[分享]抛砖引玉-我家网络电视的历史[Chinese In North America(北美华人e网)]

[分享]抛砖引玉-我家网络电视的历史[Chinese In North America(北美华人e网)]

[分享]抛砖引玉-我家网络电视的历史  发贴心情 Post By:8/31/2012 5:39:00 PM 

写这个既不是推荐什么产品,也不是教程,本意就是抛砖引玉,对于不太了解的人,可以知道一些知识,对于有经验的人也可以有个机会引来玉啦。

很早以前的原始蒙昧时期,没有高清机也没有高清电视,我们的做法是装xp的PC通过S-video端口接老式的CRT电视,然后运行PPlive。那个效果放在现在肯定是不值一提。图片点击可在新窗口打开查看

再后来有了高清电视,于是把电脑升级到了WIN7,端口也变成了HDMI,开始进入高清时代。不过因为我们电视看得很少,所以PPS什么软件统统没装,倒是配了卡拉OK双屏点歌系统,在淘宝买了一个10寸播放器作为点歌屏,配一个联想remote键盘鼠标控制。在开party的时候受到一致好评。图片点击可在新窗口打开查看
图片点击可在新窗口打开查看
图片点击可在新窗口打开查看

后来后知后觉的知道了高清机这个东西,果断买了2台PBO,这里说一下高清机,这个也就是大家讨论的机顶盒。简单的说就是一边接网络一边用HDMI输出到电视上。高清机按芯片分有3大类,realtek芯片,sigma芯片和ARM芯片。如果不是这些主流芯片的一般不推荐。
realtek芯片比较低档,比如前2年热卖的pbo就是realtek 1073芯片的。因为这种芯片已经停产,所以市面上已经几乎看不到PBO了。前两天看见Local的frys在以25刀价格清仓。
图片点击可在新窗口打开查看

Sigma芯片是主流蓝光机用的解码芯片,所以在音质画质上讲都比realtek的好些。
具体每种芯片的优劣讲解可以看这个帖子 http://www.hdpfans.com/article-158-1.html
从淘宝购买美如画或者海美迪,要看清楚用的是什么芯片。

至于用ARM芯片的,很多其实是android播放器,因为有一个通用操作系统,所以可扩展性应该要好,可能可以安装自己需要的APP游戏。不像用realtek或sigma的高清机,如果没有一个功能,比如PPS,你就一点办法没有。如果运气好等到下一个版本的固件支持了,你还要手动刷固件。但是对于ARM芯片+GPU的解码能力我还是有怀疑的,我怀疑其音质画质应该比不过sigma.

PC机这个方面也没有因为有了高清机就被冷落。我们家ZT发疯,100多刀买了一台ACER AR1600 nettop,大小只有一本字典的size,非常安静,功耗也极低,idle的时候才7W。
图片点击可在新窗口打开查看


这个小东西被我们装了XBMC 11 Eden,装好后界面差不多是下面的样子

图片点击可在新窗口打开查看

装了中文ADDON以后,中文节目就解决了,又安装了ICEFILMS add-on,于是各种美剧也完美解决。
这里多说两句XBMC,这个是专门为HTPC (Home Theater PC) 开发的操作系统,功能相当的强大。我们那台硬件很差的nettop也可以完美的跑高码率的1080P电影。另外10块钱的MCE remote配一个,就可以很省心地操作XBMC.

再往下,我们打算进入android时代,为此ZT又买了MK802 MiniPC,这小东西真心是小,价钱也不到50美元,速度却可以和主流的tablet相媲美。不过这个我们还没有怎么玩,现在还不好说有什么优缺点,至少一个优点是可以带着出去旅游,在旅馆房间里也可以看国内电视节目,或者玩下载的游戏。

图片点击可在新窗口打开查看

实用电脑:这个才是目前最便宜的手机Prepaid计划! - 由sailfish发表 - 文学城

实用电脑:这个才是目前最便宜的手机Prepaid计划! - 由sailfish发表 - 文学城

刚刚从欧洲过来的公司,进军北美市场,也是用的TMobile网络:

http://www.lycamobile.us/draft1-en/national-plans

2c/minute
4c/text 
6c/MB

还有19刀,29刀和39刀的包月计划,并且还有免费打中国(和其他几十个国家)!而且SIM卡免费寄送。

Too Good Too Be True!但是至少现在有人用了还不错。

严重推荐,但是不负责任啊,哈哈~~

P.S. 订购SIM卡的系统超级弱智,我费了半天劲总算搞了两个~

2013年4月4日星期四

Internet Explorer Automation using Excel VBA

Internet Explorer Automation using Excel VBA


IE (Internet Explorer) Automation using Excel VBA



Example below tries to give web automation using IE (internet explorer). VBA macro drives internet explorer using its DOM properties and methods. The macro allows to interact with web page controls (text fields and buttons). The example opens web site www.excely.com and fill a search form to find "excel vba" text.
First we open manually web site and found html-code of search form:
<!-- searchbox START --> 
<div id="searchbox"> 
<form action="http://www.excely.com" method="get"> 
    <div class="content"> 
        <input type="text" class="textfield" name="s" size="24" value="" /> 
        <input type="submit" class="button" value="" /> 
    </div> 
</form> 
</div>
To automate searching we need:
  • Create Internet Explorer object
  • Load web site www.excely.com
  • Find 2 input tags:
    • Text field
      <input type="text" class="textfield" name="s" size="24" value="" />
    • Button
      <input type="submit" class="button" value="" />
  • Set searching text and click button
  • Wait while IE loading
  • Clean up objects
IE Autiomation source code:
Private Sub IE_Autiomation()
    Dim i As Long
    Dim IE As Object
    Dim objElement As Object
    Dim objCollection As Object
 
    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")
 
    ' You can uncoment Next line To see form results
    IE.Visible = False
 
    ' Send the form data To URL As POST binary request
    IE.Navigate "http://www.excely.com/"
 
    ' Statusbar
    Application.StatusBar = "www.excely.com is loading. Please wait..."
 
    ' Wait while IE loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
    ' Find 2 input tags:
    '   1. Text field
    '   <input type="text" class="textfield" name="s" size="24" value="" />
    '
    '   2. Button
    '   <input type="submit" class="button" value="" />
    
    Application.StatusBar = "Search form submission. Please wait..."
 
    Set objCollection = IE.document.getElementsByTagName("input")
 
    i = 0
    While i < objCollection.Length
        If objCollection(i).Name = "s" Then
 
            ' Set text for search
            objCollection(i).Value = "excel vba"
 
        Else
            If objCollection(i).Type = "submit" And _
               objCollection(i).Name = "" Then
 
                ' "Search" button is found
                Set objElement = objCollection(i)
 
            End If
        End If
        i = i + 1
    Wend
    objElement.Click    ' click button to search
    
    ' Wait while IE re-loading...
    Do While IE.Busy
        Application.Wait DateAdd("s", 1, Now)
    Loop
 
    ' Show IE
    IE.Visible = True
 
    ' Clean up
    Set IE = Nothing
    Set objElement = Nothing
    Set objCollection = Nothing
 
    Application.StatusBar = ""
End Sub

IE Automation Library and Web Macro Recorder: Excel and IE automation - the WSH way

IE Automation Library and Web Macro Recorder: Excel and IE automation - the WSH way



Excel and IE automation - the WSH way

I can think of two possible scenarios when automating Excel and Internet Explorer makes any sense:
  • you have data stored in Excel sheets and you want to push data into online web forms.
  • you need to extract data from web and save them into Excel xls file.
There are two ways to implement this:
  • automate Internet Explorer browser from Excel VBA macro.
  • automate both IE and Excel from an external process using OLE automation.
Today I will talk about the second option; I will automate both Internet Explorer and Excel application from a WSH script using Twebst Automation Studio. Here's a diagram showing the work-flow:


Fill out web forms with Excel data

The WSH web macro in this tutorial opens an XLS file containing phrases to be translated using Google Translate tool. It then automatically gets each phrase, opens an IE browser, navigates to translation page, fills out the text to be translated, press submit button, gets back the result and saves it into the same XLS file.
That's all for now! (as I try to keep articles relatively short) Meanwhile, you should download Twebst Automation Studioand the web macro sample to see it at work. Then, you can continue with the next article explaining the web macro code and comments: Extract web data into Excel.Application with browser macro

11-19的乘法口诀,开眼界了 (转载)(转寄)

发信人: sunnyshen (sunnyshen), 信区: Texas
标 题: 11-19的乘法口诀,开眼界了 (转载)
发信站: BBS 未名空间站 (Thu Apr 4 10:12:59 2013, 美东)

【 以下文字转载自 afterschool_k12 俱乐部 】
发信人: sunnyshen (sunnyshen), 信区: afterschool_k12
标 题: 11-19的乘法口诀,开眼界了
发信站: BBS 未名空间站 (Thu Apr 4 10:10:18 2013, 美东)

当中国妈妈因为小朋友会背99乘法高兴的同时,印度小孩已经在背1919乘法了!
难怪近几年印度进步得那么快~
印度的九九表是从1背到19(→19X19乘法?),不过您知道印度人是怎么记
11到19的数字吗?
我是看了下面这本书之后才恍然大悟的。

印度式计算训练 」
请试着用心算算出下面的答案:
13X12=?
(被乘数)(乘数)
印度人是这样算的。
第一步:
先把(13)跟乘数的个位数(2)加起来,
13+2=15
第二步:
然后把第一步的答案乘以10 (也就是说后面加个0)
第三步:
再把被乘数的个位数(3)乘以乘数的个位数(2),
2X3=6
(13+2)X10+6=156
就这样,用心算就可以很快地算出11X11到19X19了喔!
这真是太神奇了!
我们试着演算一下:
14×13:
(1)14+3=17
(2)17×10=170
(3)4×3=12
(4)170+12=182

16×17:
(1)16+7=23
(2)23×10=230
(3)6×7=42
(4)230+42=272

19×19
(1)19+9=28
(2)28×10=280
(3)9×9=81
(4)280+81=361
真的好简单喔!怎不早点让我们知道呢?

--
=================================================================
欢迎大家参加 "子女课后活动" 俱乐部
子女的成功,才是我们最大的成功
http://www.mitbbs.com/club_bbsdoc/afterschool_k12.html
=================================================================


※ 来源:・WWW 未名空间站 海外: mitbbs.com 中国: mitbbs.cn・[FROM: 76.]

更改Microsoft Excel主窗口标题栏中显示的名称(VBA) - V.S.林的日志 - 网易博客

更改Microsoft Excel主窗口标题栏中显示的名称(VBA) - V.S.林的日志 - 网易博客


更改Microsoft Excel主窗口标题栏中显示的名称(VBA)  

2010-04-25 12:04:42|  分类: V.S.EXCEL_VBA|字号 订阅
更改Microsoft Excel主窗口标题栏中显示的名称(VBA
[ V.S.林 原创,转载请注明出处 ]

代码1

Sub chcap()
  Application.Caption = "V.S.EXCEL_VBA"
End Sub

运行结果:
 更改Microsoft Excel主窗口标题栏中显示的名称(VBA) - V.S.林 - V.S.林 V.S.EXCEL

代码2

Sub chcap()
  Application.Caption = vbNullChar
End Sub

运行结果:
 更改Microsoft Excel主窗口标题栏中显示的名称(VBA) - V.S.林 - V.S.林 V.S.EXCEL

代码3

Sub chcap()
  Application.Caption = vbNullString
End Sub

运行结果:
 更改Microsoft Excel主窗口标题栏中显示的名称(VBA) - V.S.林 - V.S.林 V.S.EXCEL

[  V.S.林 原创,转载请注明出处 ]
 评论这张
转发至微博

2013年4月3日星期三