A Bot: From epvp users for epvp users

[cranen]

my small contribution has been submitted DarkPlayer123

[liberteboy]

Trusted users only cause 80% of DO comes to this site

[CNemessis*RO*]

Originally Posted by Vossik

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

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.

[Dr.Toni-old]

Originally Posted by DarkPlayer123

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

#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

[Miszczu.]

Originally Posted by Dr.Toni

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

Login to website with packets ? -,-

[Dr.Toni-old]

Sure?! At the first part he wants to login in to the account.
Next part in to the space map

[skulltoo]

What's this topic all about??

A new DO game just for insiders??? Then go to your own community and close this thread....
Or a new bot for this community on epvp?