[分享]抛砖引玉-我家网络电视的历史 ![]()
| |
2013年4月14日星期日
[分享]抛砖引玉-我家网络电视的历史[Chinese In North America(北美华人e网)]
实用电脑:这个才是目前最便宜的手机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
IE (Internet Explorer) Automation using Excel VBA
<!-- 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>
- 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="" />
- Text field
- Set searching text and click button
- Wait while IE loading
- Clean up objects
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
Excel and IE automation - the WSH way
- 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.
- automate Internet Explorer browser from Excel VBA macro.
- automate both IE and Excel from an external process using OLE automation.

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的乘法口诀,开眼界了 (转载)(转寄)
标 题: 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)
