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

Benar... Ini terjadi karena nilai Captha yang dikirim kosong. Sehingga dikembalikan tanpa hasil sesuai harapan. Bila saja, mesin bisa membaca huruf pada gambar, tentu lebih enak.

--------------------------------------------
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, 5:39 AM

Pak Har,

Setelah saya cocokkan IP
yg saya dapatkan
dari http://www.myipaddress.com/show-my-ip-address/ dengan

IP Router ternyata : BERBEDA !!!
baik yg ditampilkan
langsung diwebnya atau hasil
grabing dalan format txt.
Saya tidak tahu kenapa bisa
begitu
????

Sedangkan IP yg saya
dapatkan dari http://whatismyipaddress.com/
SAMA dengan IP Router.
Tetapi hasil grabing
txt-nya, saya tidak menemukan nomor IP tsb.

Jadi apa ini yg P Har
maksud dg metode
konfirmasi Captha?
Di web saya lihat
langsung IP tsb, tapi
ketika di Grab / save as txt, IP tsb
lenyap......

Sedih Mode:ON

Saya juga pake XP, saya
coba di jendela
immediate

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 9:31
PM
Subject: 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)

#yiv1278934758 #yiv1278934758 --
#yiv1278934758ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv1278934758 #yiv1278934758ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv1278934758 #yiv1278934758ygrp-mkp #yiv1278934758hd {
color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv1278934758 #yiv1278934758ygrp-mkp #yiv1278934758ads {
margin-bottom:10px;}

#yiv1278934758 #yiv1278934758ygrp-mkp .yiv1278934758ad {
padding:0 0;}

#yiv1278934758 #yiv1278934758ygrp-mkp .yiv1278934758ad p {
margin:0;}

#yiv1278934758 #yiv1278934758ygrp-mkp .yiv1278934758ad a {
color:#0000ff;text-decoration:none;}
#yiv1278934758 #yiv1278934758ygrp-sponsor
#yiv1278934758ygrp-lc {
font-family:Arial;}

#yiv1278934758 #yiv1278934758ygrp-sponsor
#yiv1278934758ygrp-lc #yiv1278934758hd {
margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv1278934758 #yiv1278934758ygrp-sponsor
#yiv1278934758ygrp-lc .yiv1278934758ad {
margin-bottom:10px;padding:0 0;}

#yiv1278934758 #yiv1278934758actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv1278934758 #yiv1278934758activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv1278934758 #yiv1278934758activity span {
font-weight:700;}

#yiv1278934758 #yiv1278934758activity span:first-child {
text-transform:uppercase;}

#yiv1278934758 #yiv1278934758activity span a {
color:#5085b6;text-decoration:none;}

#yiv1278934758 #yiv1278934758activity span span {
color:#ff7900;}

#yiv1278934758 #yiv1278934758activity span
.yiv1278934758underline {
text-decoration:underline;}

#yiv1278934758 .yiv1278934758attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv1278934758 .yiv1278934758attach div a {
text-decoration:none;}

#yiv1278934758 .yiv1278934758attach img {
border:none;padding-right:5px;}

#yiv1278934758 .yiv1278934758attach label {
display:block;margin-bottom:5px;}

#yiv1278934758 .yiv1278934758attach label a {
text-decoration:none;}

#yiv1278934758 blockquote {
margin:0 0 0 4px;}

#yiv1278934758 .yiv1278934758bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv1278934758 .yiv1278934758bold a {
text-decoration:none;}

#yiv1278934758 dd.yiv1278934758last p a {
font-family:Verdana;font-weight:700;}

#yiv1278934758 dd.yiv1278934758last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv1278934758 dd.yiv1278934758last p
span.yiv1278934758yshortcuts {
margin-right:0;}

#yiv1278934758 div.yiv1278934758attach-table div div a {
text-decoration:none;}

#yiv1278934758 div.yiv1278934758attach-table {
width:400px;}

#yiv1278934758 div.yiv1278934758file-title a, #yiv1278934758
div.yiv1278934758file-title a:active, #yiv1278934758
div.yiv1278934758file-title a:hover, #yiv1278934758
div.yiv1278934758file-title a:visited {
text-decoration:none;}

#yiv1278934758 div.yiv1278934758photo-title a,
#yiv1278934758 div.yiv1278934758photo-title a:active,
#yiv1278934758 div.yiv1278934758photo-title a:hover,
#yiv1278934758 div.yiv1278934758photo-title a:visited {
text-decoration:none;}

#yiv1278934758 div#yiv1278934758ygrp-mlmsg
#yiv1278934758ygrp-msg p a span.yiv1278934758yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv1278934758 .yiv1278934758green {
color:#628c2a;}

#yiv1278934758 .yiv1278934758MsoNormal {
margin:0 0 0 0;}

#yiv1278934758 o {
font-size:0;}

#yiv1278934758 #yiv1278934758photos div {
float:left;width:72px;}

#yiv1278934758 #yiv1278934758photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv1278934758 #yiv1278934758photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv1278934758 #yiv1278934758reco-category {
font-size:77%;}

#yiv1278934758 #yiv1278934758reco-desc {

font-size:77%;}

#yiv1278934758 .yiv1278934758replbq {
margin:4px;}

#yiv1278934758 #yiv1278934758ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg select,
#yiv1278934758 input, #yiv1278934758 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg pre, #yiv1278934758
code {
font:115% monospace;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg * {
line-height:1.22em;}

#yiv1278934758 #yiv1278934758ygrp-mlmsg #yiv1278934758logo {
padding-bottom:10px;}

#yiv1278934758 #yiv1278934758ygrp-msg p a {
font-family:Verdana;}

#yiv1278934758 #yiv1278934758ygrp-msg
p#yiv1278934758attach-count span {
color:#1E66AE;font-weight:700;}

#yiv1278934758 #yiv1278934758ygrp-reco
#yiv1278934758reco-head {
color:#ff7900;font-weight:700;}

#yiv1278934758 #yiv1278934758ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv1278934758 #yiv1278934758ygrp-sponsor #yiv1278934758ov
li a {
font-size:130%;text-decoration:none;}

#yiv1278934758 #yiv1278934758ygrp-sponsor #yiv1278934758ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv1278934758 #yiv1278934758ygrp-sponsor #yiv1278934758ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv1278934758 #yiv1278934758ygrp-text {
font-family:Georgia;}

#yiv1278934758 #yiv1278934758ygrp-text p {
margin:0 0 1em 0;}

#yiv1278934758 #yiv1278934758ygrp-text tt {
font-size:120%;}

#yiv1278934758 #yiv1278934758ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv1278934758