|
You last visited: Today at 05:57
Advertisement
Großes Script - viel Hilfe benötigt
Discussion on Großes Script - viel Hilfe benötigt within the AutoIt forum part of the Coders Den category.
05/21/2011, 10:43
|
#1
|
elite*gold: 0 
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Großes Script - viel Hilfe benötigt
Hi,
ich hab hier mal ein für mich etwas größeres projekt angefangen...
ich möchte für das Spiel Diablo II einen Spammbot machen der immer in verschiedene Game-Sessions reingeht und einen Text absendet.
PHP Code:
if _Singleton("Diaspambot.exe",1) = 0 Then ;aktuell halten
msgbox(16, "Runtime Error", "Die exe wird bereits ausgeführt!")
exit
endif
if ProcessExists("Game.exe") Then
Msgbox(0,"Warnung","Der Process 'Game.exe' existiert bereits und muss beendet werden!" & @CRLF & _
"" & @CRLF & _
"Diablo II wird automatisch beendet!")
winclose("Diablo II")
if not @error Then
winWaitClose("Diablo II")
endif
EndIf
global $Input1Add, $Input2Add, $Input3Add, $listview, $radio1, $radio2, $radio3, $radio4, $radio5, $radio6, $radio7, $radio8
#RequireAdmin
#include <misc.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\diaform.kxf
$Form1 = GUICreate("DBot by Ludder", 581, 428, -1, -1)
$Button1 = GUICtrlCreateButton("Run", 176, 192, 59, 25)
$Tab1 = GUICtrlCreateTab(8, 248, 561, 129)
$TabSheet1 = GUICtrlCreateTabItem("Common Log")
GUICtrlCreateTabItem("")
$Button2 = GUICtrlCreateButton("Stop", 240, 192, 59, 25)
$Button3 = GUICtrlCreateButton("Add", 304, 192, 59, 25)
$Button4 = GUICtrlCreateButton("Edit", 368, 192, 59, 25)
$Button5 = GUICtrlCreateButton("Remove", 432, 192, 59, 25)
$Button6 = GUICtrlCreateButton("Save", 496, 192, 59, 25)
$Group1 = GUICtrlCreateGroup("Profile", 16, 16, 553, 217)
$listview = GUICtrlCreateListView("Profile Names| Runs | Restarts | Status", 24, 40, 529, 136)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Exit", 496, 384, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $button2
winclose("Diablo II" ,"")
case $Button3
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\formadd.kxf
$FormAdd = GUICreate("Profile Settings", 494, 349, -1, -1)
$Label1Add = GUICtrlCreateLabel("Profile Name:", 12, 12, 67, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input1Add = GUICtrlCreateInput("", 88, 8, 193, 21)
$Group1 = GUICtrlCreateGroup("Loader Settings", 16, 40, 465, 113)
$Label1Add = GUICtrlCreateLabel("Path:", 40, 85, 26, 17)
$Input2Add = GUICtrlCreateInput("", 72, 80, 265, 21)
$Button1Add = GUICtrlCreateButton("...", 344, 80, 51, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Game Settings", 16, 168, 465, 121)
$Label1Add = GUICtrlCreateLabel("Account Name:", 24, 195, 75, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3Add = GUICtrlCreateInput("", 112, 192, 121, 21)
$Label1 = GUICtrlCreateLabel("Position", 248, 192, 41, 17)
$Radio1 = GUICtrlCreateRadio("1", 304, 192, 25, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Radio2 = GUICtrlCreateRadio("2", 336, 192, 25, 17)
$Radio3 = GUICtrlCreateRadio("3", 304, 216, 25, 17)
$Radio4 = GUICtrlCreateRadio("4", 336, 216, 25, 17)
$Radio5 = GUICtrlCreateRadio("5", 304, 240, 25, 17)
$Radio6 = GUICtrlCreateRadio("6", 336, 240, 25, 17)
$Radio7 = GUICtrlCreateRadio("7", 304, 264, 25, 17)
$Radio8 = GUICtrlCreateRadio("8", 336, 264, 25, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$OKAdd = GUICtrlCreateButton("OK", 400, 304, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
exit
case $OKAdd
GUISetState($FormAdd, @sw_hide)
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Path", guictrlread($Input2Add))
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Acc", guictrlread($Input3Add))
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Profil", guictrlread($Input1Add))
if GUICtrlRead($radio1) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio1))
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio2))
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio3))
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio4))
ElseIf GUICtrlRead($radio5) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio5))
ElseIf GUICtrlRead($radio6) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio6))
ElseIf GUICtrlRead($radio7) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio7))
ElseIf GUICtrlRead($radio8) = $GUI_CHECKED then
IniWrite(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Pos", guictrlread($Radio8))
$item1 = GUICtrlCreateListViewItem(guictrlread($input1add)&"|"&"||", $listview)
endif
EndSwitch
WEnd
case $button1
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form22 = GUICreate("Password Dialog", 251, 93, -1, -1)
$PasswordEdit = GUICtrlCreateInput("", 8, 32, 233, 21)
$ButtonOk = GUICtrlCreateButton("OK", 86, 64, 75, 25, $BS_NOTIFY)
$ButtonCancel = GUICtrlCreateButton("Cancel", 167, 64, 75, 25, $BS_NOTIFY)
$EnterPassLabel = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
case $ButtonOK
GUISetState(@sw_hide, "Password Dialog")
GUISetState(@SW_MINIMIZE, "DBot by Ludder")
Opt("SendKeyDelay", 20)
Run(guictrlread($input2add))
WinSetState("Diablo II", "", @sw_lock)
WinWaitActive("Diablo II")
sleep(5000)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
sleep(500)
ControlSend("Diablo II", "", "", Iniread(@WindowsDir&"\DBot.ini", guictrlread($input1add), "Path", guictrlread($Input2Add)))
sleep(500)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
sleep(500)
ControlSend("Diablo II", "", "", guictrlread($passwordEdit))
sleep(300)
ControlClick("Diablo II", "", "", "Left", 1, 401, 466)
sleep(3500)
if GUICtrlRead($radio1) = $GUI_CHECKED then
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED then
ControlClick("Diablo II", "", "", "Left", 1, 484, 139) ;checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 484, 139);checken
ElseIf gUICtrlRead($radio3) = $GUI_CHECKED then
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
ElseIf gUICtrlRead($radio4) = $GUI_CHECKED then
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
;ElseIf gUICtrlRead($radio5) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
;ElseIf gUICtrlRead($radio6) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
endif
case $buttoncancel
exit
EndSwitch
WEnd
EndSwitch
WEnd
func _exit()
exit
endfunc
1. Wie kann ich $FormAdd schließen ohne gleich das ganze srcipt zu schließen
2. Wie kann ich machen, dass bei $listview ein neues Item angelegt wird das den Namen hat von $input1add hat.
3. Wie funktioniert das mit dem Global?(In dem script werden z.B:
if GUICtrlRead($radio1) = $GUI_CHECKED then
ControlClick("Diablo II", "", "", "Left", 1, 203, 148)
sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 203, 148)
nicht ausgeführt)
4. Hat wer verbesserung Vorschläge?
|
|
|
|
05/21/2011, 11:32
|
#2
|
elite*gold: 0
Join Date: Mar 2009
Posts: 2,317
Received Thanks: 1,255
|
nr3 hab ich nicht ganz verstanden...
PHP Code:
If _Singleton("Diaspambot.exe", 1) = 0 Then ;aktuell halten
MsgBox(16, "Runtime Error", "Die exe wird bereits ausgeführt!")
Exit
EndIf
If ProcessExists("Game.exe") Then
MsgBox(0, "Warnung", "Der Process 'Game.exe' existiert bereits und muss beendet werden!" & @CRLF & _
"" & @CRLF & _
"Diablo II wird automatisch beendet!")
WinClose("Diablo II")
If Not @error Then
WinWaitClose("Diablo II")
EndIf
EndIf
Global $Input1Add, $Input2Add, $Input3Add, $listview, $radio1, $radio2, $radio3, $radio4, $radio5, $radio6, $radio7, $radio8
#RequireAdmin
#include <misc.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\diaform.kxf
$Form1 = GUICreate("DBot by Ludder", 581, 428, -1, -1)
$Button1 = GUICtrlCreateButton("Run", 176, 192, 59, 25)
$Tab1 = GUICtrlCreateTab(8, 248, 561, 129)
$TabSheet1 = GUICtrlCreateTabItem("Common Log")
GUICtrlCreateTabItem("")
$Button2 = GUICtrlCreateButton("Stop", 240, 192, 59, 25)
$Button3 = GUICtrlCreateButton("Add", 304, 192, 59, 25)
$Button4 = GUICtrlCreateButton("Edit", 368, 192, 59, 25)
$Button5 = GUICtrlCreateButton("Remove", 432, 192, 59, 25)
$Button6 = GUICtrlCreateButton("Save", 496, 192, 59, 25)
$Group1 = GUICtrlCreateGroup("Profile", 16, 16, 553, 217)
$listview = GUICtrlCreateListView("Profile Names| Runs | Restarts | Status", 24, 40, 529, 136)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Exit", 496, 384, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\formadd.kxf
$FormAdd = GUICreate("Profile Settings", 494, 349, -1, -1)
$Label1Add = GUICtrlCreateLabel("Profile Name:", 12, 12, 67, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input1Add = GUICtrlCreateInput("", 88, 8, 193, 21)
$Group1 = GUICtrlCreateGroup("Loader Settings", 16, 40, 465, 113)
$Label1Add = GUICtrlCreateLabel("Path:", 40, 85, 26, 17)
$Input2Add = GUICtrlCreateInput("", 72, 80, 265, 21)
$Button1Add = GUICtrlCreateButton("...", 344, 80, 51, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Game Settings", 16, 168, 465, 121)
$Label1Add = GUICtrlCreateLabel("Account Name:", 24, 195, 75, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3Add = GUICtrlCreateInput("", 112, 192, 121, 21)
$Label1 = GUICtrlCreateLabel("Position", 248, 192, 41, 17)
$radio1 = GUICtrlCreateRadio("1", 304, 192, 25, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$radio2 = GUICtrlCreateRadio("2", 336, 192, 25, 17)
$radio3 = GUICtrlCreateRadio("3", 304, 216, 25, 17)
$radio4 = GUICtrlCreateRadio("4", 336, 216, 25, 17)
$radio5 = GUICtrlCreateRadio("5", 304, 240, 25, 17)
$radio6 = GUICtrlCreateRadio("6", 336, 240, 25, 17)
$radio7 = GUICtrlCreateRadio("7", 304, 264, 25, 17)
$radio8 = GUICtrlCreateRadio("8", 336, 264, 25, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$OKAdd = GUICtrlCreateButton("OK", 400, 304, 75, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form22 = GUICreate("Password Dialog", 251, 93, -1, -1)
$PasswordEdit = GUICtrlCreateInput("", 8, 32, 233, 21)
$ButtonOk = GUICtrlCreateButton("OK", 86, 64, 75, 25, $BS_NOTIFY)
$ButtonCancel = GUICtrlCreateButton("Cancel", 167, 64, 75, 25, $BS_NOTIFY)
$EnterPassLabel = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17, 0)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1 ;//erste form start
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form22)
Case $Button2
WinClose("Diablo II", "")
Case $Button3
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $FormAdd)
Case $Button4
;;
Case $Button5
;;
Case $Button6
;;
Case $Button7
Exit
EndSwitch ;//erste form ende
Case $Form22 ;//zweite form start
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form22)
GUISetState(@SW_SHOW, $Form1)
Case $ButtonOk
GUISetState(@SW_HIDE, "Password Dialog")
GUISetState(@SW_MINIMIZE, "DBot by Ludder")
Opt("SendKeyDelay", 20)
Run(GUICtrlRead($Input2Add))
WinSetState("Diablo II", "", @SW_LOCK)
WinWaitActive("Diablo II")
Sleep(5000)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
Sleep(500)
ControlSend("Diablo II", "", "", IniRead(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Path", GUICtrlRead($Input2Add)))
Sleep(500)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
Sleep(500)
ControlSend("Diablo II", "", "", GUICtrlRead($PasswordEdit))
Sleep(300)
ControlClick("Diablo II", "", "", "Left", 1, 401, 466)
Sleep(3500)
If GUICtrlRead($radio1) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 484, 139) ;checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 484, 139);checken
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
;ElseIf gUICtrlRead($radio5) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
;ElseIf gUICtrlRead($radio6) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
EndIf
Case $ButtonCancel
Exit
EndSwitch ;//zweite form ende
Case $FormAdd ;//dritte form start
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $FormAdd)
GUISetState(@SW_SHOW, $Form1)
Case $OKAdd
GUISetState(@SW_HIDE, $FormAdd)
GUISetState(@SW_SHOW, $Form1)
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Path", GUICtrlRead($Input2Add))
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Acc", GUICtrlRead($Input3Add))
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Profil", GUICtrlRead($Input1Add))
$item1 = GUICtrlCreateListViewItem(GUICtrlRead($Input1Add) & "|" & "||", $listview)
If GUICtrlRead($radio1) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio1))
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio2))
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio3))
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio4))
ElseIf GUICtrlRead($radio5) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio5))
ElseIf GUICtrlRead($radio6) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio6))
ElseIf GUICtrlRead($radio7) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio7))
ElseIf GUICtrlRead($radio8) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio8))
EndIf
EndSwitch ;//dritte form ende
EndSwitch
WEnd
Func _exit()
Exit
EndFunc ;==>_exit
falls noch was nicht stimmt sag bescheid
|
|
|
|
|
05/21/2011, 11:47
|
#3
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
DANKE! für die schnelle und perfekte lösung aller meiner Probleme 
Bloß wie mach ich das das was in der ini gespeichert wurde jz wieder in Item 1 angezeigt wird wenn man die exe neu startet? Also den Profil name?
|
|
|
|
|
05/21/2011, 13:46
|
#4
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
Input:
PHP Code:
GUICtrlCreateInput(IniRead(), ...)
;oder:
GUICtrlSetData($Input, IniRead())
Radio:
PHP Code:
GUICtrlCreateRadio()
GUICtrlSetState(-1, IniRead()) ;"default" = 0 oder 4
|
|
|
|
|
05/21/2011, 15:29
|
#5
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Hier ist jz das script. Es geht
PHP Code:
If _Singleton("Diaspambot.exe", 1) = 0 Then ;aktuell halten
MsgBox(16, "Runtime Error", "Die exe wird bereits ausgeführt!")
Exit
EndIf
if ProcessExists("Game.exe") Then
MsgBox(0, "Warnung", "Der Process 'Game.exe' existiert bereits und muss beendet werden!" & @CRLF & _
"" & @CRLF & _
"Diablo II wird automatisch beendet!")
WinClose("Diablo II")
If Not @error Then
WinWaitClose("Diablo II")
EndIf
EndIf
Global $Input1Add, $Input2Add, $Input3Add, $listview, $radio1, $radio2, $radio3, $radio4, $radio5, $radio6, $radio7, $radio8, $item1
#RequireAdmin
#Include <File.au3>
#include <misc.au3>
#include <ButtonConstants.au3>
#include <GUIListBox.au3>
#include <TabConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\diaform.kxf
$Form1 = GUICreate("DBot by Ludder", 581, 428, -1, -1)
$Button1 = GUICtrlCreateButton("Run", 176, 192, 59, 25)
$Tab1 = GUICtrlCreateTab(8, 248, 561, 129)
$TabSheet1 = GUICtrlCreateTabItem("Common Log")
GUICtrlCreateTabItem("")
$Button2 = GUICtrlCreateButton("Stop", 240, 192, 59, 25)
$Button3 = GUICtrlCreateButton("Add", 304, 192, 59, 25)
$Button4 = GUICtrlCreateButton("Edit", 368, 192, 59, 25)
$Button5 = GUICtrlCreateButton("Remove", 432, 192, 59, 25)
$Button6 = GUICtrlCreateButton("Save", 496, 192, 59, 25)
$Group1 = GUICtrlCreateGroup("Profile", 16, 16, 553, 217)
$listview = GUICtrlCreateListView("Profile Names| Runs | Restarts | Status", 24, 40, 529, 136)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button7 = GUICtrlCreateButton("Exit", 496, 384, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\ludder.luca\desktop\formadd.kxf
$FormAdd = GUICreate("Profile Settings", 494, 349, -1, -1)
$Label1Add = GUICtrlCreateLabel("Profile Name:", 12, 12, 67, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input1Add = GUICtrlCreateInput("", 88, 8, 193, 21)
$Group1 = GUICtrlCreateGroup("Loader Settings", 16, 40, 465, 113)
$Label1Add = GUICtrlCreateLabel("Path:", 40, 85, 26, 17)
$Input2Add = GUICtrlCreateInput("", 72, 80, 265, 21)
$Button1Add = GUICtrlCreateButton("...", 344, 80, 51, 25)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Game Settings", 16, 168, 465, 121)
$Label1Add = GUICtrlCreateLabel("Account Name:", 24, 195, 75, 17)
GUICtrlSetFont(-1, 9, 400, 0, "MS Sans Serif")
$Input3Add = GUICtrlCreateInput("", 112, 192, 121, 21)
$Label1 = GUICtrlCreateLabel("Position", 248, 192, 41, 17)
$radio1 = GUICtrlCreateRadio("1", 304, 192, 25, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$radio2 = GUICtrlCreateRadio("2", 336, 192, 25, 17)
$radio3 = GUICtrlCreateRadio("3", 304, 216, 25, 17)
$radio4 = GUICtrlCreateRadio("4", 336, 216, 25, 17)
$radio5 = GUICtrlCreateRadio("5", 304, 240, 25, 17)
$radio6 = GUICtrlCreateRadio("6", 336, 240, 25, 17)
$radio7 = GUICtrlCreateRadio("7", 304, 264, 25, 17)
$radio8 = GUICtrlCreateRadio("8", 336, 264, 25, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$OKAdd = GUICtrlCreateButton("OK", 400, 304, 75, 25)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
#Region ### START Koda GUI section ### Form=
$Form22 = GUICreate("Password Dialog", 251, 93, -1, -1)
$PasswordEdit = GUICtrlCreateInput("", 8, 32, 233, 21)
$ButtonOk = GUICtrlCreateButton("OK", 86, 64, 75, 25, $BS_NOTIFY)
$ButtonCancel = GUICtrlCreateButton("Cancel", 167, 64, 75, 25, $BS_NOTIFY)
$EnterPassLabel = GUICtrlCreateLabel("Enter password", 8, 12, 77, 17, 0)
GUISetState(@SW_HIDE)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg(1)
Switch $nMsg[1]
Case $Form1
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $Form22)
Case $Button2
WinClose("Diablo II", "")
Case $Button3
GUISetState(@SW_HIDE, $Form1)
GUISetState(@SW_SHOW, $FormAdd)
Case $Button4
;;
Case $Button5
;;
Case $Button6
;;
Case $Button7
Exit
EndSwitch
Case $Form22
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $Form22)
GUISetState(@SW_SHOW, $Form1)
Case $ButtonOk
GUISetState(@SW_HIDE, "Password Dialog")
GUISetState(@SW_MINIMIZE, "DBot by Ludder")
Opt("SendKeyDelay", 20)
Run(GUICtrlRead($Input2Add)&" -skiptobnet -w")
if @error Then
msgbox(16, "", "File doesn't exist")
endif
WinSetState("Diablo II", "", @SW_LOCK)
WinWaitActive("Diablo II")
Sleep(5000)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 479, 335)
Sleep(500)
ControlSend("Diablo II", "", "", IniRead(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Acc", GUICtrlRead($Input3Add)))
Sleep(500)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 483, 394)
Sleep(500)
ControlSend("Diablo II", "", "", GUICtrlRead($PasswordEdit))
Sleep(300)
ControlClick("Diablo II", "", "", "Left", 1, 401, 466)
Sleep(3500)
If GUICtrlRead($radio1) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 203, 148) ;checken
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 484, 139) ;checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 484, 139);checken
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 218, 243);checken
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED Then
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
Sleep(100)
ControlClick("Diablo II", "", "", "Left", 1, 515, 239);checken
;ElseIf gUICtrlRead($radio5) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
;ElseIf gUICtrlRead($radio6) = $GUI_CHECKED then
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239)
;Sleep(100)
;ControlClick("Diablo II", "", "", "Left", 1, 515, 239);
EndIf
sleep(1500)
ControlClick("Diablo II", "", "", "Left", 1, 91, 468)
for $i = 1 to 100
sleep(2000)
ControlClick("Diablo II", "", "", "Left", 1, 709, 463)
sleep(5000)
ControlClick("Diablo II", "", "", "left", 1, 470, 232)
sleep(100)
ControlClick("Diablo II", "", "", "left", 1, 470, 232)
sleep(6000)
ControlSend("Diablo II", "", "", "{enter}")
sleep(200)
ControlSend("Diablo II", "", "", "Cxy3.com")
sleep(600)
ControlSend("Diablo II", "", "", "{enter}")
sleep(10000)
ControlSend("Diablo II", "", "", "{ESC}")
sleep(200)
Controlclick("Diablo II", "", "", "Left", 1, 401, 258)
sleep(60000)
Next
exit
Case $ButtonCancel
Exit
EndSwitch
Case $FormAdd
Switch $nMsg[0]
Case $GUI_EVENT_CLOSE
GUISetState(@SW_HIDE, $FormAdd)
GUISetState(@SW_SHOW, $Form1)
case $button1add
$fileopen = FileOpenDialog("Auswählen", @DesktopCommonDir & "\", "Diablo II Game.exe(*Game.exe;)", 1 + 4)
guictrlsetdata($input2add, $fileopen)
Case $OKAdd
GUISetState(@SW_HIDE, $FormAdd)
GUISetState(@SW_SHOW, $Form1)
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Path", GUICtrlRead($Input2Add))
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Acc", GUICtrlRead($Input3Add))
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Profil", GUICtrlRead($Input1Add))
$item1 = GUICtrlCreateListViewItem(GUICtrlRead($Input1Add) & "|"& "||", $listview) ; runs eintragen lassen...
If GUICtrlRead($radio1) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio1))
ElseIf GUICtrlRead($radio2) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio2))
ElseIf GUICtrlRead($radio3) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio3))
ElseIf GUICtrlRead($radio4) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio4))
ElseIf GUICtrlRead($radio5) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio5))
ElseIf GUICtrlRead($radio6) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio6))
ElseIf GUICtrlRead($radio7) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio7))
ElseIf GUICtrlRead($radio8) = $GUI_CHECKED Then
IniWrite(@WindowsDir & "\DBot.ini", GUICtrlRead($Input1Add), "Pos", GUICtrlRead($radio8))
EndIf
EndSwitch
EndSwitch
WEnd
Func _exit()
Exit
EndFunc
|
|
|
|
|
05/22/2011, 14:01
|
#6
|
elite*gold: 0
Join Date: Aug 2010
Posts: 880
Received Thanks: 113
|
Quote:
Originally Posted by KillerDeluxe
Input:
PHP Code:
GUICtrlCreateInput(IniRead(), ...)
;oder:
GUICtrlSetData($Input, IniRead())
Radio:
PHP Code:
GUICtrlCreateRadio()
GUICtrlSetState(-1, IniRead()) ;"default" = 0 oder 4
|
Ja aber was ist denn wenn es keinen festen Wert zum asulesen gibt, also wenn der immer anders heißt?
Code:
[1312312] <- soll ausgelesen werden(heißt aber immer anders, je nachdem wie der Profilname heißt den man eingegeben hat)
Path=E:\bla.exe
Acc=Jonny
Profil=1312312
Pos=1
|
|
|
|
|
05/22/2011, 14:15
|
#7
|
elite*gold: 0
Join Date: Mar 2009
Posts: 7,260
Received Thanks: 33,149
|
IniReadSectionNames()
Den Rest müsstest du mit der Hilfe schaffen.
|
|
|
|
 |
Similar Threads
|
Hilfe benötigt
04/23/2011 - DarkOrbit - 11 Replies
Hey ,
ich wollte mir den Kbot für 10 € kaufen. Nur ich weis nicht wie ich das machen soll. Kann mir einer ausführlich die schritte aufschreiben ?
Lg
|
HILFE benötigt
12/10/2010 - WarRock - 9 Replies
Hi erst ma,
Also da man bei nomenu hacks ya mit EINFG das Menu öffnet muss ich ma wissen wie man nen hack umschreibt das man ihn auch mit ner andern taste als EINFG öffnet da meine EINFG taste puttt ist oder ob man die taste im hack irgendwo umstellen kann
der der hilft bekommt nen digges thanksx:)
MfG :):(
|
Suche 2010 Client der nicht viel Speicher benötigt
11/27/2010 - Metin2 Private Server - 5 Replies
Hallo ,
Habe ein 2010 Client habe es etwas bearbeitet für mein server und ins megaupload gestellt aber es dauert viel zu lange zum downloaden ..
ca 5 - 6 Stunden das ist ja nicht normal ..
kennt ihr ein besseren Client , 2010 er ? :confused:
Danke.
|
Hilfe Benötigt
10/09/2010 - CrossFire - 18 Replies
Ja hi Leute,
Wollte euch fragen was sich machen kann
Undzwar mein crossfire laqqt so derbe und bei VIP Hack.s auch den ich gerade habe laqqt es wenn ich nach oben und nach unten gehen will (=auwählen will)
Das dauert paar sekundne bis es sich dann bewegt
Gibt mir paar vorschläge was tun kann
Vlt brauch ich ürgend ein programm :-(
Edit : Habe XP 32-Bit , ich weiß nicht ich glaube mir fehlen Programme weil ich hatte vor paar Monaten erst nen Format gemacht
|
HILFE BENÖTIGT
05/10/2010 - Metin2 Private Server - 7 Replies
Hallo Elite-Com
Ich versuche grad mein Server auf Deutsch zu übersetzen
bin leider auf nichts gestossen...
1. thormins..bla..bla..- geht nicht
2. navicat - dauert zu lange -.- xD
3. deutsche exe - bin dran nur sobald ich starte kommen fragezeichen
nun würd ich gerne wissen ob vllt jemand mit teamviewer das mit
|
All times are GMT +1. The time now is 05:59.
|
|
