textarea value copy

[jimmy999]

hi, i make this script

expandcollapse popup

#include
#include
#include
#include
#include
#include
#include
#include




$hFile = FileOpen("dd.txt", 0)
$Index = 1
$Form1 = GUICreate("Info", 259, 104, 192, 124)
GUISetBkColor(0x80FF80)
$Label1 = GUICtrlCreateLabel("Please whait...", 24, 32, 208, 37)
GUICtrlSetFont(-1, 26, 800, 0, "Arial Narrow")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetCursor(-1, 15)
GUISetState(@SW_SHOW)
While True

$Line = FileReadLine($hFile, $Index)
If @error Then
MsgBox(0, "test...", "done")
FileClose($hFile)
GUIDelete()
ExitLoop
Else
$Index += 1
EndIf
$oIE = _IECreate("http://evuln.com/tools/xss-encoder/", 1, 1, 0)
_IELoadWait($oIE)
$string = _IEGetObjByName($oIE, "ascii")
_IEFormElementSetValue($string, $Line)

$oInputs = _IETagNameGetCollection($oIE, "input")
For $oInput In $oInputs
If $oInput.value = "Encode" Then
_IEAction($oInput, "click")

EndIf
Next

;here i whant to copy textarea value

i tried: $hex = _IEGetObjByName($oIE, "hex")
_IEAction($hex, "copy")

but not work.

WEnd

http://imageshack.us/photo/my-images/690/capturdfd.png

[bogQ]

good question is "Do you want to allow this webpage to access your Clipboard?"

workaround

$hex = _IEGetObjByName($oIE, "hex")
MsgBox(0,'',_IEFormElementGetValue($hex))
ClipPut(_IEFormElementGetValue($hex))

Edited September 15, 2012 by bogQ

[jimmy999]

good question is "Do you want to allow this webpage to access your Clipboard?"

workaround

$hex = _IEGetObjByName($oIE, "hex")
MsgBox(0,'',_IEFormElementGetValue($hex))
ClipPut(_IEFormElementGetValue($hex))

tnx man