Bekommst du. Leider wirst du verhaftet und musst den Rest deines Lebens in der Zelle verbringen 
Ich wünsche mir einen Mac Pro 
Beiträge von Stevenx
-
-
Bug:
Das Reinhören Fenster kann nicht mehr gefunden werden, wenn man wegklickt
Ein Wunsch:
Statt für jedes Lied ein Cover abzuspeichern, wäre es toll, eine Album Abfrage zu machen (z.B. ACDC-Highway to Hell.jpg für das Album Highway to Hell)
Steve
-
An deinem Urlaubstag gibt es dein Lieblingsessen in der Kantine. Aus reinem Selbsthass springst du vom Dach des Firmengebäudes
Ich wünsche mir einen Universalakku, der unendlich lange hält, umweltfreundlich ist und alle Geräte in der Umgebung aufladet.
Dann kann ich in Ruhe sterben
-
Sie schmecken so süß, dass du Ultra 4K-aries (haha Wortspiel) bekommst und stirbst.
Ich wünsche mir eine Kontaktlinse, die als Mini PC dient (so was wie Google Glass ^^)
-
Bekommst du. Nachdem Obama dich Gitarre spielen gehört hat, wurden in allen NATO Staaten Gitarren verboten. Dumm gelaufen
Ich wünsche mir, dass ich mich beamen kann :scotty:
-
Eine Boeing 747 wollte gerade (wieder mal) irgendwo "landen" - du hast die ganze Bevölkerung gerettet! Leider bist du dabei draufgegangen
Ich wünsche mir, dass ich nie schlafen muss.
-
-
Also ich cracks ned
Hab ne Schülerversion.AutoCAD ist unglaublich. Musst dir mal anschauen. Es gibt auch ne Demo/Testversion.
-
Hallo Alina
Guck dir AutoCAD an, ist sehr flexibel und kannst tolle Sachen damit machen.
Kostet was, aber wenn du bissl googlest
Steve
-
minx:
Ich will jz keine E-Mails unerlaubt zitieren, aber bei fast jeder Programmvorstellung hatte ich Probleme mit Softpedia wegen VirusTotal (die haben mir das sogar geschrieben). Ein Tool von mir ist noch immer nicht oben - ich war sauer und hatte keine Lust, den Source zu bearbeiten.
-
Softpedia ist das klassische Beispiel. Nennen sich seriös, lehnen aber AutoIt Programme gleich auf wegen deren "technologisch wirksamen Hightech Virentools" (aka. VirusTotal). Bei denen muss ich den Sourcecode immer mitpacken und ihn über VBS kompilieren.
-
Du wolltest schon immer schnell nach Songtexten suchen? Ja? Dann genau das richtige für dich!
Im Beispiel könnt ihr eine Datei öffnen, die ID3 UDF von "Wayfarer" liegt dabei.
Und danke an prograndy für dessen urlencode FunktionDie Grund Funktion:
Spoiler anzeigen
[autoit]#include <String.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <Array.au3>; #FUNCTION# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Name ..........: _Lyrics_Search_Engine
; Description ...: Fast Songtext Search!
; Syntax ........: _Lyrics_Search_Engine($iSong, $iArtist, $oHTTP)
; Parameters ....:
; $iSong - The Title of the Song
; $iArtist - The Artist
; $oHTTP - Object Reference of an opened HTTP Connection
; Return values .:
; Success: The Songtext
; Failure: @ERROR
; -1: Not found
; -2: Couldn't get Array (Lyrics)
; -3: Couldn't get Array (Characters)
; -4: Couldn't convert Characters to String
; Author ........: StevenX (Stefan Blagojevic)
; ===============================================================================================================================Func _Lyrics_Search_Engine($iSong,$iArtist,$oHTTP)
[/autoit] [autoit][/autoit] [autoit]
$iSong = _URIEncode($iSong)
$iArtist = _URIEncode($iArtist)
;~ GET URL READY PARAMETERS;~ SEARCH AFTER LYRICS
[/autoit] [autoit][/autoit] [autoit]
$request = 'http://lyrics.wikia.com/api.php?artist='&$iArtist&'&song='&$iSong
$oHTTP.Open("GET", $request, False)$oHTTP.Send()
[/autoit] [autoit][/autoit] [autoit]
$oReceived = $oHTTP.ResponseText$sURL = _StringBetween($oReceived,'<li><strong>url: </strong>','</li><li><strong>page_namespace: </strong>0</li>')
[/autoit] [autoit][/autoit] [autoit]
;~ GET WHOLE LYRICS URLIf IsArray($sURL) = false Then
[/autoit] [autoit][/autoit] [autoit]
SetError(-1)
Return 0
EndIf$oHTTP.Open("GET", $sURL[0], False)
[/autoit] [autoit][/autoit] [autoit]
$oHTTP.Send()$oReceived = $oHTTP.ResponseText
[/autoit] [autoit][/autoit] [autoit]
$aData = _StringBetween($oReceived,'c()}:r.onload=c;s.parentNode.insertBefore(r,s)};}})();</script>','<!--')If IsArray($aData) = false Then
[/autoit] [autoit][/autoit] [autoit]
SetError(-2)
Return 0
EndIf$sData = StringReplace($aData[0],'<br />',' ')
[/autoit] [autoit][/autoit] [autoit]
$aCHR = _StringBetween($sData,'&#',';')If IsArray($aCHR) = false Then
[/autoit] [autoit][/autoit] [autoit]
SetError(-3)
Return 0
EndIf$sLyric = ""
[/autoit] [autoit][/autoit] [autoit]For $i = 0 to (UBound($aCHR) - 1)
[/autoit] [autoit][/autoit] [autoit]$sLyric = $sLyric & ChrW($aCHR[$i])
[/autoit] [autoit][/autoit] [autoit]Next
[/autoit] [autoit][/autoit] [autoit]If $sLyric = "" Then
[/autoit] [autoit][/autoit] [autoit]
SetError(-4)
Return 0
Else
Return($sLyric)
EndIfEndFunc ;==> _Lyrics_Search_Engine
[/autoit] [autoit][/autoit] [autoit];~ Copyright: Prog@ndy
[/autoit]
Func _URIEncode($sData)
; 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
EndFuncIm Dateianhang findet ihr alle Dateien
In der ZIP:
ID3_v3.4.au3
_Lyrics_Search_Engine-example.au3
_Lyrics_Search_Engine.au3Steve
-
*hust*ASCII to String*hust*
-
Und wie decode ich den Text dann?
A-La la la laa<br /><br />Hey mama, this that shit that make you groove, mama<br />Get on the flow and move your booty mama<br />We the blast masters blastin' up the jamma<br /><br />(Rewind)<br />Cutie cutie, make sure you move your booty<br />Shake that thing like we in the city of sin, and<br />Hey shawty, I know you want to party<br />the way your body lookin' make me really feel naughty<br />Cutie cutie, make sure you move your booty<br />Shake that thing like we in the city of sin, and<br />Hey shawty, I know you want to party<br />the way your body lookin' make me really feel naughty<br /><br /><b>will.i.am</b><br />I got a naughty naughty style and a naughty naughty crew<br />But everything I do, I do just for you<br />I'm a little bit of Old, and a bigger bit of New<br />The true niggas know that the peas come thru<br />We never cease, we never die no we never decease<br />We multiply like we mathamatice<br />And then we drop bombs like we in the middle east<br />The bomb bomb&
-
Müsste ein IP Ban sein, da ich mit keinem PC über den selben Router raufkomme
Dachte nur, dass ich mit WinHTTP etwas falsch gemacht hätte und die Verbindung deshalb abgelehnt wird
Ja tut mir Leid, wenn die deren URLs so schön einpacken und sogar Kommentare in den Source reinbauen
Danke, name, habs mit einer Pause versucht, passiert trotzdem. Aber danke für den Tipp mit der Wikia
Steve
-
Hallo Community!
Ich arbeite gerade an einer automatischen Songtextabfrage, die die Website AZLyrics.com benutzt.
Theoretisch funktioniert es - theoretisch. Für die ersten Anfragen genügt es, dann beginnt der Server zu spinnen - habe ich in der WinHTTP Abfrage was vergessen?
Denn nach einigen Aufrufen komm ich nicht zum Server, ich müsste den PC immer neu starten oder den Router resetten.
Chrome gibt mir den Fehler " ERR_EMPTY_RESPONSE" aus.Hier mein Script, am Anfang habe ich eine Schleife eingebaut, um den Fehler zu reproduzieren.
Spoiler anzeigen
[autoit]#include <String.au3>
[/autoit] [autoit][/autoit] [autoit];~ Test
[/autoit] [autoit][/autoit] [autoit]$oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
[/autoit] [autoit][/autoit] [autoit]
$z = 0
While 1
$lyrics = _Lyrics_Search_Engine("Hey Mama", "The Black Eyed Peas",$oHTTP)
$z = $z + 1
ConsoleWrite($z & @CRLF)
WEnd; #FUNCTION# ====================================================================================================================
[/autoit] [autoit][/autoit] [autoit]
; Name...........: _Lyrics_Search_Engine
; Description ...: Search for Lyrics by Song and Artist ; Using http://www.azlyrics.com
; Syntax.........: _Lyrics_Search_Engine($iSong,$iArtist)
; Parameters ....:
; $iSong - Name of the song
; $iArtis - Name of the artist
; Return values .: Success - Returns the Lyrics of the song
; Failure - Returns 0
; Author ........: StevenX (Stefan Blagojevic)
; Modified.......:
; Link ..........:
; Example .......: _Lyrics_Search_Engine("Hey Mama", "The Black Eyed Peas")
; ===============================================================================================================================Func _Lyrics_Search_Engine($iSong,$iArtist,$oHTTP)
[/autoit] [autoit][/autoit] [autoit];~ Deleting non-word characters and lower all characters
[/autoit] [autoit][/autoit] [autoit]
$iSong = StringRegExpReplace(StringLower(StringStripWS($iSong,8)),"\W","")
$iArtist = StringRegExpReplace(StringLower(StringStripWS($iArtist,8)),"\W","");~ Because AZLyrics is not accepting "the" in Artist (like The Beatles, The Black Eyed Peas or The Black Keys), now deleting "the"
[/autoit] [autoit][/autoit] [autoit]
If StringLeft($iArtist,3) = "the" Then $iArtist = StringTrimLeft($iArtist,3);~ Requesting Body
[/autoit] [autoit][/autoit] [autoit]
$oHTTP.Open("GET", "http://www.azlyrics.com/lyrics/"&$iArtist&"/"&$iSong&".html", False)$oHTTP.Send()
[/autoit] [autoit][/autoit] [autoit]
$oReceived = $oHTTP.ResponseText
;~ MsgBox(0,"",$oReceived)$lyrics = _StringBetween($oReceived,"<!-- start of lyrics -->","<!-- end of lyrics -->")
[/autoit] [autoit][/autoit] [autoit]
If $lyrics = 0 Then
Return 0
SetError(0)
Else;~ Formatting HTML
[/autoit] [autoit][/autoit] [autoit]
$lyrics = StringReplace($lyrics[0],"<br />",@CRLF)
$lyrics = StringReplace($lyrics,"<i>","")
$lyrics = StringReplace($lyrics,"</i>","")Return $lyrics
[/autoit]
EndIf
$oHTTP.CloseHandle()
EndFuncWas WinHTTP angeht, bin ich unerfahren. Falls ihr Verbesserungen hättet, immer raus damit
Steve
-
Wie immer genial!
Was super wäre:
ein eigener kleiner Musik Player. Wenn man "Reinhört", spielt sich das Lied ab, aber nicht im kleinen Fenster sondern im Programm. Man kann eine eigene Registerkarte dafür einrichten.
Falls Interesse -> erstell dir Logo, meld dich einfach via PN
-
Viel Glück! Habe bereits unterschrieben
-
Glaub Listview wäre da praktischer…
-
*Kleiner Balken Effekt
*Label werden besser angezeigt
*Dynamischere Labels
*Bisschen transparenter
*Album Name fixedBekannter Bug: Falls kein Artwork da ist, nimmt er das letzt verwendete.
EDIT: Dämliche Bugs gefixed