m_mail="�g�у��A�h"

IE = CreateOLEObj("InternetExplorer.Application")
IE.Visible = true
sendstr(0,"")

while GETKEYSTATE(VK_SHIFT)=false
URL=getstr(0)
ifb !(URL="")
URL=chgmoj(URL,"http://m.","http://")
IE.Navigate(URL)
BusyWait(IE)
doc=IE.document
doc.forms(2).email.value=m_mail
doc.forms(2).elements(1).click()
BusyWait(IE)
ENDIF
sendstr(0,"")
WEND


//------
Procedure BusyWait(ie)
	Sleep(0.5)	// Wait
	Const TIME_OUT = 90
	tm = Gettime()
	repeat
		Sleep(0.2)
		ifb Gettime() - tm > TIME_OUT
			MsgBox("Time Out:BusyWait")
			ExitExit
		endif
	until (! ie.busy) and (ie.readyState=4)
	Sleep(0.5)
Fend