討論群組

小惡魔市集悅遊日本活動報導

我要回覆

小米產品自動搶購程式excel vba版(已關閉)

xbobi

1分

171樓

xbobi

個人積分：1分

文章編號：49174980

感謝S大提供的程式
早上7點就在回覆網友問題

區碼問題 S大在14樓已經說得很清楚了
連這都無法搞定建議別用了.....

凱旋星

0分

172樓

凱旋星

個人積分：0分

文章編號：49175595

請問新竹市還有在分區碼嗎？

我用之前提供的網頁查都出現空白

東區，北區的區碼？

謝謝！

jacktai1009

6分

173樓

jacktai1009

個人積分：6分

文章編號：49175729

我照你的方式做了，可是區的代碼還是出不來

supfws wrote:
城市碼及區碼獲取方式...(恕刪)

jacktai1009

6分

174樓

jacktai1009

個人積分：6分

文章編號：49175852

抱歉…
記得要按"提交訂單"再顯示原始碼才會出現…

已解決！！

supfws

140分

樓主

supfws

個人積分：140分

文章編號：49175906

請照14樓做法做一次, 並不是在填資料網頁直接按右鍵檢視原始檔

而是選好城市後其他都不要填寫, 直接按"提交訂單", 畫面變如下(許多欄位寫不能為空, 再隨便地方按滑鼠右鍵選"檢視原始檔"

以下區碼問題不再回覆

jacktai1009 wrote:
我照你的方式做了，可...(恕刪)

juarewei

28分

176樓

juarewei

個人積分：28分

文章編號：49176072

S大,請教一下,小弟把程式碼改成用chrome執行,他可以正常呼叫出chrome瀏覽器

但是開啟瀏覽器後,點選自動執行,就出現錯誤了!

以下是小弟拿你的程式,自己改成chrome執行看看,因為小弟的電腦使用IE跑起來好慢

不知是否改成chrome來執行,還需要改別的地方? 紅色的部分是小弟把路徑換成chrome,綠色就是錯誤的地方!

Private Sub CommandButton1_Click()
'載入登陸網頁
Set wss = CreateObject("WScript.Shell")
Set sh = CreateObject("Shell.Application")
wss.exec "%ProgramFiles%/Google/Chrome/Application/chrome.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