สอบถามเกี่ยวกลับ ไฟร์ .ini และ การ อัพโหลด รูป ลงเว็บผ่าน IE

ผมต้อง การโหลด เว็บไซร์ที่1จาก ไฟร์ .ini  แล้ว ทำการ  ใส่ ข้อความ รูปภาพ แล้วกดตกลง
แล้วโหลด เว็บไซร์ที่2จาก ไฟร์ .ini  แล้ว ทำการ  ใส่ ข้อความ รูปภาพ แล้วกดตกลง
ข้อความ กับรูปภาพเหมือนเดิมทุกอย่าง

ผมยกตัวอย่างนะครับ แบบที่ผมคิดนะครับ

โค้ด โหลด ไฟร์ .ini

[text]
text1="เว็บไซร์ 1"
text2="เว็บไซร์ 2"
text3="เว็บไซร์ 3"
text4="เว็บไซร์ 4"

เก็บในตัวแปร

โค้ด เปิดน่าเว็บไซร์  

รอโหลดหน้าเว็บ

ใส่ข้อความ  ใสรูปภาพ  กดตกลง

แล้วกับไปโหลดไฟร์ .ini  เว็บที่ 2 ขึนมา




***ส่วนโค้ดชุดนี้ผมต้องการอัพโหลดรูปลงไป แต่มัน
ไมยอมทำงานอะครับ หรือผมใช่ โค้ดผิด แบบ

$oForm=_IEFormGetObjByName($oIE, "u_0_29")
$oInputFile=_IEFormElementGetObjByName($oForm, "file")
_IEAction($oInputFile, "onclick")
$Window = WinWait("Choose File to Upload")
ControlSetText($Window, "", "Edit1", "C:\Program Files\Foldee\999.jpg")
ControlClick($Window, "", "Button2")
_IELoadWait($oIE)

**********************************************************

*****โค้ดชุดนี้ผมใช่ได้แล้วครับ

$Form = _IEFormGetObjByName ($IE, "u_0_1")
$Query = _IEFormElementGetObjByName ($Form, "message")

Sleep(2000)

_IEFormElementSetValue ($Query, "ข้อความที่ต้องการโพส")

Sleep(2000)

_IEFormSubmit ($Form)

_IELoadWait($IE)

Sleep(5000)

WEnd



แล้วปัญหาอีกอย่างนึง ผมไม่สามรถหาโค้ด ของfromได้  ขอคำชีแนะครับ
ผมได้ไปลองศึกษาจากบทความ Hi5 เกี่ยวกัลคอมเม้น ดูบ้างแล้ว

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


อันที่ผม เขียน แล้วใช่อยู่มันเป็นแบบ จับภาพ สีและน่าจอเอาอะครับ พอดีอยาก
จะ ทำให้มันเป็น เมนูแบบนี้นะครับ   พอกดแล้ว โปรแกรมก็จะลันไปเลื่อยๆ จน ครบ
เว็บไซที่กำหนด

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


ขอคำชีแนะด้วยครับผม  ขอบคุณครับ

อ่านค่าไฟล์ ini ใช้คำสั่งนี้ครับ

IniRead("ชื่อไฟล์", "เซคชั่น (เครื่องหมาย [xx])", "key", "ค่าปกติคือถ้าหาคีย์ไม่เจอก็จะรีเทิร์นตัวนี้แทน")

เช่น..

IniRead("config.ini", "config", "text1", "not found!")

ถ้าผมไม่อยากให้มันรันดอม ผมต้อง การ ให้มันโลด ที่รระบรรทัด ต้องแก้แก้โค้ด ยังไงหว่า $rnd = Random(1,5,1) จากอันนี้อะครับ

ขอโค้ดหน่อยครับ PM มาก็ได้

EDIT: ใช้ iniRead อ่านไปเรื่อยๆครับ

$txt1 = iniread("file.ini", "config", "text1", "not found")
$txt2 = iniread("file.ini", "config", "text2", "not found")
$txt3 = iniread("file.ini", "config", "text3", "not found")
$txt4 = iniread("file.ini", "config", "text4", "not found")

ตอนนี้เลย ผม เขียนได้ เท่า นี้แลัวครับ    ส่วนตอนนีกำลังงม ว่า จะทำให้โหลด รูปภาพขึนมายังไง   และทำยังไงให้ โหลดเว็บ จากไฟร์ .ini  เปิดด้วยคำสั่ง นี้    $oIE =   _IECreate    

#include


HotKeySet("{ESC}", "Terminate")


 $oIE =   _IECreate("https://www.facebook.com/groups/267865520041178/")
     

;ส่วนโค้ดตรงนี้ มันใช่ โค้ด ที่เอาไว้สหรับ อัพโหลด รูปภาพ ลงไปใน เว็บ หรือเปล่าครับ

$oForm=_IEFormGetObjByName($oIE, "u_0_29")

$oInputFile=_IEFormElementGetObjByName($oForm, "file")

_IEAction($oInputFile, "onclick")

$Window = WinWait("Choose File to Upload")

ControlSetText($Window, "", "Edit1", "C:\Program Files\Foldee\999.jpg")

ControlClick($Window, "", "Button2")

_IELoadWait($oIE)


;*******************************************************************

$txt1 = IniRead("C:\Program Files\Folder\autotxt.ini", "text", "text1", "NotFound")
$txt2 = IniRead("C:\Program Files\Folder\autotxt.ini", "text", "text2", "NotFound")
$txt3 = IniRead("C:\Program Files\Folder\autotxt.ini", "text", "text3", "NotFound")
$txt4 = IniRead("C:\Program Files\Folder\autotxt.ini", "text", "text4", "NotFound")
$txt5 = IniRead("C:\Program Files\Folder\autotxt.ini", "text", "text5"," NotFound")


$oForm = _IEFormGetObjByName ($oIE, "u_0_1")
$Query = _IEFormElementGetObjByName ($oForm, "message")

$rnd = Random(1,5,1)

Switch $rnd
Case 1
_IEFormElementSetValue ($Query, $txt1)
Case 2
_IEFormElementSetValue ($Query, $txt2)
Case 3
_IEFormElementSetValue ($Query, $txt3)
Case 4
_IEFormElementSetValue ($Query, $txt4)
Case 5
_IEFormElementSetValue ($Query, $txt5)
EndSwitch

_IEFormSubmit ($oForm)

_IELoadWait($oIE)



            _IEQuit($oIE)



Func Terminate()
   Exit
EndFunc

อันนี้เป็นโค้ดรันดอม เว็บครับ แต่มันยั่งไม่ได้โหลดจาก ไฟร์ .ini
อยากจะทำให้มันโหลดผ่านจากไฟร์ .ini ได้หรือไหม้


Select
Case $random = 1
$oIE = _IECreate("https://www.facebook.com/groups/267865520041178/")
Case $random = 2
$oIE = _IECreate("https://www.facebook.com//groups/757366130949235/")
Case $random = 3
$oIE = _IECreate("https://www.facebook.com/groups/662004660531492/")
Case $random = 4
$oIE = _IECreate("https://www.facebook.com/groups/234413030088962/")
Case $random = 5
$oIE = _IECreate("https://www.facebook.com/groups/229545730580442/")
Case $random = 6
$oIE = _IECreate("https://www.facebook.com/groups/1462319644000460/")
EndSelect

เพิ่มส่วนนี้เข้าไปในไฟล์ ini ครับ

Code:

[URL]
url1=ลิ้งค์ 1
url2=ลิ้งค์ 2
url3=ลิ้งค์ 3

อันนี้คำสั่ง Random ครับ

Code:

Switch Random(1,3,1)
Case 1
$url = IniRead("file.ini", "URL", "url1", "ไม่พบค่า")
Case 2
$url = IniRead("file.ini", "URL", "url2", "ไม่พบค่า")
Case 3
$url = IniRead("file.ini", "URL", "url3", "ไม่พบค่า")
EndSwitch
$oIE = _IECreate($url)


ผมได้ตั้งปิด หน้า IE ด้วยคำสั่งนี้แล้ว _IEQuit($oIE) แต่มันไม่ยอมปิดให้อะครับ

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

While 1

WEnd

แทมอีกอัน คือพอรันเส็ดมันจะฟอง WEnd^ ERROR ตลอดเบย อะ

1. ใช้ ProcessClose("iexplore.exe") เลยครับ

2. ถ้าจะลูปแบบกำหนดจำนวนครั้งทำแบบนี้ครับ

Code:

;; อันนี้แบบลบ
Local $i = 5
While $i > 0
ConsoleWrite($i & @CRLF)
$i -= 1
WEnd

;; อันนี้แบบบวกครับ
Local $i = 1
While $i <= 5
ConsoleWrite($i & @CRLF)
$i += 1
WEnd


ตอนนี้ปันหามีอยู่ว่า เมื่อ คำสั่ง นี้ทำงานแล้ว _IEFormSubmit($Form) มันจะไม่ สามรถ
While 1
มันจะวนได้2 ลอบ พอจะขึนรอบสามมันจะขึนว่า
WEnd

C:\Program Files (x86)\AutoIt3\Include\ie.au3 (585) : ==> The requested action with this object has failed.:
WEnd
WEnd^ ERROR
->23:16:45 AutoIT3.exe ended.rc:1
>Exit code: 1 Time: 34.703

โค้ดตามนี้ระครับ งมมาทังวัน ลองที่ละจุด จนปัญญา อิอิ


While 1

Switch Random(1, 6, 1)

Case 1
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url1", "ไม่พบค่า")
Case 2
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url2", "ไม่พบค่า")
Case 3
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url3", "ไม่พบค่า")
Case 4
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url4", "ไม่พบค่า")
Case 5
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url5", "ไม่พบค่า")
Case 6
$url = IniRead("C:\Program Files\Folder\URL.ini", "URL", "url6", "ไม่พบค่า")

EndSwitch

$IE = _IECreate($url)

Switch Random(1, 5, 1)

Case 1
$text = IniRead("C:\Program Files\Folder\text.ini", "text", "text1", "ไม่พบค่า")
Case 2
$text = IniRead("C:\Program Files\Folder\text.ini", "text", "text2", "ไม่พบค่า")
Case 3
$text = IniRead("C:\Program Files\Folder\text.ini", "text", "text3", "ไม่พบค่า")
Case 4
$text = IniRead("C:\Program Files\Folder\text.ini", "text", "text4", "ไม่พบค่า")
Case 5
$text = IniRead("C:\Program Files\Folder\text.ini", "text", "text5", " ไม่พบค่า")

EndSwitch


$Form = _IEFormGetObjByName($IE, "u_0_1")
$Query = _IEFormElementGetObjByName($Form, "message")

_IEFormElementSetValue($Query, $text )

_IEFormSubmit($Form)

_IELoadWait($IE)

_IEQuit($IE)

WEnd

ว้าาา แย่จังงง อยากเทสโค้ดแต่ตอนนี้กำลังไปเชียงรายอะครับ ถ้ามีโอกาสเอ่าโค้ดไปเทสได้จะช่วยแก้ให้นะครับ     

ครับผม ขอบคุณหลายๆครับ Arm เดียวผมคงนั้งแก้ไปเลื่อยๆและครับ รอผู้รู้ท่าน อื่น มาช้วย ต่อฮ่าๆ

แต่ตอนนี้ อยากได้โค้ด โหลดรูป ภาพลงไปในเฟสบุค อะ


มันใช่โค้ด แบบนี้อะเปล่าน่อ วานผู้รู้ตอบที่นะครับ


$oForm=_IEFormGetObjByName($oIE, "u_0_29")

$oInputFile=_IEFormElementGetObjByName($oForm, "file")

_IEAction($oInputFile, "onclick")

$Window = WinWait("Choose File to Upload")

ControlSetText($Window, "", "Edit1", "C:\Program Files\Foldee\999.jpg")

ControlClick($Window, "", "Button2")

_IELoadWait($oIE)