Vielen Dank.

Vollnoob

An dieser Stelle möchte ich mich mal richtig bedanken, für eure unermüdliche Hilfe.

Mit eurer Hilfe konnte ich mir als totaler Anfänger innerhalb kurzer Zeit einen Überblick über viele Funktionen von Autoit aneigenen und habe nun mein erstes Projekt mehr oder weniger fertiggestellt.

Damit Eure Mühe nicht in Vergessenheit gerät, habe ich ein Osterei eingebaut.

Der Hotkey STRG+ALT+SHIFT+x öffnet ein Fenster indem die Leute stehen, die mir bei meinen 1. Autoit-Schritten mit Tips und Tricks zur Seite standen.

Mein Programm heißt EXZESS und soll den Feelancerzockern auf HC das spielen vereinfachen.

Man kann das minitool hier downloaden: http://rapidshare.com/files/66281301/exzess.zip.html

Ps: bei denen die dieses Spiel nicht besitzen öffnet sich nur für 10 sec n Fenster. Aber der Hotkey funzt trotzdem.

Danke nochmal.

huggy

Hehe, danke fürs easteregg
Für die Zukunft:

Bitte die AU3 posten , das icon vll gezippt@ anhang.

Abgesehen davon,dass ich nicht gerne (jetzt hab ich es ausnahmesweise gemacht ) .exe von fremden leuten öffne,
ist es einfach komfortabler

Mfg

Huggy

Vollnoob

Spoiler anzeigen

[autoit]

$scriptname = StringTrimRight(@ScriptName,4)
$version = Number(2.4)

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

$ini= (@scriptdir & "\"&$scriptname&"_V"&$version&".ini")

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

Opt("TrayMenuMode",1)
#Include <Constants.au3>
#include <Misc.au3>
#include <Array.au3>
#include <File.au3>
;~ #include <spezial.au3>

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

_Singleton($scriptname)
ProcessSetPriority ($scriptname&".exe", 4)

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

Global $FLPfad = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Microsoft Games\Freelancer\1.0", "AppPath")
Global $flex = ($FLPfad & "\exe\Freelancer.exe")
Dim $item[99]

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

$dll = DllOpen("user32.dll")
$hotkeys= stringsplit("0.1.2.3.4.5.6.7.8.9.a.b.c.d.e.f.g.h.i.j.k.l.m.n.o.p.q.r.s.t.u.v.w.x.y.z.ö.ä.ü.{numpad0}.{numpad1}.{numpad2}.{numpad3}.{numpad4}.{numpad5}.{numpad6}.{numpad7}.{numpad8}.{numpad9}",".")
$s=0
$kontenzahl = 0

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

if $FLPfad = "" then
$FLError= GUICreate("Error",300,100)
GUISetState(@SW_SHOW)
$label1 = GUICtrlCreateLabel("Es wurde keine Freelancer - Installation gefunden!",10,10)
$label2 = GUICtrlCreateLabel("",10,30,200,200)
for $t= -10 to -1
if _IsPressed("11", $dll) and _IsPressed("12", $dll) and _IsPressed("10", $dll) and _IsPressed("58", $dll) then ;STRG+Alt+Shift+X
_danke ()
endif
$z=number($t*-1)
GUICtrlSetData($label2,"Programm wird in "&$z&" Sec. beendet")
Sleep(1000)
next
exit
endif

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

if FileExists(@scriptdir & "\*.reg") not Then
$msgb = Msgbox (4,"","Im Ordner "&@ScriptDir&" wurde keine Multiplayer-ID gefunden."&@cr&"Soll ihre momentan aktive Kennung gesichert werden?")
if $msgb = 6 then
_kontoexporter ()
EndIf
endif

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

_menu()

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

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

if FileExists (@scriptdir & "\hhc ping.exe") Then
run ("hhc ping.exe")
endif

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

HotKeySet ( "^!{esc}","_ende")

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

_info ()

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

While 1
$msg = TrayGetMsg ()
Sleep(1)
if $kontenzahl > 0 then
For $i = 1 To $konten[0]
If $msg = $item[$i] Then
global $konto = $konten[$i]
call ("_kontorun")
EndIf
Next
endif

Select
case $msg = $kontoexp
_kontoexporter ()
_menudel ()
_menu ()

case $msg = $autostart
if FileExists (@startupDir & "\"&$scriptname&".lnk") Then
FileDelete(@startupDir & "\"&$scriptname&".lnk")
else
FileCreateShortcut(@ScriptDir & "\"&$scriptname&".exe",@startupDir & "\"&$scriptname&".lnk",@ScriptDir)
EndIf
_menudel ()
_menu ()
case $msg = $exit
exit
case $msg = $konfigmenu
_konfig ()
case $msg = $info
_info ()
case _IsPressed("79", $dll);F10
While _IsPressed("79", $dll)
Sleep (1)
Wend
_easylogin ()
case _IsPressed("7A", $dll);F11
While _IsPressed("7A", $dll)
Sleep (1)
Wend
_dauerfeuer ()
case _IsPressed("7B", $dll);F12
While _IsPressed("7B", $dll)
Sleep (1)
Wend
If WinActive("Freelancer") then
Send("{Enter}")
Send("/tax 300")
Send("{Enter}")
Endif

Case _IsPressed("11", $dll) and _IsPressed("12", $dll) and _IsPressed("10", $dll) and _IsPressed("58", $dll) ;STRG+Alt+Shift+X
_danke ()
EndSelect

if _ispressed("01",$dll) then
if $s = 0 then
for $t= 1 to $hotkeys[0]
hotkeyset ($hotkeys[$t],"_send")
next
$s=1
endif
else
if $s =1 then
for $t= 1 to $hotkeys[0]
hotkeyset ($hotkeys[$t])
next
$s=0
endif
endif

sleep(1)
WEnd

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

Func _kontorun ()
RunWait ("regedit /s " & chr(34) & $konto & chr(34))
TrayTip($scriptname&" V"& $version,"Konto "&$konto & " wurde aktiviert.",3)
run (chr(34)&$flex&chr(34))
WinActivate("Freelancer")
EndFunc

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

func _send ()
while _ispressed("01",$dll)
sleep(1)
wend
for $t= 1 to $hotkeys[0]
hotkeyset ($hotkeys[$t])
next
$hotkey = stringreplace(@hotkeypressed,"{numpad","")
$hotkey = stringreplace($hotkey,"}","")
$text = StringTrimRight (iniread($ini,"hotkeys",$hotkey,""),7)
If WinActive("Freelancer") Then
send ("{Enter}")
send ($text,1)
If StringRight(IniRead($ini,"hotkeys",$hotkey,""),7) = "|close|" then
send ("{Enter}")
endif
endif
Endfunc

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

func _kontoexporter ()
$msgb = 6
$regname = InputBox ("Kontoname","Gib einen Namen für deine zu sichernde Multiplayer-ID an!","Konto1"," M")
if @error = 0 then
$Kontox = (@ScriptDir & '\' & $regname & '.reg')
if FileExists(@ScriptDir & '\' & $regname & '.reg') then
$msgb = MsgBox(4,"Fehler", "Es existiert bereits ein Konto mit diesem Namen. Überschreiben?")
endif
if $msgb = 6 then
RunWait("Regedit /A " & chr(34) & $Kontox & chr(34) & ' "HKEY_CURRENT_USER\Software\Microsoft\Microsoft Games\Freelancer\1.0"')
if FileExists(@ScriptDir & '\' & $regname & '.reg') then
MsgBox(0,"Erfolg","Das Konto > "&$regname&" < wurde erfolgreich in folgendes Verzeichnis gesichert:"&@cr&@scriptdir)
Else
MsgBox(0,"Fehler", "Sicherung fehlgeschlagen!")
EndIf
EndIf
Else
MsgBox(0,"Abbruch", "Sie können ihr Konto auch später sichern")
endif
if $msgb = 7 Then
_kontoexporter ()
EndIf
EndFunc

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

func _konfig ()
Dim $label[99]
Dim $input[99]
Dim $check[99]
$Konfig= GUICreate("Konfiguration",820,550)
$okButton= GUICtrlCreateButton("save",100,525,100)
$cancelButton= GUICtrlCreateButton("cancel",500,525,100)
$tab=GUICtrlCreateTab(10,10,800,500)

$tab1=GUICtrlCreateTabItem("Maus + 0-9")
$yyy=40
$label1 = GUICtrlCreateLabel("Hotkeys",20,40)
$label2 = GUICtrlCreateLabel("Chatkommandos",100,40)
for $ct=1 to 10
$yyy=Number($yyy) + 25
$label[$ct] = GUICtrlCreateLabel("linke Maustaste + "& $hotkeys[$ct] &" =",15,$yyy)
$text = StringTrimRight(iniread($ini,"hotkeys",$hotkeys[$ct],""),7)
$input[$ct] = GUICtrlCreateInput($text,130,$yyy,550)
GUICtrlSetLimit(-1,80)
$check[$ct] = GUICtrlCreateCheckbox("Konsole schließen ",685,$yyy)
if StringRight (IniRead($ini,"hotkeys",$hotkeys[$ct],""),7)= "|close|" Then
GuiCtrlSetState($check[$ct], $GUI_CHECKED)
endif
next

$tab2=GUICtrlCreateTabItem("Maus + a-n")
$yyy=40
$label1 = GUICtrlCreateLabel("Hotkeys",20,40)
$label2 = GUICtrlCreateLabel("Chatkommandos",100,40)
for $ct=11 to 24
$yyy=Number($yyy) + 25
$label[$ct] = GUICtrlCreateLabel("linke Maustaste + "& $hotkeys[$ct] &" =",15,$yyy)
$text = StringTrimRight(iniread($ini,"hotkeys",$hotkeys[$ct],""),7)
$input[$ct] = GUICtrlCreateInput($text,130,$yyy,550)
GUICtrlSetLimit(-1,80)
$check[$ct] = GUICtrlCreateCheckbox("Konsole schließen ",685,$yyy)
if StringRight (IniRead($ini,"hotkeys",$hotkeys[$ct],""),7)= "|close|" Then
GuiCtrlSetState($check[$ct], $GUI_CHECKED)
endif
next

$tab3=GUICtrlCreateTabItem("Maus + n-ü")
$yyy=40
$label1 = GUICtrlCreateLabel("Hotkeys",20,40)
$label2 = GUICtrlCreateLabel("Chatkommandos",100,40)
for $ct= 25 to 39
$yyy=Number($yyy) + 25
$label[$ct] = GUICtrlCreateLabel("linke Maustaste + "& $hotkeys[$ct] &" =",15,$yyy)
$text = StringTrimRight(iniread($ini,"hotkeys",$hotkeys[$ct],""),7)
$input[$ct] = GUICtrlCreateInput($text,130,$yyy,550)
GUICtrlSetLimit(-1,80)
$check[$ct] = GUICtrlCreateCheckbox("Konsole schließen ",685,$yyy)
if StringRight (IniRead($ini,"hotkeys",$hotkeys[$ct],""),7)= "|close|" Then
GuiCtrlSetState($check[$ct], $GUI_CHECKED)
endif
next
GUISetState(@SW_SHOW)

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

while 1
$msg= GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE or $msg = $cancelbutton
GUIDelete($Konfig)
ExitLoop
case $msg = $okbutton
for $ct = 1 to 39
if GUICtrlRead($check[$ct]) = 1 then
iniWrite($ini,"hotkeys",$hotkeys[$ct], GUICtrlRead($input[$ct])&"|close|")
else
iniWrite($ini,"hotkeys",$hotkeys[$ct], GUICtrlRead($input[$ct])&"|_open|")
endif
next
GUIDelete($Konfig)
ExitLoop
EndSelect
sleep(1)
wend
EndFunc

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

func _menu()
if FileExists(@scriptdir & "\*.reg") Then
global $konten= _FileListToArray(@scriptdir,"*.reg")
for $i= 1 to $konten[0]
$item[$i]= TrayCreateItem($konten[$i])
Next
global $kontenzahl =$konten[0]
endif
global $trennl = TrayCreateItem("")
global $autostart = TrayCreateItem("Autostart")
if FileExists (@startupDir & "\"&$scriptname&".lnk") Then
TrayItemSetState($autostart,$TRAY_CHECKED)
EndIf
global $kontoexp = TrayCreateItem("Kontoexporter")
global $konfigmenu = TrayCreateItem("Konfig")
global $info = TrayCreateItem("Info")
global $exit = TrayCreateItem("Exit")
EndFunc

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

Func _menudel()
if $kontenzahl > 0 then
for $i= 1 to $konten[0]
TrayItemDelete($item[$i])
Next
endif
TrayItemDelete($trennl)
TrayItemDelete($kontoexp)
TrayItemDelete($konfigmenu)
TrayItemDelete($autostart)
TrayItemDelete($exit)
TrayItemDelete($info)
EndFunc

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

Func _easylogin ()
$pos = MouseGetPos()
global $pos2 = $pos[1] - 25
While WinActive("Freelancer")
$pos = MouseGetPos()
if $pos[1] < $pos2 or _IsPressed("1B", $dll) or _IsPressed("02", $dll) or _IsPressed("79", $dll) or _IsPressed("7A", $dll) or _IsPressed("7B", $dll) then
ExitLoop
endif
mouseClick( "left" )
Sleep(200)
Send("{Enter}")
Wend
EndFunc

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

Func _Dauerfeuer ()
sleep(300)
MouseDown("right")
While WinActive("Freelancer")
If _IsPressed("1B", $dll) or _IsPressed("01", $dll) or _IsPressed("79", $dll) or _IsPressed("7A", $dll) then
ExitLoop
EndIf
sleep(1)
Wend
MouseUp ("right")
send("b")
EndFunc

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

Func _ende()
exit
EndFunc

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

Func _info ()
TrayTip($scriptname&" V"& $version,@cr&"F10 = Easylogin"&@cr&"F11 = Dauerfeuer"&@cr&"F12 = Tax - 300K"&@cr&@cr&"Gefundene FL-Konten: "&$kontenzahl,5)
endfunc

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

Func _danke ()
MsgBox(0,"Danksagung","Mein besonderer Dank gilt:"&@cr&@cr&"Aus dem deutschen Autoit-Forum:"&@cr&"peethebee, Xenobiologist, AspirinJunkie"&@cr&"Nightraven, huggy, jonk"&@cr&"leviathan, teh_hahn, Aiden"&@cr&"bernd670, oliverh und Alina,"&@cr&@cr&"Weiterer Dank gilt Coxta."&@cr&"dem Erst-Produzenten des Autologins ;-)"&@cr&@cr&"und vor allem ANTONIO, für die wahnsinns-Geduld",20)
Endfunc

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

huggy

nicht schlecht!

Deinen Namen verdienst du nicht mehr

**Xenobiologist**

Hi,

Glückwunsch! Es ist doch immer schön, wenn man auch mal etwas fertig gebaut hat.

So long,

Mega

huggy

wieso code wieder entfernt?

**BugFix**

@Vollnoob

Du hast einen Beitrag im Forum 'Skripte' erstellt.
Wenn du dann den Code aus dem Beitrag entfernst, ist das genauso sinnvoll als ob du versuchst einen Drachen ohne Wind steigen zu lassen.
Welchen Wert sollen denn andere Boardbesucher aus diesem Beitrag jetzt noch schöpfen?

Also unterlaß das bitte in Zukunft.

Vollnoob

So CODE wieder drinn.

Hatte ihn in einem Anfall aus Missbrauchspanik entfernt.

Wie ich leider feststellen musste, sind nicht alle gluecklich ueber die Veroeffentlichung dieses Programms. :comp1:

Bitte um Entschuldigung

Vieleicht hat der Eine oder Andere noch n paar tips zur Verbesserung fuer mich.