上一篇主題 :: 下一篇主題 |
發表人 |
內容 |
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 1 樓
|
發表於: 星期三 十月 24, 2007 9:08 am 文章主題: 運用程式來查詢 中華黃頁地圖 |
|
|
在紅狐FOX_CAT 提問,
Chris Lee 出手相助,
在此提出完整程式碼給有需要的人參考
代碼: |
oIE = createobject('internetexplorer.application')
oIE.Navigate('http://202.39.225.126/hemap/Qaddr/map_addr.asp')
oIE.Visible=.t.
Do While oIE.Busy or oIE.ReadyState <> 4
Enddo
oIE.Document.FORMS.QueryForm.selCity.Value='台中縣'
oIE.Document.FORMS.QueryForm.selCity.FireEvent('onchange')
oIE.Document.FORMS.QueryForm.selTown.Value='大里市'
oIE.Document.FORMS.QueryForm.txtRoad.value='德芳南路'
oIE.Document.FORMS.QueryForm.txtNo.Value='385'
oIE.Document.FORMS.QueryForm.btnQuery.click
|
到目前為止查詢地圖的程式總共有:
1.PapaGo http://vfp.sunyear.com.tw/viewtopic.php?t=3080
2.UrMap http://vfp.sunyear.com.tw/viewtopic.php?t=3096
3.中華黃頁 http://vfp.sunyear.com.tw/viewtopic.php?t=4170 _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 2 樓
|
發表於: 星期五 十月 26, 2007 9:44 am 文章主題: |
|
|
oIE.Document.FORMS.QueryForm.txtSEC.value = M->ADD_SEC
oIE.Document.FORMS.QueryForm.txtLANE.value = M->ADD_LAN
oIE.Document.FORMS.QueryForm.txtALLEY.value = M->ADD_ALY |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 3 樓
|
發表於: 星期五 十月 26, 2007 9:51 am 文章主題: |
|
|
SORRY ENTER 鍵按得太快了
請問 Garfield 先進
oIE.Document.FORMS.QueryForm. <<<<< txtSEC>>>>.value = M->ADD_SEC ===>段
正確的名稱 可否告知 後學測了好久 SEC , SECTION ...... 都不行 只好求救 謝謝
oIE.Document.FORMS.QueryForm.txtLANE.value = M->ADD_LAN ==> 巷
oIE.Document.FORMS.QueryForm.txtALLEY.value = M->ADD_ALY ===>弄 |
|
回頂端 |
|
|
garfield Site Admin
註冊時間: 2003-01-30 文章: 2158
第 4 樓
|
發表於: 星期五 十月 26, 2007 12:19 pm 文章主題: |
|
|
其實你只要用IE功能表裡的"檢視"-->"原始檔"
或 編輯網頁工具 , 皆可看到大部份物件的名稱.
以下是我亂查的地址,
你試看看
oIE.Document.FORMS.QueryForm.selCity.Value='台中縣'
oIE.Document.FORMS.QueryForm.selCity.FireEvent('onchange')
oIE.Document.FORMS.QueryForm.selTown.Value='大里市'
oIE.Document.FORMS.QueryForm.txtRoad.value='德芳路'
oIE.Document.FORMS.QueryForm.selSection.value='二'
oIE.Document.FORMS.QueryForm.txtLANE.value='137'
oIE.Document.FORMS.QueryForm.txtALLEY.value='2'
oIE.Document.FORMS.QueryForm.txtNo.Value='18'
oIE.Document.FORMS.QueryForm.btnQuery.click _________________ 利用>>搜尋<<的功能會比問的還要快得到答案. |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 5 樓
|
發表於: 星期五 十月 26, 2007 1:54 pm 文章主題: |
|
|
謝謝 Garfield 前輩
我再式式 oIE.Document.FORMS.QueryForm.<<< selSection >>>.value='二' |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 6 樓
|
發表於: 星期五 十月 26, 2007 2:30 pm 文章主題: |
|
|
再次謝謝 Garfield 前輩
測試相當成功 oIE.Document.FORMS.QueryForm.<<< sel >>>Section.value='二'
就是沒留意到 sel 這是個 選項
謝謝 |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 7 樓
|
發表於: 星期五 十月 26, 2007 4:53 pm 文章主題: |
|
|
其實你只要用IE功能表裡的"檢視"-->"原始檔"
或 編輯網頁工具 , 皆可看到大部份物件的名稱.
真是如獲至寶 經 Garfield 前輩 一點 讓 後學 功力增進不少
真是感謝
各位請不要笑我太菜了 尚在用功的學習中 ( 現在 "菜" 很貴的) |
|
回頂端 |
|
|
Patrick Wu
註冊時間: 2007-01-03 文章: 223 來自: 台北市
第 8 樓
|
發表於: 星期五 一月 11, 2008 1:08 pm 文章主題: |
|
|
中華黃頁 網頁 已更新
由 VFP 程式直接 呼叫 須作修正 :
oIE = CREATEOBJECT('internetexplorer.application')
oIE.NAVIGATE('http://hipage.hinet.net/map.asp')
oIE.VISIBLE=.T.
DO WHILE oIE.BUSY OR oIE.READYSTATE <> 4
ENDDO
oIE.DOCUMENT.FORMS.SEARCH_MAP.ADDR.VALUE = STRCONV(TRIM(PAX_CALL.PAX_ADD) , 2 )
oIE.DOCUMENT.FORMS.SEARCH_MAP.SUBMIT.CLICK
提供給有須要的先進參考
(謝謝 Garfield 及 Chris Lee 李大師 的指導) |
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 9 樓
|
|
回頂端 |
|
|
goto-dream
註冊時間: 2004-05-11 文章: 909
第 10 樓
|
|
回頂端 |
|
|
DennisTsai
註冊時間: 2005-07-26 文章: 177
第 11 樓
|
發表於: 星期六 三月 20, 2010 6:00 am 文章主題: |
|
|
之前用upmap,現已改用google
呼叫都方便,功能差很多,例如街景... |
|
回頂端 |
|
|
|