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

Rabu, 04 Juni 2014

Re: [belajar-access] Ambil nilai IP statis

Saya coba di lap top saya, loading lama sekali. Terpaksa saya end task. Saya lihat di drive c. Belum ada file test.txt. Mungkin karena lap top saya XP Pro ya...

Terlepas dari itu, kalau sudah mendapatkan hasil sejatinya, tinggal kita spit saja. Kita arahkan data yang sesuai harapan.

Hariyanto (Surabaya)

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

Subject: Re: [belajar-access] Ambil nilai IP statis
To: belajar-access@yahoogroups.com
Date: Friday, 6 June, 2014, 12:28 AM

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)