Tratsch rund um Autoit / Autoit Talk | kleinere Fragen

[TheAldi]

$name = "dJr13<<T]pSLa"
$array = StringToASCIIArray($name)
$asciiname=""
for $i = 0 to UBound($array)-1
	$asciiname = $asciiname & "%" & StringReplace(Hex($array[$i]),"0","")
Next
MsgBox(0,"Iwas",$asciiname)

oder

$name = "dJr13<<T]pSLa"
$asciiname=""
$array =  StringToBinary($name,4)
$array = StringTrimLeft($array,2)
for $i = 1 to StringLen($array) Step 2
	$asciiname = $asciiname & "%"&StringMid($array,$i,2)
	Next
MsgBox(0,"Iwas",$asciiname)

Funktioniert zumindest mit dem String

Allerdings solltest du/ihr das untere Verwenden , da dort der UTF8 Zeichensatz genommen wird , welcher mehr Zeichen als ASCII enthält
Andere Zeichensätze funktionieren bei DO (abgehen von ASCII) im Loginpacket sowieso nicht

Do Server:
Klartext Buchstabe -> ASCII Zeichen
%Hexcode -> Kennzeichnung für ein UTF8 Zeichen mit angegebenem Hexcode

[Requi]

Ich sende dir morgen in Skype mal mein Script und vllt könntest du es einbauen

[Lawliet]

URL-Encoding
Da gibts bestimmt schon gute UDFs für

[TheAldi]

Lawliet wenns ne fertige udf gibt natürlich auch gut aber meine Methode oben klappt ja auch ;D

Requi ja kann ich mir anschaun

[Lawliet]

Dort wird doch nie zwischen Sonderzeichen und normal unterschieden.

[TheAldi]

Originally Posted by Lawliet!

Dort wird doch nie zwischen Sonderzeichen und normal unterschieden.

Juckt den DO Server aber auch nicht da das normale Zeichen auch UTF8 interpretiert wird und am Ende eh das selbe bei rauskommt

[YatoDev]

Originally Posted by Requi

Der bringt mir leider nicht viel. Ich brauche ja die ganzen Sonderzeichen aus charmap.exe wie ich ein Beispiel gepostet habe.

Die Idee von Aldi kann ich in AutoIt leider nicht umsetzen aus eigenem Denken

Hab ihn mal in Skype geaddet. Hoffe er nimmt an

hatte dir doch ne tabelle mit geschickt
Ich finde das ist die einfachste lösung

[lolkop]

Originally Posted by TheAldi

$name = "dJr13<<T]pSLa"
$array = StringToASCIIArray($name)
$asciiname=""
for $i = 0 to UBound($array)-1
	$asciiname = $asciiname & "%" & StringReplace(Hex($array[$i]),"0","")
Next
MsgBox(0,"Iwas",$asciiname)

oder

$name = "dJr13<<T]pSLa"
$asciiname=""
$array =  StringToBinary($name,4)
$array = StringTrimLeft($array,2)
for $i = 1 to StringLen($array) Step 2
	$asciiname = $asciiname & "%"&StringMid($array,$i,2)
	Next
MsgBox(0,"Iwas",$asciiname)

die funktionen sind beide murks... ganz besonders die erste, welche hex werte wie 0xC0 (192) sinnloser weise in 0xC (12) umwandeln würde...

geht man vom wikipedia artikel aus, so sind alle zeichen ausser A-Z, a-z, 0-9, -, _, ., ~ umzuwandeln... das ganze lässt sich extrem leicht umsetzen.

beispiel code für utf8 codierung von strings:

Func EncodeUTF8($string)
	Local $return, $array = StringToASCIIArray($string, Default, Default, 2)
	For $i=0 To UBound($array)-1
		Switch $array[$i]
			Case 45, 46, 48 To 57, 65 To 90, 95, 97 To 122, 126
				$return &= Chr($array[$i])
			Case Else
				$return &= '%'&Hex($array[$i],2)
		EndSwitch
	Next
	Return $return
EndFunc

[YatoDev]

Originally Posted by ~ⓜⓐⓢⓣⓔⓡ~

das hat nicht nur darkorbit sondern jede website und das hab ich grade auch erzählt :
Hier meine func : ( naja die ich aufm rechner hab )

Func Change($string)
    $string = StringReplace($string, "%", "%25")
        $string = StringReplace($string, "†", "%E2%80%A0")
    $string = StringReplace($string, "ä", "%C3%A4")
    $string = StringReplace($string, "ö", "%C3%B6")
    $string = StringReplace($string, "ü", "%C3%BC")
    $string = StringReplace($string, "!", "%21")
    $string = StringReplace($string, '"', "%22")
    $string = StringReplace($string, "§", "%C2%A7")
    $string = StringReplace($string, "$", "%24")
    $string = StringReplace($string, "&", "%26")
    $string = StringReplace($string, "/", "%2F")
    $string = StringReplace($string, "+", "%2B")
    $string = StringReplace($string, " ", "+")
    $string = StringReplace($string, "(", "%28")
    $string = StringReplace($string, ")", "%29")
    $string = StringReplace($string, "=", "%3D")
    $string = StringReplace($string, "?", "%3F")
    $string = StringReplace($string, "[", "%5B")
    $string = StringReplace($string, "]", "%5D")
    $string = StringReplace($string, "{", "%7B")
    $string = StringReplace($string, "}", "%7D")
    $string = StringReplace($string, "ß", "%C3%9F")
    $string = StringReplace($string, ",", "%2C")
    $string = StringReplace($string, ":", "%3A")
    $string = StringReplace($string, ";", "%3B")
    $string = StringReplace($string, "#", "%23")
    $string = StringReplace($string, "~", "%7E")
    $string = StringReplace($string, "²", "%C2%B2")
    $string = StringReplace($string, "³", "%C2%B3")
    $string = StringReplace($string, "<", "%3C")
    $string = StringReplace($string, ">", "%3E")
    $string = StringReplace($string, "|", "%7C")
    $string = StringReplace($string, "^", "%5E")
    $string = StringReplace($string, "°", "%C2%B0")
    $string = StringReplace($string, "´", "%C2%B4")
    $string = StringReplace($string, "@", "%40")
    $string = StringReplace($string, "€", "%E2%82%AC")
    Return $string
EndFunc   ;==>Change

falls du mehr suchst :

warum nicht das nehmen bei dem link sind alle zeichen aufgelistet die man brauch aber denke das requi das jetzt schon hat

[TheAldi]

Weil das einfach unschön ist

@lolkop
stimmt hast recht die erste macht echt schrott hab ich nichmehr dran gedacht ^^
Klar MUSS man die Zeichen die du sagst nicht konvertieren , kann man jedoch machen.

Meine Funktionen mögen auch evtl unsauber gemacht sein , liegt aber daran das ich seit nem knappen Jahr nichts in AutoIt gemacht habe. Das umwandeln klappt ja trotzdem mit der zweiten Funktion von mir problemlos.

Und ja ich habs Requi gestern eingebaut also brauch ers nich mehr

[lolkop]

Originally Posted by ~ⓜⓐⓢⓣⓔⓡ~

warum nicht das nehmen bei dem link sind alle zeichen aufgelistet die man brauch aber denke das requi das jetzt schon hat

das was du da fabrizierst ist absolut ineffizient, da du für jedes zeichen, welches du dort in den unzähligen commands ersetzen willst, immer wieder den gesamten string durchläufst...

wenn du einen 1000zeichen string encodieren willst, würde deine funktion dort 37000 zeichen prüfen und gegebenenfalls ersetzen <.<

wenn man mit strings arbeitet, sollte es immer das höchste ziel sein, den string auch wirklich nur einmal durchlaufen zu müssen...

[YatoDev]

so viele gibts da aber auch nicht

[lolkop]

Originally Posted by ~ⓜⓐⓢⓣⓔⓡ~

so viele gibts da aber auch nicht

willst du mit deiner methode wirklich alle zeichen abdecken, wären das genau 65535 zeilen code...

das hätte zur folge, das jedes zeichen des zu codierenden strings dann auch genau so oft geprüft werden würde... letztendlich kann man sagen, das selbst die fehlerhafte erste variante von aldi immernoch besser war als die von dir präferierte variante...

[Requi]

Und autoit ist zu langsam um viele If abfragen durch zu gehen.

Mein Login ist dank der Dynamik 100x schneller.
Der hatte 50 If und ElseIf drin
Autoit für sowas langes nicht geschaffen.

[YatoDev]

ma ne frage

#RequireAdmin
#include <imagesearch.au3>

Global $X1 = 0
Global $Y1 = 0
$img = _ImageSearch(@ScriptDir&"\pictures\inter.png", 1 ,$X1, $Y1, 5)
If $img = True Then
	MouseMove($X1,$Y1)
	MouseClick("Left",1)
EndIf

1.) de maus zeiger landet oben links in der ecke und 2.) kann man das irgendwie verhindern das falls 1 mal gefunden wurde der nicht mehr sucht ?