Local $outtext
Global $text = '<form action="/handleLogin?sid=AXPeZeR6mtEBr16DojURruTP&vdata=5DE4357F7C1CA2DE45B5D163AA0BBF92" method="post">' & @CRLF & _
'<input type="hidden" name="qq" value="211543"/>' & @CRLF & _
'<input type="hidden" name="u_token" value="211543"/>' & @CRLF & _
'<input type="hidden" name="hexpwd" value="7869656875313130313130"/>' & @CRLF & _
'<input type="hidden" name="sid" value="AXPeZeR6mtEBr16DojURruTP"/>' & @CRLF & _
'<input type="hidden" name="hexp" value="true"/>' & @CRLF & _
'<input type="hidden" name="auto" value="0"/>' & @CRLF & _
'<input type="hidden" name="loginTitle" value=""手机腾讯网""/>' & @CRLF & _
'<input type="hidden" name="q_from" value=""""/>' & @CRLF & _
'<input type="hidden" name="modifySKey" value="0"/>' & @CRLF & _
'<input type="hidden" name="q_status" value="20"/>' & @CRLF & _
'<input type="hidden" name="r" value="51364"/>' & @CRLF & _
'<input type="hidden" name="loginType" value="3"/>' & @CRLF & _
'<input type="hidden" name="login_url" value="http://pt.3g.qq.com/s?aid=nLogin"/>' & @CRLF & _
'<input type="hidden" name="extend" value="http://vc.gtimg.com/JJK13TFYOUMZYDKBSJ7QF7CYYYYYY6HE"/>' & @CRLF & _
'<input type="hidden" name="r_sid" value="CFUtuzxXQFS4YKv6UcViy4OgTx7g68-9Wazi8nnoFYNKBjEVMpDvCZ_7Vc5oOzPZMO9zvlvKexbzo.CE"/>' & @CRLF & _
'<input type="hidden" name="bid_code" value="qqchatLogin"/>' & @CRLF & _
'<input type="hidden" name="bid" value="0"/>' & @CRLF & _
'<input type="hidden" name="rip" value="192.168.1.153"/>' & @CRLF & _
'<input type="hidden" name="go_url" value="http://kiss.3g.qq.com/activeQQ/msf/index.jsp"/>' & @CRLF & _
'请输入上图字符(不区分大小写):<br/>' & @CRLF & _
'<input name="verify" type="text" maxlength="18" value="" /><br/>' & @CRLF & _
'<input type="submit" name="submitlogin" value="马上登录"/>' & @CRLF & _
'</form>' & @CRLF & _
'</div>'
$SRE = StringRegExp($text, '(?=(?:name|value)\=\"([^\"]+))', 3)
For $i = 0 To UBound($SRE) - 1 - 3 Step 2
$outtext &= $SRE[$i] & "=" & $SRE[$i + 1] & "&"
Next
MsgBox(0, 0, StringTrimRight($outtext, 1))
|