福茂唱片熱血演唱會

昨天到美麗島感覺就像

 

福茂唱片熱血演唱會

朋友同學相偕來打卡

 

不好意思，我也有去熱血10min...[拍照]

有這種東西？小米產品自動搶購程式excel vba版

2014-03-17 13:02  #1

• 回文
• 私訊
• 連結
• 載圖
• 引言
• 收藏
• 評分
• 回報
• 推薦

這程式是因為都搶不到寫來用的,
不負責一定搶到或是衍生其他問題!
大家可以試用看看
其中結帳選單部分無法出現區域選單程式處理辦法也是自動點兩次結算
因為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, 請重新下載

中華電信各類科甄選評析 不定期招募

(一)從業人員(基層專員)甄選：以下為筆試加面試，以招募基層人員為主。 甄選類別 學歷條件 甄選方式 工作內容 專 業 職 (三) 專 員 工務類 碩士畢業（電子、電機、電信、資訊等相關系所） 第一試(筆試) 1.普通科目：英文 2.專業科目：通信系統、電子學   第二試：口試及論文審查 下一代網路規劃設計與建設 資訊類 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機概論、程式設計概論及資料庫管理 第二試：口試及論文審查 網際網路應用服務之系統開發 第一試(筆試) 1.普通科目：英文 2.專業科目：網路與資訊安全、程式設計概論及資料庫管理 第二試：口試及論文審查 資安服務系統規劃與設計 專 業 職 (四) 第 一 類 專 員 工務類 大學畢業 （電子、電機、電信、資訊等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：通信系統、電子學  第二試：口試 IP網路維運及管理 大學畢業 （電子、電機、電信、資訊等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：行動通信網路系統、電腦通信網路  第二試：口試 行動網路維運及管理 大學畢業 （電機、自動控制、能源、冷凍空調工程等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：冷凍空調工程、電機工程  第二試：口試 電力空調節能系統設計維運管理 大學畢業 （電子、電機、電信、機械、資訊等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機概論、電子學  第二試：口試 電信網路維運；雲端業務規劃建置與維運管理；企業網路加值服務與建設維運 資 訊 類 大學畢業 （電子、電機、電信、資訊等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機概論、程式設計概論及資料庫管理 第二試：口試 資訊系統開發及維運 大學畢業 （電子、電機、電信、資訊等相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：網路與資訊安全、程式設計概論及資料庫管理 第二試：口試 資安監控與管理 業務類 大學畢業 （不限科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機概論、行銷學 第二試：口試 資通訊產品銷售規劃與行銷業務 大學畢業 （不限科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：企業管理、行銷學 第二試：口試 通路管理、企業客戶服務、業務行銷 專 業 職 (四) 第 二 類 專 員 工務類 專科畢業 （理工相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：冷凍空調工程概要、電機工程概要  第二試：口試 電信電力空調維運管理 工務類 專科畢業 （理工相關科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機概要、電子學概要  第二試：口試 電信網路維運 業務類 專科畢業 （不限科系） 第一試(筆試) 1.普通科目：英文 2.專業科目：企業管理概要、行銷學概要 第二試：口試 企業客戶服務、櫃檯受理、業務行銷 ※正確甄試類別以正式公告為準。 　　(二)客戶網路人員甄選：以下多為宏華人力取代，少有正式編制。 甄選類別 學歷條件 甄選方式 工作內容 裝修組 高中職畢業 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機大意、基本電學 第二試：口試及體能測驗 1. 單人至客戶家從事電話、網路及客戶端設備裝機與查修等外勤工作 2. 需具備小客車執照、上下電桿之良好體能、纜線辨色能力及熱忱的服務態度 纜線組 第一試(筆試) 1.普通科目：英文 2.專業科目：計算機大意、基本電學 第二試：口試及體能測驗 1. 從事電桿立設、人孔/手孔及管道施作、光/電纜佈放、纜線接續與測試等外勤工作 2. 需具備上下電桿及電信人孔作業之良好體能、纜線辨色能力 ※正確甄試類別以正式公告為準。 　　(三)門市人員甄選：以下多為宏華人力取代，少有正式編制。儲備幹部一職甚少招募，新一代門市支店長幾乎都由中華電信本身正職員擔任。 甄選類別 學經歷條件 甄選方式 儲備幹部 1.專科以上畢業 2.具通信業2年以上及門市管理1年以上工作經驗 3.熟悉電腦操作 4.主動積極具業務拓展能力 5.具服務熱忱、抗壓性及企圖心，願意接受挑戰 6.國、台語口說流利，略通英語 第一階段：資格審查，合格者再通知參加第二階段(口試) 第二階段：口試(日期、地點將以電子郵件E-mail通知) 銷售人員 1.專科以上畢業 2.無經驗可，具通訊門市/3C賣場銷售經驗者佳 3.熟悉電腦操作 4.具服務熱忱、親和力及耐心 5.主動積極，擅長行銷及服務 6.國、台語口說流利，會英文者尤佳 ※正確甄試類別以正式公告為準。

 

 

關於宏華人力

宏華人力之所以被罵翻天，就是掛著中華電信母公司的名號來徵才，

但是的的確確他是中華電信百分之百持股的子公司，他沒有騙人。

而且他的薪資也是22k，在簡章中寫得很清楚，沒有騙人。

 

一間沒有騙人的公司與招考簡章為甚麼會罵翻天呢？

其一在於應徵者過多的遐想，其二是裡面資深員工給了新進人員太大的想像空間，

人，都是喜歡聽好聽話，所以，人也喜歡說好聽話，總不能資深員工自己就講了公司的壞話，讓新進人員大量離職吧！

 

但我覺得，面對新進人員，還是中肯一點比較好，目前沒有官方說稱表現良好可以轉正職中華電信的。

這種說帖，都是非官方的，口耳相傳，沒有付諸於書面文字的。

 

這跟中華電信的光世代一樣，是假光纖，現在光纖已經變成VDSL的俗稱了，內行的都知道DSL非光纖，但是聽到光纖都知道講VDSL。

也跟mpro是中華電信的唯一3G上網資費一樣，其實中華電信還有一個比較便宜的3G行動網際網路方案，這就是中華電信厲害的地方。

宏華人力可以轉正中華電信，這個都不是官方說法，像VDSL是光纖一樣，非官方說法，是某些出版社、補習班、函授業者的說帖。
所以，宏華人力可以轉正中華電信，你就當成光世代一樣是光纖，是俗稱！

再次講到，宏華人力的薪水待遇，這樣講好了，如果宏華的待遇跟母公司的新進人員一樣，那麼想必招考也是一樣的困難。
應徵工作也是講策略的，如果我們很會考試，那就去考正式的中華電信員工，或者面試更好的工作。

如果考不上，那麼趁現在宏華容易進去的時候進去有何不好呢？而且是中華電信100%持股，所以待遇都會遵守勞基法規定的，
而且宏華也有了工會，在中華電信母公司工會的支持下，到時候若大批大幅改善福利，算是賺到，如果沒有，簡章本來就這樣寫沒有錯吧！

中華電信3/5 開賣小米手機3

中華電信3/5 開賣小米手機3

★搭配中華電信輕鬆FUN案，月繳 $1,143起，小米機3只要2,490元！再送3門熱線通話免費+國內3G上網無限瀏覽+中華電信Wi-Fi無線上網免費+400則國內簡訊 

網址：http://goo.gl/6HND3h
除了輕鬆FUN案，另可搭配103年學生優惠專案(http://goo.gl/HXa4IP )、3G基本購機方案(http://goo.gl/7PzHy3)。