Hallo
Mh, ich dachte er wollte die auslesen
Mfg Spider
Hallo
Mh, ich dachte er wollte die auslesen
Mfg Spider
Hallo und herzlich willkommen
So sollte es gehen:
;Includes immer am start!
#include<Inet.au3>
#include<GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$Form1 = GUICreate("Jappy info", 280, 180, 200, 125)
$Input1 = GUICtrlCreateInput("Name", 15, 15, 150, 20, -1, $WS_EX_CLIENTEDGE )
$Button = GUICtrlCreateButton("LOS", 50, 50, 175, 25)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $Button
;InetExplorerCapable: Damit leerzeichen und so mit übergeben werden.
;GuiCtrlRead ließt das angegebene Control aus.
$sGetSource = _INetGetSource('http://www.jappy.de/suche?name='&_INetExplorerCapable(GUICtrlRead($Input1)))
$SRE = StringRegExp($sGetSource, '</strong><br>(.{18})', 3)
If StringInStr($sGetSource, '<div class="erNick"><span class="no">') Then
MsgBox(0, "Jappy-on", "Momentan : on " & @CRLF & "Letzte aktivitet : " & $SRE[0])
Else
MsgBox(0, "Jappy-off", "Momentan : off " & @CRLF & "Letzte aktivitet : " & $SRE[0])
EndIf
EndSelect
WEnd
Mfg Spider
Hallo
Hab dir mal schnell was mit StringRegExp geschrieben:
[autoit]$sText = "aYYbbaXX" ;Der text
$sLetters = "ab" ;Buchstaben zum filtern
$x = StringRegExp("aYYbbaXX","["&$sLetters&"]",3)
$sString = ""
For $i = 0 To UBound($x)-1
$sString &= $x[$i]
Next
MsgBox(0,"","Filtered: "&$sString)
[/autoit]Mfg Spdier
Alles klar..
Topic Moved: Off Topic --> Hile und Unterstüzung --> Skripte --> Talk --> Off Topic
Funktioniert nicht, also nicht das ich es schon ausprobiert hätte oder so
Hallo
Meinst du sowas wie Run("ftp.exe open "blabla"") ?
Mfg Spider
Hallo
Ach, nur die Regierung hat daran Schuld! Bestimmt ist das wieder so ein Gesetz von Beck oder so, damit die Glühbirnen Industrie aufboomt.
Ich hab gehört, dass die neuen Glühbirnen alle ein selbstauslöser haben sollen, mit den der Herr Beck oder wer auch immer die Glühbirnen auf Knopfdruck kaputt macht.
Als nächstes kommt noch, dass sie dank dem Glühkommonikationsgesetz gucken, wann wo wie eine Glühbirne an/ausgeschaltet wird, dann haben wir ja garnicht mehr unseren Freiraum!
Nur weil irgendwelche Leute sich Musik illegal über ihre Glühbirne downloaden oder über Glühbirnenkommunikation ein Attentat auf das Weiße Haus planen...
Fazit: Blöde Rägierung!
Mfg Spider
Hallo ihr anal-fixierten -.-
Könntet ihr mal aufhören euch so schwul und analfixiert über das thema unterhalten, ob es nun eine Glühlampe, Leuchtstoffmittel, Glühmittel (oO), .. ist?
Das is hier doch echte schwuchtel schei*e
Mfg Spider
p.s.: ich hab nix gegen schwule, sie bereichern unsere Kultur Aber sonts hätte das mit anal fixierten nicht so hingehauen :pinch:
Hallo
Wurde schonmal besprochen, finde es als Moderator einfach nicht in Ordnung, wenn ihr einfach neue Threads aufmacht, ohne vorher die Suche zu benutzen!
Hier der Link: https://autoit.de/index.php?page=Thread&threadID=6207
Mfg Spider
So, wer bin ich?
Hallo
Was genau willst du machen?! Wenn das programm xyz heißt, dann starte xyz.au3?
Mfg Spider
Hallo
Guck zunot mal in der Hilfe unter "Func" nach
Mfg Spider
Hallo
Geh auch schneller, direkt über TCP / UDP: http://www.autoitscript.com/forum/index.php?showtopic=22082&hl=Time
Mfg Spider
Hallo
@Dönney: Nein, wenn das Trennzeichen @CRLF ist, eben nicht!
bernd670 : >< jo klar..hätte schwören können dass ich die 1 gesetzt habe..
Mfg Spider
Hi A
Meinst du so ungefähr?
[autoit]#include <inet.au3>
$aRead = StringSplit(_INetGetSource("http://user.funpic.de/version.txt"),@CRLF)
MsgBox(0,"","Insgesamte Zeilen in der Datei: "&$aRead[0]) ; Wieviele Zeilen in der Datei insgesamt sind
MsgBox(0,"",$aRead[5]) ;Zeile 5
MsgBox(0,"",$aRead[2]) ;Zeile 2
;....
Mfg Spider
Hallo liebe AutoItler
Ihr kennt ja alle die Funktion _InetGetSource. Es gibt nur 2 kleine nachteile:
1. Man brauch eine DLL, die zwar in Windows ist, aber trozdem könnte es ja mal sein, dass sie nicht da ist
Und 2. Man kann kein POST(php) übergeben. Man kann zwar in der Beta einen Header angeben, dass ist aber mühselig und funktioniert auch nur selten.
Also hab ich mich rangemacht und eine eigene Funktion geschrieben namens _InetGetSourcePost (Ihr kennt mich ja, wie immer sehr kreativ^^)
Außerdem empfängt man mit meiner Version, den Sorucecode ($aReturn[1]) und den BackHeader ($aReturn[0])!
INETv2.au3
#include-once
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];===============================================================================
;
; Function Name: _INetGetSourcePost()
; Description: Gets the source from an URL without writing a temp file and you can send a Post.
; Parameter(s): $sURL = The URL of the site.
; $sPost = The Post to send
; Requirement(s): -
; Return Value(s): On Success - Return a array with $aReturn[0] = Backheader and $aReturn[1] = Sourcecode
; On Failure - 0 and sets @ERROR
; @error = 1: Post or URL is nothing
; @error = 2: Error by RegularExpression
; @error = 3: $sHost or $sHttp1 is nothing
; @error = 4: Can not get IP of Host
; @error = 5: Can not connect to host
; @error = 6: Nothing can be send
; @error = 7: Connection abborted while receiving
; Author(s): GtaSpider
;
;===============================================================================
Func _INetGetSourcePost($sURL, $sPost)
Local $iSocket, $sHeader, $sRecv, $iIP, $sHost, $aRegExp, $sHttp1,$iErr,$iSend,$aReturn[2]
If $sURL = '' Or $sPost = '' Then Return SetError(1, 0, 0)
If StringLeft($sURL, 7) <> 'http://' And StringLeft($sURL, <> 'https://' Then $sURL = "http://" & $sURL
If StringRight($sURL, 1) <> "/" Then $sURL &= "/"
$aRegExp = StringRegExp($sURL, "http?://(.*?)/", 3)
If @error Then Return SetError(2, 0, 0)
$sHost = $aRegExp[0]
If $sHost = '' Then Return SetError(3, 0, 0)
$sHttp1 = StringTrimLeft($sURL,StringInStr($sURL,"/",-1,3)-1)
If $sHttp1 = '' Then Return SetError(3, 0, 0)
$sHeader = "POST " & $sHttp1 & " HTTP/1.1" & @CRLF & _
"Host: " & $sHost & @CRLF & _
"User-Agent: AutoIt v3" & @CRLF & _
"Content-Length: " & StringLen($sPost) & @CRLF & @CRLF & $sPost
TCPStartup() ;If not already done
$iIP = TCPNameToIP($sHost)
If $iIP = '' Or StringInStr($iIP, ".") = 0 Then Return SetError(4, 0, 0)
$iSocket = TCPConnect($iIP, 80)
If @error Or $iSocket < 0 Then Return SetError(5, 0, 0)
$iSend = TCPSend($iSocket, $sHeader)
If @error Or $iSend < 1 Then Return SetError(6, 0, 0)
While 1
$sRecv = TCPRecv($iSocket, 1024)
$iErr = @error
If $sRecv <> '' Then
While 1
$sRecv &= TCPRecv($iSocket, 1024)
If @error Then ExitLoop 2
WEnd
EndIf
If $iErr Then Return SetError(7,0,0)
WEnd
$aReturn[0] = StringLeft($sRecv,StringInStr($sRecv,@CRLF&@CRLF)-1)
$aReturn[1] = StringTrimLeft($sRecv,StringLen($aReturn[0])+4)
Return $aReturn
EndFunc ;==>_INetGetSourcePost
Beispiel
#include <INETv2.au3>
;by GtaSpider
SplashTextOn("","Downloading...",200,20,-1,-1,1)
$aSource = _INetGetSourcePost("http://rs255.rapidshare.com/files/110695594/cardr.rar","dl.start=Free")
If @error Then Exit MsgBox(16,"","Error: "&@error)
FileWrite("TestFile.html",$aSource[1])
RunWait('"' & @ComSpec & '" /c "'&@ScriptDir&'\TestFile.html"', '', @SW_HIDE)
SplashOff()
Beispiel und INETv2.au3 auch im Anhang!
Hoffe ihr findet Gebrauch dafür
Mfg Spider
Edit: HotFix
Hallo
Die im englischen Forum wollen auch die FF.au3, villeciht überestzt das mal jemand? Ich würds ja machen, hab aber grad zuviel um den Ohren.
Hier der Englsiche Post: http://www.autoitscript.com/forum/index.php?showtopic=70821
Mfg Spider
Hallo
Ohne ne Datei downloaden zu müssen:
[autoit]#include <inet.au3>
$sRead = _INetGetSource("http://user.funpic.de/version.txt")
MsgBox(0,"",$sRead)
Mfg Spider
Hallo
@Mega: Du benutzt wahrscheinlich beim Antworten den Editor und nicht den Tab Quellcode. Mit dem Tab quellcode, funktioniert das pasten von Scripten wunderbar
Also, hab mal dein Beitrag oben Editiert, damit das script funktioniert.
Mfg Spider
Hallo
SciTe ist nicht nur für AutoIt. Wenn du eine neue Datei in SciTe erstellst, musst du sie erst als au3 Datei abspeichern. Danach erkennt SciTe dann erst das es ne au3 datei ist.
Mfg Spider
Hallo
So?
[autoit]If MsgBox(4,"","Mit NEIN (!) schaltest du den PC aus."&@CRLF&"Mit JA (!) brichst du ab") = 7 Then Shutdown(1)
[/autoit]Mfg Spider