Hab n kleines Hilfsmittel für TS geschrieben.
Vieleicht hat jemand Verbesserungsvorschläge.
Spoiler anzeigen
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Global $scriptname = StringTrimRight(@ScriptName,4)
Global $version = Number(2.5)
Global $ini= (@scriptdir & "\"&$scriptname&"_V"&$version&".ini")
ProcessSetPriority ($scriptname&".exe", 4)
if (RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Teamspeak 2 RC2_is1", "Inno Setup: App Path")) ="" then
MsgBox(0,"ERROR!","Please install TeamSpeak2 first.",5)
Exit
endif
if FileExists($ini) not then
FileWriteLine($ini,"62.75.202.223:9006")
EndIf
$maingui = GUICreate($scriptname&"_V"&$version, 332, 440, 193, 125)
$Label2 = GUICtrlCreateLabel("Insert a name for the link", 16, 16, 127, 17)
$Label3 = GUICtrlCreateLabel("Adress of your teamspeakserver:", 16, 96, 162, 17)
$Label4 = GUICtrlCreateLabel("Insert a nickname", 16, 144, 90, 17)
$Label6 = GUICtrlCreateLabel("Loginname:", 16, 232, 59, 17)
$Label7 = GUICtrlCreateLabel("Passwort:", 16, 280, 50, 17)
$Label8 = GUICtrlCreateLabel("Defaultchannel", 16, 336, 76, 17)
$Label9 = GUICtrlCreateLabel("Channelpassword:", 16, 384, 91, 17)
$okbutton = GUICtrlCreateButton("CREATE", 232, 104, 83, 233, 0)
$linkname = GUICtrlCreateInput("", 16, 32, 201, 21)
$Inputse = GUICtrlCreateInput(FileReadLine($ini,1), 16, 112, 201, 21)
$Inputnn = GUICtrlCreateInput("", 16, 160, 201, 21)
$Inputln = GUICtrlCreateInput("", 16, 248, 201, 21)
$inputpw = GUICtrlCreateInput("", 16, 296, 201, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$Inputdc = GUICtrlCreateInput("", 16, 352, 201, 21)
$Inputdcp = GUICtrlCreateInput("", 16, 400, 201, 21, BitOR($ES_PASSWORD,$ES_AUTOHSCROLL))
$testbutton = GUICtrlCreateButton("TEST", 232, 24, 81, 57, 0)
$exitbutton = GUICtrlCreateButton("EXIT", 232, 360, 81, 57, 0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $testbutton
_read ()
run ("C:\Programme\Teamspeak2_RC2\TeamSpeak.exe "&$server&"?nickname="&$nickname&"?loginname="&$loginname&"?password="&$password&"?channel="&$channel&"?channelpassword="&$channelpassword)
Case $okButton
_read ()
if $filename = (".au3") Then
MsgBox(0,"ERROR","Please insert any name for your link",5)
else
FileInstall("C:\Programme\AutoIt3\Aut2Exe\Aut2exe.exe","Aut2exe.exe")
FileInstall("C:\Programme\AutoIt3\Aut2Exe\AutoItASC.bin","AutoItASC.bin")
FileInstall("C:\Programme\AutoIt3\Aut2Exe\AutoItASC.bin","AutoItSC.bin")
FileInstall("C:\Programme\AutoIt3\Aut2Exe\upx.exe","upx.exe")
FileWriteLine($filename,"run ('C:\Programme\Teamspeak2_RC2\TeamSpeak.exe "&$server&"?nickname="&$nickname&"?loginname="&$loginname&"?password="&$password&"?channel="&$channel&"?channelpassword="&$channelpassword&"')")
runwait ("Aut2exe.exe /in "&$filename)
FileDelete("upx.exe")
FileDelete("AutoItASC.bin")
FileDelete("AutoItSC.bin")
FileDelete("Aut2exe.exe")
FileDelete($filename)
endif
Case $exitbutton
Exit
EndSwitch
sleep(1)
WEnd
func _read ()
global $server = GUICtrlRead($inputse)
global $nickname = GUICtrlRead($inputnn)
global $loginname = GUICtrlRead($inputln)
global $password = GUICtrlRead($inputpw)
global $filename = (GUICtrlRead($linkname)&".au3")
global $channel=GUICtrlRead($inputdc)
global $channelpassword=GUICtrlRead($inputdcp)
endfunc