サンプルコード008
リスティング広告1位チェック
※コードは開発当時の物で、既に機能しない可能性もあります。
指定したキーワードで検索してリスティング広告の1位をリストアップします。
---------------------------------------------------------------
●Yahoo と Google の両方を検索します。
●ユーザーエージェントを切り替えながら、
 パソコン、タブレット、スマートフォンでの結果を調査します。
●キーワードは5個設定できます。
●一定時間毎に調査を繰り返します。1、5、10、15、20、30、1時間間隔。
---------------------------------------------------------------
現状の機能では単に調査時間の短縮ですが、
応用として結果をパソコンへ保存、または、FTPアップロードして遠隔地から確認、
Excel出力等が考えられます。
---------------------------------------------------------------
このコードは、VB.NET形式で記述したプログラムを独自方式で圧縮化した物です。
「コンパクト化」「秘匿化」または「アクセスコード埋め込み」に有効です。
可逆圧縮となっており、展開時にはコメントも含めた記述時のソースコードになります。
部分的に圧縮する事も可能です。
'CYTOLOGY2 リスティング広告1位チェック 20130309
'---------------------------------------------------------------
'指定したキーワードで検索してリスティング広告の1位をリストアップします。
'
'●Yahoo と Google の両方を検索します。
'●ユーザーエージェントを切り替えながら、
' パソコン、タブレット、スマートフォンでの結果を調査します。
'●キーワードは5個設定できます。
'●一定時間毎に調査を繰り返します。1、5、10、15、20、30、1時間間隔。
'---------------------------------------------------------------
'現状の機能では単に調査時間の短縮ですが、
'応用として結果をパソコンへ保存、または、FTPアップロードして遠隔地から確認、
'Excel出力等が考えられます。
'---------------------------------------------------------------
'このコードは、VB.NET形式で記述したプログラムを独自方式で圧縮化した物です。
'「コンパクト化」「秘匿化」または「アクセスコード埋め込み」に有効です。
'可逆圧縮となっており、展開時にはコメントも含めた記述時のソースコードになります。
'部分的に圧縮する事も可能です。
'---------------------------------------------------------------
@C2ENC:o2A02pYH9NJbY7q07BlqG1xdKfE29WtYeDvVv8M33gF0xEvj6E458d4sIAAAAAAAEAO29
B2AcSZYlJi9tynt/SvVK1+B0oQiAYBMk2JBAEOzBiM3mkuwhaUcjKasqgcplVmVhZ6ZAzO2hvPfe
e++999577733ujuhTif33/8/XGZkAWz2zkrayZ46gKrIdz9+fB8/Ij4++X3efPn8y89/n730D/1j
/tDf+w/N/9Anf+if+oh++cc//+P/pN0/Hp/5Q/+AP/TZdzr5Q1+kezu793bu7Tz8jZOPtz/s+Y2T
3zg5WHyqum3S19hNmy/GT+vsql6e9D7/brGcVVfN+FlVLxr37RfFtKHaHrwh/2TRrLPyShYUU4B9
uZHUxTQ9KbOmSY9ns7MlPk3peVkXl1mbpyfVsmnT45cvXxx/cZoeU09tTT2nnHUfbRj9RyGQNptM
8OHbbPKkJvzyOvy+aWcCetb7/Fy/eLZeTsMvZ7Pn2SQvX1RXDLqqSqC24g+7oHjzZl22zhb9hDvh
vYP2+slPZuUHj7Z9sVHg3hmyzS/ymsa70wXa5Fk9nb8pFvT1cXwKxvxt+Npk3Vy/yCHLC/xB7z06
zPNsGTZHeVLVb55U9euXd6JhBFa//9v8+qqqZ9H4ZdqH7hZ1eWObps3qhlHtHHDdsE2+nN3QgqG0
NOoNbhbZaroB1HyhbPq2WfnfWpoIJ79eT9IX+hXWdfkUDzPfZ/jU4z+/Ab6Pvic+H3xx7r4BB/rf
Gp7auaNtfJaKNhy9bcO92za8h9uG+zc19dlZR3wDO58uZHB26PHsR37/51XWISYxx6h502QXtueb
YLxuq5UP41W+qC7zb2fLWUl4ejgTYtO3I7xFA2y+PPe/+/3xXTCpY4b+Rb5cC8Dbo0ND8PF5U1+7
P/A8LRbpbL1YXAeaE6w4/m5ueG/8tJquF/mydX+etHhljl+fXJ/NtjHyAr370Z3x2XKZ199uFHXr
4iRrp/M0f+epm9N303zVFpXqD/PEqO2+m9FrRcuD8r/E+IM6OQXDTPHNjUMU0vvCpdcG4Rk8h98T
prH3twnP94VJ7wzCM3juvShMfe/eJjzfFya9MwjP4dnvPWdqe/ub8dxfmPTOIDyD5/57wtT37m/C
83160juD8Jxx/YzNCrVqSQlvvQh4C8Lvw5NeZ52/h6cKYLADZ9y/h6cWxGAn7B28d+dpjcGJ6Dfx
ntDayTA08j7eE1qzikObzZHs27Zani2LtsjKnh0Bewwi5/VlVlLd93boca2K5Xm19hGf/K/8sb/n
n/JdfDQiX72sHvETMu09SM8rZ0m7Zk59K9i5jT65DreHU4dPvfXRn/Kf/Am/lBCJvgIdImcEHWWD
aDZomOmXL5fTfMsBuBl5psaTa2JIglU7CzxK5UP2OblrD8Ozc+4YnsazMrtI38zzZQrrKL1EBvIm
f9cy/HsjtGGcGrdgOVHtyJnIYKmJXU4viUWaW0wIxnRSrZctOWdL2w3OfLJc+wGMN2TCMC3C2AZt
31TpLgdNV+n2rmuM6wmLXn96+6d99wvTYvymMt1P+97F+fi7WhF+UZRl8Tqfbu0Sz3qNX6D9Oixs
YO985OBtIMqQc8NiSTH+zpAGre57eGcB8ajRRxqq4mE0HKPdv+usmrbXqzyhk8QexVrgi7TMl6ef
ffTRT2cffRRvlGezHBeLvM3SHTyrm7wlAOv2fPtgAEZbtGV+tCdUfnxXmsRebtrr+DhEqTJPf3dk
mwlZxbzenlZlma2a/FFqfjuMNDHvlu12U/yAmu3urh7FmpTFMt+e58XFvKVG4/v5ItZqCsZ9lP74
vXv3Yl8vsvqiWNL7OHt3HQ7+i7XHJYMDpT/aeXy4pIIua6Kw2bbBIc+jYxXCPEqbqixmHS468uNZ
lsVarrLZjJjrETeHdycLU+5KybKk2CorY81a4uTtrCwuaPBlftH+/7BnG2b5mxpMDIMfl0gz2vs3
zjbZTpQ6vj7b/LiLYEY/rpFdv9XINhvTZnubm93TZvc2N9vXZvubm93XZvcdmlmPEX+ob2c/Zx8s
/lHxuJ6XJTdIwPfwt+RnO5Gf5OPEmyHyopxXTWt+L2bmt9XVzylvxGb98h1B6fn47qAyn1SzH7jH
39ust+n7yGu/Tzavqj/kr/pD/os/5F/+vKouyvyP+wv/+F/xx/2xf/Q/84f8c11of8g/TvD+kP/p
T/lb/vi/Hw/52/+Qf+8P+Tv/4CePJ3UUl3NSMXd7Ak0R/yYOqZ0f/adP/+Dv/aF/Iv1/vkvWZ370
uJ0hPSHWq3WbwmqSRYPe+uijFPNIf+3hp9+LGf1m0wIfpZhIQhFdf+jpd3ry6/HxNLDf9w9t/9AL
soK/cDlpVoePm1W2lJe8bMJdRzRd9AX9aOOzQej8CVh/yn/11avnt8PtnsWN6hz6hXV1NX5LjJ3X
zVtKtZBXN/7pVRw9efNG1O4OUfQW6NH71WBH6N7zBvSn/R9/ZrHRvdu3GIMj7+0wCsjrYwPyknL+
QbY9zcjBGE+rxSBxb4PY6xD33q2G0iPuPW84f9yf8se/2Ejce7cYgyPu7TAKiOtjA+I2FDRU9fX2
23z5ttpI3tug9idk3b/VYdrk3fcGtJG0+7fA35d2htgEpL0ZE2l0IxYfQsX7t8K7R8X7N+LuGtHI
vHPi7bAJqdgzJtLoRiyGqd63gy37Glbuj1n8ac/+6L/gj/8TeaTRNnd0mrzMpH06waH6gEvfxQO9
irP4lkI71GznT/gLdt+Vz2/zCmzQ7vu9As2H93HvQFvce79XIBr77/cK+OD++73yKb3yHfu98oBe
efB+rxx8RNzNM5zzrOqvBOjg/QA9pFcevt8ru2CK3fflCmaL9+SLXTDG7ntyxi5YY/c9eWMXzLd7
ntyxC/bYfU/+2AWD7L4n6+yCRXbfk0h2kczZfU9+2AVD7L4nR+yBI/bekyP2wBF778kReHwq3pMj
9sARezhxxF0Rop6F8JWmmoU/+A94DHVrFjR+pdJvfuX/zSr3R8r1R8r1/zvKhcBB+P+GynUqUxVu
9P26AOd9XWLOQ95KP7Os/el/zZ/xR23tjdZdeHN7o/3R/TE99++P7n8Huv9ghP9ghP/6nfc6Fys9
6Xl/tEuA74/2hkZ790f3hkb37o/2h0b7BJ2+vP9ecFWbGGx3AJQgErj7O+8dSKTRAGK89t8PF+Vj
BbEdLN7r/Xt4/555/977vfzpzqA8kDj8Mf8aYG4GeJN7oAz0Nbj16xRI/qF/BMXvX9d/PHf/f5ey
v3/qd3qx9YeuKOd5Hg/9U+/cKpCmJVQbSVPy3YukvH6+QOus2h398UHHRVmeFS0xE4qdHRevz07T
g/dOYfrhYkmrx03H4k1Hf7x7mLHpixktP+OVw/Q0aHHfFG2Tfv5lermLT85oRfZl1s7RhPzi9E1H
8vxVujfeGh/febD3wPvsdn22f3/n0/de7v294PP743vU9uEhTMusuLTxPaNuJvIufXP03nPzvmT+
/f7Q9R/Hx1G+/eJrELqhRA69d4QuXmazw/Tk5VfplH/T+7//7u+/m5bF2zz9Ipvik9/7Dq/359/N
J79X0hH9f29/vP9puvV7ffvNF89d0vLzfPq2upP+JKWXifEJHm7HRTUpyvzuwyh7O5+mr7PzrC7u
PuB3D8b3eqQEcj9cUv7ef+gvoT8vKE3/7a/Ft7RINEjOebXM6aDy+88hXYdl69F1g/q4O7gOM1m3
baWKbTp/Szgg//T4rnwefcWiLUutrAOBcNQCT+ti1ca+2jpfLHessreuWFdcia7L0TLwHWW7Naum
HwUpj/FF3pHWOX59cn022/qYcP74zujjaVlM3348or/uRJe9TV8KLi8Xo7Rh5aMU38R7Ls5TtBvz
K9Tf8HJp82Vex1vXebuul2ns6S3bEf2blU0eRfGX0LtNntpe2zabz6nOzR2HtlsfV8uP00+8sW3o
azPY7zlQ308/Y2C3XhCMfWanoMnO8/aabGi9Rf8fGtyqzKb5cVmizejjxx+PPvHFZXv4cXQ43hZd
ad0x3JpdSd/ehjgWha+j/N2K2B+yPkqr+mKUzvLm6pmyb4ybVVm0W/TanfFPV8Vyi999b2yI2bfi
PQ5Ki1vS/PjOuFgSc0KF0exHkzL4svcqa9Mox6uHxnLl1+6WX/taXZoVxq/Rrffq1+oaH4hfo1t9
7Wt1aZb8vka33qtfq2ss532NbvW1r9WlWYX7Gt1Hr3Htrrds9jWH1he+VphmtexrhOu9+rWHxvLY
1+6WX/taXhr8H9fo13/3a3WumYiv0bV782t1bMPKr9G1/+7XH6xB0tfoV1/7ml22kH/VJb/2Nbts
Vl+rS37ta3QpPnKny4//9N/3T/gr/pC/9Q/5b/HQv/9P+tf+9L/jT/6z/pB/7k/9j/7M/A/5x//E
P+rP/PP/kP/pj2/+kL/kD/n3/pC/8w9+8of8F3/If/ud/O1/yN9ILf+FP+Ef+uObP/QXU2D5p/46
/9Mf/RfSp9zi8aQ++jiC0Cfpx3/iyZ/0t/46f+cf8l//if/Nd/9d/id//J/Hf/yZ//yfUv46/9Of
8vfRq/8YnPwA2D/2R/896NBf8vFtvZBfcse47bE3KCkyHP6TbFdNruPfzNtFHX9DEc1kTFdXk5oS
CXk9fqpkfkPRdqauraXtHXKWvl5PfuNE/nxZF5hZm+MjygFl9XT+vKpWW3cc4Ff5orrMv50tZ2Ve
a5s3JD31+A0FEqP0eDaDs/bluf/h74/vdAxq82EA/LhOlwjeZjSoN/UHv+WodNCtJ9c/mZX08XJG
HBw3HZeTnHbk1SiVz3N89Pqa4pdF+BRxwnF90XjkiGPyDMGKa1RQgmZLgTwlRNB8/KKHGr+pXrh1
sSQn+KQqq3r8BFLi3ntaLNIZtfNwMK9TJxGA4avQqdj1bNnmFzS4zxjY+Nv0sWt4hi7tdqee8Ui/
rE8R5/DvRHnV7Ombeb507+K5aSrMc/quaGVO7Cc0SWfnIcqLYrlumeYhpL/gL8LG+bt8+qzMLtD8
SVWVOeUZe7Q/O08VHGfpTgR/CHSL9GkAJgT1RTUz5GplMmKgN4Ld0HVA92/q0dufB/azOgPMpx/9
iX/kd/XP/Cl/yx//h0FtfjTAmhLnKSFdgRQ9d39eVRhlPvp9snlVGQB/yP8EEOHlWZ1hvWKt7isU
HZSy3ZM/+V/5Y3/PP+WPGOyynZ2Pv5sV7WvqhG9duv0T/sI/5J+TOSGl/o//yf/Kd/KPfINKQobn
AKpJav7QF3/od/2d/t5/yD/9x/29f/y/j3d+KX/Ed3pOebbf7w/5n/70f/eP+Shh+2hVnbH9CpmZ
+KRK99PXbb5Kh3vsZb3VrbeU1SdF/pGRRdYm3ahxZjupli0RI0fPmzkNj47mxXpBMN9HusP7css1
ujOewXJs1DpDb+qoHPVg6De/SIPml3Tw4Qug7zq7IKUcofFelMZ4Xp5U9ZsnVf3HJbWV9/uN1mQ0
j/GVzwDmEZa9Bq8/+ij96ZuGPMDM5mEYw11csFR9YB8CJNYJcRxJ1f61WH1Yx4CrRE30GOgF+Q09
hr3Ny+5FK2/4w5e2KK1f57wCeZIR87sZC1dgL3hIMF+e9AfddtBXBrRwEbncEQi7BOdNk1tCaD39
aSdsEYQucoMQmpVryDT6khHok3qsMlk31y+yy+IiY+MWKnzu2T69J7TKVOa06scejd6wW87PYs67
duQNL9NbN75pkNrHaNH2q0h374oHdXPr8bQa//RKP/o9Vp+Bt1WnfFUX49Nmmq1y+k0cI8PuMba/
Q29+9Avz4rOv3jzbPviFy89oChhDBhq62Ito6ns7UhVg7csXtMxRwMjQWs6OR2qIHTtkh1YZ33/M
cc6f8yee/Sd//R/yX/hNknnHppg/7SjpUOaE1lsvqnbOdqP+oggOClhf+r8xv6dQX4txBl7tcc7V
1hVY2oZ8My8/++nsF/HiD+aeaTb7bP4LV1fNZ/+/560l943MMHB19j4wSdofpuqpFJHLyFQ8jM7E
bcwGno2mA4/g8fIkZjfx0GzGuItfe3mCRhX08hGwq2aeuLW130bcNvOI68AON4006SQUNwWU5tlo
9vDIHN88+Tqjf/Pk6zzHN0++xuj3Bkw2d6n9H5hfZ/SvX/HQR09u7K1d33U3zdNb/VWQ8O0PjKqb
cXqVnxNx5l0ablZUMQV5o44y2u2dpHTH5utraakPUlCKw3trKdnv6HiiJDXwzesoJcB7Kyl574eo
pZQA37iaUgK8t5HS93HIikoJ8CNNFXMqbvIikO+5VeuM1FOnNbKk9S7U0ov8yig/LAdQmC/WZVaf
vltBpRXVssFd+butjx7Pisu0md320Uevq/G3fo/dGf1z9If+3n/oz/y6f+of+obSXdP+9w94fDc7
wthoPS2zpqEXJrOPPup9eEWfbhGdhx7fpY+PKL13Gzy+XLX8x9nFsqpzFoUvH/hH8zUxWJmXxbKb
UV/sepZgCNQXWTuhEzXrXfl1a9OCitcBcsS749frHZQgRfiPZ2TvPWhkfu/IzoSSMvs5JiSemzmX
pdzxZKveUxoSZTHvq/Wq2hq9M/5JX6LsfRA61733JFezooUAw35rx374/P/hZFMRVrLh+1pk89XW
YFYg5t/f5NDfU6G9efJNKaIbNE9Dxoda25meLltvruXLn+Pp/v+outn7/5aHsfz5cHNupkWbGzrx
7/+vJtUPWcWEzukgXuqM3lLFvd75TakYH+tMaemMxKs5Wy7zWr2YG/RPWTjVc+40T1n8dDPA/0eV
zj1DQPrtmyXg+xIQz82c+iNlczOpfmjKJpoMiSEWZD9uVjem+Teub9pLWqmIREuXzfRdwVJA4vhV
JBkIfLnKhv8/4L50uPFdKuUWtPp6H5SbgHQgoX6bnfLN6UlRnUJeyI/0SEDWrHVd/r+kRn4UBr0P
rX7YauTmQC6Iy99Wjfws6EI/UiM/r9XIjwKc9HdVz5oaCRXJs/VSkp3Ska50t7zMLWtph9yvDjJa
fIZ/aaSrMpvmROAJKPrRR3e8j+5GPnsSaWY+29xBvoi8Gvvw9ItIQ/v6pkH+KKZ11VTn7fgni2ah
lU+yppiOT+b1h7h2790JYW5qu3On09WrvF3XS+7rDVdazYmZgNiq3qzOrl4xb/gqnpXOm2zyRqTp
+OXLF8hfnIbqLJjBj6Ldh7+QPnr8u8HqaXu9ytN5uyiPYi3wRVpmywvS3j+hkeqONsqzWfSLRh5m
HXSe1U3eYsGkPh8+GIDRFm2Zd/26fwwlxfI/9Amlxb7845//8X/S76/1z/y6f8Af+uwPnfy6Lx7f
lSaxl5v2Ov4NUYpW639x5JtJVc/yentalWW2avJdqfntMNL4nFJ4203xA2q2u7hHF2sC4hHe58XF
vKVG4/v5ItZqikXpR+mP37t3L/b1IqsviiW9v7NHl+7gv1irXzI4UPqjncedm03fXpCaWMH2DQ55
d62rEOZR2lRlMUt3CZEfz7Is1nJFGoqYHxE3u68nC1PuSslCHnORlbFmsAvbWVlc0ODL/Lx9/2dP
NszyNzWYmzDg1cdbUf8HL8vqHrah0KLTEIhTUnNI+ibV7Dour3ubBY2+j7z2+yDx9of8VX/If/Gd
/Mufs4nH4/7CP/5X/dF/7B/9z/w6/1wE2uNJ7QN5VtVpAYV0Rsnwixxahyh9UHX7pKdyVbrrWuI6
h8lYxuLO+G1+fUXzyEos4jv6OSE2K5brdP2E3/oW0DzQj9cU7gcK0uvQWzLh6NeHLgffYx2/9hdh
jHZ3BlBmBF658hpx+gvlk1/Is80f3XIgFdBsdIgEJO8/EdnvFgMBAuFA8Mn7D4Rcno0DEZfo/Qci
791iIEAgdAg+ee+BXGxgLT/V9F4j8V+8eSgXPeaH+FrMhbGBufxw92sM5bbshhFjr4uvxV4XG9jL
h7m/xlBuy2AXPQa7eG8Gs0qcDU/3DfhtffS4nR/9yX/Nn/Jf/an/+5/wF5DzNMcd8dLQEzlj9+CI
Uh/eaGbt+E2l9GGk8NLhNlDksV7+0Oe0ePknY6lT+5lt7scohOljhrs+fj+C/xNkny5u1wemHn3g
/8LlpFkhGjoh/aGrP/T3/UNf/aF/qvvg9/tD13/od+f1P8fH7S86pC7+0PYP/bZpeXNPKTIFgvYe
oc1W1QypOwg1KBw128EMNNMc3U3NNAa/PWkEjLNNdmyn5/0PLUvfCnyXduJaDBEkWNXYMNQgbXlj
uH9JEHhSPeBOOfkf3pomh3ti/YJQc3+56oPe3h1uMLcpRyXRr7T1EgT49QTr6vjj5XpSFlP52xCP
Ew3ymolX899/Rj/aYpF7ibSn9NEb+qjb1KiATmbBNYD8Dn7py8VNjTiNsrmR8slNjSKQuo2UkzZD
0tTOYKOAyW9shRtYNw0wyFzf0OqmIQbpKH+Vt6NeIjZD5s5PajiegJ/vfy5WN/zM54CB7yLZH3C+
B74bfi+aQA8ntfthZxk2/uWGNwhQ3bDQ15mnoS87b3aTgzJNL+tqlhfthTqj/NOgVOP5PPeUFB5N
hzml4L5GX0d713m7hQmFEumikzD1lMxnHaVTQgbuawMXfxj042NShtOBhhKbw+PR1249dEm6hkf6
eP3DBkGy8b4DoFc+EdkRyNsjdkfhE+d3dYL3HgcOJhQjtx8SP6kYECTraw4ojD8+ZEAq3t/AgEQD
fa0ByavfxICsGvxGBvS1ZHgb7d7IgLH5GRJN/7UGJK9+EwOy5uYbGhDXnqFuDP86A3rvGYoPyXcB
3nhM/rsfOKiOJ3L7UeGToTF9nXmKp8A+aEzvPVP4JDHmrHfu/de/kTF9QwrP9xO/7pi+sXnH6nSe
795+vTF9I1qv42V/M2PH+vP0jSi+TnBw+zEFGYP/B5XB+ZAVjwAA