Moin Leute ich dachte mir ich bring auch mal was produktives ein.
Mein Mitbewohner und ich sind leidenschaftliche Videospiel Konsumenten und spielen in einem Clan Insurgency. Dort ist es erwünscht den Clantag vor dem Namen zu tragen. Ich persönlich möchte aber nicht ständig den Tag im Steamnamen haben und mir ist es auch zu nervig in zu immer reinzuschreiben (frist world problems). Also haben Falk (mein Mitbewohner) und Ich (Pilotkosinus) unsere Köpfe zusammen gesteckt. Das Resultat war ein kleines Autoitscript welches vor deinen Steamnamen dein Clantag setzt, anschließend das gewünschte Spiel startet und nach beendigen dieses auch wieder den Clantag entfernt. Es erkennt sogar ob der Clantag bereits vor dem Namen steht und schreibt ihn nicht ein zweites mal.
Hier als Beispiel seht hier den Launcher eingerichtet für meinen Clan "$aN¡tY" und das Spiel Insurgency.
const $clanTag = "$aN¡tY" Hier einfach $aN¡tY durch euren Clantag ergänzen
In der Zeile "ShellExecute("steam://run/222880")" steht 222880 für die Insurgency Steam AppID. Die Steam AppID von eurem Spiel könnt ihr zum auf erfahren Steamdb.info erfahren.
Direkt eine Zeile tiefer bei While (Not ProcessExists("insurgency.exe")) müsst ihr den Names des Prozesse eures Spiels eintragen. Als Beispiel bei Pubg wäre es While (Not ProcessExists("TslGame.exe")).
Falls ich mir Ratschläge geben könnt was wir besser machen können würde ich mich freuen.
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Outfile_x64=insurgencyClanLauncher.exe
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
const $clanTag = "$aN¡tY"
BlockInput(1)
If (Not clanTagSet()) Then setClanTag()
BlockInput(0)
ShellExecute("steam://run/222880")
While (Not ProcessExists("insurgency.exe"))
Sleep(1000)
WEnd
While (ProcessExists("insurgency.exe"))
Sleep(5000)
WEnd
BlockInput(1)
If clanTagSet() Then removeClanTag()
BlockInput(0)
Func setClanTag()
Send("{HOME}")
$clanTagArray = StringSplit($clanTag, "")
For $i = 1 To StringLen($clanTag) Step 1
Send("{" & $clanTagArray[$i] & "}")
Next
Send("{SPACE}")
saveFriendsSettings()
EndFunc ;==>setClanTag
Func removeClanTag()
Send("{HOME}")
For $i = 0 To StringLen($clanTag) Step 1
Send("{DEL}")
Next
saveFriendsSettings()
EndFunc ;==>removeClanTag
Func clanTagSet()
showFriendsSettings()
ClipPut("")
Send("{TAB}")
Sleep(50)
Send("{HOME}")
Sleep(50)
Send("{SHIFTDOWN}")
For $i = 0 To StringLen($clanTag) - 1 Step 1
Send("{RIGHT}")
Next
Send("{SHIFTUP}")
Send("{CTRLDOWN}c{CTRLUP}")
Sleep(100)
Return ClipGet() == $clanTag
EndFunc ;==>clanTagSet
Func showFriendsSettings()
ShellExecute("steam://open/settings")
While (Not WinExists("Einstellungen"))
Sleep(100)
WEnd
WinActivate("Einstellungen")
$pos = WinGetPos("Einstellungen")
MouseClick("left", $pos[0] + 40, $pos[1] + 85, 1, 0)
Sleep(100)
EndFunc ;==>showSettings
Func saveFriendsSettings()
$pos = WinGetPos("Einstellungen")
MouseClick("left", $pos[0] + 600, $pos[1] + 550, 1, 0)
Sleep(100)
EndFunc ;==>saveSettings
