Hi, i edited gaia forum poster for my forum. I want to use this tool to post my in-game bans on the forum, but the message i write in the message field is not inserted in internet explorer..
[ autoit ]
#include #include #include Global $Euser Global $Epass Global $Emsg $Username = GUICtrlRead($Euser) $Password = GUICtrlRead($Epass) $Message = GUICtrlRead($Emsg) $TopicNumber = "700" $PostNumber = "" $sid = "" $sid2 = "" Dim $Thread[4] = ["http://gamebook.ro/forum/viewtopic.php?t=" & $TopicNumber,"http://www.gamebook.ro/forum/posting.php?mode=edit&p=" & $PostNumber,"http://gamebook.ro/forum/posting.php?mode=reply&f=248&t=" & $TopicNumber,"http://www.gamebook.ro/forum/posting.php?mode=reply&tc=561&t=" & $TopicNumber] $Forum = "http://gamebook.ro/forum/viewforum.php?f=23" $Main = "http://gamebook.ro" $Exit = 1 $s_url = "http://gamebook.ro/forum/ucp.php?mode=login" $gui = GUICreate("Gaia forum poster", 357, 419, 192, 125) $Euser = GUICtrlCreateInput("Username", 64, 96, 233, 21, -1, $WS_EX_CLIENTEDGE) GUICtrlCreateLabel("Gaia Forum Poster. Uses the poster made by", 80, 40, 214, 17) GUICtrlCreateLabel("GoFlago", 152, 56, 44, 17) $Epass = GUICtrlCreateInput("Password", 64, 152, 233, 21, -1, $WS_EX_CLIENTEDGE) $Emsg = GUICtrlCreateEdit("", 48, 200, 257, 169, -1, $WS_EX_CLIENTEDGE) $Submit = GUICtrlCreateButton("Start", 125, 390) GUISetState(@SW_SHOW) While 1 $msg = GuiGetMsg() Select Case $msg = $GUI_EVENT_CLOSE ExitLoop Case $msg = $Submit GUISetState(@SW_hide, $gui) Begin() Case Else $Username = GUICtrlRead($Euser) $Password = GUICtrlRead($Epass) $Message = GUICtrlRead($Emsg) ;;;;;;; EndSelect WEnd Exit While $Exit = 1 Sleep(100) WEnd Func Begin() If $Exit = 1 Then $Exit = 0 Global $IE = _IECreate($S_url, 0, 1, 1) Call("Prog") EndIf EndFunc Func Stop() $Exit = 1 Endfunc Func Prog() Call("Login") Call("Post") EndFunc Func Login() $Login = _IEFormGetObjByName($IE,"loginForm") $User = _IEFormElementGetObjByName($Login,"username") $Pass = _IEFormElementGetObjByName($Login,"password") _IEFormElementSetValue($User,$Username) _IEFormElementSetValue($Pass,$Password) _IEFormSubmit($Login) $sid2 = _IEPropertyGet($IE,"locationurl") $sid = "&" & StringMid($sid2,37, 9999) EndFunc Func Logout() _IENavigate($IE,$Main) _IELinkClickByText($IE,"Logout") EndFunc Func Post() While $Exit = 0 _IENavigate($IE,$Thread[2] & $sid) $Post = _IEFormGetObjByName($IE,"post") $Mess = _IEFormElementGetObjByName($Post,"message") _IEFormElementSetValue($Mess,$Message) _IEFormImageClick ($Post,"Submit","alt") Sleep(45000) _IENavigate($IE,$Thread[3] & $sid) $Post = _IEFormGetObjByName($IE,"post") $Mess = _IEFormElementGetObjByName($Post,"message") _IEFormElementSetValue($Mess,$Message) _IEFormImageClick ($Post,"Submit","alt") Sleep(45000) WEnd EndFunc Func start() Begin() EndFunc