คือผมต้องการ ให้คลิกปุ่ม แล้ว ปิด อ่าครับ ปุ่ม button Exit อ่าครับ
แล้วก็ ปุ่มกดแล้วเปิด เว็บขึ้นมา ไม่ได้เปิดในโปรแกรมนะครับ เปิดข้างนอก
ขอบคุณครับๆ
แล้วก็ ปุ่มกดแล้วเปิด เว็บขึ้นมา ไม่ได้เปิดในโปรแกรมนะครับ เปิดข้างนอก
ขอบคุณครับๆ
Fast พิมพ์ว่า:เปิดเวบหรอ ใส่คำสั่ง ShellExecute("[You must be registered and logged in to see this link.] เปลี่ยนชื่อเองนะ
#include <ie.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("PSsix", 274, 129, 192, 124)
$Input1 = GUICtrlCreateInput("ชื่อ", 16, 16, 105, 21)
$Input2 = GUICtrlCreateInput("นามสกุล", 136, 16, 113, 21)
$Button1 = GUICtrlCreateButton("ส่ง", 176, 64, 75, 25)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
senddata()
EndSwitch
WEnd
Func senddata()
$oIE = _IECreate("http://www.thaicreateweb.com/scripts/form2txt/form.htm")
$oForm = _IEFormGetCollection($oIE, 0)
$Query = _IEFormElementGetObjByName($oForm, "Name")
_IEFormElementSetValue($Query, GUICtrlRead($Input1))
$Query = _IEFormElementGetObjByName($oForm, "Surname")
_IEFormElementSetValue($Query, GUICtrlRead($Input1))
_IEFormSubmit($oForm)
EndFunc
|
|