Beiträge von Greek

Greek

Super UDF, kommt sofort in meine Sammelung

Die Schrift Colonna MT solltest du aber aus dem Beispiel rausnehmen, hat bei mir auch alles verbuggt^^.

[Blockierte Grafik: http://img41.imageshack.us/img41/9288/unbenanntwtq.jpg]

Greek

Ich benutz immer _INetSmtpMailCom zum Email senden, funktioniert bei mir tadelos, hier mal nen Beispiel von mir mit GUI:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Global $oMyRet[2]
Global $oMyError = ObjEvent("AutoIt.Error", "MyErrFunc")

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Email versender", 396, 294, 1153, 185)
$Input1 = GUICtrlCreateInput("", 8, 40, 121, 21)
$Input2 = GUICtrlCreateInput("", 248, 40, 121, 21)
$Label1 = GUICtrlCreateLabel("Mail sever: Für http://www.web.de ist er smtp.web.de ", 8, 16, 229, 17)
$Label2 = GUICtrlCreateLabel("Name des Absenders", 248, 16, 105, 17)
$Label3 = GUICtrlCreateLabel("Absender email addresse", 8, 72, 122, 17)
$Input3 = GUICtrlCreateInput("", 8, 96, 121, 21)
$Input4 = GUICtrlCreateInput("", 248, 96, 121, 21)
$Label4 = GUICtrlCreateLabel("Empfänger email addresse", 248, 72, 128, 17)
$Input5 = GUICtrlCreateInput("", 8, 152, 121, 21)
$Label5 = GUICtrlCreateLabel("Betreff", 8, 128, 35, 17)
$Label6 = GUICtrlCreateLabel(" Text ", 248, 128, 34, 17)
$Input6 = GUICtrlCreateInput("", 248, 152, 121, 21)
$Label7 = GUICtrlCreateLabel("Nochmal Absender email", 8, 184, 121, 17)
$Input7 = GUICtrlCreateInput("", 8, 208, 121, 21)
$Input8 = GUICtrlCreateInput("", 248, 208, 121, 21)
$Label8 = GUICtrlCreateLabel("Passwort der Absender email", 248, 184, 140, 17)
$Button1 = GUICtrlCreateButton("Email versenden", 152, 248, 100, 25, 0)
$Button2 = GUICtrlCreateButton("Abbrechen", 312, 256, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$rc = _INetSmtpMailCom(GUICtrlRead( $Input1),GUICtrlRead($Input2),GUICtrlRead($Input3), GUICtrlRead($Input4), GUICtrlRead($Input5), GUICtrlRead($Input6), "", "","", GUICtrlRead($Input7), GUICtrlRead($Input8))
If @error then
msgbox(0,"Error sending message","Error code:" & @error & " Description:" & $rc)
EndIf
Case $Button2
Exit
EndSwitch
WEnd

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

Func _INetSmtpMailCom($s_SmtpServer, $s_FromName, $s_FromAddress, $s_ToAddress, $s_Subject = "", $as_Body = "", $s_AttachFiles = "", $s_CcAddress = "", $s_BccAddress = "", $s_Username = "", $s_Password = "")
$objEmail = ObjCreate("CDO.Message")
$objEmail.From = '"' & $s_FromName & '" <' & $s_FromAddress & '>'
$objEmail.To = $s_ToAddress
Local $i_Error = 0
Local $i_Error_desciption = ""
If $s_CcAddress <> "" Then $objEmail.Cc = $s_CcAddress
If $s_BccAddress <> "" Then $objEmail.Cc = $s_BccAddress
$objEmail.Subject = $s_Subject
If StringInStr($as_Body,"<") and StringInStr($as_Body,">") Then
$objEmail.HTMLBody = $as_Body
Else
$objEmail.Textbody = $as_Body & @CRLF
EndIf
If $s_AttachFiles <> "" Then
Local $S_Files2Attach = StringSplit($s_AttachFiles, ";")
For $ex = 1 To $S_Files2Attach[0]
$S_Files2Attach[$x] = _PathFull ($S_Files2Attach[$x])
If FileExists($S_Files2Attach[$x]) Then
$objEmail.AddAttachment ($S_Files2Attach[$x])
Else
$i_Error_desciption = $i_Error_desciption & @lf & 'File not found to attach: ' & $S_Files2Attach[$x]
SetError(1)
return 0
EndIf
Next
EndIf
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = $s_SmtpServer
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
;Authenticated SMTP
If $s_Username <> "" Then
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = $s_Username
$objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = $s_Password
EndIf
;Update settings
$objEmail.Configuration.Fields.Update
; Sent the Message
$objEmail.Send
if @error then
SetError(2)
return $oMyRet[1]
EndIf
EndFunc;==>_INetSmtpMailCom
;
;
; Com Error Handler
Func MyErrFunc()
$HexNumber = Hex($oMyError.number,
$oMyRet[0] = $HexNumber
$oMyRet[1] = StringStripWS($oMyError.description,3)
ConsoleWrite("### COM Error ! Number: " & $HexNumber & " ScriptLine: " & $oMyError.scriptline & " Description:" & $oMyRet[1] & @LF)
SetError(1); something to check for when this function returns
Return
EndFunc;==>MyErrFunc

[/autoit]

Greek

geiles Spiel

Ich komm aber an einer Stelle nicht weiter, wo muss ich hin wenn der Balken einen hochträgt? Nach rechts war glaubich nichts mehr und wenn man draufbleibt stirbt man weil man an die Decke gedrückt wird^^

Greek

zwei

Greek

Das selbe Problem hatte mal jemand mit Call of Duty:

Mit workingdir ging es.

Versuch mal:

[autoit]

ShellExecute ( "X3.exe", "", "F:\X3-Reunion" )

[/autoit]

Greek

Zitat von Juky

Ich freue mich auf jede Antwort

Glaub ich kaum mehr als das wirst du nicht als antwort erhalten^^

Greek

Zitat von automan

Dein Programm kann man auch für den SchülerVZ Buschfunk Nutzen, indem man sein SVZ und sein Twitter Konto verbindet
Das ist mal Richtig Geil

Hehe, wusst ich garnet

Greek

Zitat von Deepred

Machst Du sowas mit Wireshark?

Ne geht zwar gut mit Wireshark aber dauert zu lange, Ich benutzt Mozilla Firefox mit dem Addon "Live HTTP headers", das ist leicht zu bedienen und übersichtlich.

Greek

Zitat von Deepred

Wie bist denn Du darauf gekommen?

Spoiler anzeigen

[autoit]
Global $h_openRequest = _WinHttpOpenRequest($hw_connect,"POST", "/sessions","HTTP/1.1", "http://www.twitter.com/")
[/autoit] [autoit][/autoit] [autoit]
$sPost = "authenticity_token="&$Token&"&session%5Busername_or_email%5D="&_URIEncode($username)&"&session%5Bpassword%5D="&_URIEncode($pw)&"&q="
[/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]

Gibt es irgendwo dafür eine Dokumentation oder hast Du das selber herausgefunden?
Sieht ja ziemlich kompliziert aus .

Alles anzeigen

Ist auch kompliziert

Musst die Packete auslesen, da stehen die Sachen drin und dann noch richtig senden.

Zitat

Darf ich Teile als UDF verpacken und gesondert verwenden?

Ja, wenn du mein Namen vieleicht noch reinschreibst wär schön

Greek

Zitat von Deepred

Cool. Hab mich gerade mal angemeldet und es ausprobiert. Funktioniert super .

Mal so als Frage. Kann man sowas mit der WinHTTP.au3 auch fürn SchülerVZ machen?

Müsste gehen.

Greek

Zitat von Eistee

was ist twitter ?

Das ist so ne Seite da schreibt man immer rein was man gerade macht.

http://twitter.com/

Ist ziemlich pupolär geworden.

Greek

Hier nen Programm um schnell bei Twitter mal reinzuschreiben was man gerade macht

[Blockierte Grafik: http://img373.imageshack.us/img373/6000/twitterpic.jpg]

Download

Greek

[autoit]

#Include <GDIPlus.au3>
; Pfeil aufs Bild malen, Greek
_GDIPlus_Startup()

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

$hImage = _GDIPlus_ImageLoadFromFile(@ScriptDir&"\DesktopScreenshot.JPG") ; Bild eintragen
$hGraphic = _GDIPlus_ImageGetGraphicsContext($hImage)

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

$hPen = _GDIPlus_PenCreate (0xFF000000, 2)
$hEndCap = _GDIPlus_ArrowCapCreate (3, 6)
_GDIPlus_PenSetCustomEndCap ($hPen, $hEndCap)

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

_GDIPlus_PenSetWidth ($hPen, 6)
_GDIPlus_GraphicsDrawLine ($hGraphic, 10, 180, 390, 180, $hPen)

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

_GDIPlus_ImageSaveToFile($hImage, "new pic.jpg")

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

_GDIPlus_ArrowCapDispose ($hEndCap)
_GDIPlus_PenDispose ($hPen)
_GDIPlus_GraphicsDispose($hGraphic)
_GDIPlus_ImageDispose($hImage)

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

_GDIPlus_Shutdown()

[/autoit]

Greek

Mir fehlt immer noch 1 Cookie und der Token

Spoiler anzeigen

[autoit]

Global $username="Greek6"
Global $pw=FileRead("hide.txt")
Global $nachricht="hm cookie?"

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

_Login($username,$pw)
Global $CookieA=_CookieHolenA()
_Weiterleiten()
Global $CookieB=_CookieHolenB()
_Posten($nachricht)

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

Func _Login($username,$pw)
Local $sRecv=''
TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$sPost1 = "session%5Busername_or_email%5D="&$username&"&session%5Bpassword%5D="&$pw&"&q="
$header1 = "POST /sessions HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: "&StringLen($sPost1) & @CRLF & @CRLF & $sPost1

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

TCPSend ($socket,$header1)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("Login.htm",$sRecv)
TCPShutdown()
EndFunc

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

Func _Weiterleiten()
Local $sRecv=''
TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$header2 = "GET / HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Cookie: __utma=43838368.3925585536039455000.1248804799.1248804799.1248866945.2; __utmz=43838368.1248804799.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmv=43838368.lang%3A%20en_DE; _twitter_sess="&$CookieA&"; __utmb=43838368.52.9.1248868191121; __utmc=43838368; lang=en"& @CRLF & @CRLF

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

TCPSend ($socket,$header2)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("Weiterleiten.htm",$sRecv)

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

TCPShutdown()
EndFunc

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

Func _Posten($nachricht)
Local $sRecv=''
TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$sPost3 = "authenticity_token="&ENTFERNT&"&status="&$nachricht&"&twttr=true&return_rendered_status=true"
$header3 = "POST /status/update HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: application/json, text/javascript, */*" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Cookie: __utma=43838368.3925585536039455000.1248804799.1248804799.1248866945.2; __utmz=43838368.1248804799.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmv=43838368.lang%3A%20en_DE; _twitter_sess=BAh7DDoOcmV0dXJuX3RvMDoTcGFzc3dvcmRfdG9rZW4iLTY5NDM1MDQ5OGMx%250ANTg2NGY1NjI3MjZiNTZkOGIzNDNmOWQ0MmExNjU6CXVzZXJpBOZtogM6DWFk%250AbWluX2lkMDoMY3NyZl9pZCIlNjQ5ZTA2MjU4MWZkNzZjNzg4YjBiMzY1ODEx%250AMmVhN2IiCmZsYXNoSUM6J0FjdGlvbkNvbnRyb2xsZXI6OkZsYXNoOjpGbGFz%250AaEhhc2h7AAY6CkB1c2VkewA6B2lkIiVmYzczM2M5Mjc0MWRmYjU4OWViNGU3%250AOWI5OWM1M2VkMA%253D%253D--498dba2d373f9bfc221a96bd40c9cba0c917e79b; __utmb=43838368.52.9.1248868191121; __utmc=43838368; lang=en" & @CRLF & _
"Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF & _
"X-Requested-With: XMLHttpRequest" & @CRLF & _
"Content-Length: "&StringLen($sPost3) & @CRLF & @CRLF & $sPost3

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

TCPSend ($socket,$header3)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("Posten.htm",$sRecv)

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

TCPShutdown()
EndFunc

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

Func _CookieHolenA()
$sText=FileRead("Login.htm")
$result=StringRegExp($sText,"Set-Cookie: _twitter_sess=(.*?);",1)
Return $result[0]
EndFunc

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

Func _CookieHolenB()
$sText=FileRead("Weiterleiten.htm")
$result=StringRegExp($sText,"Set-Cookie: _twitter_sess=(.*?);",1)
Return $result[0]
EndFunc

[/autoit]

Ich kann nur mit dem Cookie posten.

Spoiler anzeigen

BAh7DDoOcmV0dXJuX3RvMDoTcGFzc3dvcmRfdG9rZW4iLTY5NDM1MDQ5OGMx%250ANTg2NGY1NjI3MjZiNTZkOGIzNDNmOWQ0MmExNjU6CXVzZXJpBOZtogM6DWFk%250AbWluX2lkMDoMY3NyZl9pZCIlNjQ5ZTA2MjU4MWZkNzZjNzg4YjBiMzY1ODEx%250AMmVhN2IiCmZsYXNoSUM6J0FjdGlvbkNvbnRyb2xsZXI6OkZsYXNoOjpGbGFz%250AaEhhc2h7AAY6CkB1c2VkewA6B2lkIiVmYzczM2M5Mjc0MWRmYjU4OWViNGU3%250AOWI5OWM1M2VkMA%253D%253D--498dba2d373f9bfc221a96bd40c9cba0c917e79b

Die anderen beiden Cookies funktionieren nicht wo ich auslese. ( CookieA zum Weiterleiten der CookieB hat noch keine Verwendung. )

Ich find nirgends den richtigen Cockie und der Token steht auch nirgends

Greek

Zitat von L3viathan2142

Du twitterst grade es gehe ohne Token, wie denn?
edit: Aaaalso, meiner Information nach muss man nur http://twitter.com/statuses/update.xml?status=Test via AutoIt-tool
mit HTTP-Authentifizierung aufrufen...

Bin gerade dabei, dauert noch nen bissel, ich raum erstmal das ganze Script auf und mach Funktionen.

Greek

Zitat von L3viathan2142

Das wäre vermutlich morgen eh nicht mehr gültig
Aber zurück zu meiner Frage: wie komme ich denn an mein Token?

Ich hab ihn aus meinen Paket genommen, der ändert sich wohl jede 24 Stunden oder so.

Edit:

Man kann sich ohne Token einloggen aber wenn man ohne Token postet passiert das,

Zitat

403 Forbidden: The server understood the request, but is refusing to fulfill it.

Irgendwie muss man den doch bekommen... ( Die twitter session kann man im 2 Paket auslesen )

Greek

OMG!! wie kommt ihr den zu mir?!?!??!?!?!?

ich hab keine ahnung mein passwort steht doch nur in der hide.txt

ich glaub das liegt am token

schnell mal rauseditieren!!!

Greek

Habs hingegrigt, hab Stunden dran gehockt

Ist aber jetzt mit TCP, ist ja wurscht.

Spoiler anzeigen

[autoit]

; Twitter Poster Author: Greek
Global $username="Greek6"
Global $pw=FileRead("hide.txt")
Global $nachricht="langweilig"

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

TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$sPost1 = "authenticity_token="&ENTFERNT&"&session%5Busername_or_email%5D="&$username&"&session%5Bpassword%5D="&$pw&"&q="
$header1 = "POST /sessions HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Cookie: __utma=43838368.3925585536039455000.1248804799.1248804799.1248866945.2; __utmz=43838368.1248804799.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmv=43838368.lang%3A%20en_DE; _twitter_sess=BAh7CDoMY3NyZl9pZCIlNjQ5ZTA2MjU4MWZkNzZjNzg4YjBiMzY1ODExMmVh%250AN2I6B2lkIiVmYzczM2M5Mjc0MWRmYjU4OWViNGU3OWI5OWM1M2VkMCIKZmxh%250Ac2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoK%250AQHVzZWR7AA%253D%253D--3d0ea17b45f367e76a34b90cea40e36b7bac4d4e; __utmb=43838368.3.10.1248866945; __utmc=43838368"& @CRLF & _
"Content-Type: application/x-www-form-urlencoded" & @CRLF & _
"Content-Length: "&StringLen($sPost1) & @CRLF & @CRLF & $sPost1

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

TCPSend ($socket,$header1)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("recv.htm",$sRecv)
$sRecv=''

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

TCPShutdown()
TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$header2 = "GET / HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Cookie: __utma=43838368.3925585536039455000.1248804799.1248804799.1248866945.2; __utmz=43838368.1248804799.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmv=43838368.lang%3A%20en_DE; _twitter_sess=BAh7DDoJdXNlcmkE5m2iAzoTcGFzc3dvcmRfdG9rZW4iLTY5NDM1MDQ5OGMx%250ANTg2NGY1NjI3MjZiNTZkOGIzNDNmOWQ0MmExNjU6DnJldHVybl90bzA6DGNz%250AcmZfaWQiJTY0OWUwNjI1ODFmZDc2Yzc4OGIwYjM2NTgxMTJlYTdiOg1hZG1p%250Abl9pZDA6B2lkIiVmYzczM2M5Mjc0MWRmYjU4OWViNGU3OWI5OWM1M2VkMCIK%250AZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsA%250ABjoKQHVzZWR7AA%253D%253D--69ffa4af09ee2cce73d5144b4bd8ab4f774e3c52; __utmb=43838368.52.9.1248868191121; __utmc=43838368; lang=en"& @CRLF & @CRLF

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

TCPSend ($socket,$header2)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("recv2.htm",$sRecv)
$sRecv=''

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

TCPShutdown()
TCPStartup()

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

$socket = TCPConnect(TCPNameToIP("www.twitter.com"),80)

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

$sPost3 = "authenticity_token="&ENTFERNT&"&status="&$nachricht&"&twttr=true&return_rendered_status=true"
$header3 = "POST /status/update HTTP/1.1" & @CRLF & _
"Host: twitter.com" & @CRLF & _
"User-Agent: Mozilla/5.0 (Windows; U; Windows NT 5.1; de; rv:1.9.0.11) Gecko/2009060215 Firefox/3.0.11 (.NET CLR 3.5.30729)" & @CRLF & _
"Accept: application/json, text/javascript, */*" & @CRLF & _
"Accept-Language: de-de,de;q=0.8,en-us;q=0.5,en;q=0.3" & @CRLF & _
"Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7" & @CRLF & _
"Keep-Alive: 300" & @CRLF & _
"Connection: keep-alive" & @CRLF & _
"Referer: http://twitter.com/" & @CRLF & _
"Cookie: __utma=43838368.3925585536039455000.1248804799.1248804799.1248866945.2; __utmz=43838368.1248804799.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); __utmv=43838368.lang%3A%20en; _twitter_sess=BAh7DDoOcmV0dXJuX3RvMDoTcGFzc3dvcmRfdG9rZW4iLTY5NDM1MDQ5OGMx%250ANTg2NGY1NjI3MjZiNTZkOGIzNDNmOWQ0MmExNjU6CXVzZXJpBOZtogM6DWFk%250AbWluX2lkMDoMY3NyZl9pZCIlNjQ5ZTA2MjU4MWZkNzZjNzg4YjBiMzY1ODEx%250AMmVhN2IiCmZsYXNoSUM6J0FjdGlvbkNvbnRyb2xsZXI6OkZsYXNoOjpGbGFz%250AaEhhc2h7AAY6CkB1c2VkewA6B2lkIiVmYzczM2M5Mjc0MWRmYjU4OWViNGU3%250AOWI5OWM1M2VkMA%253D%253D--498dba2d373f9bfc221a96bd40c9cba0c917e79b; __utmb=43838368.57.9.1248868608429; __utmc=43838368; lang=en"& @CRLF & _
"Content-Type: application/x-www-form-urlencoded; charset=UTF-8" & @CRLF & _
"X-Requested-With: XMLHttpRequest" & @CRLF & _
"Content-Length: "&StringLen($sPost3) & @CRLF & @CRLF & $sPost3

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

TCPSend ($socket,$header3)

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

While 1
$sRecv = TCPRecv($Socket, 1024)
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($Socket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
WEnd
FileWrite("recv3.htm",$sRecv)

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

TCPShutdown()

[/autoit]

Musst dein Daten noch rein tun.

Edit:
authenticity_token entfernt!
Keiner mehr zu mir bitte!!

Greek

[autoit]

#include <GuiConstants.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>

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

$Gui = GUICreate("Suchmaschiene",190,50,(@DesktopWidth - 469) / 2, (@DesktopHeight - 639) / 2 ,$WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)

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

$such_kasten = GUICtrlCreateInput("",5,5,180,20)
$Such_Button = GUICtrlCreateButton("Suchen",5,25,50,20)

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

GUISetState()

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

While 1
Switch GUIGetMsg()
Case $Such_Button
ShellExecute(GUICtrlRead($such_kasten))
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd

[/autoit]

Fileopen ist für was anderes, musst dir die Deutsche Hilfe runterladen und den Befehl durchlesen. Benutz Run oder Shellexecute.

Und was wolltest du damit: _GUICtrlButton_Click ? Du hattest nicht mal die Include dafür drin^^ .
Die wäre

[autoit]

#Include <GuiButton.au3>

[/autoit]

Den Befehl brauchst du nicht.

Greek

Hm ja beim beenden hat er noch gemeckert, habs mal verbessert:

Spoiler anzeigen

[autoit]

#include <ScreenCapture.au3>
#Include <GDIPlus.au3>
_GDIPlus_Startup()

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

HotKeySet("{NUMPAD0}", "_start")
HotKeySet("{NUMPAD9}", "_ende")
HotKeySet("{PGUP}", "_Bildshow")

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

Global $Bildheight
Global $Bildwidth

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

While 1
Sleep(1000)
WEnd

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

Func _start()
MsgBox(64, "Info", "Bewege die Maus zur oberen linken Ecke des zu speichernden Bildes")
Sleep(2000)
$pos1 = MouseGetPos()
MsgBox(64, "Info", "Nun zur unteren rechten Ecke des Bildes")
Sleep(2000)
$pos2 = MouseGetPos()
$hbitmap=_ScreenCapture_Capture(@ScriptDir&"\test.jpg", $pos1[0], $pos1[1], $pos2[0], $pos2[1])
$hImage=_GDIPlus_ImageLoadFromFile(@ScriptDir&"\test.jpg")
Global $Bildwidth = _GDIPlus_ImageGetWidth($hImage)
Global $Bildheight = _GDIPlus_ImageGetHeight($hImage)
MsgBox(64, "Info", "Bild gespeichert. Mit Bildauf kannst du es betrachten")
MsgBox(64, "Info", "Es ist "&$Bildwidth&" breit und "&$Bildheight&" hoch.")
EndFunc

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

Func _ende()
If IsDeclared($Bildwidth) Then _GDIPlus_ImageDispose($Bildwidth)
If IsDeclared($Bildheight) Then _GDIPlus_ImageDispose($Bildheight)
_GDIPlus_Shutdown()
Exit
EndFunc

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

Func _Bildshow()
If FileExists(@ScriptDir&"\test.jpg") Then Run("MSPaint.exe " & '"' & @ScriptDir & '\test.jpg"')
EndFunc

[/autoit]

Beiträge von Greek

Bunte Labels erzeugen

Problem mit _INetSmtpMail

Super Mario Jump n Run

[spiel] Autoit.de kann nicht bis 100 zählen

ShellExecute

Frage!

Twitter poster

Twitter poster

Twitter poster

Twitter poster

Twitter poster

Twitter poster

Pfeil auf Bild malen mittels GDI+

WinHTTP Com Object Authentifizierung

WinHTTP Com Object Authentifizierung

WinHTTP Com Object Authentifizierung

WinHTTP Com Object Authentifizierung

WinHTTP Com Object Authentifizierung

Datei Suchmaschiene

Teile vom Bildschirm als Bild speichern?