2014/3/20
中華電信寬頻降價 446萬戶受惠
作者: 翁毓嵐╱台北報導 | 中時電子報 – 2014年3月20日 上午5:56
•
中國時報【翁毓嵐╱台北報導】
寬頻上網月租費將降價!中華電信自4月1日起,調降ADSL及光世代寬頻電路月租費,依傳輸速率不同,月省金額從6到26元不等,下行傳輸率則可增加23.1K到4.4M,將有中華電446萬用戶受惠,1年受惠總額達9億4415萬元。遠傳大寬頻上網用戶因使用中華電的電路,將同步受惠。
依現行電信資費管制,固網業者需逐年調降費率,昨國家通訊傳播委員會(NCC),核定中華電提報今年ADSL及部分光世代(不含以FTTB及FTTH)電路月租調降資費,新費率自下月起生效,適用至明年3月底,屆時再依消費者物價指數年增率續行調整。
以中華電ADSL上網8M/640K為例,可由每月754元降至737元,月省17元;光世代上網100M/20M的月租,則可從1099元降到1073元,月省26元。
至於遠傳大寬頻用戶因使用中華電的電路,因此這波調降也將可讓遠傳用戶受惠。
目前中華電ADSL及光世代寬頻上網方案中,一般用戶適用此波調降的方案共有9種;其他已停止申租的上網方案,如光世代50M/20M、ADSL 768K/128K、2M/512K、3M/640K、6M/640K及12M/1M等方案,舊用戶仍可享9~24元不等的降價優惠,但已不開放新用戶申租。
NCC指出,考量物價變動指數後依公式計算,中華電的寬頻電路月租費調降幅度至少應達4.3849%;此回中華電降幅在4.41%至4.80%間。至於HiNet上網費率,將在5月時進行調整,預估幅度也會有4%以上。
NCC昨(19)日核定中華電信ADSL及光世代寬頻電路月租費調降案,降幅從4.41~4.8%,相當於每人每月調降6~26元,預估ADSL受惠用戶158萬、光世代受惠用戶288萬,合計446萬戶,並自4月1日開始實施。
NCC表示,這次中華電信寬頻電路費降價,全民一年受惠9.4415億元;其中,光世代100/20M電路費由現行589元降至563元共降了26元、以及50M/20M調降24元最多;ADSL部份,則以企業客戶使用的512/512M、以及4M/1M各降19元最大。
除電路月租費,中華電正將寬頻上網月租費調降案送請NCC審議中,NCC表示,預估降幅與電路費相當,因此,合計電路加上上網月租每人每月降價12~52元。
中華電信今年將因為ADSL/光世代降價而減少近19億元營收、但同時回饋到消費者身上。中華電信寬頻電路(xDSL)月租費自去年4月1日以來2年合計降幅達7.58~19.57%。
遠傳昨日宣布遠傳大寬頻同步跟進降價,並提供上網月租100%折抵通話。NCC表示,台灣大、亞太電信、ISP、以及有線電視業者也都將跟進降價,由於中華電信在國內寬頻上網市占最高,其它業者為了競爭,去年降幅比中華電信來得高。
由於中華電信100M/20M目前牌告價1,099元,調降電路費及上網費50多元後,牌告價可能仍落在1,000元以上,但促銷價目前已經降至999元,同樣的,60M/15M牌告價格現行979元,降後仍高於促銷價929元,因此,預期隨著這次牌告價格調降,光世代及ADSL促銷價格可能進一步調整。
中華電信4月1日起再度調降寬頻電路費,每月最多省26元,預估將有466萬人受惠,一年共讓消費者省下9.44億元。中華電信近期也研擬HiNet上網費降價計畫,預料台灣大及遠傳也可望跟進降價。
國家通訊傳播委員會(NCC)昨(19)日宣布核定中華電信本次調降寬頻電路費計畫,包含電路費及上網服務費都將調降,降幅介於4.41%至4.80%。
總計中華電信此波降價,ADSL受惠用戶數約158萬戶,光世代受惠用戶數約288萬戶,累計總受惠用戶數約446萬戶,全體用戶一年約受惠9.44億元。
網路大廠Google加碼穿戴式領域布局,正式發表專屬於穿戴裝置的新作業系統平台「Android Wear」,首波主打智慧表應用,台廠宏達電、華碩、聯發科都是Google點名的合作開發商,今年都有望在新領域延伸Android生態系勢力,帶旺供應鏈。
市場認為,Google為穿戴式裝置打造專屬作業系統,一方面宣示看好其發展、減少開發成本,有助提高開發商意願,加速穿戴裝置市場規模成長;同時Google也能在三星、蘋果尚未在穿戴領域站穩位置前發聲,再次鞏固Android生態系在新領域的勢力範圍。
2014/3/17
有這種東西?小米產品自動搶購程式excel vba版
不負責一定搶到或是衍生其他問題!
大家可以試用看看
其中結帳選單部分無法出現區域選單程式處理辦法也是自動點兩次結算
因為onchange一直無法觸發,不知為何原因, 可能是因為沒有內定值的關係, 還在研究
所有程式碼皆為vba撰寫, 所有程式碼都看得到, 沒有甚麼帳戶資料流出的可能
希望不要當成斂財工具
使用方法
1. 解開附件壓縮檔
2. 將1234.htm及1234_files資料夾放在任一磁碟的跟目錄如C:\
3. excel打開1.xls, 並填寫表單-->按載入網頁-->自動執行
PS.登錄檔位置有兩項, 一項是C:\1234.htm, 另一個是file:///C:/1234.htm
如1234.htm放在D槽要把C改成D(大寫, 不可小寫)
程式會自動登錄完後每"搜索延遲"時間內掃一次是否可以購買,可以就會自動一直買到"訂單數量"滿為止
程式碼如下
'宣告
Option Explicit
Public IE As Object
Public I As Long
Public j As Long
Public a As Long
Public objElement As Object
Public objCollection As Object
Public sh As Object, oWin As Object
Public wss As Object
Public objSELECTelement As Object
Public ads As String
Public det As Integer
Public ordno As Integer
Private Sub CommandButton1_Click()
'載入登陸網頁
Set wss = CreateObject("WScript.Shell")
Set sh = CreateObject("Shell.Application")
wss.exec "%ProgramFiles%/Internet Explorer/iexplore.exe -nomerge " + Cells(11, 2)
delay (1)
End Sub
Private Sub CommandButton2_Click()
'找尋網頁
For Each oWin In sh.Windows
If TypeName(oWin.document) = "HTMLDocument" And oWin.LocationUrl = Cells(11, 3) Then
Set IE = oWin
Exit For
Else
a = 1
End If
Next
'登陸
IE.document.all("username").Value = Cells(1, 2)
IE.document.all("userPwd").Value = Cells(2, 2)
IE.document.all("loginForm").Click
Dim oHTML_Element As Object
Dim htmlbutton As Object
For Each oHTML_Element In IE.document.getElementsByTagName("input")
If oHTML_Element.Type = "submit" Then oHTML_Element.Click: Exit For
Next
Checkieready
delay (0.5)
IE.navigate "http://www.xiaomi.tw/user/order"
Checkieready
'購買網址
ads = "http://www.xiaomi.tw/cart/add/" + CStr(Cells(4, 2)) + "-0-2"
det = CInt(Cells(10, 2))
ordno = CInt(Cells(3, 2))
'購買迴圈
For j = 1 To ordno
On Error GoTo p3
Do
Buyone
With IE.document.all("Cart_" + CStr(Cells(4, 2)) + "_0_buy").Value
End With
If IE.document.all("Cart_" + CStr(Cells(4, 2)) + "_0_buy").Value = "2" Then Exit Do
p3:
delay (det)
IE.navigate "http://www.xiaomi.tw/cart"
Checkieready
Resume p4
p4:
Loop
On Error GoTo p5
'結帳
Do
IE.document.all("mi_checkout").Click
Checkieready
Exit Do
p5:
IE.navigate "http://www.xiaomi.tw/cart"
Checkieready
Resume p6
p6:
Loop
IE.document.all("UserAddressName").Value = Cells(5, 2)
IE.document.all("UserAddressCity").Value = Cells(9, 2)
IE.document.all("checkoutFormBtn").Click
Checkieready
Set objSELECTelement = IE.document.all("UserAddressDistrict")
objSELECTelement.Value = Cells(9, 4)
objSELECTelement.FireEvent ("onchange")
Checkieready
IE.document.all("UserAddressDetail").Value = Cells(7, 2)
IE.document.all("zipcode").Value = Cells(8, 2)
IE.document.all("UserAddressTel").Value = Cells(6, 2)
IE.document.all("checkoutFormBtn").Click
Checkieready
Cells(12, 2) = j
Next j
End Sub
Sub Checkieready()
'busy check
Do While IE.busy
Application.Wait DateAdd("s", 1, Now)
Loop
End Sub
Sub delay(x)
'timer
Dim t As Long
t = Timer
Do Until Timer - t > x
If t > Timer Then t = t - 86400
DoEvents
Loop
End Sub
Sub Buyone()
'購買
IE.navigate ads
Checkieready
End Sub
2014/3/17 3:46更新程式bug, 請重新下載
2014/3/14
中華電信各類科甄選評析 不定期招募
|
|