Beiträge von qon

qon

Ja, weil AutoIt sich an Avira gewandt hat, soweit ich weiss.
Vielleicht im englischen Forum mit guten Infos posten.
Aber erstmal checken, obs wirklich kein Virus ist.
Kanstes ja mal auf http://viruschief.com/ prüfen lassen.
greetz

qon

Joa wollts nur sagen bevor er den ganzen Code nochma durchgeht und mit tab einrückt oder so
greetz

qon

nicht schlecht nicht schlecht ;D

qon

Hm okay zur Kenntnis genommen
Sollte ich vielleicht einen Gui konstruieren,
um eine .ini zu erstellen/verändern/verwalten?
Denn so Funcs wie du sagtest JanSchmidt würden ja nur Sinn in einen "kompilten" Gui machen,
den alle "Admins" *g* kriegen.
Hab sowas schonmal gebaut, also ne Verwaltung von verschlüsselten Dateien.
Ich hab schon so paar Ideen, melde mich später wieder
Ach und hier meine Libary die ich meinte^^
Meine Libary von mir die ich erweitern werde mit meinen UDF's

greetz

qon

Qon!
Also das wäre natürlich ideal, aber ich kenne nur diese Methode um es umzusetzen:
Eine beiliegende Ini oder Textdatei, in der die Namen und Passwörter verschlüsselt bei dem Skript immer dabei liegen müssten.
So müsste man das Skript nicht neu Kompilen, allerdings ist das finde ich auch der einzige Vorteil Und da sowieso nur die "Admins" die Usernames/Pw's verändern bzw neue hinzufügen könnten, hätte das denke kein Sinn. Da geht es denke ich schneller, einfach im Array einen Nutzer hinzuzufügen,
als erst die Ini zu entschlüsseln, die Änderungen vornehmen und wieder neu verschlüsseln.
Naja
Greetz

qon

Soo...
Also danke erstmal für eure Beiträge!
Jap ich hab den Funktionsaufruf falsch, die Funktion an sich stimme
Ich hatte vorerst vor, noch einen Text reinzubringen, mich aber dann umentschieden, daher wars noch falsch
Also wie gesagt, entweder beides ein Array oder nur ein Username und Pw
Habs mal abgeändert *g*
Und noch was, was mir bei ner langweiligen Schulstunde eingefallen war: der Gui wurde nicht deleted, wenn die Angaben stimmten, auch gefixt.
@JanSchmidt:
Wie meinst du das mit verschlüsselte datei?
Bin für Ideen offen!

greetz

qon

Hi,

wollte noch kurz meine Func posten die ich noch fertig kriegen wollte
Ist fürn Login am Anfang des Skriptes da.
Ich denke die Beschreibung der Funktion und das Beispiel sagt alles
In Eile geschrieben also nehmt Rücksicht auf Fehler aber meldet sie
Werdet die Func auch bald in meiner Libary finden.

Spoiler anzeigen

[autoit]

#include <guiconstants.au3>
#include <array.au3>

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

Global $names = _ArrayCreate("Herbert","Gustav","Inge","Josef")
Global $pws = _ArrayCreate("a","b","c","d")

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

$test = _Login("Login - Test",$names,$pws)
Switch @error
Case 0
msgbox(0,"","Willkommen " & $test & ", wie gehts dir?")
Case 1
msgbox(0,"","dann nicht!")
Exit
Case 2
msgbox(0,"","Sorry! Falsches Passwort oder falscher Nutzername!")
Exit
Case 3
msgbox(0,"","inkorrektes array!")
Exit
EndSwitch

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

msgbox(0,"Hauptprogramm","Das hier ist das Hauptprogramm :D")

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

;===============================================================================
;
; Description: Login for the beginnging of a program to check users authority
; Syntax: _Login($sTitle,$sUsername,$sPassword,$BgColor = 0x000000,$TxtColor = 0xFFFFFF,$BtnColor = 0x000000)
; Parameter(s): $sTitle = Title of the box
; $sUsername = one username for login, or for more users an 1 dimensional array with usernames,
; first username belongs to first $sPassword, second username belongs to second $sPassword,
; third username belongs to third $sPassword, ... no limit set
; $sPassword = one password for login, or for more users an 1 dimensional array with passwords,
; first password belongs to first $sUsername, second password belongs to second $sUsername, ...
; $BgColor = Background color of the GUI, default = black
; $TxtColor = Text color of the GUI, default = white
; $BtnColor = Button color of the GUI, default = black
; Requirement(s): #include <guiconstants.au3>
; Return Value(s): On Success - Returns $sUsername wich the user logged in
; On Failure - Returns 0 and sets @error
; 1 = User exited the Login Window
; 2 = Username or password wrong
; 3 = incorrect array given
; Author(s): qon
; Note(s): You don't have to create an array for usernames/passwords if you only need one username / passsword.
;
;===============================================================================

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

Func _Login($sTitle,$sUsername,$sPassword,$BgColor = 0x000000,$TxtColor = 0xFFFFFF,$BtnColor = 0x000000)
$LoginGui = GuiCreate("Login",250,100)
$NameLabel = GuiCtrlCreateLabel("username",12,11)
$Name = GuiCtrlCreateInput("",70,10,165)
$PwLabel = GuiCtrlCreateLabel("password",12,40)
$Pw = GuiCtrlCreateInput("",70,38,165,-1,$ES_PASSWORD)
$Login = GuiCtrlCreateButton("Login",75,67,100)

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

GuiSetBkColor($BgColor,$LoginGui)
GuiCtrlSetColor($NameLabel,$TxtColor)
GuiCtrlSetColor($PwLabel,$TxtColor)
GuiCtrlSetBkColor($Login,$BtnColor)
GuiCtrlSetColor($Login,$TxtColor)
GuiSetState()

While 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
GuiDelete($LoginGui)
SetError(1)
Return 0
Case $Login
If Not IsArray($sUsername) and Not IsArray($sPassword) Then
If GuiCtrlRead($Name) = $sUsername and GuiCtrlRead($Pw) = $sPassword Then
GuiDelete($LoginGui)
Return $sUsername
Else
GuiDelete($LoginGui)
SetError(2)
Return 0
EndIf
ElseIf IsArray($sUsername) and IsArray($sPassword) Then
If (UBound($sUsername,0) <> 1) or (UBound($sPassword,0) <> 1) or (UBound($sUserName,1) <> UBound($sPassword,1)) Then
GuiDelete($LoginGui)
SetError(3)
Return 0
EndIf
$UN = GuiCtrlRead($Name)
$UP = GuiCtrlRead($Pw)
For $i = 0 to UBound($sUsername)-1
If $UN = $sUsername[$i] and $UP = $sPassword[$i] Then
GuiDelete($LoginGui)
Return $sUserName[$i]
EndIf
Next
GuiDelete($LoginGui)
SetError(2)
Return 0
Else
GuiDelete($LoginGui)
SetError(3)
Return 0
EndIf
EndSwitch
WEnd
EndFunc

[/autoit]

edit: ich hab irgendwo nen blöden fehler, werd mich morgen drum kümmern.
edit2: War ein falscher Funktionsaufruf von mir - wie peinlich
Und noch etwas: der Gui wurde nicht deleted, wenn die Angaben stimmten, auch gefixt.

Greetz

qon

Interessant

qon

Zum Einrücken:
Er hat den Fehler gemacht, das er nicht im Quellcode Modus eingefügt hat, musst du machen damit alles richtig klappt
greetz

qon

Hi,

schau mal hier
Meine Libary von mir die ich erweitern werde mit meinen UDF's

kriegste die Zeit von autoit.de
vielleichts hilfts ja weiter

greetz

qon

Hi,
ich sags mal bevor jemand anders kommt

Spoiler anzeigen

Zitat

Hallo!

Heute wurde das Unterforum "Bot-Coding" wieder geschlossen. Das ist so zu verstehen, dass sich die Verantwortlichen dieses Forums gegen Bots und für faires Spielen aussprechen. Im angesprochenen Forum war die Mithilfe der Fragestellenden oft so frappierend gering, dass wir keinen Sinn in einer Weiterführung sehen.
Allen, die glauben sich unbedingt mit Bots beschäftigen zu müssen, seien folgende Quellen empfohlen:

* AutoIt-Hilfe auf Englisch und auf Deutsch (derzeit nicht aktuell!) (Befehle wie PixelSearch, PixelChecksum, AdlibEnable, Mouse..., Send, SendKeepActive usw.)
* Tutorial unter http://wiki.autoit.de/wiki/index.php/Tutorial
* Archiv des Bot-Coding-Forums - die meisten grundlegenden Fragen wurden dort geklärt.

Die Schließung des Unterforums bedeutet auch, dass Bot-Fragen auch an anderer Stelle unerwünscht sind. Das heißt ausdrücklich nicht, dass wir Fragen zu allen oben genannten Funktionen zensieren würden, aber es heißt, dass Fragen die sich eindeutig auf Bots beziehen mit Verweis auf obige Informationsquellen von Moderatoren geschlossen werden werden.

AutoIt hat so viele schöne Seiten und es gibt so viele sinnvolle Sachen, die man damit machen kann - wirklich!

peethebee

Alles anzeigen

qon

Hi,
so mach ichs oft

Spoiler anzeigen

[autoit]

#NoTrayIcon
#include <guiconstants.au3>
Opt("TrayMenuMode",1)
$Gui = GuiCreate("Bla Bla Bla",500,500)
GuiSetState()

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

while 1
Switch GuiGetMsg()
Case $GUI_EVENT_CLOSE
Exit
Case $GUI_EVENT_MINIMIZE
Opt("TrayIconHide",0)
GuiSetState(@SW_HIDE)
EndSwitch
Switch TrayGetMsg()
Case $TRAY_EVENT_PRIMARYDOUBLE
Opt("TrayIconHide",1)
GuiSetState(@SW_SHOW)
EndSwitch
WEnd

[/autoit]

qon

Hi,

das mit der Sprache ist einfach, weil er ja im CMD Fenster von netstat "Hergestellt" sucht,
und naja in anderen Sprachen wird er da wohl kaum was finden Wenn du mir sagen kannst was an der Stelle im französischen oder englischen steht könnte ich sie um die Sprachen erweitern

Eine Prozess ID ist eine einmalige ID des Prozesses, womit man auch 3 prozesse die Beispielsweise firefox.exe heissen voneinander unterscheiden kann.
Wie oben beschrieben gibt die Funktion Run(..) auch die PID zurück, falls du das Programm mit AutoIt aufrufst kriegst du so beide PID's.
Oder mit ProcessList("meinprozess.exe") wird n array ausgegeben mit allen prozessen inklusive ID die so heissen.
greetz

qon

Ich hatte das Skript doch verbessert, sodass es funktioniert
Hier jetzt nochmal die Addition die du ja eigentlich wolltest...

Spoiler anzeigen

[autoit]

#include <File.au3>
Global $Line
GLobal $Summe
_FileReadToArray("zahlen.txt",$Line)
If @error then Exit
For $i = 1 to $Line[0]
Switch $Line[$i]
Case "1"
$Summe += 50
Case "2"
$Summe += 70
Case "3"
$Summe += 110
Case "4"
$Summe += 199
Case "5"
$Summe += 222
Case "6"
$Summe += 321
Case "7"
$Summe += 322
Case "8"
$Summe += 323
Case "9"
$Summe += 350
Case "10"
$Summe += 400
EndSwitch
Next
$File = FileOpen("ergebnis.txt",1)
FileWrite($File,$Summe)
FileClose($File)

[/autoit]

Wäre aber gut wenn du den Code verstehst, sonst hat das alles ja kein Sinn

Greetz

qon

Hm naja ich hoffe mal ich habs ungefär richtig interpretiert, hier ein Beispiel:

Skript:

Spoiler anzeigen

[autoit]

#include <File.au3>
Global $Line
Global $Text
_FileReadToArray("zahlen.txt",$Line)
If @error then Exit
For $i = 1 to $Line[0]
Switch $Line[$i]
Case "1"
$Text &= "50" & @CRLF
Case "2"
$Text &= "100" & @CRLF
Case "3"
$Text &= "150" & @CRLF
Case "4"
$Text &= "200" & @CRLF
Case "5"
$Text &= "250" & @CRLF
Case "6"
$Text &= "300" & @CRLF
Case "7"
$Text &= "350" & @CRLF
Case "8"
$Text &= "400" & @CRLF
Case "9"
$Text &= "450" & @CRLF
Case "10"
$Text &= "500" & @CRLF
EndSwitch
Next
$File = FileOpen("zahlenausgabe.txt",1)
FileWrite($File,$Text)
FileClose($File)

[/autoit]

Txt:

Spoiler anzeigen

Code

Man könnte, falls es bei deiner Umrechnungen ne Proportionalität oder ähnliches gibt es auch einfacher lösen,
hätte man in diesem Fall auch gekonnt aber bin nicht davon ausgegangen, dass es so ist.

edit: fehler mit seterror, bin ja garnicht in ner func *g*
und FileReadToArray funzt nicht, frage mich nur gerade warum.

edit2: filereadtoarray funzt nicht mit handels, hmm. vllt wirds ja innerhalb der func mit handels gemacht

Greetz

qon

Hab dann mal meine Funktion etwas geändert bzw erweitert

Spoiler anzeigen

[autoit]

#include <Constants.au3>

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

;===============================================================================
;
; Description: Checks if a process is connected - to the internet / to a specific IP
; Syntax: _CheckProcessConnect($sProcess,$iIp = False)
; Parameter(s): $sProcess = Processname / Process ID to look for
; $iIp = The IP that the Process should be connected to [ optional! ]
; Requirement(s): None
; Return Value(s): On Success - Returns 1
; On Failure - Returns 0 and sets @error
; 1 = No connection exists
; 2 = Process does not exist
; 3 = No german Windows
; Author(s): qon
; Note(s): None
;
;===============================================================================

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

Func _CheckProcessConnect($sProcess,$iIp = False)
If RegRead("HKEY_CURRENT_USER\Control Panel\International\", "sLanguage") <> "DEU" Then
SetError(3)
Return 0
EndIf
$iPID = ProcessExists($sProcess)
If $iPID = 0 then
SetError(2)
Return 0
EndIf
$foo = Run(@ComSpec & " /c netstat -on", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)
While 1
$line = StdoutRead($foo)
If @error Then ExitLoop
Switch $iIp
Case False
If StringInStr(" " & $line & " ",$iPID) and StringInStr(" " & $line & " ","HERGESTELLT") Then
Return 1
EndIf
Case Else
If StringInStr(" " & $line & " ",$iPID) and StringInStr(" " & $line & " ","HERGESTELLT") and StringInStr(" " & $line & " ",$iIp) Then
Return 1
EndIf
EndSwitch
Wend
SetError(1)
Return 0
EndFunc

[/autoit]

Kannst jetzt beide Processid's bzw bei einer Sitzung den Prozessnamen checken,
zur Not auch noch zu ner speziellen IP, falls es da mehrere Connections von dem Programm gibt.

Greetz

qon

Schade das Botanfragen Kommentarlos gelöscht werden, ich Code gerne auch umfangreiche Bots ( nicht für WoW.. )
Und gegen irgend eine Belohnung wäre ich sowieso dabei *g*
Schön und gut, dass es das ganze hier gibt, aber nicht, dass irgendwann die Hilfeleistung auch noch was kostet
Greetz

qon

Jup siehe Oscar,
schau dir mal den Eintrag in der Hilfe zu Msgbox genauer an, jeder gedrückte Button hat verschiedene Rückgabewerte,
also kann man die Werte also Beispielsweise mit ner Switch abfragen.
Hier mal Variablen mit den Rückgabewerten definiert zur Verdeutlichung.

Spoiler anzeigen

[autoit]

$Ja = 6
$Nein = 7

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

Switch Msgbox(36,"MsgBox","Soll hiernach noch einer Messagebox angezeigt werden?")
Case $Ja
Msgbox(48,"Kay","Du wolltest wirklich noch eine...")
Exit
Case $Nein
Exit
Case Else
msgbox(0,"","hm?")
EndSwitch

[/autoit]

Greetz

qon

Hi,

ich denke mal er meint sowas wie HLSW, wers nicht kennt kann ja googlen
Mit dem Tool kann man Server von vielen verschiedenen Spielen steuern,
ohne beispielsweise darauf zu connecten ( verbinden ).
Ich denke mal er meint, ob man sowas bauen könnte.
Mich interessierts auch sehr Nur ich hätte auch keine Idee wie, ob per TCP?

greetz

qon

danke
hatte auch schonmal gerundet aber vielleicht lags daran das die formel falsch war, jedenfalls klappts jetzt
greetz

Beiträge von qon

AutoiT3Wrapper als Virus erkannt

Abfrage Problem

Rekursive FileList

Func _Login

Func _Login

Func _Login

Func _Login

GUI - Registry Policies

Abfrage Problem

Timeserver Zeit und Datum abfragen ?

Gui fertigstellen aber wie

Minimiertes Fenster als TryIcon

Abbruch einer Verbindung feststellen

Zahlen auslesen und addieren

Zahlen auslesen und addieren

Abbruch einer Verbindung feststellen

Regeln

Script beenden

Serversay-Tool für Gameserver!??!?

InetGet & Background = 1