Hab heute mal das Script aus Langeweile gemacht, bis jetzt können aber nur Kürzel, die mit einem Sonderzecihen, einem a oder b beginnen übersetzt werden, da ich noch nicht alle IniWrite's drin hab. Aber ein Updater ist natürlich auch dabei.
Script:
Spoiler anzeigen
#RequireAdmin
#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Res_Fileversion=1.0.0.2
#AutoIt3Wrapper_Res_Language=1031
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
; http://de.wikipedia.org/wiki/Liste_von…28Netzjargon%29
Global $ashort
Global $aGUI
Global $aenglish
Global $agerman
RegWrite("HKEY_CLASSES_ROOT\chat", "path", "REG_SZ", @ScriptFullPath)
If Not FileExists("data.chat") Then notfileexists()
Opt ("GUIOnEventMode", "1")
$hGUI = GUICreate("Chatkürzelübersetzer", 275, 149, 192, 124)
GUISetOnEvent(-3, "_exit")
$hMenu = GUICtrlCreateMenu("Menü")
GUICtrlCreateMenuItem("Hinzufügen...", $hMenu)
GUICtrlSetOnEvent(-1, "createnew")
GUICtrlCreateMenuItem("", $hMenu)
GUICtrlCreateMenuItem("Über", $hMenu)
GUICtrlSetOnEvent(-1, "about")
$short = GUICtrlCreateInput("", 112, 16, 150, 21)
GUICtrlCreateLabel("Chatabkürzung:", 16, 18, 79, 17)
GUICtrlCreateLabel("Englisch:", 16, 50, 47, 17)
$english = GUICtrlCreateInput("", 112, 48, 150, 21, 2049)
GUICtrlCreateLabel("Deutsch:", 16, 84, 47, 17)
$german = GUICtrlCreateInput("", 112, 80, 150, 21, 2049)
GUISetState(@SW_SHOW)
AdlibRegister("refresh", 1000)
While sleep(200)
WEnd
Func refresh()
$cshort=GUICtrlRead($short)
GuiCtrlSetData($english, IniRead("data.chat", $cshort, $cshort&"english", ""))
GuiCtrlSetData($german, IniRead("data.chat", $cshort, $cshort&"german", ""))
EndFunc
Func about()
MsgBox(64, "Credits", "Abkürzungen: Wikipedia")
EndFunc
Func _exit()
MsgBox(64, "Credits", "Abkürzungen: Wikipedia")
Exit
EndFunc
Func notfileexists()
;sonderzeichen
IniWrite("data.chat", "2F4U", "2F4Uenglish", "Too Fast For You")
IniWrite("data.chat", "2F4U", "2F4Ugerman", "Zu schnell für dich")
IniWrite("data.chat", "2L8", "2F4english", "Too Late")
IniWrite("data.chat", "2L8", "2F4german", "Zu spät")
IniWrite("data.chat", "4U", "4Uenglish", "For you")
IniWrite("data.chat", "4U", "4Ugerman", "Für dich")
IniWrite("data.chat", "4YEO", "4YEOenglish", "For Your Eyes Only")
IniWrite("data.chat", "4YEO", "4YEOgerman", "Nur für deine Augen")
IniWrite("data.chat", "FYEO", "FYEOenglish", "For Your Eyes Only")
IniWrite("data.chat", "FYEO", "FYEOgerman", "Nur für deine Augen")
;a
IniWrite("data.chat", "AAMOF", "AAMOFenglish", "As A Matter Of Fact")
IniWrite("data.chat", "AAMOF", "AAMOFgerman", "Tatsache ist, ...")
IniWrite("data.chat", "ACC", "ACCenglish", "Account")
IniWrite("data.chat", "ACC", "ACCgerman", "Benutzerkonto")
IniWrite("data.chat", "ACK", "ACKenglish", "Acknowledgment")
IniWrite("data.chat", "ACK", "ACKgerman", "Zustimmung / Bestätigung")
IniWrite("data.chat", "AFAIC", "AFAICenglish", "As Far As I'm Concerned")
IniWrite("data.chat", "AFAIC", "AFAICgerman", "Soweit es mich betrifft")
IniWrite("data.chat", "AFAIK", "AFAIKenglish", "As Far As I Know")
IniWrite("data.chat", "AFAIK", "AFAIKgerman", "Soviel ich weiß")
IniWrite("data.chat", "AFAIR", "AFAIRenglish", "As Far As I Remember")
IniWrite("data.chat", "AFAIR", "AFAIRgerman", "Soweit ich mich erinnern kann")
IniWrite("data.chat", "AFK", "AFKenglish", "Away from Keyboard")
IniWrite("data.chat", "AFK", "AFKgerman", "Nicht an der Tastatur")
IniWrite("data.chat", "ASAP", "ASAPenglish", "As Soon As Possible")
IniWrite("data.chat", "ASAP", "ASAPgerman", "So bald wie möglich")
IniWrite("data.chat", "ASL", "ASLenglish", "Age Sex Location")
IniWrite("data.chat", "ASL", "ASLgerman", "Alter, Geschlecht, Ort?")
IniWrite("data.chat", "A/S/L", "A/S/Lenglish", "Age Sex Location")
IniWrite("data.chat", "A/S/L", "A/S/Lgerman", "Alter, Geschlecht, Ort?")
IniWrite("data.chat", "ATM", "ATMenglish", "At The Moment")
IniWrite("data.chat", "ATM", "ATMgerman", "Jetzt gerade / Im Moment")
;b
IniWrite("data.chat", "B2K", "B2Kenglish", "Back To Keyboard")
IniWrite("data.chat", "B2K", "B2Kgerman", "Zurück an der Tastatu")
IniWrite("data.chat", "BTK", "BTKenglish", "Back To Keyboard")
IniWrite("data.chat", "BTK", "BTKgerman", "Zurück an der Tastatu")
IniWrite("data.chat", "B2T", "B2Tenglish", "Back To Topic")
IniWrite("data.chat", "B2T", "B2Tgerman", "Zurück zum Thema")
IniWrite("data.chat", "BTT", "BTTenglish", "Back To Topic")
IniWrite("data.chat", "BTT", "BTTgerman", "Zurück zum Thema")
IniWrite("data.chat", "BB", "BBenglish", "Bye Bye")
IniWrite("data.chat", "BB", "BBgerman", "Auf Wiedersehen")
IniWrite("data.chat", "BBIAB", "BBIABenglish", "Be Back In A Bit")
IniWrite("data.chat", "BBIAB", "BBIABgerman", "Bin gleich wieder da")
IniWrite("data.chat", "BBL", "BBLenglish", "Be Back Later")
IniWrite("data.chat", "BBL", "BBLgerman", "Bin später wieder da")
IniWrite("data.chat", "BBS", "BBSenglish", "Be Back Soon")
IniWrite("data.chat", "BBS", "BBSgerman", "Bin bald zurück")
IniWrite("data.chat", "BD", "BDenglish", "----")
IniWrite("data.chat", "BD", "BDgerman", "Bis dann")
IniWrite("data.chat", "BF", "BFenglish", "----")
IniWrite("data.chat", "BF", "BFgerman", "Beste Freunde")
IniWrite("data.chat", "BG", "BGenglish", "Biggrin / ----")
IniWrite("data.chat", "BG", "BGgerman", "Breitgrins / Bis gleich")
IniWrite("data.chat", "BOFH", "BOFHenglish", "Bastard Operator From Hell")
IniWrite("data.chat", "BOFH", "BOFHgerman", "Bastard-Systemadministrator aus der Hölle")
IniWrite("data.chat", "BRB", "BRBenglish", "Be Right Back")
IniWrite("data.chat", "BRB", "BRBgerman", "Bin gleich wieder da")
IniWrite("data.chat", "BTW", "BTWenglish", "By The Way")
IniWrite("data.chat", "BTW", "BTWgerman", "Übrigens")
EndFunc
Func createnew()
$aGUI = GUICreate("Hinzufügen", 218, 199, 192, 124)
GUISetOnEvent(-3, "closeadd")
GUICtrlCreateLabel("Kürzel:", 8, 18, 36, 17)
$ashort = GUICtrlCreateInput("", 64, 16, 121, 21)
GUICtrlCreateLabel("Englisch:", 8, 58, 47, 17)
$aenglish = GUICtrlCreateInput("", 64, 56, 121, 21)
GUICtrlCreateLabel("Deutsch", 8, 98, 44, 17)
$agerman = GUICtrlCreateInput("", 64, 96, 121, 21)
$save = GUICtrlCreateButton("Speichern", 80, 134, 75, 25)
GUICtrlSetOnEvent(-1, "save")
GUISetState(@SW_SHOW)
EndFunc
Func save()
$ashort=GUICtrlRead($ashort)
$aenglish=GUICtrlRead($aenglish)
$agerman=GUICtrlRead($agerman)
IniWrite("data.chat", $ashort, $ashort&"english", $aenglish)
IniWrite("data.chat", $ashort, $ashort&"german", $agerman)
GUIDelete($aGUI)
EndFunc
Func closeadd()
GUIDelete($aGUI)
EndFunc
Updater:
Spoiler anzeigen
#RequireAdmin
HttpSetUserAgent('blabla')
$cfile=RegRead("HKEY_CLASSES_ROOT\chat", "path")
$cfile=FileGetVersion($cfile)
$cver=_INetGetSource("http://ineluki.bplaced.net/version.html")
If $cfile<>$cver Then
$q=MsgBox(68, "Neue Version verfügbar", "Es ist eine neue Version verfügbar."&@CRLF&"Möchten sie diese jetzt downloaden?")
If $q = 7 Then Exit
InetGet("http://ineluki.bplaced.net/Chat.exe", RegRead("HKEY_CLASSES_ROOT\chat", "path"), 1)
MsgBox(64, "Download abgeschlossen", "Das Programm wurde erfolgreich geupdatet.")
Else
MsgBox(64, "Keine neue Version verfügbar", "Ihre Version ist die aktuellste.")
EndIf
Func _INetGetSource($s_URL, $bString = True)
Local $sString = InetRead($s_URL, 1)
Local $nError = @error, $nExtended = @extended
If $bString Then $sString = BinaryToString($sString)
Return SetError($nError, $nExtended, $sString)
EndFunc ;==>_INetGetSource
Achtung: Der Updater funktioniert erst, wenn vorher einmal auf dem Computer das Hauptscript gestartet wurde und das Hauptscript komplimiert ist.
Kritik, Anregungen und was weiß ich sind gerne gesehen.