Hu habe eine login script geschrieben bekomme allerdings eine fehler names Unknown Funktion name !
was könnte das sein?
Hu habe eine login script geschrieben bekomme allerdings eine fehler names Unknown Funktion name !
was könnte das sein?
das die funktion die du aufrufst nich in deinem script dabei ist,
könnten zum beispiel die include's sein
öhm und wo ist dein script?!^^
an ein include habe ich auch schon gedacht
hat jemand mal was von einem memory.au3 gehört?
hat jemand mal was von einem memory.au3 gehört?
natürlich.
poste dein script. so kann man dir nicht helfen
bekomme dann leider ärger wenn ich das upe
wegen der allgemeinen foren regel
wo bekomme ich den die memory.au3 her`?
ok dann keinen support
wo man etwas her bekommt musste wohl selbst rausfinden...
es ist ja keine hack oder bot oder sonst was es ist einfach nur eine login hilfe,
bin hier doch imer angefahren worden das es ein bot sei
na dann poste das script doch.
wie gesagt, so kann man dir nicht helfen.
wer weiß was für funktionen du in dem script hast und wo der fehler liegt.
die allwissende glaskugel ist ja schon seit längerem kaputt
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=..\..\..\AutoLoginv0.38.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstants.au3>
$file = @ScriptDir & "\login.ini"
$Form2 = GUICreate("AutoLogin Detroit49", 341, 417, 249, 133)
$Group1 = GUICtrlCreateGroup("Deine Daten!", 8, 8, 169, 105)
$Label1 = GUICtrlCreateLabel("ID", 152, 32, 15, 17)
$namegui = GUICtrlCreateInput(IniRead($file,"Allgemein", "Name",""), 24, 32, 121, 21)
$pwgui = GUICtrlCreateInput(IniRead($file,"Allgemein", "PW",""), 24, 64, 121, 21)
$Label2 = GUICtrlCreateLabel("PW", 152, 64, 22, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("PC Einstellungen", 184, 8, 145, 105)
$Label7 = GUICtrlCreateLabel("Pc-Geschwindigkeit", 200, 32, 98, 17)
$leistunggui = GUICtrlCreateInput(IniRead($file,"Allgemein", "Leistung",""), 192, 88, 41, 21)
$Label10 = GUICtrlCreateLabel("Sekunden bis zum Start von", 192, 64, 137, 17)
$Label11 = GUICtrlCreateLabel("Silkroad", 240, 80, 42, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Show/Hide Silkroad", 8, 176, 169, 97)
$hidesrogui = GUICtrlCreateButton("Hide Silkroad", 16, 200, 153, 17, $WS_GROUP)
$showsrogui = GUICtrlCreateButton("Show Silkroad", 16, 224, 153, 17, $WS_GROUP)
$exitsrogui = GUICtrlCreateButton("Exit Silkroad", 16, 248, 153, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group4 = GUICtrlCreateGroup("Programmbefehle", 8, 272, 169, 137)
$startgui = GUICtrlCreateButton("Start AutoLogin F5", 16, 296, 153, 25, $WS_GROUP)
$stopgui = GUICtrlCreateButton("Stop AutoLogin F6", 16, 328, 153, 25, $WS_GROUP)
$exitgui = GUICtrlCreateButton("Exit Tool F7", 16, 360, 153, 17, $WS_GROUP)
$showgui = GUICtrlCreateButton("Show the Tool F8", 16, 384, 153, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group5 = GUICtrlCreateGroup("Programmeinstellungen", 184, 112, 145, 161)
$checked = IniRead($file, "Allgemein", "MitSRO", "")
$mitsrogui = GUICtrlCreateCheckbox("Mit Silkroad starten?", 192, 136, 113, 17)
If $checked = "1" Then
GUICtrlSetState($mitsrogui, $GUI_CHECKED)
EndIf
$Label3 = GUICtrlCreateLabel("ggf. Pfad angeben!", 192, 152, 95, 17)
$pfadgui = GUICtrlCreateInput(IniRead($file, "Allgemein", "Pfad", ""), 192, 176, 121, 21)
$searchgui = GUICtrlCreateButton("Durchsuchen", 192, 200, 121, 17, $WS_GROUP)
$reconnectgui = GUICtrlCreateInput(IniRead($file, "Allgemein", "Reconnect", ""), 192, 232, 33, 21, BitOR($ES_AUTOHSCROLL,$ES_NUMBER))
$Label8 = GUICtrlCreateLabel("Reconnect nach", 232, 224, 84, 17)
$Label9 = GUICtrlCreateLabel("X Sekunden", 232, 240, 63, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group6 = GUICtrlCreateGroup("Weiteres", 184, 272, 145, 137)
$Label5 = GUICtrlCreateLabel("For more Infos", 216, 368, 71, 17)
$linkgui = GUICtrlCreateLabel("KLICK HERE!", 216, 384, 70, 17)
GUICtrlSetFont(-1, 8, 400, 4, "MS Sans Serif")
GUICtrlSetColor(-1, 0x0000FF)
GUICtrlSetCursor (-1, 0)
$maxchar=IniRead($file, "Allgemein", "MaxChar", "")
$maxchargui = GUICtrlCreateCombo(IniRead($file, "Allgemein", "MaxChar", ""), 192, 296, 49, 25)
If $maxchar="1" Then
GUICtrlSetData($maxchargui, "2|3|4")
ElseIf $maxchar="2" Then
GUICtrlSetData($maxchar, "1|3|4")
ElseIf $maxchar="3" Then
GUICtrlSetData($maxchar, "1|2|4")
ElseIf $maxchar="4" Then
GUICtrlSetData($maxchar, "1|2|3")
EndIf
$charposgui = GUICtrlCreateCombo(IniRead($file, "Allgemein", "Charpos", ""), 192, 336, 49, 25)
If $charposgui="1" Then
GUICtrlSetData($charposgui, "2|3|4")
ElseIf $charposgui="2" Then
GUICtrlSetData($charposgui, "1|3|4")
ElseIf $charposgui="3" Then
GUICtrlSetData($charposgui, "1|2|4")
ElseIf $charposgui="4" Then
GUICtrlSetData($charposgui, "1|2|3")
EndIf
$Label4 = GUICtrlCreateLabel("Anz. von Chars", 248, 296, 76, 17)
$Label6 = GUICtrlCreateLabel("Char. Position", 248, 336, 69, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group7 = GUICtrlCreateGroup("Server", 8, 112, 169, 65)
$serverchecked = IniRead($file, "Allgemein", "ChangeServer", "")
$changeservergui = GUICtrlCreateCheckbox("Server wechseln?", 56, 120, 113, 17)
If $serverchecked = "1" Then
GUICtrlSetState($changeservergui, $GUI_CHECKED)
EndIf
$servergui = GUICtrlCreateCombo(IniRead($file,"Allgemein","Server",""), 32, 144, 121, 25)
GUICtrlSetData($servergui, "Venice|Greece|Alps|Olympus|Tibet|RedSea|Pacific|Oasis|Odin|Hercules|Alexander|Saturn|Venus|Mars|Uranus|Mercury|Poseidon|Zeus|Persia|Eldorado|Sparta|Rome|Neptune|Hera (New)|Gaia (New)|Eos (New)|Phoenix (New)|Ares (New)|Iris (New)|Titan (New)|Apollo (New)|Xian|Aege|Troy|Athens|Oasis")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
HotKeySet("{F5}", '_start')
HotKeySet("{F6}", '_stop')
HotKeySet("{F7}", '_exit')
HotKeySet("{F8}", '_infront')
Opt('GUIOnEventMode', 1)
Opt("GUICloseOnESC", 0)
Opt("TrayAutoPause",0)
GUICtrlSetOnEvent($linkgui, '_link')
GUICtrlSetOnEvent($searchgui, '_durchsuchen')
GUICtrlSetOnEvent($startgui, '_start')
GUICtrlSetOnEvent($stopgui, '_stop')
GUISetOnEvent($GUI_EVENT_CLOSE, '_exit')
GUICtrlSetOnEvent($hidesrogui, '_hide')
GUICtrlSetOnEvent($showsrogui, '_show')
GUICtrlSetOnEvent($exitsrogui, '_exitsro')
GUICtrlSetOnEvent($exitgui, '_exit')
Global $i
Global $reconnect
Global $sro
Global $start=false
Func _start()
$start=true
EndFunc
Func _char()
Beep(500, 500)
Beep(400, 500)
Beep(300, 500)
Beep(200, 500)
Beep(100, 500)
Beep(50, 500)
Sleep(2000)
$dw=@DesktopWidth
$dh=@DesktopHeight
$charpos=GUICtrlRead($charposgui)
$charanz=GUICtrlRead($maxchargui)
$handle = WinGetHandle("[CLASS:CLIENT]")
$sropid = Wingetprocess($handle)
WinActivate($sropid)
WinWaitActive($sropid)
ControlClick($sropid,"",$charpos*($dw/($charanz+1)),$dh/2)
Sleep(3000)
ControlClick($sropid,"",4/5*$dw,9/10*$dh)
EndFunc
Func _EnterSenden()
$srohandle = WinGetHandle("sro_client.exe")
$pidsro = Wingetprocess($srohandle)
$loginmemory = _MemoryOpen($pidsro)
While _MemoryRead(0xF5315C, $loginmemory) <> 1
ControlSend("[CLASS:CLIENT]", "", "Edit1", "{ENTER}")
If ProcessExists("sro_client.exe") Then
Sleep($reconnect*1000)
Else
_start()
EndIf
If $i=1 Then
return 1
endif
WEnd
if ProcessExists("sro_client.exe") Then
_char()
return 1
Else
$start=true
return 1
endif
EndFunc
Func _link()
ShellExecute()
EndFunc
Func _stop()
$i = 1
EndFunc
Func _infront()
WinActivate("AutoLogin Detroit49")
EndFunc
Func _exit()
Exit
EndFunc
Func _hide()
$srohandle = WinGetHandle("[CLASS:CLIENT]")
$sropid = Wingetprocess($srohandle)
WinSetState($sropid, "", @SW_HIDE)
EndFunc
Func _show()
$srohandle = WinGetHandle("[CLASS:CLIENT]")
$sropid = Wingetprocess($srohandle)
WinSetState($sropid, "", @SW_SHOW)
EndFunc
Func _exitsro()
$srohandle = WinGetHandle("[CLASS:CLIENT]")
$sropid = Wingetprocess($srohandle)
If ProcessExists($sropid) Then
If MsgBox(292, "Achtung!", "Willst du Silkroad wirklich beenden?") = 6 Then
ProcessClose($sropid)
EndIf
EndIf
EndFunc
Func _durchsuchen()
$pfad = FileOpenDialog("Silkroad Launcher ausw?len!", @DesktopDir, "Silkroad Launcher (*.exe)", 1)
If Not @error Then
GUICtrlSetData($pfadgui, $pfad)
EndIf
EndFunc
While 1
if $start=true Then
$start=false
$i = 0
$pfad = GUICtrlRead($pfadgui)
$name = GUICtrlRead($namegui)
$pw = GUICtrlRead($pwgui)
$leistung = GUICtrlRead($leistunggui)
$reconnect = GUICtrlRead($reconnectgui)
$charpos=GUICtrlRead($charposgui)
$maxchar=GUICtrlRead($maxchargui)
$server=GUICtrlRead($servergui)
If GUICtrlRead($changeservergui)=$GUI_CHECKED Then
$changeserver= "1"
Else
$changeserver= "0"
EndIf
If GUICtrlRead($mitsrogui)=$GUI_CHECKED Then
$mitsro= "1"
Else
$mitsro= "0"
EndIf
$file = @ScriptDir & "\login.ini"
IniWrite($file, "Allgemein", "Name", $name)
IniWrite($file, "Allgemein", "PW", $pw)
IniWrite($file, "Allgemein", "Leistung", $leistung)
IniWrite($file, "Allgemein", "Pfad", $pfad)
IniWrite($file, "Allgemein", "Reconnect", $reconnect)
IniWrite($file, "Allgemein", "Charpos", $charpos)
IniWrite($file, "Allgemein", "MaxChar", $maxchar)
IniWrite($file, "Allgemein", "Server", $server)
IniWrite($file, "Allgemein", "MitSRO", $mitsro)
IniWrite($file, "Allgemein", "ChangeServer", $changeserver)
if $charpos > $maxchar Then
MsgBox(0,"Falsche Charakter Position!", "Deine Charakterposition kann nichts h?er als deine Zahl an Charakteren sein!")
EndIf
if $maxchar > "4" Then
MsgBox(0, "Zu hohe Anzahl von Chars!", "Du kannst nicht mehr als 4 Charaktere haben >.^")
EndIf
if $charpos = "0" Then
MsgBox(0,"Falsche CharPosition","Du kannst nur die Positionen 1-4 belegen")
EndIf
If $charpos > "5" Then
MsgBox(0,"Falsche CharPosition", "Du kannst nur die Positionen 1-4 belegen")
EndIf
If $leistung = "" Then
$leistung = "25"
EndIf
if $mitsrogui = $GUI_CHECKED Then
If $name = "" Then
MsgBox(0, "Keine ID", "Du musst eine ID angeben!")
EndIf
If $pw = "" Then
MsgBox(0, "Kein PW", "Du musst ein PW angeben!")
EndIf
EndIf
If $reconnect = "" Then
$reconnect = "7"
EndIf
If GUICtrlRead($changeservergui) = $GUI_CHECKED Then
RegWrite("HKEY_CURRENT_USER\Software\Joymax\Silkroad","RECENTSERVER","REG_SZ",$server)
EndIf
if GUICtrlRead($mitsrogui) = $GUI_CHECKED Then
Run($pfad)
WinWaitActive("[CLASS:#32770]")
If WinActive("[CLASS:#32770]") = 0 Then
Do
WinActivate("[CLASS:#32770]")
Until WinActive("[CLASS:#32770]") = 1
EndIf
Sleep(500)
ControlClick("[CLASS:#32770]", "", "[CLASS:Button; INSTANCE:18]")
Sleep(5000)
ControlClick("[CLASS:#32770]", "", "[CLASS:Button; INSTANCE:1]")
Sleep($leistung*1000)
ControlSend("[CLASS:CLIENT]", "", "Edit1", "x")
Sleep(500)
ControlSend("[CLASS:CLIENT]", "", "Edit1", $name)
Sleep(500)
ControlSend("[CLASS:CLIENT]", "", "Edit1", "{TAB}")
Sleep(500)
ControlSend("[CLASS:CLIENT]", "", "Edit1", $pw)
Sleep(100)
_EnterSenden()
Else
_EnterSenden()
EndIf
EndIf
$handle = WinGetHandle("[CLASS:CLIENT]")
$sropid = Wingetprocess($handle)
$memory = _MemoryOpen($sropid)
If _MemoryRead(0x1267F2, $memory) = 1 Then
_MemoryClose($memory)
_start()
EndIf
WEnd
hier schnitzel kannst meine glaskugel haben *rüberreich*
@detroit: http://lmgtfy.com/?q=memory.au3+download
wahh und verwende bitte spoiler
Ich scroll so ungerne
Zitat@detroit: http://lmgtfy.com/?q=memory.au3+download
Da war ich schon !!! das ist das erste was ich mache bevor ich andere frage !
aber habe sie nicht zum laden gefunden auch hier im forum nicht
hier schnitzel kannst meine glaskugel haben *rüberreich*
hey cool danke für die glaskugel
@Detroit49:
das sind alle includes die du brauchst
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <NomadMemory.au3>
Du musst dann auch eines der lustigen blauen suchergebnisse anklicken...
Hier:
http://www.autoitscript.com/forum/index.php?app=core&module=attach§ion=attach&attach_id=9648
oh sry danke
Du musst dann auch eines der lustigen blauen suchergebnisse anklicken...
Hier:
http://www.autoitscript.com/forum/index.…&attach_id=9648
und am besten rechtsklick speichern unter. und dann in den include ordner
(Standartmäßig unter: C:\Programme\AutoIt3\Include)
ähhhm wieso wirt mein script als bifrose virus gemeldet ?
wahrscheinlich weil du in der registry sachen veränderst oder du in der memory rumpfuscht
Jetzt mal erstnhaft. Warum supported ihr so einen Scheiß noch? Ich meine nämlich, in den Forenregeln, gelesen zu haben, dass Bots bzw Tools die gegen die AGB von diversen Spiele- oder Webseitenbetreibern verstoßen, hier verdammt noch mal nichts verloren haben!!!!!!!
also mir musste nun echt nich erzählen was in den forenregeln steht.
und ja wenn mans oberflächlich betrachtet sieht es sehr nach dem typischen "helft mir bei meinem bot" aus.
soweit ich mich nicht irre ist in dem ganzen tool nichts das gegen agb's verstoßen wird.
das ganze ist wohl eine automatisierung um beim starten des spiels nicht immer wieder die einzelnen charaktere und einstellungen zu auswählen zu müssen.
und das denke ich ist in ordnung wenn man da hilft.
falls ich mich wo irre tuts mir leid