Tratsch rund um Autoit / Autoit Talk | kleinere Fragen

[svenjatzu]

dafür hab ich exe to proces runtergeladen und mein script als dll umgewandelt, weis aber nicht welche service ich da aktivieren muss. kannst du ir da vieleicht mit helfen?

bei google gibts nich die option per vmplayer metin zu starten und dann über webcam den bot metin bedienen zu lassen...? geht das? und wenn ja wie?

[summoner01]

I'm looking more towards trying to look at the receive packets from the client. Also, it would be nice to be able to send packets to the server using the current open socket.

I can achieve this with using WPE ( Winsock packet editor ), but I want the ability to do it in autoit.

I did it before, but I lost all my code. I also had to inject a dll into the client that would redirect all the IP's to local host, then autoit would listen to 127.0.0.1, $port. I was able to create my own things, like auto login, or auto whispers and such.

I partially remember the code... it was something like this:

 Spoiler

Global $LOGIN_SERVER[1] = ["IP"]
Global $LOGIN_PORT[1] = ["PORT"]
Global $CHARACTER_SERVER[1] = ["IP"]
Global $CHARACTER_PORT[1] = ["PORT"]
Global $WORLD_SERVER[1] = ["IP"]
Global $WORLD_PORT[1] = ["PORT"]

TcpStartup()

$SOCKET = TcpListen($LOGIN_SERVER[0], $LOGIN_PORT[0])

If $SOCKET == 0 Then
TcpConnect($SOCKET, $PORT)

etc... I really forgot.

There was also something in the While loop, like:

While 1

Func WORLD(send, recv)

$VARIABLE = StringInStr($WORLD_SERVER[1], $DATA, 1, 1)
If $VARIABLE > 1 Then

TcpSend($WORLD_SERVER[1], "0x" & StringMid("00 75 21 61 61 43 00 "))

EndIf
EndFunc
WEND

I'm doing this all from my memory... so a lot of things probably aren't correct haha. But this is what I remember. Also "0x" & StringMid("00 75 21 61 61 43 00 ")), There was a different command that would remove the spaces from my string, instead of having to write it like this: "0x" & StringMid("00752161614300")).

But I forgot what the command was...

[fwalser]

soooo dann stell ich mal mein kleines problem...

1 ich lese mit

$time = _stringbetween($HTML,'"length_seconds":',',')

eine zeit aus nem quellcode aus.
Bekomme ne Zeit in Sekunden auf die Variable "time" möchte diese in millisekunden wandeln und dann eben einen sleeptimer setzen.

aber irgendwie klappt das bei mir nicht mein ansatz war.

$bla = $time[0] * 1000
sleep($bla)

[alpines]

StringBetween returnt wie du wohl denken kannst einen String.
Versuch es mal so:

$time = _StringBetween($sHTML, """length_seconds"":", ",")

Sleep(Number($time[0]) * 1000)

[Moneypulation]

Außerdem solltest du mit IsArray prüfen, ob du überhaupt einen String gefunden hast

[TurboGolom]

kurze frage da ich einfach zu dumm bin den fehler zu sehen.
Error: (24) : ==> "Wend" statement with no matching "While" statement.:
WEnd

ich sehe 1 while statement und 1 wend statement wo ist der fehler ?
nicht wundern über den code ich hab 3/4 von dem code gelöscht eidtiert etc etc um zu gucken warum es nicht geht deswegen sieht der code atm etwas zerfleddert aus

 #RequireAdmin
 #include <Misc.au3>
#inlcude <NomadMemory.au3>
Local $hDLL = DllOpen("user32.dll")

While 1
   AutoItSetOption("WinTitleMatchMode", 4)
$windowname="Perfect World"
$handle  = WinGetHandle($windowname, "")
$sHexKey = 20
   $condition = false

If @error Then
	MsgBox(4096,  "Error", "Fenster konnte nicht gefunden werden")
 Else
	_IsPressed ( $sHexKey [, $vDLL = 'user32.dll'] ) Then
	 $condition = true
  ElseIf
	 Exit

If $condition = true Then
  ControlSend($windowname,'','',"{TAB}")
		; ControlSend($windowname,'','',"Q") ; AutoAttack
	 WEnd

[YatoDev]

da fehlern endif

[alpines]

Da fehlt nicht nur ein EndIf sondern zwei. Unter Exit und vor dem letzten Wend.

[WJNeeson]

Originally Posted by TurboGolom

kurze frage da ich einfach zu dumm bin den fehler zu sehen.
Error: (24) : ==> "Wend" statement with no matching "While" statement.:
WEnd

ich sehe 1 while statement und 1 wend statement wo ist der fehler ?
nicht wundern über den code ich hab 3/4 von dem code gelöscht eidtiert etc etc um zu gucken warum es nicht geht deswegen sieht der code atm etwas zerfleddert aus

 #RequireAdmin
 #include <Misc.au3>
#inlcude <NomadMemory.au3>
Local $hDLL = DllOpen("user32.dll")

While 1
   AutoItSetOption("WinTitleMatchMode", 4)
$windowname="Perfect World"
$handle  = WinGetHandle($windowname, "")
$sHexKey = 20
   $condition = false

If @error Then
	MsgBox(4096,  "Error", "Fenster konnte nicht gefunden werden")
 Else
	_IsPressed ( $sHexKey [, $vDLL = 'user32.dll'] ) Then
	 $condition = true
  ElseIf
	 Exit

If $condition = true Then
  ControlSend($windowname,'','',"{TAB}")
		; ControlSend($windowname,'','',"Q") ; AutoAttack
	 WEnd

PHP Code:

#RequireAdmin
#include <Misc.au3>
#include <NomadMemory.au3> ;#include war falschgeschrieben
Local $hDLL = DllOpen("user32.dll")

While 1
    AutoItSetOption("WinTitleMatchMode", 4)
    $windowname="Perfect World"
    $handle  = WinGetHandle($windowname, "")
    $sHexKey = 20
    $condition = false
    ;Variablen müssen nicht unbedingt in der Schleife deklariert werden, ruhig davor.

    If @error Then
        MsgBox(4096,  "Error", "Fenster konnte nicht gefunden werden")
    Else
        _IsPressed ( $sHexKey [, $vDLL = 'user32.dll'] ) Then
        $condition = true
    ElseIf ;Vor Else mit Kondition ElseIf .... Then .... oder entfernen
        Exit
    EndIf ;fehlte

    If $condition = true Then
        ControlSend($windowname,'','',"{TAB}")
        ;ControlSend($windowname,'','',"Q") ; AutoAttack
    EndIf ;fehlte
WEnd 


Auf die Kommentare im Code schauen

[TurboGolom]

tausend dank für die Hilfe, manchmal finde ich das die Error meldung nicht 100% genau das eigentliche Problem beschreibt

sofern ich das script laufen lasse kommt folgendes:
17) : ==> Subscript used on non-accessible variable.:
_IsPressed ( $sHexKey [, $vDLL = 'user32.dll'] ) Then
_IsPressed ( $sHexKey ^ ERROR

heißt irgendwas mit: der Index wurde an eine nicht erreichbare variable gebunden ?
Der
[, $vDLL = 'user32.dll']
Part ist aber optional laut autoIT Hilfe sprich ich kann es ja rauslöschen^^
danach kommt aber die meldung das mehrere Befehle in einer line sind ^^

[YatoDev]

wasch laberscht du??

Die [] klammern garnicht setzen die stehen für optionale parameter in der hilfe

[TurboGolom]

der if pressed code ist so aus der autoit hilfe kopiert gehe also fest davon aus das er so richtig ist ^^ trotzdem ist der error komisch

[YatoDev]

die klammern mein gott

[ShiroNekox3]

Kann mir einer erklären wie ich die "dicke" einer Schrift änder' ?

Bin schon ein kleines Weilchen am Rätsel wie ich die dicke der Schrift ändere.

GUICtrlSetFont(-1, 7, 900, 0, "Origin")

So wie ich es weiß ändert ja die Zahl, in dem Falle die Zahl 900, die Dicke.
Jedoch passiert bei meinem Tool nichts. Liegt es an der Schriftart oder mache ich da etwas falsch?

Edit: Problem selber gelöst ^-^

[surorek5]

Edit: Hat sich erledigt.