Beiträge von nefas83

Jab ich weis, aber da es sich hier ja um keinen Bot handelt sollte es ja kein Problem sein.

da ja ein Bot dafür ist um sich im Spiel vorteile zuverschaffen, z.B. dadurch das er für mich Level geht, und mein Script nichts weiter macht als die Wow.exe zustarten und dann beim Anmeldebildschierm mein Username und mein Passwort eingibt, kann hier nicht die reden von einem Bot sein.

Oder?

P.S. ich wusste das so ein kommentar kommen würde, darum hab ich vorher versucht recht ausführlich mein script zubeschreiben um klar zustellen das es kein Bot ist.

gruß nefas

Hi,
ich ämpf grade mit einem Loginscript für WoW, ja ich weis mal wieder eins, aber ich wollte nicht übder den weg gehen wie alle die ich hier gefunden haben über einen "sleep" sondern über eine erkennung das das fenster geladen ist.

So der script ist soweit fertigm, es liest die accounts aus ( nur die Namen) die auf dem Computer sind und schreibt diese in eine Compobox, der Anwender muss nur noch sein PW hinzufügen welches in einer .ini Datei im selben Verzeichniss wie das Script ist, gespeichert wird (Verschlüsselt natürlich).

Dann muss man nur noch die gewünschten Paramter wählen (z.B. Vollbild, Fenster Modus, kein Sound, etc. ) und auf login gehn.

wenn ich WoW im Fenster-Modus starte klappt alles perfect, nur wenn ich im Vollbild starte geht es nicht.

Hab das erkennen ob der Loginscreen fertig geladen ist über Pixelsearch (ich weis das wird gerne bei Bots verwendete aber das hier ist kein Bot!) gelöst. Allerdings bei Vollbild bekomm ich immer als Pixelfarbe "0" geliefert.

Ein anderer ansatz wäre gewesen zuüberprüfen ob der Prozess weniger CPU leistung brauch, da gibt es aber das Probel (hab eben mal die auslastung beobachtet) das es beim laden kurz sehr weit runter geht und so mit eine genaue erkennung nicht möglich ist.

So hier nun mal der auszug aus dem Script.

Vielleicht hat einer eine Idee wie ich es realisieren kann?
Such jetzt schon seid stunden in diesem und dem englischen Forum nach lösungen aber leider finde ich nichts.
Zur Info zum System:
Os : Windows Vista 32bit
Theme: Aero

[autoit]

Func _Login()
$WoWUser = _GUICtrlComboBox_GetEditText($ComboAccount)
$WoWPassword = GUICtrlRead($txtPass)
WinActivate("World of Warcraft")
WinWaitActive("World of Warcraft")
$hWnd = WinGetHandle("World of Warcraft");Handle of WoW, for controlsend
Sleep(100)
$xy = WinGetPos("World of Warcraft")
$Coordinaten = PixelSearch( $xy[0], $xy[1], $xy[2], $xy[3], 0xffc700,1,1,$hWnd)
if Not @error Then

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

ControlSend($hWnd, "", "",$WoWUser )
Sleep(100)

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

ControlSend($hWnd, "", "", "{TAB}")
Sleep(100)

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

ControlSend($hWnd, "", "", $WoWPassword)
Sleep(100)

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

ControlSend($hWnd, "", "", "{ENTER}")
Sleep(100)

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

Else
_Login()
EndIf

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

EndFunc

[/autoit]

Vielen Dank schon mal.

Gruß
nefas

Hab jetzt diese Befehle gefunden, wie kann ich die denn im AutoIt nutzen?

Zitat

Beispiel
In diesem Beispiel werden der Ordner C:\My Documents sowie seine Unterordner durchsucht und alle Dateien zurückgegeben, deren Text oder Dateieigenschaften mit "San" beginnende Wörter enthalten. Die TextOrProperty-Eigenschaft legt das zu suchende Wort fest und begrenzt die Suche entweder auf den Text der Datei oder auf die Dateieigenschaften.

With Application.FileSearch
.NewSearch
.LookIn = "C:\My Documents"
.SearchSubFolders = True
.TextOrProperty = "San*"
.FileType = msoFileTypeAllFiles
End With

Alles anzeigen

mfg
nefas

Das Problem ist das die Anwendung nicht hier hier später laufen soll sonder auf naja 100 - ? PC's und da ich nicht weiss was für einstellungen die einzelnen User haben wollte ich das so allgemein wie möglich machen.

leider komm ich damit auch nicht weiter.
bleibt hier an der stelle stehn

siehe Bild:

mmm schade, icj dachte das wäre leichter, so wie es z.B. beim IE ist.

zum Workflow:

es ist ein kleines GUI am oberen Rand des Bildschierm wo ich 4 verschiedene Suchfelder hab
- Internet (Google)
- Intranet (Firma)
- Lokal (PC) <-- darum geht es
- und User (Firma)

ich gab in die entsprechende textbox mein suchbegriff ein und dann soll die entsprechende funktion aufgehen.

Z.B. der IE mit Goolge oder halt der suchdialog von windows.

ja das ist schon mal nicht schlecht danke jetzt muss ich nur noch wissen wie ich dem mein suchbegriff übergebe und das der gleihc lossucht

aber danke schon mal

@ Xeno : die nutzer später sind nciht so bewanderte windows nutzer und die wollen am liebsten die standart suche haben darum leider so

HI,
nächstes Problem und zwar wie kann ich von Autoit aus die Windowssuche nutzen ohne mich über shortkey zu bewegen?

würde gerne die Suche öffne und mein suchbegriff übergeben.

vielleicht weiss jemand weiter.

mfg

So ich hab es umgangen indem ich die komplette GUI lösche und neu lade, sorry für den Teil code hier mal den kompletten.
Es enthällt allerdings zwei funktionen die ich aus forem copiert hatte.
ich hoffe das ist nicht schlimm.

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>

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

Dim $Visible = 1
Dim $Set = 0
Dim $txtGoogle
Dim $txtIntranet
Dim $txtLocal
DIm $txtUser
Dim $cmdGoogle
Dim $cmdIntranet
Dim $cmdLocal
Dim $cmdUser

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

Func BuildGUI()

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

Global $Parent = GUICreate("BackGround",255,123,-1,0)
;GUICtrlCreatePic("C:\WINDOWS\Zapotek.bmp",0,0,255,123)
GUISetState()
WinSetTrans($Parent,"",1)

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

Global $gui = GUICreate("Child",255,123,0,0,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD,$Parent)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
Global $cmdShow = GUICtrlCreateButton("Show", 0, 0, 255, 15, 0)
_WinAPI_SetLayeredWindowAttributes($gui,0x010203)
WinSetTrans($gui,"",175)
GUISetState()

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

WinMove($gui,"",Default,Default,255,16)
WinMove($Parent,"",Default,Default,255,35)

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

WinSetOnTop ( "BackGround", "", 1 )

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

EndFunc

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

BuildGUI()

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

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $cmdShow
_show()
EndSwitch
WEnd

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

Func _show()
if $Visible = 1 Then

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

$txtGoogle = GUICtrlCreateInput("search Google...", 16, 4, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdGoogle = GUICtrlCreateButton("(Not allowed)", 212, 0, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\google_trans.bmp", 0)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$txtIntranet = GUICtrlCreateInput("search IntraNet...", 16, 29, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdIntranet = GUICtrlCreateButton("(Not allowed)", 212, 25, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\Conti.bmp", 0)
$txtLocal = GUICtrlCreateInput("search Local...", 16, 54, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdLocal = GUICtrlCreateButton("(Not allowed)", 212, 50, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\PC.bmp", 0)
$txtUser = GUICtrlCreateInput("search User...", 17, 79, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdUser = GUICtrlCreateButton("(Not allowed)", 212, 75, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\User.bmp", 0)

$Visible = 0

Else
GUIDelete($Parent)
$Visible = 1

BuildGUI()

EndIf
EndFunc

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

;===============================================================================
;
; Function Name: _WinAPI_SetLayeredWindowAttributes
; Description:: Sets Layered Window Attributes:) See MSDN for more informaion
; Parameter(s):
; $hwnd - Handle of GUI to work on
; $i_transcolor - Transparent color
; $Transparency - Set Transparancy of GUI
; $isColorRef - If True, $i_transcolor is a COLORREF( 0x00bbggrr ), else an RGB-Color
; Requirement(s): Layered Windows
; Return Value(s): Success: 1
; Error: 0
; @error: 1 to 3 - Error from DllCall
; @error: 4 - Function did not succeed - use
; _WinAPI_GetLastErrorMessage or _WinAPI_GetLastError to get more information
; Author(s): Prog@ndy
;
; Link : @@MsdnLink@@ SetLayeredWindowAttributes
; Example : Yes
;===============================================================================
;
Func _WinAPI_SetLayeredWindowAttributes($hwnd, $i_transcolor, $Transparency = 255, $dwFlages = 0x03, $isColorRef = False)
If $dwFlages = Default Or $dwFlages = "" Or $dwFlages < 0 Then $dwFlages = 0x03
If Not $isColorRef Then
$i_transcolor = Hex(String($i_transcolor), 6)
$i_transcolor = Execute('0x00' & StringMid($i_transcolor, 5, 2) & StringMid($i_transcolor, 3, 2) & StringMid($i_transcolor, 1, 2))
EndIf
Local $Ret = DllCall("user32.dll", "int", "SetLayeredWindowAttributes", "hwnd", $hwnd, "long", $i_transcolor, "byte", $Transparency, "long", $dwFlages)
Select
Case @error
Return SetError(@error, 0, 0)
Case $Ret[0] = 0
Return SetError(4, _WinAPI_GetLastError(), 0)
Case Else
Return 1
EndSelect
EndFunc ;==>_WinAPI_SetLayeredWindowAttributes

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

Func _GuiCtrlMakeTrans($iCtrlID,$iTrans=255)

Local $pHwnd, $nHwnd, $aPos, $a

$hWnd = GUICtrlGetHandle($iCtrlID);Get the control handle
If $hWnd = 0 then Return SetError(1,1,0)
$pHwnd = DllCall("User32.dll", "hwnd", "GetParent", "hwnd", $hWnd);Get the parent Gui Handle
If $pHwnd[0] = 0 then Return SetError(1,2,0)
$aPos = ControlGetPos($pHwnd[0],"",$hWnd);Get the current pos of the control
If @error then Return SetError(1,3,0)
$nHwnd = GUICreate("", $aPos[2], $aPos[3], $aPos[0], $aPos[1], 0x80000000, 0x00080000 + 0x00000040, $pHwnd[0]);greate a gui in the position of the control
If $nHwnd = 0 then Return SetError(1,4,0)
$a = DllCall("User32.dll", "hwnd", "SetParent", "hwnd", $hWnd, "hwnd", $nHwnd);change the parent of the control to the new gui
If $a[0] = 0 then Return SetError(1,5,0)
If NOT ControlMove($nHwnd,'',$hWnd,0,0) then Return SetError(1,6,-1);Move the control to 0,0 of the newly created child gui
GUISetState(@SW_Show,$nHwnd);show the new child gui
WinSetTrans($nHwnd,"",$iTrans);set the transparency
If @error then Return SetError(1,7,0)
GUISwitch($pHwnd[0]);switch back to the parent Gui

Return $nHwnd;Return the handle for the new Child gui

EndFunc

[/autoit]

Es könnte sein das du wieder errors bekommst wegen den Bildern auf den Buttons.

jetzt hab ich nur noch da sproblem das man das fenster nur verschieben kann wenn man auf den nichtsichtbaren Fensterramen klickt oberhalt des Buttons "Show" und das es flackert beim neu erstellen.
mfg

nefas

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Include <WinAPI.au3>

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

Dim $Visible = 1
Dim $Set = 0
Dim $txtGoogle
Dim $txtIntranet
Dim $txtLocal
DIm $txtUser
Dim $cmdGoogle
Dim $cmdIntranet
Dim $cmdLocal
Dim $cmdUser

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

$Parent = GUICreate("BackGround",255,123)
GUICtrlCreatePic("C:\WINDOWS\Zapotek.bmp",0,0,255,123)
GUISetState()
WinSetTrans($Parent,"",1)

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

$gui = GUICreate("Child",255,123,0,0,$WS_POPUP,$WS_EX_LAYERED+$WS_EX_MDICHILD,$Parent)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$cmdShow = GUICtrlCreateButton("Show", 0, 0, 255, 15, 0)
_WinAPI_SetLayeredWindowAttributes($gui,0x010203)
WinSetTrans($gui,"",175)
GUISetState()

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

WinMove($gui,"",Default,Default,255,16)
WinMove($Parent,"",Default,Default,255,35)

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

WinSetOnTop ( "BackGround", "", 1 )

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

While 1
Switch GUIGetMsg()
Case -3
Exit
Case $cmdShow
_show()
EndSwitch
WEnd

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

Func _show()
if $Visible = 1 Then

$txtGoogle = GUICtrlCreateInput("search Google...", 16, 4, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdGoogle = GUICtrlCreateButton("(Not allowed)", 212, 0, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\google_trans.bmp", 0)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
$txtIntranet = GUICtrlCreateInput("search IntraNet...", 16, 29, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdIntranet = GUICtrlCreateButton("(Not allowed)", 212, 25, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\Conti.bmp", 0)
$txtLocal = GUICtrlCreateInput("search Local...", 16, 54, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdLocal = GUICtrlCreateButton("(Not allowed)", 212, 50, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\PC.bmp", 0)
$txtUser = GUICtrlCreateInput("search User...", 17, 79, 191, 21)
_GuiCtrlMakeTrans(-1,130)
$cmdUser = GUICtrlCreateButton("(Not allowed)", 212, 75, 26, 26, BitOR($BS_FLAT,$BS_BITMAP))
_GuiCtrlMakeTrans(-1,130)
GUICtrlSetImage(-1, "\\WETP030A\uid67481$O$\Scripte\Source\-=Project=-\Finder\grafics\User.bmp", 0)

$Visible = 0

Else

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

GUICtrlDelete ($txtGoogle)
GUICtrlDelete ($txtIntranet)
GUICtrlDelete ($txtLocal)
GUICtrlDelete ($txtUser)
GUICtrlDelete ($cmdGoogle)
GUICtrlDelete ($cmdIntranet)
GUICtrlDelete ($cmdLocal)
GUICtrlDelete ($cmdUser)

$Visible = 1

EndIf
EndFunc

[/autoit]

So das ist der Teil den es betrifft.
besten Dank shon mal

Hi, ich hab ein Problem mit der Funktion GUICtrlDelete das wenn ich z.B ein Button lösche bleibt ein Schatten in Form des alten Buttons aber dieser sollte nicht da sein weil mein Hintergrund Transparent ist.
vielleicht weiss jemand von euch woran das liegen könnte oder wie ich soetwas verhinder kann.

Hier noch ein kleines Bild wie es aussieht.

mfg nefas

Hi,
ich hab mal wieder eine Frage
und zwar: ist es möglich die Farbe einer Zelle ( Column) zu äbdern?
Ich weis es ist möglich die Zeile zu ändern aber ich würde gerne in einer Zeile zwei verschiedene Farbe zuweissen.

z.B

Zeile 3 -> Spalte 4 = Grün und Spalte 5 = Rot

vielleicht könnt ihr mir helfen.

mfg

Oh man ich bin doch so ein Hirni!

Vielen Dank!! manchmal brauch es eben jemand 2. der ein auf die richtigen Weg bringt.

hatte in der Variable "$Woche_Hefte" einen ":" drin

Dann kann es ja net gehn

Hatte am Anfang den Punkt nicht drin gehabt aber später eingefügt weil es bei der Ausgaber besser ausschaut, aber nicht dran gedacht das es an einer anderen Stelle zu Problemen kommen kann.

Hab einfach ein

[autoit]

$Woche_Hefte = StringReplace($Woche_Hefte,": ","_")

[/autoit]

eingefügt und schon klappt alles wieder

ich glaub da hab ich wohl geschlafen.

nochmals Danke

Hi,

ich hab ein problem mit meinem FileSaveDialog.

Und zwar wird der Befehl nicht ausgeführt sondern komplett übersprungen hatte zu test zwecken mal eine Msgbox davor und danach gemacht und die beidem werden direkt nach einander ausgeführt.

Hier mal die besagte stelle.

[autoit]

_WordMacroRun($oWordApp, "FillHeft", $Woche_Word, $Von_Word, $Bis_Word, $Jahr_Word, $Name_Word, $Abteilung_Word, $Beruf_Word, $Montag_Word, $MontgaStunden_Word, $Dienstag_Word, $DienstagStunden_Word, $Mittwoch_Word, $MittwochStunden_Word, $Donnerstag_Word, $DonnerstagStunden_Word, $Freitag_Word, $FreitagStunden_Word, $Zusatz_Word, $Summe_Word)
;******FÜR TESTZWECKE DEAKTIVIERT*******
$WordFiletoSave = FileSaveDialog("Word Dokument Speichern unter...", $SaveFolder, "Word 2003 (*.doc)", 2, $Woche_Hefte)
_WordDocSaveAs($oDoc, $WordFiletoSave & ".doc", 0)
;******FÜR TESTZWECKE DEAKTIVIERT*******
_WordQuit($oWordApp, 0) ;Close Wordfile

[/autoit]

Das komische ist das es schon funktioniert hatte, war bei einer Presentation und auf einmal wollt es nicht mehr.

und seid dem kommen immer errors.

[autoit]

Z:\Tools\AutoIt v3\Include\Word.au3 (583) : ==> The requested action with this object has failed.:
$o_object.SaveAs ($s_FilePath, $i_Format, $f_LockComments, $s_Password, $f_AddToRecentFiles, $s_WritePassword, $f_ReadOnlyRecommended)
$o_object.SaveAs ($s_FilePath, $i_Format, $f_LockComments, $s_Password, $f_AddToRecentFiles, $s_WritePassword, $f_ReadOnlyRecommended)^ ERROR

[/autoit]

Die Fehler kommen aus der Word.au3 ich tippe darauf das es einfach daran liegt das die Pfade fehlen.

vielleicht hat einer von euch eine Idee.

mfg

Hi,

ich hab da mal eine Frage, und zwar würde ich gerne das Programm Aspell nutzen um in meinem Autoit Programm, welches ein paar textboxen hat, in echtzeit die Rechtschreibung zu überprüfen.

So wie es z.B Pidgin macht.

Das sieht dann so etwa aus wie bei Word, wenn das Wort falsch ist wird es rot unterstrichen und auf der rechten Maustaste kommen vorschläge.

Leider ist es mir nicht ganz klar wie ich Aspell einbinden kann.

Vielleicht weiss einer von euch ja was oder hat eine Idee.

mfg

nefas