Beiträge von blackcho

#include <WinHTTP.au3>
#include <Array.au3>
Local $aChars[29][2] = [['?','%3F'], _
                       ['Ä','%C4'], _
                       ['Ü','%DC'], _
                       ['Ö','%D6'], _
                       ['ä','%E4'], _
                       ['ü','%FC'], _
                       ['ö','%F6'], _
                       ['ß','%DF'], _
                       [' ','+'], _
                       ['/','%2F'], _
                       [';','%3B'], _
                       ['"','%22'], _
                       ['(','('], _
                       [')',')'], _
                       ["'",'%2C'], _
                       ['.','%2E'], _
                       [':','%3A'], _
                       ['<','%3C'], _
                       ['>','%3E'], _
                       ['@','%40'], _
                       ['[','%5B'], _
					   ['=','%3D'], _
                       [']','%5D'], _
                       ['\','%5C'], _
                       ['^','%5E'], _
                       ['{','%7B'], _
                       ['}','%7D'], _
                       ['|','%7C'], _
                       ['#','%23']] ;
$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
$oHTTP.Open("POST", "http://www.gtlpins.com/Aroma/Login.aspx", False)
$oHTTP.SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")
$oHTTP.Send()
$oReceived = $oHTTP.ResponseText
$iresult1 = StringRegExp($oReceived, '<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="(.*?)" />', 3)
$iresult2 = StringRegExp($oReceived, '<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="(.*?)" />', 3)
For $i = 0 To UBound($aChars) - 1 Step 1
If StringRegExp($iresult1[0],$aChars[$i][0]) = 1 Then
   $iresult1[0] = StringReplace($iresult1[0],$aChars[$i][0], $aChars[$i][1])
EndIf
If StringRegExp($iresult2[0],$aChars[$i][0]) = 1 Then
   $iresult2[0] = StringReplace($iresult2[0],$aChars[$i][0], $aChars[$i][1])
EndIf
Next
$sString = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE="&$iresult1[0]&"&__EVENTVALIDATION="&$iresult2[0]&"&txtUserName=Zensur&txtPassword=Zensur&loginbtnlogin=Anmelden"
$oHTTP.Send($sString)
$oReceived2 = $oHTTP.ResponseText
If Not StringRegExp($oReceived2,"<span><H1>Server Error in '/aroma' Application.<hr width=100% size=1 color=silver></H1>")   = 1 Then
MsgBox(0,"t","t")
EndIf
$oStatusCode = $oHTTP.Status
;~ FileWrite($file, $oReceived)
FileWrite("Antwort.html", $oReceived2)
FileWrite("Antwort.html",$sString)
;~ ClipPut($sString)

#include <WinHTTP.au3>
#include <Array.au3>
Local $aChars[29][2] = [['?','%3F'], _
                       ['Ä','%C4'], _
                       ['Ü','%DC'], _
                       ['Ö','%D6'], _
                       ['ä','%E4'], _
                       ['ü','%FC'], _
                       ['ö','%F6'], _
                       ['ß','%DF'], _
                       [' ','+'], _
                       ['/','%2F'], _
                       [';','%3B'], _
                       ['"','%22'], _
                       ['(','('], _
                       [')',')'], _
                       ["'",'%2C'], _
                       ['.','%2E'], _
                       [':','%3A'], _
                       ['<','%3C'], _
                       ['>','%3E'], _
                       ['@','%40'], _
                       ['[','%5B'], _
					   ['=','%3D'], _
                       [']','%5D'], _
                       ['\','%5C'], _
                       ['^','%5E'], _
                       ['{','%7B'], _
                       ['}','%7D'], _
                       ['|','%7C'], _
                       ['#','%23']] ;
$HTTP_Host = "www.gtlpins.com"
$HTTP_Agent = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; WOW64; rv:50.0) Gecko/20100101 Firefox/50.0")
$HTTP_Connect = _WinHttpConnect($HTTP_Agent, $HTTP_Host)
$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0")
$hConnect = _WinHttpConnect($hSession, "www.gtlpins.com")
$quelle = _Easy_WinHttp("GET", "/Aroma/Login.aspx")
$iresult1 = StringRegExp($quelle, '<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="(.*?)" />', 3)
$iresult2 = StringRegExp($quelle, '<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="(.*?)" />', 3)
For $i = 0 To UBound($aChars) - 1 Step 1
If StringRegExp($iresult1[0],$aChars[$i][0]) = 1 Then
   $iresult1[0] = StringReplace($iresult1[0],$aChars[$i][0], $aChars[$i][1])
EndIf
If StringRegExp($iresult2[0],$aChars[$i][0]) = 1 Then
   $iresult2[0] = StringReplace($iresult2[0],$aChars[$i][0], $aChars[$i][1])
EndIf
Next
$sString = "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE="&$iresult1[0]&"&__EVENTVALIDATION="&$iresult2[0]&"&txtUserName=Zensur&txtPassword=Zensur&loginbtnlogin=Anmelden"
ClipPut($sString)
$sHTML = _WinHttpSimpleRequest($hConnect, "POST", "/Aroma/Login.aspx", "http://www.gtlpins.com/Aroma/Login.aspx",$sString)
FileWrite("Test1.html", $sHTML)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)
Func _Easy_WinHttp($sType = "GET", $sPage = "/", $sPost = "")
	$HTTP_Request = _WinHttpOpenRequest($HTTP_Connect, $sType, $sPage, "HTTP/1.1", $HTTP_Host)
	If StringLen($sPost) Then
		_WinHttpSendRequest($HTTP_Request, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
	Else
		_WinHttpSendRequest($HTTP_Request)
	EndIf
	_WinHttpReceiveResponse($HTTP_Request)
	$HTML = ""
	Do
		$HTML &= _WinHttpReadData($HTTP_Request)
	Until @error
	_WinHttpCloseHandle($HTTP_Request)
	Return $HTML
EndFunc   ;==>_Easy_WinHttp

#include <WinHTTP.au3>
$HTTP_Host = "www.gtlpins.com"
$HTTP_Agent = _WinHttpOpen("Mozilla/5.0 (Windows NT 10.0; WOW64; rv:50.0) Gecko/20100101 Firefox/50.0")
$HTTP_Connect = _WinHttpConnect($HTTP_Agent, $HTTP_Host)
$hSession = _WinHttpOpen("Mozilla/5.0 (Windows NT 6.1; WOW64; rv:5.0) Gecko/20100101 Firefox/5.0")
$hConnect = _WinHttpConnect($hSession, "www.gtlpins.com")
$quelle = _Easy_WinHttp("GET", "/Aroma/Login.aspx")
$iresult1 = StringRegExp($quelle, '<input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="(.*?)" />', 3)
$iresult2 = StringRegExp($quelle, '<input type="hidden" name="__EVENTVALIDATION" id="__EVENTVALIDATION" value="(.*?)" />', 3)
$sHTML = _WinHttpSimpleRequest($hConnect, "POST", "/Aroma/Login.aspx", "http://www.gtlpins.com/Aroma/Login.aspx", "__EVENTTARGET=&__EVENTARGUMENT=&__VIEWSTATE="&$iresult1[0]&"&__EVENTVALIDATION="&$iresult2[0]&"&txtUserName=zensiert&txtPassword=zensiert&loginbtnlogin=Anmelden")
FileWrite("Test1.html", $sHTML)
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hSession)
Func _Easy_WinHttp($sType = "GET", $sPage = "/", $sPost = "")
	$HTTP_Request = _WinHttpOpenRequest($HTTP_Connect, $sType, $sPage, "HTTP/1.1", $HTTP_Host)
	If StringLen($sPost) Then
		_WinHttpSendRequest($HTTP_Request, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
	Else
		_WinHttpSendRequest($HTTP_Request)
	EndIf
	_WinHttpReceiveResponse($HTTP_Request)
	$HTML = ""
	Do
		$HTML &= _WinHttpReadData($HTTP_Request)
	Until @error
	_WinHttpCloseHandle($HTTP_Request)
	Return $HTML
EndFunc   ;==>_Easy_WinHttp

<!DOCTYPE html>
<html>
    <head>
        <title>Runtime Error</title>
        <meta name="viewport" content="width=device-width" />
        <style>
         body {font-family:"Verdana";font-weight:normal;font-size: .7em;color:black;} 
         p {font-family:"Verdana";font-weight:normal;color:black;margin-top: -5px}
         b {font-family:"Verdana";font-weight:bold;color:black;margin-top: -5px}
         H1 { font-family:"Verdana";font-weight:normal;font-size:18pt;color:red }
         H2 { font-family:"Verdana";font-weight:normal;font-size:14pt;color:maroon }
         pre {font-family:"Consolas","Lucida Console",Monospace;font-size:11pt;margin:0;padding:0.5em;line-height:14pt}
         .marker {font-weight: bold; color: black;text-decoration: none;}
         .version {color: gray;}
         .error {margin-bottom: 10px;}
         .expandable { text-decoration:underline; font-weight:bold; color:navy; cursor:hand; }
         @media screen and (max-width: 639px) {
          pre { width: 440px; overflow: auto; white-space: pre-wrap; word-wrap: break-word; }
         }
         @media screen and (max-width: 479px) {
          pre { width: 280px; }
         }
        </style>
    </head>
    <body bgcolor="white">
            <span><H1>Server Error in '/aroma' Application.<hr width=100% size=1 color=silver></H1>
            <h2> <i>Runtime Error</i> </h2></span>
            <font face="Arial, Helvetica, Geneva, SunSans-Regular, sans-serif ">
            <b> Description: </b>An application error occurred on the server. The current custom error settings for this application prevent the details of the application error from being viewed remotely (for security reasons). It could, however, be viewed by browsers running on the local server machine.
            <br><br>
            <b>Details:</b> To enable the details of this specific error message to be viewable on remote machines, please create a <customErrors> tag within a "web.config" configuration file located in the root directory of the current web application. This <customErrors> tag should then have its "mode" attribute set to "Off".<br><br>
            <table width=100% bgcolor="#ffffcc">
               <tr>
                  <td>
                      <code><pre>
<!-- Web.Config Configuration File -->
<configuration>
    <system.web>
        <customErrors mode="Off"/>
    </system.web>
</configuration></pre></code>
                  </td>
               </tr>
            </table>
            <br>
            <b>Notes:</b> The current error page you are seeing can be replaced by a custom error page by modifying the "defaultRedirect" attribute of the application's <customErrors> configuration tag to point to a custom error page URL.<br><br>
            <table width=100% bgcolor="#ffffcc">
               <tr>
                  <td>
                      <code><pre>
<!-- Web.Config Configuration File -->
<configuration>
    <system.web>
        <customErrors mode="RemoteOnly" defaultRedirect="mycustompage.htm"/>
    </system.web>
</configuration></pre></code>
                  </td>
               </tr>
            </table>
            <br>
    </body>
</html>