A Bot: From epvp users for epvp users

Quote:

Originally Posted by Vossik

Yes you will release your own DO... Nice dream...

:D :D Its nice to say but if some Hacker will play your game he will make bot... You will release it for your own comunity but they will send it to their friends and someone of them will post it here...

1 - Is not a dream , is the TRUE. If you don't understand that , is your problem.

2 - Hmm , i have a private community. What say it that for you ? I don't need a lot of ppl in my community , scammers , hackers or something. Who want a account in my game , will receive from me a register link , 1 acc - 1 register link . If you will not be invited in this game , you can't play . YOu can't register :)

So , I don't think will be a hacker , or a bot.

Be well , I don't care what are you say now , but I'm working on my project about 6 months , alone . I don't care what are you say !

CNemeeeeee.

Quote:

Originally Posted by DarkPlayer123

I have the idea and i have codet the login in autoit:

Code:

#include <IE.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
local $config, $conf
local $userdat, $user
local $passdat, $pass
local $weltdat, $welt
If FileExists("konfiguriert.txt") Then
   $config = FileOpen("konfiguriert.txt")
   If FileReadLine($config) == "true" Then
	  $userdat = FileOpen("username.txt")
      $user = FileReadLine($userdat)
      $passdat = FileOpen("passwort.txt")
	  $pass = FileReadLine($passdat)
	  $weltdat = FileOpen("weltkuerzel.txt")
      $welt = FileReadLine($weltdat)
      FileClose($config)
   EndIf
Else
   _FileCreate("username.txt")
   _FileCreate("passwort.txt")
   _FileCreate("weltkuerzel.txt")
   _FileCreate("konfiguriert.txt")
   FileSetAttrib("*.txt", "+H")
   $inputuser = InputBox( "Login Username", "Bitte gib deinen Username ein:")
   $inputpass = InputBox( "Login Passwort", "Bitte gib dein Passwort ein:")
   $inputwelt = InputBox( "Login Welt", "Bitte gib den Weltk�rzel deiner Welt ein:")
   $userdat = FileOpen("username.txt", 1)
   $user = FileWriteLine($userdat, $inputuser)
   $passdat = FileOpen("passwort.txt", 1)
   $pass = FileWriteLine($passdat, $inputpass)
   $weltdat = FileOpen("weltkuerzel.txt", 1)
   $welt = FileWriteLine($weltdat, $inputwelt)
   $config = FileOpen("konfiguriert.txt",1)
   $conf = FileWriteLine($config, "true")
   FileClose($config)
EndIf
$Url = 'http://www.darkorbit.com/'
$User = $user
$Pwd = $pass
$test = _IEAutoLogin($Url, $User, $Pwd)
Func _IEAutoLogin($sUrl, $sUsername, $sPwd)
 ;funkey 09.09.09
 $oIE = _IECreate($sUrl)
 _IEErrorNotify(False)
 _IEErrorHandlerRegister()
 $oForms = _IEFormGetCollection($oIE)
 If @error Then
  Return SetError(1, _IEErrorHandlerDeRegister(), $oIE) ;'no forms --> no login'
 Else
  $Index = 0
  For $oForm In $oForms
   $oFormElements = _IEFormElementGetCollection($oForm)
   If IsObj($oFormElements) Then
    $IndexElement = 0
    For $oElement In $oFormElements
     If $oElement.Type = 'password' Then
      $oPwd = _IEFormElementGetObjByName($oForm, $oElement.Name)
      _IEFormElementSetValue($oPwd, $sPwd)
      For $i = $IndexElement - 1 To 0 Step -1
       $oUser = _IEFormElementGetCollection($oForm, $i)
       If $oUser.Type = 'text' Then
        _IEFormElementSetValue($oUser, $sUsername)
        ExitLoop
       EndIf
      Next
      If $oForm.action <> "0" And Not StringInStr($oForm.action, '.php') Then  ;submit
       _IEFormSubmit($oForm, 0)
       _IELoadWait($oIE)
Else  ;click
       For $i = $IndexElement + 1 To $IndexElement + 10 ;check the next 10 elements
        $oButton = _IEFormElementGetCollection($oForm, $i)
        If $oButton.Type = 'submit' Then
         _IEAction($oButton, "click")
         ExitLoop
        EndIf
       Next
      EndIf
      Return SetExtended(_IEErrorHandlerDeRegister(), $oIE)
     EndIf
     $IndexElement += 1
    Next
   EndIf
   $Index += 1
  Next
 EndIf
 Return SetError(2, _IEErrorHandlerDeRegister(), $oIE) ;no password-field found
EndFunc   ;==>_IEAutoLogin
Opt("WinTitleMatchMode",4)
$Titel = WinGetTitle("active")
WinSetState($Titel,"",@SW_MAXIMIZE)
MsgBox (0, "Login", "Bitte Welt ausw�hlen!")
WinWaitActive("Darkorbit | Das Browsergames Adventure f�r Action im Hyperspace. - Windows Internet Explorer")
$urlbrowser = _IEPropertyGet( $Titel, "locationurl")
While True
   If $urlbrowser = "http://"$welt".darkorbit.bigpoint.com/indexInternal.es?action=internalStart" Then ;==> here is a error but it will fixed
	  Exit
   EndIf
WEnd
$game = _IECreate("http://"$welt".darkorbit.bigpoint.com/indexInternal.es?action=internalMapRevolution")

Do it with packets again and I think about to help you ;)