ACCESS FEED: Re: [belajar-access] Ambil nilai IP statis

Kamis, 05 Juni 2014

Re: [belajar-access] Ambil nilai IP statis

Pak Hariyanto

Saya googling ( http://bytes.com/topic/access/answers/875159-output-html-file-text-file )
dan baru menemukan code dibawah ini :

    Option Compare Database
    Option Explicit

    Private ieBrowser As InternetExplorer

   Sub GetIp()
       Dim strDocHTML As String, dteStartTime As Date
       'Create a browser object
       Set ieBrowser = CreateObject("internetexplorer.application")
       ieBrowser.Navigate "http://www.myipaddress.com/show-my-ip-address/"

       'Wait for the page to load. Exit Form_load sub, doing nothing, if loading the page takes too long
       dteStartTime = Now
       Do While ieBrowser.ReadyState <> READYSTATE_COMPLETE
          If DateDiff("s", dteStartTime, Now) > 240 Then Exit Sub
       Loop

       'Get the page contents
       strDocHTML = ieBrowser.Document.documentElement.innerHTML

       'And save it
       Open "c:\Test.txt" For Output As 1
       Print #1, strDocHTML
       Close #1

       'destroy the browser object
       Set ieBrowser = Nothing
    End Sub

saya coba dan sudah terbentuk 1 file c:\Test.txt
sudah muncul IP (dinamik) saya,

Pertanyaannya:
Bagaimana supaya dalam file Test.txt itu hanya muncul nilai IP nya saja ( xxx.xxx.xxx.xxx ),
dan code HTML yg lainnya dihapus

Terima kasih sebelumnya
Bambang Mahfudin

----- Original Message -----

From: hari yanto har_i20002000@yahoo.com [belajar-access]

To: belajar-access@yahoogroups.com

Sent: Wednesday, June 04, 2014 5:01 PM

Subject: Re: [belajar-access] Ambil nilai Kurs dari Web BI

Hm... Beberapa web sekarang mulai menerapkan metode konfirmasi Captha (img temporer gabungan huruf dan angka yang diproduksi oleh PHP memakai time -- atau menggabung dengan hal lain).

Ini karena ada user memakai mesin dalam mengakses alamat web dengan jumlah berkali. Dengan mesin, dalam 1 detik, user dapat meminta web bekerja lebih dari 100 kali. Contoh:

for i= 0 to 1000
'minta data dengan variable a & i
'bisa pula untuk mengirim matrikulasi password
'dan username
'bila respon ditolak, ke matrikulasi password selanjutnya
'bila sesuai berhenti
'pada web tertentu jumlah akses terhadap login dibatasi
'bila gagal 3 kali misalnya, IP langsung diblokir sementara
'sekitar 5 menit.
next i

Karena kita tergolong mesin, mengakses web memakai script VBA. Tidak membuka web langsung. Dan, karena sasaran web meminta konfirmasi Captha (mesin tidak dikehendaki untuk akses). Maka, kita tidak bisa mendapatkan IP melalui metode grabbing ini.

Semoga bisa membantu dan memberi semangat.

Hariyanto (Surabaya)

--------------------------------------------
On Thu, 5/6/14, 'Bambang Mahfudin' bambalid@gmail.com [belajar-access] <belajar-access@yahoogroups.com> wrote:

Subject: Re: [belajar-access] Ambil nilai Kurs dari Web BI
To: belajar-access@yahoogroups.com
Date: Thursday, 5 June, 2014, 7:15 PM

Pak
Hariyanto,

Mohon dibantu, bagaimana
mengambil nilai IP
kita ( dinamis ) pad web : http://www.myipaddress.com/show-my-ip-address/
Kemudian disimpan dalam TXT
(notepad) pada folder
misalnya C:\IP

Terima kasih
Bambang
Mahfudin

   ----- Original Message -----

   From:
   hari yanto
   har_i20002000@yahoo.com [belajar-access]
   To: belajar-access@yahoogroups..com


   Sent: Wednesday, June
04, 2014 6:54
   AM
   Subject: Re:
[belajar-access] Ambil nilai
   Kurs dari Web BI [1 Attachment]



   Nurhasim Hasan...,

Dalam kondisi tertentu, kadang data yang
   ditampilkan oleh web base tidak diberi id. Sehingga
pegangan id dari
   getElementById, tidak dapat digunakan. Lebih-lebih bila
id-nya bukan unik. Ini
   akan menyebabkan data yang kita ambil terkadang, tidak
sesuai
   harapan.

Jalan keluarnya,
harus dicara sesuai yang unik dari data yang
   akan kita ambil. Kalau toh terpaksa, kita buat array.
Sehingga bisa sampai
   pada titik data yang kita inginkan. Lalu, kita array lagi
berdasarkan baris
   (di PHP penandanya berupa <tr>) dan kolom
(<td>). Hasil array itu,
   lantas kita insertkan ke tabel Ms Access.

Beruntungya, Tabel data kurs
   di BI ada id-nya dan unik. Sehingga skenario sebagaimana
konsep awal Sampeyan
   bisa terlaksana.

Terlampir adalah revisi untuk mengambil kurs
BI.
   Semoga bisa membantu dan memberi semangat.

Hariyanto
   (Surabaya)

--------------------------------------------
On Wed,
   4/6/14, 'Nurhasim Hasan' hasimnurhsm@yahoo.com
[belajar-access]
   <belajar-access@yahoogroups.com> wrote:

Subject: [belajar-access]
   Ambil nilai Kurs dari Web BI [1 Attachment]
To:
   belajar-access@yahoogroups.com
Date:
Wednesday, 4 June, 2014, 5:11
   PM

[Attachment(s) from
'Nurhasim
Hasan'
hasimnurhsm@yahoo.com
   [belajar-access] included
below]

Selamat Sore
Accesor
    Mohon bantuannya mengambil
nilai kurs
dari website BI langsung ke
   database access, saya
mencoba code vba
yang saya dapat dari web

http://stackoverflow.com/questions/12989687/fetch-website-data-into-excel-using-vba-excel-macro
dan
   sudah saya terapkan di Access dengan sedikit ada
perubahan penempatan
   ditable, Alhamdulillah berjalan, tapi
disaat saya ganti link source web
   dengan website bi selalu
error, terus
terang saya kurang faham struktur
   web. Berikut saya lampirkan file
mdbnya
Atas bantuannya saya
   ucapkan
banyak terimakasih
Salam Nurhasim Hasan



Attachment(s)
from 'Nurhasim Hasan'

   hasimnurhsm@yahoo.com
[belajar-access] |
View
attachments on the web


1 of 1 File(s)

Import Data
   from
Web.mdb