[autoit]
#include <Misc.au3>
If _IsPressed("01") Then
Beiträge von Ineluki
-
-
Das zwischen den Klammern muss in Anführungszeichen...
-
ShellExecute()
-
-
Nehm mein Script, das hast du den DL ohne Klammern
-
Spoiler anzeigen
[autoit]#include <String.au3>
[/autoit]
#include <INet.au3>
$dl=_StringBetween(_INetGetSource("http://free.avg.com/de-de/downloads.prd-afg#tba2"), '<a href="', '" class="clr" onclick="var s=s_gi(')
MsgBox(0, "", $dl[1]) -
Wieso so kompliziert, wenns auch viel einfacher geht? :
Spoiler anzeigen
[autoit]Opt("GUIOnEventMode", 1)
[/autoit]
Global $gui2
GUICreate("gui1", 139, 26, 192, 124)
GUISetOnEvent(-3, "_exit")
GUICtrlCreateButton("gui2", 32, 0, 75, 25)
GUICtrlSetOnEvent(-1, "gui2")
GUISetState()
While true
WEnd
Func gui2()
$gui2=GUICreate("gui2", 141, 26, 192, 124)
GUISetOnEvent(-3, "close")
GUISetState()
EndFunc
Func close()
GUIDelete($gui2)
EndFunc
Func _exit()
Exit
EndFunc -
Ich würde es über den EventMode machen und dann wenn man die 2. GUI schließt eine Func aufrufen, die die 2. GUI löscht [GUIDelete()]
-
Wenn ich dann bei der *.txt Datei Ini Befehle benutze, hab ich dann die Grenze auch nicht? Weil mit .txt Dateien ist es blöd, mit ini geht es besser
-
Kann es sein, dass IniWrite() nur eine bestimmte Anzahl von Zeichen schreiben kann? Und man mit IniRead() auch nur eine bestimmte Zeichenanzahl auslesen kann? Weil bei einem Script von mit übernimmt er nur ein Drittel vom Gesamtstring (sehr lang :P). Wenn es diese Zeichenbegrenzung gibt, wie kann ich die umgehen? Danke im Vorraus.
-
[autoit]
$var=InputBox("Bla", "Bitte geben sie eine Zahl ein")
[/autoit]
MsgBox(0, "Ihre Zahl", "Zahl:"&$var) -
Gibt es eine Möglichkeit, AutoIt zu sagen, dass es immer abrunden soll, egal ob es etzt 1.8 oder 1.4 sind, es soll 1 rauskommen. Danke für jede Hilfe.
EDIT: habs gefunden -
Klappt bei mir trotzdem nicht...
-
Man kann die Serials auf dem Server ja 20 mal verschlüsselt speichern
-
Bei mir klappts nicht
Ich wähle eine UDF aus und dann beendet sich das Script nach ~ 2 Sekunden. Wenn ich den Befehl dann hinschreibe, passiert nix. -
Bei mir klappt es. Also scheint es wirklich bei dir zu liegen. Aber ein kleiner Tipp: Passwörter immer verschlüsselt speichern
-
Oh, das hab ich wohl vergessen zu ändern...
Die Englischen Begriffe sind doch alle großgeschrieben
-
Ups, gleich das erste Update machen xD
EDIT: Update ist oben -
Ich bevorzuge ebenfalls den GUIOnEventMode. Der Code ist übersichtlicher, man braucht keine Schleifen, man kann die Funktionen auch anders nutzen (z.B kann man die Funktion auch mit HotKeySet() aufrufen lassen, geht mit GUIGetMsg zwar auch, aber mit dem OnEventMode find ich es besser) und der EventMode gefällt mir einfach besser, weil es so ist
-
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
[autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]
#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)
WEndFunc refresh()
[/autoit] [autoit][/autoit] [autoit]
$cshort=GUICtrlRead($short)
GuiCtrlSetData($english, IniRead("data.chat", $cshort, $cshort&"english", ""))
GuiCtrlSetData($german, IniRead("data.chat", $cshort, $cshort&"german", ""))
EndFuncFunc about()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64, "Credits", "Abkürzungen: Wikipedia")
EndFuncFunc _exit()
[/autoit] [autoit][/autoit] [autoit]
MsgBox(64, "Credits", "Abkürzungen: Wikipedia")
Exit
EndFuncFunc notfileexists()
[/autoit] [autoit][/autoit] [autoit]
;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")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "2L8", "2F4german", "Zu spät")IniWrite("data.chat", "4U", "4Uenglish", "For you")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "4U", "4Ugerman", "Für dich")IniWrite("data.chat", "4YEO", "4YEOenglish", "For Your Eyes Only")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "4YEO", "4YEOgerman", "Nur für deine Augen")IniWrite("data.chat", "FYEO", "FYEOenglish", "For Your Eyes Only")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "FYEO", "FYEOgerman", "Nur für deine Augen");a
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "AAMOF", "AAMOFenglish", "As A Matter Of Fact")
IniWrite("data.chat", "AAMOF", "AAMOFgerman", "Tatsache ist, ...")IniWrite("data.chat", "ACC", "ACCenglish", "Account")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "ACC", "ACCgerman", "Benutzerkonto")IniWrite("data.chat", "ACK", "ACKenglish", "Acknowledgment")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "ACK", "ACKgerman", "Zustimmung / Bestätigung")IniWrite("data.chat", "AFAIC", "AFAICenglish", "As Far As I'm Concerned")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "AFAIC", "AFAICgerman", "Soweit es mich betrifft")IniWrite("data.chat", "AFAIK", "AFAIKenglish", "As Far As I Know")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "AFAIK", "AFAIKgerman", "Soviel ich weiß")IniWrite("data.chat", "AFAIR", "AFAIRenglish", "As Far As I Remember")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "AFAIR", "AFAIRgerman", "Soweit ich mich erinnern kann")IniWrite("data.chat", "AFK", "AFKenglish", "Away from Keyboard")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "AFK", "AFKgerman", "Nicht an der Tastatur")IniWrite("data.chat", "ASAP", "ASAPenglish", "As Soon As Possible")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "ASAP", "ASAPgerman", "So bald wie möglich")IniWrite("data.chat", "ASL", "ASLenglish", "Age Sex Location")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "ASL", "ASLgerman", "Alter, Geschlecht, Ort?")IniWrite("data.chat", "A/S/L", "A/S/Lenglish", "Age Sex Location")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "A/S/L", "A/S/Lgerman", "Alter, Geschlecht, Ort?")IniWrite("data.chat", "ATM", "ATMenglish", "At The Moment")
[/autoit] [autoit][/autoit] [autoit]
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")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BTK", "BTKgerman", "Zurück an der Tastatu")IniWrite("data.chat", "B2T", "B2Tenglish", "Back To Topic")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "B2T", "B2Tgerman", "Zurück zum Thema")IniWrite("data.chat", "BTT", "BTTenglish", "Back To Topic")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BTT", "BTTgerman", "Zurück zum Thema")IniWrite("data.chat", "BB", "BBenglish", "Bye Bye")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BB", "BBgerman", "Auf Wiedersehen")IniWrite("data.chat", "BBIAB", "BBIABenglish", "Be Back In A Bit")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BBIAB", "BBIABgerman", "Bin gleich wieder da")IniWrite("data.chat", "BBL", "BBLenglish", "Be Back Later")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BBL", "BBLgerman", "Bin später wieder da")IniWrite("data.chat", "BBS", "BBSenglish", "Be Back Soon")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BBS", "BBSgerman", "Bin bald zurück")IniWrite("data.chat", "BD", "BDenglish", "----")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BD", "BDgerman", "Bis dann")IniWrite("data.chat", "BF", "BFenglish", "----")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BF", "BFgerman", "Beste Freunde")IniWrite("data.chat", "BG", "BGenglish", "Biggrin / ----")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BG", "BGgerman", "Breitgrins / Bis gleich")IniWrite("data.chat", "BOFH", "BOFHenglish", "Bastard Operator From Hell")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BOFH", "BOFHgerman", "Bastard-Systemadministrator aus der Hölle")IniWrite("data.chat", "BRB", "BRBenglish", "Be Right Back")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BRB", "BRBgerman", "Bin gleich wieder da")IniWrite("data.chat", "BTW", "BTWenglish", "By The Way")
[/autoit] [autoit][/autoit] [autoit]
IniWrite("data.chat", "BTW", "BTWgerman", "Übrigens")
EndFuncFunc createnew()
[/autoit] [autoit][/autoit] [autoit]
$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)
EndFuncFunc save()
[/autoit] [autoit][/autoit] [autoit]
$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)
EndFuncFunc closeadd()
[/autoit]
GUIDelete($aGUI)
EndFuncUpdater:
Spoiler anzeigen
[autoit]#RequireAdmin
[/autoit] [autoit][/autoit] [autoit]
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.")
EndIfFunc _INetGetSource($s_URL, $bString = True)
[/autoit]
Local $sString = InetRead($s_URL, 1)
Local $nError = @error, $nExtended = @extended
If $bString Then $sString = BinaryToString($sString)
Return SetError($nError, $nExtended, $sString)
EndFunc ;==>_INetGetSourceAchtung: 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.