Beiträge von DeepRed92

DeepRed92

Das ist fantastisch!!! Einfach toll die ganzen schönen Farben. Die Blume is besonders gut gelungen.

DeepRed92

Weiß denn niemand, wie das richtig geht?

DeepRed92

Viellicht hilft Dir die Funktion ObjEvent weiter?

DeepRed92

Hallo,

ich habe 2 Fragen.

1. Wie kann ich eine Textdatei per WinHttp.au3 herunterladen?
Ich habe es schon so versucht:

Spoiler anzeigen

[autoit]

#include <WinHTTP.au3>

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$HttpOpen = _WinHttpOpen("Desktop Radio Updater")
$HttpConnect = _WinHttpConnect($HttpOpen, "bksoft.kilu.de")
$HttpOpenRequest = _WinHttpOpenRequest($HttpConnect, "GET", _
"/Products/Desktop Radio/Update/Archives/Update.txt HTTP/1.1", "HTTP/1.1", "http://bksoft.kilu.de//Products/Desktop Radio/Update/Archives/Update.txt")

[/autoit] [autoit][/autoit] [autoit]

_WinHttpSendRequest($HttpOpenRequest)
_WinHttpReceiveResponse($HttpOpenRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($HttpOpenRequest)
Until @error

[/autoit] [autoit][/autoit] [autoit]

MsgBox(0, "", $data)

[/autoit]

Spoiler anzeigen

Code

http://bksoft.kilu.de//Products/Desktop%20Radio/Update/Archives/Update.txt


GET //Products/Desktop%20Radio/Update/Archives/Update.txt HTTP/1.1
Host: bksoft.kilu.de
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Cookie: __utma=66255412.893902151954231700.1251251095.1251251095.1251251095.1; __utmz=66255412.1251251095.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none)


HTTP/1.x 200 OK
Date: Tue, 01 Sep 2009 13:19:02 GMT
Server: Apache
Last-Modified: Sun, 30 Aug 2009 13:10:11 GMT
Etag: "4ce0764c-3-4725ba31cb2c0"
Accept-Ranges: bytes
Vary: Accept-Encoding
Content-Encoding: gzip
Content-Length: 23
Keep-Alive: timeout=3, max=100
Connection: Keep-Alive
Content-Type: text/plain; charset=ISO-8859-1

Alles anzeigen

Doch statt einer Zahl kommt die Errorseite von KIlu.de
Wieso funktioniert das nicht?

2. Ist die "winhttp.dll" in allen Windowssystemen? Xp, Vista, Windows 7 und NT?

Das wars auch schon. Vielen Dank schonmal für die Lösungsvorschläge.

DeepRed92

Ersetze mal diese Funktion:

[autoit]

Func _iTunes_Start()
$iTunesApp = ObjCreate("iTunes.Application")
$Library_Playlist = $iTunesApp.LibraryPlaylist
$Library_Tracks = $iTunesApp.LibraryPlaylist.Tracks
$sel_Track = $iTunesApp.SelectedTracks
$current_Track = $iTunesApp.CurrentTrack
$Player_State = $iTunesApp.PlayerState
$Playlist_Handle = $iTunesApp.LibrarySource.Playlists
EndFunc ;==>_iTunes_Start

[/autoit][autoit][/autoit][autoit][/autoit]

mit:

[autoit]

Func _iTunes_Start()
$iTunesApp = ObjCreate("iTunes.Application")
If $iTunesApp = 0 Then Exit
$Library_Playlist = $iTunesApp.LibraryPlaylist
$Library_Tracks = $iTunesApp.LibraryPlaylist.Tracks
$sel_Track = $iTunesApp.SelectedTracks
$current_Track = $iTunesApp.CurrentTrack
$Player_State = $iTunesApp.PlayerState
$Playlist_Handle = $iTunesApp.LibrarySource.Playlists
EndFunc ;==>_iTunes_Start

[/autoit][autoit][/autoit][autoit][/autoit]

Dann sollte es gehen.

DeepRed92

Guten Abend. Ich versuche gerade den Statustext per AutoIt zu verändern. Ich habe alles schon versucht doch irgendwie scheint es nicht zu klappen . Die Funktion, die nicht funktioniert heißt übrigens "_SVZ_Set_Status($Session, $Status)".

Spoiler anzeigen

[autoit]

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Run_Au3check=n
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

AutoIt Version: 3.3.0.0
Author: myName

[/autoit] [autoit][/autoit] [autoit]

Script Function:
Template AutoIt script.

[/autoit] [autoit][/autoit] [autoit]

#ce ----------------------------------------------------------------------------

[/autoit] [autoit][/autoit] [autoit]

; Script Start - Add your code below here

[/autoit] [autoit][/autoit] [autoit]

;Credits: Progandy, Greek usw...

[/autoit] [autoit][/autoit] [autoit]

#include <WinHTTP.au3>
#include <String.au3>

[/autoit] [autoit][/autoit] [autoit]

$Init = _SVZ_Init()
$Text = _SVZ_Login($Init, "email", "pass")
;~ $visitors = _SVZ_Get_Visitors($Text)
;~ MsgBox(0, "", $visitors)

[/autoit] [autoit][/autoit] [autoit]

_SVZ_Set_Status($Init, "...")

[/autoit] [autoit][/autoit] [autoit]

_SVZ_Exit($Init)

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Init()
Local $Array[2]
$Array[0] = _WinHttpOpen("Einloggen")
$Array[1] = _WinHttpConnect($Array[0], "www.schuelervz.net")
Return $Array
EndFunc ;==>_SVZ_Init

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Login($Session, $i_username, $i_passwort)
Local $i_pw = _URIEncode($i_passwort)
Local $i_un = _URIEncode($i_username)
Global Const $Token = _GetToken($Init)
Global $post = "email=" & $i_un & "&password=" & $i_pw & "&login=Einloggen&jsEnabled=true&formkey=" & $Token[0] & "&iv=" & $Token[1]
Global $h_openRequest = _WinHttpOpenRequest($Session[1], "POST", "/Login", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $post)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
Return $data
EndFunc ;==>_SVZ_Login

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Exit($Session)
_WinHttpCloseHandle($Session[0])
_WinHttpCloseHandle($Session[1])
EndFunc ;==>_SVZ_Exit

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Get_Visitors($i_Login)
$SBW = _StringBetween($i_Login, "Besucher (insgesamt): ", "</div>")
Return $SBW[0]
EndFunc ;==>_SVZ_Get_Visitors

[/autoit] [autoit][/autoit] [autoit]

Func _SVZ_Set_Status($Session, $Status)

[/autoit] [autoit][/autoit] [autoit]

Local $BToken = _GetBuschfunkToken($Session)

[/autoit] [autoit][/autoit] [autoit]

$sPost = "text=" & _URIEncode($Status) & "&formkey=" & $BToken[0] & "&iv=" & $BToken[1]

[/autoit] [autoit][/autoit] [autoit]

Local $h_openRequest = _WinHttpOpenRequest($Session[1], "POST", "/Ajax", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)

[/autoit] [autoit][/autoit] [autoit]

EndFunc ;==>_SVZ_Set_Status

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _GetBuschfunkToken($Session)
Local $h_openRequest = _WinHttpOpenRequest($Session[1], "GET", "/Ajax", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
$formkey = StringRegExp($data, '<input type="hidden" name="formkey" value="(.*?)" />', 1)
$ivkey = StringRegExp($data, '<input type="hidden" name="iv" value="(.*?)" />', 1)
Dim $result[2]
$result[0] = $formkey[0]
$result[1] = $ivkey[0]
_WinHttpCloseHandle($h_openRequest)
Return $result
EndFunc ;==>_GetBuschfunkToken

[/autoit] [autoit][/autoit] [autoit]

Func _GetToken($Session)
Local $h_openRequest = _WinHttpOpenRequest($Session[1], "GET", "/Login", "HTTP/1.1", "http://www.schuelervz.net/")
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
$formkey = StringRegExp($data, '<input type="hidden" name="formkey" value="(.*?)" />', 1)
$ivkey = StringRegExp($data, '<input type="hidden" name="iv" value="(.*?)" />', 1)
Dim $result[2]
$result[0] = $formkey[0]
$result[1] = $ivkey[0]
_WinHttpCloseHandle($h_openRequest)
Return $result
EndFunc ;==>_GetToken

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _URIEncode($sData)
Local $aData = StringSplit(BinaryToString(StringToBinary($sData, 4), 1), "")
Local $nChar
$sData = ""
For $i = 1 To $aData[0]
$nChar = Asc($aData[$i])
Switch $nChar
Case 45, 46, 48 - 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 ;==>_URIEncode

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]

DeepRed92

Mit Execute und TCP* sollte es gehen.

DeepRed92

Also erstmal viiiiiiiiielen Dank für eure (besonders für Greeks) Hilfe.Bi mir funktioniert das jetzt endlich auch
Eine Frage hätte ich da noch. Wie kann ich mich noch ausloggen?

Vieleeen Dank

DeepRed92

du kriegst einen, hast aber keinen Monitor
______________________________
ich wünsche mir neue stylische Schuhe

DeepRed92

In einer Schleife benutzt Du Exitloop und um eine Funktion abzubrechen Return -1

DeepRed92

Also nochmal. Ich bin da schon angemeldet! Ich möchte mich da nu einloggen und das per Http-UDF, um den Statustext zu ändern.

Edit: Hab den Fehler im ersten Post von anmelden auf einloggen geändert. Sry war mein Fehler .

DeepRed92

BugFix ich hab nicht vor die Daten anderer User zu klauen. Es ging mir dabei nur darum, meinen Statustext ganz einfach zu verändern. Weiß den keiner eine ganz genaue Lösung, bzw was ich falsch gemacht habe?

DeepRed92

Hallo,

ich bin gerade dabei, einen Script zu schreiben, das sich automatisch im SchülerVZ einloggenkann. Doch irgendwie will das nicht richtig funktionieren. Es wird immer Angezeigt, dass das Passwort falsch sei.

Hier mein Script:

Spoiler anzeigen

[autoit]

#include <WinAPI.au3>
#include <WinHTTP.au3>

[/autoit] [autoit][/autoit] [autoit]

Global $hw_open = _WinHttpOpen("SVZ Poster")
Global $hw_connect = _WinHttpConnect($hw_open, "schuelervz.net")

[/autoit] [autoit][/autoit] [autoit]

Global Const $Token = _GetFormKey()

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

$Return = _Einloggen("Username", "Passwort")

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _Einloggen($username, $pw)
Global $h_openRequest = _WinHttpOpenRequest($hw_connect, "POST", "/sessions", "HTTP/1.1", "https://secure.schuelervz.net/Login")

[/autoit] [autoit][/autoit] [autoit]

$sPost = "email=" & _URIEncode($username) & "&password=" & _URIEncode($pw) & "&login=Einloggen&jsEnabled=true&formkey=" & $Token[0] & "&iv=" & $Token[1]

[/autoit] [autoit][/autoit] [autoit]

_WinHttpSendRequest($h_openRequest, "Content-Type: application/x-www-form-urlencoded" & @CRLF, $sPost)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error

[/autoit] [autoit][/autoit] [autoit]

If StringInStr($data, "Falsche E-Mail-Adresse oder falsches Passwort!") Or _
StringInStr($data, "Triff deine Freunde aus der Schule!") Then

[/autoit] [autoit][/autoit] [autoit]

MsgBox(16, " Falsches Passwort ", "Das von ihnen eingegebene Passwort ist falsch")
Else
MsgBox(0, "", "Eingeloggt")
$Eingelogt = 1
EndIf

[/autoit] [autoit][/autoit] [autoit]

_WinHttpCloseHandle($h_openRequest)
EndFunc ;==>_Einloggen

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

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 - 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 ;==>_URIEncode

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

Func _GetFormKey()
Global $h_openRequest = _WinHttpOpenRequest($hw_connect, "GET", "/", "HTTP/1.1", "http://twitter.com/")
Local $j_array[2]
_WinHttpSendRequest($h_openRequest)
_WinHttpReceiveResponse($h_openRequest)
Local $data = ""
Do
$data &= _WinHttpReadData($h_openRequest)
Until @error
_WinHttpCloseHandle($h_openRequest)
$result1 = StringRegExp($data, '<[^>]*?name="formkey"[^>]*?value="(.*?)"', 1)
$result2 = StringRegExp($data, '<[^>]*?name="iv"[^>]*?value="(.*?)"', 1)
$j_array[0] = $result1[0]
$j_array[1] = $result2[0]
Return $j_array
EndFunc ;==>_GetFormKey

[/autoit]

und die Daten, die man dafür braucht:

Spoiler anzeigen

Code

https://secure.schuelervz.net/Login


POST /Login HTTP/1.1
Host: secure.schuelervz.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.schuelervz.net/
Cookie: PHPSESSID=6aa6ffc517ab8b3a9b75ea6a9b32e207ce30c12d; logoutCheck=1
Content-Type: application/x-www-form-urlencoded
Content-Length: 327
email=HIERKOMMTDIEMAILADRESSEREIN&password=HIERKOMMTDASPWASSWORTREIN&login=Einloggen&jsEnabled=true&formkey=2a970684548226ec14f25a0cc3e379ad434c523bfe34c9fa77d590666817c9ccf09af1ba1a010d32a223db9d2c20e42236fac2fc47c7d77b3d73dd9e19521bd548f3d8f09d7ae0b2b592d126af601eba01aec287ed8382a01557c113d209c5af&iv=286bd842f9e2e4b9cfbf02c326a7613a
HTTP/1.x 302 Found
Server: nginx
Date: Sun, 30 Aug 2009 08:02:21 GMT
Content-Type: text/html; charset=utf-8
Transfer-Encoding: chunked
Connection: close
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: PHPSESSID=34476c36f45d7d35f78b3078b41fce4768af7429; path=/; domain=.schuelervz.net; HttpOnly
Set-Cookie: logoutCheck=1
Location: http://www.schuelervz.net/Start
Content-Encoding: gzip
Vary: Accept-Encoding

Alles anzeigen

Spoiler anzeigen

Code

http://www.schuelervz.net/Start


GET /Start HTTP/1.1
Host: www.schuelervz.net
User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.1.2) Gecko/20090729 Firefox/3.5.2
Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3
Accept-Encoding: gzip,deflate
Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
Keep-Alive: 300
Connection: keep-alive
Referer: http://www.schuelervz.net/
Cookie: Storage=%7B%22SuperSearch%22%3A%22%22%7D; POPUPCHECK=1251708664379; PHPSESSID=34476c36f45d7d35f78b3078b41fce4768af7429; SessionStorage=%7B%22TabGuid%22%3A%7B%22guid%22%3A1251696721046%7D%2C%22SessionActivity%22%3A%7B%22time%22%3A1251696573569%7D%7D


HTTP/1.x 200 OK
Server: nginx
Date: Sun, 30 Aug 2009 08:02:21 GMT
Content-Type: text/html; charset=utf-8
Transfer-Encoding: chunked
Connection: close
Expires: Thu, 19 Nov 1981 08:52:00 GMT
Cache-Control: no-store, no-cache, must-revalidate, post-check=0, pre-check=0
Pragma: no-cache
Set-Cookie: SessionStorage=%7B%22TabGuid%22%3A%7B%22guid%22%3A1251696721046%7D%2C%22SessionActivity%22%3A%7B%22time%22%3A1251696573569%7D%7D
Content-Encoding: gzip
Vary: Accept-Encoding

Alles anzeigen

Und das alles nochmal als Anhang:

DeepRed92

Also ich habe nun ein neues Projekt namens "Test" erstellt. Mit einem Klick auf Debugen wird ja die Dll erstellt. Ist das richtig soweit? Was muss ich nun tun?

Edit: Ja ok. Ich habe jetzt erst die Comp.txt gesehen. Vielen Dank RAPTOR-ONE für diese tolle Beispiele. Werd ich gleich mal archivieren. Weiter so!!!

DeepRed92

Zitat

@Deepred wie gut hat das eigentlich bei dir funktioniert, bin nen bisschen neugierig.

So ganz normal, wie bei jeder anderen Dll

Ach so. Wo kann ich denn den vbc Compiler herunterladen? Bei Google find ich leider nichts passendes dazu.

DeepRed92

Verdammt, bist Du gut!!!
Hätte nicht gedacht, das sowas überhaupt möglich wäre.
Funktioniert das denn auch mit VB?

DeepRed92

Du hast keine Schule mehr, bekommst dafür aber einen Privatlehrer xD

Ich wünsche mir Bücher xD

DeepRed92

Haha, cooles Spiel

Du bekommst eine schöne Freundin aber sie wird nicht deine Sprache sprechen können und vom Geld wirst du nix abbekommen (Mir ist jetzt nichts besseres eingefallen )

Ich wünsche mir ein neues Fahrrad

DeepRed92

Hallo,

gibt es eine UDF, mit der man mehrere 3D Arrays in einer Datei speichern kann?

DeepRed92

Wie schon gesagt. Es ist mit AutoIt nicht möglich, auf NET. -basierende Dlls zuzugreifen. Ich hatte sowas vor Monaten auch mal gefragt und als Antwort "nicht möglich" bekommen.

Beiträge von DeepRed92

GDI+ Screensavers (jetzt mit 2 Beispielen)

Im SVZ mit der Http-UDF anmelden (Hilfe)?

COM Error - Script weiter ausführen

Textdatei per WinHttp.au3 downloaden

COM Error - Script weiter ausführen

Im SVZ mit der Http-UDF anmelden (Hilfe)?

Variablen zwischen 2 Scripten

Im SVZ mit der Http-UDF anmelden (Hilfe)?

[spiel] Wünsch dir was !

While-Schleife in einer Funktion Abbrechen

Im SVZ mit der Http-UDF anmelden (Hilfe)?

Im SVZ mit der Http-UDF anmelden (Hilfe)?

Im SVZ mit der Http-UDF anmelden (Hilfe)?

C#-DLL in AutoIt einbinden

C#-DLL in AutoIt einbinden

C#-DLL in AutoIt einbinden

[spiel] Wünsch dir was !

[spiel] Wünsch dir was !

3D Array speichern (UDF)?

C#-DLL in AutoIt einbinden