ขอกลับมาถามอีกครั้งครับ

เนื่องจาก คราวที่แล้วถามไว้ ว่าใน
[You must be registered and logged in to see this link.]

รหัสภาพนั้นโปรแกรม สามารถอ่านได้ไหม
พี่admin บอกว่าไม่ได้
แต่ ผมว่า รหัสนี้มันไม่เหมือนเว็บอื่นเพราะว่า


[You must be registered and logged in to see this image.]


แปบนี้พอจะมีวิธี ให้โปรแกรมเอารหัส มาไหมครับแหะๆ

เอาคำสั่งด้านล่างนี้ไปดัดแปลงดูครับ ติดตรงไหนก็คลิกไปที่คำสั่ง แล้วกดปุ่ม F1 จะมีคำอธิบายการใช้ออกมา

Code:

#include <IE.au3>

$oIE = _IECreate ("http://pssix.blogspot.com/")
$oImgs = _IEImgGetCollection ($oIE)

For $oImg In $oImgs
If StringInStr($oImg.src,"S1600-R/") Then
$a =StringMid($oImg.src,StringInStr ($oImg.src,"S1600-R/")+8,4)
MsgBox(0, "ชื่อรูปบนสุดคือ", $a)
EndIf
Next

กำ เล่นบอกระหัสในลิ้งรูปเลย

ขอขอบคุนอีกครั้งครับ

ขอถามในโค๊ดหน่อยนะครับ

Code:

#include <IE.au3>

$oIE = _IECreate ("http://pssix.blogspot.com/")
$oImgs = _IEImgGetCollection ($oIE)

For $oImg In $oImgs
If StringInStr($oImg.src,"S1600-R/") Then
$a =StringMid($oImg.src,StringInStr ($oImg.src,"S1600-R/")+8,4)
MsgBox(0, "ชื่อรูปบนสุดคือ", $a)
EndIf
Next


ตรงบรรทัด +8,4)
มันคืออะไรเหรอครับ

+8 กับ 4 มันเป็นจุดซ้อนของคำสั่งไม่ใช่คำสั่งเดียวกันครับ สังเกตดูจะเห็นว่ามีสองคำสั่งในบรรทัดเดียวกัน

1. ใช้ StringInStr หาตำแหน่งลิงก์ที่มีข้อความที่กำหนดก่อน
2. พอได้แล้วก็บวกไปอีก 8 ตัวอักษร เพื่อเลื่อนตำแหน่งเริ่มต้นไปจนสุด (คำค้นหาคือ S1600-R/ มี 8 ตัวอักษรนั่นเอง)
3. นำค่าตำแหน่งที่ได้มาใช้กับคำสั่ง StringMid เพื่อดึงเอาตัวอักษรถัดจากตำแหน่งนั้นอีก 4 ตัวออกมา (ชื่อภาพคือ logo มีสี่ตัวอักษร)

จบ เทคนิคนี้เอาไว้ใช้หาข้อความที่มีการเปลี่ยนแปลงอยู่เสมอ โดยอ้างอิงจากตำแหน่งของตัวอักษรที่ไม่เปลี่ยนแปลง ลองไปแก้ไขตัวเลขจะเห็นภาพยิ่งขึ้น

[You must be registered and logged in to see this image.]

ผ่านไปหลายวันแล้ว ยังทำอะไรไม่ได้เลย หารูปยังไม่เจอเลย ช่วยใบ้เพิ่มหน่อยครับแงๆ

เปลี่ยนตงคำที่หาในลิ้งตามนี้เลย

#include <IE.au3>

$oIE = _IECreate ("http://mylife.truelife.com/useraccount/signup/")
$oImgs = _IEImgGetCollection ($oIE)


For $oImg In $oImgs
If StringInStr($oImg.src,"code=") Then
$a =StringMid($oImg.src,StringInStr ($oImg.src,"code=")+5,6)
MsgBox(0, "ชื่อรูปบนสุดคือ", $a)
EndIf
Next