HttpWatch抓包头信息转换成au3书写格式

HttpWatch抓包头信息转换成au3书写格式

本帖最后由 komaau3 于 2011-6-20 15:58 编辑 感觉会蛮方便，把HttpWatch抓包头信息转换成au3的书写格式 这样的正则可能不会通用，测试下把，不能用自己修改下 下载 (69.4 KB) 2011-6-20 08:08 #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> #NoTrayIcon #Region ### START Koda GUI section ### Form = $Form1 = GUICreate ( "HttpWatch抓包头信息转换" , 452 , 337 , 276 , 160 ) $Edit1 = GUICtrlCreateEdit ( "" , 0 , 0 , 449 , 137 , - 1 , BitOR ( $WS_EX_CLIENTEDGE , $WS_EX_STATICEDGE ) ) GUICtrlSetData ( - 1 , "此处粘贴HttpWatch抓包原型" ) $Group1 = GUICtrlCreateGroup ( "" , 0 , 288 , 321 , 41 ) $Input1 = GUICtrlCreateInput ( "$oHTTP" , 168 , 301 , 49 , 21 ) $Button1 = GUICtrlCreateButton ( "转换" , 24 , 298 , 59 , 25 ) $Button2 = GUICtrlCreateButton ( "复制" , 232 , 298 , 59 , 25 ) $Label1 = GUICtrlCreateLabel ( "对象句柄：" , 96 , 304 , 64 , 17 ) GUICtrlCreateGroup ( "" , - 99 , - 99 , 1 , 1 ) $Button3 = GUICtrlCreateButton ( "退出" , 368 , 303 , 59 , 25 ) $Edit2 = GUICtrlCreateEdit ( "" , 0 , 144 , 449 , 145 , - 1 , BitOR ( $WS_EX_CLIENTEDGE , $WS_EX_STATICEDGE ) ) GUICtrlSetData ( - 1 , "转换后数据自动复制到剪切板" ) GUISetState ( @SW_SHOW ) #EndRegion ### END Koda GUI section ### Local $Header While 1         $nMsg = GUIGetMsg ( )         Switch $nMsg                 Case $GUI_EVENT_CLOSE                         Exit                 Case $Button1                         $Data = GUICtrlRead ( $Edit1 )                         $Handle = GUICtrlRead ( $Input1 )                         $String = StringRegExp ( $Data , ".*?\:\h.*?\r\n" , 3 )                         If Not @Error Then                                 For $a = 0 To UBound ( $String ) - 1                                         $Request = StringRegExpReplace ( $String [ $a ] , "\r\n" , "" )                                         $Request = StringRegExpReplace ( $Request , ":\h" , "','" )                                         $Header &= $Handle & ".setRequestHeader('" & $Request & "')" & @CRLF                                 Next                                 ClipPut ( $Header )                                 GUICtrlSetData ( $Edit2 , $Header )                                 $Header = ""                         EndIf                 Case $Button2                         ClipPut ( GUICtrlRead ( $Edit2 ) )                 Case $Button3                         Exit         EndSwitch WEnd 复制代码 高亮切换