Über WinHTTP funktioniert es leider nicht, da man dies als Bot erkennt:
Spoiler anzeigen
#include "WinHTTP.au3"
[/autoit] [autoit][/autoit] [autoit];Achtung, dieses Script funktioniert nicht, da das System dies als Bot erkennt:
; <p>
; <div id="info"><b>Du wurdest durch das System als Bot gekennzeichnet.</b></div>
; </p>
;open
$hHost = "www.kanicq.ru"
$hID = 592280945
$hOpen = _WinHttpOpen()
$hConnect = _WinHttpConnect($hOpen, $hHost)
;checken:
$hSource = _Easy_WinHttp("POST", "/invisible/de/", "uin=" & _URIEncode($hID))
ConsoleWrite($hSource)
;close
_WinHttpCloseHandle($hConnect)
_WinHttpCloseHandle($hOpen)
Func _Easy_WinHttp($sType = "GET", $sPage = "/", $sPost = "")
$hRequest = _WinHttpOpenRequest($hConnect, $sType, $sPage, "HTTP/1.1", $hHost)
If StringLen($sPost) Then
_WinHttpSendRequest($hRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
Else
_WinHttpSendRequest($hRequest)
EndIf
_WinHttpReceiveResponse($hRequest)
Local $HTML
Do
$HTML &= _WinHttpReadData($hRequest)
Until @error
_WinHttpCloseHandle($hRequest)
Return $HTML
EndFunc ;==>_Easy_WinHttp
Func _URIEncode($sData)
; Author: Prog@ndy
Local $aData = StringSplit(BinaryToString(StringToBinary($sData,4),1),"")
Local $nChar
$sData=""
For $i = 1 To $aData[0]
;ConsoleWrite($aData[$i] & @CRLF)
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
$sData &= $aData[$i]
Case 32
$sData &= "+"
Case Else
$sData &= "%" & Hex($nChar,2)
EndSwitch
Next
Return $sData
EndFunc
