Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- #include <WinHTTP.au3>
- #include <ButtonConstants.au3>
- #include <EditConstants.au3>
- #include <GUIConstantsEx.au3>
- #include <ListViewConstants.au3>
- #include <StaticConstants.au3>
- #include <WindowsConstants.au3>
- #include <GuiListView.au3>
- #include <File.au3>
- #Include <Misc.au3>
- $gui=GUICreate("Pulse DKP finder", 280, 260, 100, 100,$WS_POPUPWINDOW & $DS_SETFOREGROUND,$WS_EX_TOOLWINDOW )
- GUISetBkColor(0x000000)
- WinSetOnTop($gui, "", 1)
- $pulselogo=GUICtrlCreatePic(@ScriptDir & "\pulse logo.jpg", 4, 10, 273, 141);fügt das bild ein
- GUICtrlSetState($pulselogo, $GUI_DISABLE)
- $label_text=GUICtrlCreateLabel("Geben sie den Namen ein", 15, 175, 250, 15)
- GUICtrlSetColor($label_text, 0xADADAD)
- GUICtrlSetFont($label_text, 12, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )
- $input_name=GUICtrlCreateInput("", 15, 200, 250, 20)
- GUICtrlSetBkColor($input_name, 0x8B2323)
- GUICtrlSetColor($input_name, 0xADADAD)
- GUICtrlSetFont($input_name, 10, "700", "", "Times nwe Roman","PROOF_QUALITY=10" )
- $button_Suchen=GUICtrlCreateButton("Suchen", 15, 225, 120, 20)
- GUICtrlSetBkColor($button_Suchen, 0xCD0000)
- GUICtrlSetColor($button_Suchen, 0xADADAD)
- $button_beenden=GUICtrlCreateButton("Abbrechen", 145, 225, 120, 20)
- GUICtrlSetBkColor($button_beenden, 0xCD0000)
- GUICtrlSetColor($button_beenden, 0xADADAD)
- GUISetState()
- While 1
- $msg=GuiGetMsg()
- If $msg=-3 Then
- Exit
- endif
- If $msg = $button_beenden Then
- Exit
- endif
- If $msg=$button_Suchen Then
- _suchen()
- endif
- Wend
- Func _suchen()
- $name = GUICtrlRead($input_name)
- $hSession = _WinHttpOpen("Allvatar Reader") ; User Agent bestimmen
- $hConnect = _WinHttpConnect($hSession, "soul.host.allvatar.com") ; Zum Host verbinden
- _WinHTTPRequest($hConnect, "/login.php") ; Login Seite besuchen
- _WinHTTPRequest($hConnect, "/login.php", "username=Antipope&password=notebook&login=Login+-+Die+CMS-Bridge+ist+aktiviert.+Benutzt+die+Login-Daten+eures+Forums%2FCMS+um+euch+anzumelden.") ; einloggen
- $sHTML = _WinHTTPRequest($hConnect,"/viewmember.php?s=&name=" & $name) ; Seite öffnen
- $aJetzt = StringRegExp($sHTML,'Jetzt[^"]+[^>]+>([\d.]+)',3) ; Wert auslesen
- MsgBox(0,"",$aJetzt[0]) ; und ausgeben
- Func _WinHTTPRequest($hConnect, $sSite, $sPost = "", $sReferer = $WINHTTP_NO_REFERER)
- ;Author: SEuBo
- Local $hRequest, $sHTML, $sMode = "GET", $sHeaders = $WINHTTP_NO_ADDITIONAL_HEADERS, $sOptional = $WINHTTP_NO_REQUEST_DATA
- If $sPost <> "" Then
- $sMode = "POST"
- $sOptional = $sPost
- $sHeaders = "Content-Type: application/x-www-form-urlencoded" & @CRLF
- EndIf
- $hRequest = _WinHttpOpenRequest($hConnect, $sMode, $sSite, "HTTP/1.1", $sReferer) ; Anfrage an die Seite stellen
- _WinHttpSendRequest($hRequest, $sHeaders, $sOptional) ; Anfrage senden.
- _WinHttpReceiveResponse($hRequest) ; Warte auf Antwort des Servers
- Do
- $sHTML &= _WinHttpReadData($hRequest) ; Antwort aus dem Buffer lesen.
- Until @error ; bis ein fehler auftritt (übertragung abgeschlossen)
- Return $sHTML
- EndFunc ;==>_WinHTTPRequest
- endfunc
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement