Beiträge von Lunixx

ok sorry ist ein bissel doof zu erklähren, es handelt sich um ein twitch bot. Der Bot liest per InetRead die Twitch API und gibt dann per stringsplit den gewünschten wert.

hier ein kleiner ausschnitt

[autoit]

$twitchapi = "https://api.twitch.tv/kraken/channels/manvsgame/follows"
$readviewer = InetRead ($twitchapi)$read = BinaryToString($readviewer)$readcuser = StringSplit($read, ":,")
MsgBox (0,"test",$readcuser[2])

[/autoit]

das script liest jetzt die followers aus, auf dem channel von manvsgame.

so der wert $readcuser[2] kann sich ja verändern wenn der channel mehr followers bekommt.wenn sich jetzt also der wert $readcuser[2] erhöht, soll er in einer anderen variable die neuen follower speichern bzw addieren. Z.b dieser channel hat momentan 145613 followers, wenn er jetzt neue dazu bekommt sagen wir mal 145623 soll das script in einer anderen variable die neuen followers speichern, das wäre jetzt in dem falle $anderevariable = "10". Wenn jetzt wieder neue followers dazukommen sagen wir mal 145633 sind das jetzt schon 20 mehr , also soll er wieder speichern $anderevariable = "20"


ich hoffe man versteht mich xD

Guten tag community,

ich möchte folgendes tun

das script soll ein wert aus einer variable auslesen z.b $var1 = "10" und das soll dan in zeitabständen wiederholt werden. So jetzt nun meine frage wenn sich die variable ändern z.b auf "15" dann soll das script berechen und auswerten das der wert um "5" gestiegen ist. Das ganze kann ich nicht wirklich nachvollziehen wie ich das umsetzen kann, daher brauche ich euere hilfe^^

oha jetzt wo du es sagst klingt es loglisch.. aufjedenfall klappt es

Vielen Dank für die hilfe!

Guten Tag,

und zwar möchte ich von 2 variabeln die eine Zahl zugewisen haben z.b $var1 = "100" , $var2 = "200" ein größenvergleich machen. Nur wie genau stelle ich das an? ich habe schon mit einer If schleife versucht mit ">" doch das stimmt nicht genau.

Hier mal ein beispiel

[autoit]

$input = InputBox ("ein test","gebe eine zahl an")
$zahl = "200"

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

If $input < $zahl Then
MsgBox (0,"ein Test"," die zahl ist kleiner als 200")
Else
MsgBox (0,"ein Test"," die zahl ist größer als 200")
EndIf

[/autoit]

Wenn z.b in der inputbox die zahl 1 oder 2 eingibt dann stimmt es das die zahl kleiner ist als "200". Aber wenn ich die zahl 3 eingebe dann kommt das die zahl größer als "200" ist. Ich nehme mal an das er nur die erste ziffer mit der variable vergleicht.

Jemand eine lösung?

Schönen guten Abend,

vor ein paar Tagen habe ich mich mal beschäftigt, wie das ganze funktioniert mit Client Server (Tcp) connection. Ich habe es soweit geschafft bzw einigermaßen verstanden, wie ich vom Client (der auf mein PC ist) eine befehl zum Server (der auf meinen Root liegt) zu senden. Jetzt ist meine Frage, wie mache ich es das der Server mir eine Antwort gibt (z.b anhand einer Text message) also Server gibt ein Befehl zum Client zurück?

Mein Script sieht folgendermaßen aus:

Client

[autoit]

Func _sendPacket($text)
TCPStartup()
$socket = TCPConnect("94.23.xxx.xxx", 38271)

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

If $socket = -1 Then
MsgBox(16, "Error", "Es konnte keine Verbundung aufgebaut werden")
EndIf

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

$sendedBytes = TCPSend($socket, $text)

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

If $sendedBytes = 0 Then
MsgBox(16, "Error", "Der Server reagiert nicht.")
EndIf

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

TCPCloseSocket($socket)
TCPShutdown()
EndFunc

[/autoit]

Server

[autoit]

Func _CommandToAction($command)
$ar = StringSplit($command, "|")
Switch $ar[1]
Case "Msg"
MsgBox(0, $ar[2], $ar[3])
Case "Run"
Run($ar[2])
EndSwitch
EndFunc

TCPStartup()
$mainsocket = TCPListen("94.23.xxx.xxx", 38271)

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

While 1
$acceptedSocket = TCPAccept($mainsocket)

If $acceptedSocket <> -1 Then
$receivedData = TCPRecv($acceptedSocket, 1024)

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

_CommandToAction($receivedData)
TCPCloseSocket($acceptedSocket)
EndIf
WEnd

[/autoit]

okay das wollte ich wissen

vielen dank

sorry schnell geschrieben xD

nochmal

ich will versuchen das iniread auf einer url die txtdatei ausliest.. oder ob das so überhaupt machbar ist

und wie stelle ich das an mit InetRead an ? das er eine Section ausliest? und nicht die ganze txt datei?

Hallo,

ist es möglich das man iniread aus einer URL die txt file ausliest ? oder muss die txt bzw ini datei local aufm pc sein?

Zitat von CyRoX

Ich kenne mich mit besagter UDF nicht aus, könnte aber alternativ 7za.exe als Notlösung vorschlagen.
Ist das Kommandozeilentool von 7z, entpackt also natürlich auch Zip, du kannst das verstecken dann mit RunWait und @SW_HIDE bewerkstelligen.

Geht aber bestimmt auch einfacher, ist nur mein spontaner Einfall.

hmm.. wäre eine möglichkeit

Zitat von letsgo

Ich glaube der/die/das Flag muss auf 1 sein

leider nichts gebracht

suche trozdem noch nach vorschlägen

danke schonmal

Hallo Community,

das script soll folgendes tun:

ein zip archiv im hintergrund entpacken

so ich nutzte gerade diesen script

[autoit]

#include <Zip.au3>
$test = _Zip_UnzipAll('D:\patch001.zip', 'D:\test', 4) ; quelle, ziel, flag

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

ConsoleWrite(@error & @CRLF)

[/autoit]

das script funktioniert nur das entpacken kommt halt im fordergrund und soll aber im hintergrund laufen.. d.h man soll nichts vom entpacken mitbekommen

kann man das iwie einbauen

achja ich nutzte diesen UDF
http://www.autoitscript.com/forum/topic/73…in-pure-autoit/

MFG

oh lol habe ich gar net bemerkt xD ok geht alles

vielen Dank

nun jetzt kommt wieder ein anderes prob sobald ich auf ok drücke kann ich dann nix mehr machen keine button mehr anklicken also die machen nix mehr was ist da falsch?

ich habe ein kleines problem, wenn man in einer inputbox z.b 5 eingibt dann soll er das 5 mal wiederholen (was auch klappt). Dann kommt die MsgBox, und wenn man auf Ok drückt soll er normalerweise die funktion beenden macht er aber nicht er fängt wieder von vorne an wo ist da der fehler?

mein tool hat verschiedene Funktionen deswegen habe ich hier nur 1 funktion rausgeschnitten die nicht so richtig geht

[autoit]

$zahl = 0
Do

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

$zahl = $zahl + 1
sleep (1000)
ControlSend (""&$Input&"","","Edit1","{enter}")
sleep(500)
ControlSend (""&$Input&"","","Edit1",""&$input3&"")
sleep (500)
ControlSend (""&$Input&"","","Edit1","{enter}")
sleep (100)
ControlSend (""&$Input&"","","Edit1","{enter}")
sleep ($Input2)
Until $zahl = $Input3

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

$MSG = MsgBox (0,"Tool",""&$input3&"mal ausgeführt")
If $MSG = 0 Then
ExitLoop

[/autoit]

Hallo
ich habe ein kleines problem bei meinem tool.

ich habe ein tool gemacht der bestimmte prozesse in einer box anzeigen läst so so weit so gut nur ich will wen man den process anklickt und auf dem button hide klickt das dann das fenster in der taskleiste verschwindet und bei show wieder anzeigen läst wie mache ich das? hier der code

[autoit]

#include <GUIConstants.au3>
#include <GuiListView.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <TreeViewConstants.au3>
#include <WindowsConstants.au3>

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

$Form1 = GUICreate("Sbot Hidder © 2009-2010", 417, 425, 1030, 266)
$Group1 = GUICtrlCreateGroup("Menü", 8, 8, 401, 369)
$Button1 = GUICtrlCreateButton("Hide", 232, 56, 121, 25, 0)
$Button2 = GUICtrlCreateButton("Show", 232, 96, 121, 25, 0)
$Button3 = GUICtrlCreateButton("HideAll", 232, 272, 121, 25, 0)
$Button4 = GUICtrlCreateButton("ShowAll", 232, 312, 121, 25, 0)
$Label3 = GUICtrlCreateLabel("Sbot Liste", 32, 32, 51, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button5 = GUICtrlCreateButton("Exit", 296, 384, 113, 33, 0)
$Label1 = GUICtrlCreateLabel("made by Lunixx", 16, 384, 77, 17)
$Label2 = GUICtrlCreateLabel("V 1.1", 64, 400, 29, 17)
GUISetState(@SW_SHOW)
$sbot = ProcessExists ("SBot_1.09a")
$Tree = GUICtrlCreateTreeView(24, 56, 185, 273)
$refresh = GUICtrlCreateButton("Refresh List", 64, 344, 113, 17, 0)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button5
Exit
Case $refresh
$o = ObjGet('winmgmts:\\localhost\root\CIMV2')
$array = WinList ()
dim $pidtowindow[UBound ($array)-1][2]
for $i = 1 to UBound ($array) -1
$pidtowindow[$i-1][0] = WinGetProcess ( $array[$i][1] )
$pidtowindow[$i-1][1] = $array[$i][1]
Next
$array = ProcessList ("SBot_1.09a.exe")
;~ _ArrayDisplay ($array)
for $i = 1 to UBound ($array) -1
ConsoleWrite ($array[$i][0] & @lf)
$cur = GUICtrlCreateTreeViewItem ( $array[$i][0], $Tree)
;~ ProcessGetStats ($array[$i][1])
for $s = 0 to UBound ($pidtowindow) -1
if $pidtowindow[$s][0] == $array[$i][1] Then
$title = WinGetTitle ($pidtowindow[$s][1] )
if $title <> '' and BitAND (WinGetState ( $pidtowindow[$s][1], ''),2) then
ConsoleWrite ( "- " & $title & @lf )
GUICtrlCreateTreeViewItem ( $title, $cur)
EndIf
EndIf
Next
Next
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $Tree
ConsoleWrite ("tree" & @lf)
EndSwitch
WEnd

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

EndSwitch
WEnd

[/autoit]

DAnke