Ich habs doch richtig reingeschrieben, hätte er sich lieber rauskopieren sollen
Beiträge von alpines
-
-
Natürlich passiert das, weil du den Text nur unten ranfügst, deshalb ist auch das FileDelete da.
Wenn das nicht möchte dann versuchs mal die .wtf aufm Desktop zu speichern und in den order zu moven. -
Dann änder es um das die txt nicht gelöscht wird wenn es geschlossen wird.
[autoit]
Aber das liegt nicht daran sondern hab ich FileClose vergessen
[/autoit]
$hFile = FileOpen(".\\realmlist.wtf")
$sFile = FileRead($hFile)
GUICtrlSetData($Edit1, $sFile)
FileClose($hFile)
Hoffentlich geht es jetzt. -
Das ist von Router zu Router unterschiedlich, aber wenn du weißt wo sich das im Router befindet, kannst du per WinHTTP auf die Seite navigieren und dann das einstellen.
Das ganze Verfahren ist ein bisschen umständlich, wenn du Ports hinzufügen etc möchtest. -
Kannst du ja schnell machen, sind ja nur 2 Zeilen
-
Weil du sie wahrscheinlich unter C:\\ erstellen möchtest und da brauchst du Admin-Rechte. Also in die erste Zeile vom Script
[autoit]
[/autoit]
#RequireAdminsetzen.
-
Das geht noch kürzer:
[autoit]$Datum = "\" & @YEAR & @MON & @MDAY & ".csv"
[/autoit]
$logeintrag = ";" & $DisplayDB_1 & ";" & $DisplayDB_2 & ";" & $DisplayDB_4 & ";" & $DisplayDB_6
If $i = 0 And (@min=00 or @min=10 or @min=20 or @min=30 or @min=40 or @min=50) Then
_FileWriteLog(@ScriptDir & $Datum, $logeintrag)
$i = 1
EndIf -
Portsperre sollte am Routervorgenommen werden. Du könntest ein Script schreiben das sich im Router einloggt und die Ports da blockiert.
-
Die Annahme das Privatserver nicht verboten sind, weil Blizzard was dagegen unternommen hätte ist falsch. Man braucht eine Lizenz um einen Privatserver zu erstellen und die hat so gut wie kein Server, weil sie einfach zu teuer ist.
[autoit]
[/autoit][autoit][/autoit][autoit]
;Für das reinkriegen in die Edit.
$hFile = FileOpen(".\\realmlist.wtf")
$sFile = FileRead($hFile)
GUICtrlSetData($Edit1, $sFile);Hier der Teil für den Button
[/autoit]
FileDelete(".\\realmlist.wtf")
FileWrite(".\\realmlist.wtf", GUICtrlRead($Edit1)) -
Wenn du den HotKey für STRG+C ersetzt dann kommt die Windows-Funktion nicht mehr durch, weil AutoIt sich das für sich reserviert.
Vielleicht könnte es das sein? -
-
Aber nicht die eigene _StringBetween-Funktion
Alternativ steht auch die Möglichkeit per _WinHTTP zur Verfügung.
Damit kann man ebenfalls Source-Code abgreifen und Anfragen an Websites senden, was in diesem Fall der Link wäre.
Ich persönlich benutz die IE.au3 eher weniger, da es einfacher ist mit TCPSend/TCPRecv-Packets zu arbeiten oder noch einfach per _WinHTTP was aber langsamer ist. -
Kannst du auch mit anderen Schleifenarten machen (Während If aber nicht wirklich eine Schleife ist und die anderen in diesem Fall auch nich.)
[autoit]
[/autoit][autoit][/autoit][autoit]
$bVar = FalseWhile $bVar = False
[/autoit][autoit][/autoit][autoit]
MsgBox(0,"","")
_InetSmtpMailCom
ExitLoop
WEndIf $bVar = False Then
[/autoit]
MsgBox(0,"","")
_InetSmtpMailCom
EndIf
Das 2. wäre aber kürzer und qualitativ hochwertiger. Wie man SmtpEmails versendet ohne Outlook etc. also _InetSmtpMail findest du hier: _InetSmtpMailComDu kannst auch alternativ die Mails per TCPBefehle senden, dann fällt die _InetSmtpMailCom Funktion weg, dafür kannst du dir das POP3/SMTP-Protokoll mal anschauen.
-
Das hab ich auch vermutet, war mir aber nicht ganz sicher.
-
Du kannst den Source-Code in eine Variable packen und dann die String-Commands verwenden.
Entweder nimmst du
[autoit]
[/autoit]
#include <String.au3>
_StringBetween
[autoit]
Oder du schreibst dir deine eigene _StringBetween-Funktion mit
[/autoit]
StringTrimLeft
StringTrimRight
StringInStr -
Das ist doch ebenfalls das gleiche!!
Du liest das ganze Zeug mit
[autoit]
[/autoit][autoit][/autoit][autoit]
$hFile = FileOpen(".\\realmlist.wtf")
$sList = FileRead($hFile)
FileClose($hFile)$aLines = StringSplit($sList, @CRLF)
[/autoit][autoit][/autoit][autoit]
For $i = 1 To UBound($aLines) - 1
If StringInStr($aLines[$i], "set realmlist") Then
;Dein Zeugs hier rein
;Wenn du 1 angewählt hast dann prüfst du ob das in dem String vorkommt mit StringInStr und wenn du ein # findest dann löscht du das, Beispiel:
If $sSelectedRealm = 1 and StringInStr($aLines[$i], "SERVERADRESSE EINS HIER REIN") Then
$sSelectedRealm &= StringTrimLeft($aLines[$i], 1) & @CRLF
Else
$sSelectedRealm &= "#set realmlist SERVERADRESSE EINS HIER" & @CRLF
EndIf
If $sSelectedRealm = 2 and StringInStr($aLines[$i], "SERVERADRESSE ZWEI HIER REIN") Then
$sSelectedRealm &= StringTrimLeft($aLines[$i], 1) & @CRLF
Else
$sSelectedRealm &= "#set realmlist SERVERADRESSE ZWEI HIER" & @CRLF
EndIf
If $sSelectedRealm = 3 and StringInStr($aLines[$i], "SERVERADRESSE DREI HIER REIN") Then
$sSelectedRealm &= StringTrimLeft($aLines[$i], 1) & @CRLF
Else
$sSelectedRealm &= "#set realmlist SERVERADRESSE ZWEI HIER" & @CRLF
EndIf
EndIf
NextFIleWrite(".\\realmlist.wtf", $sSelectedRealm)
[/autoit]
Das wird vermutlich so nicht funktionieren, weil du das mit dem Code den ich dir gesendet hab verknüpfen musst.Bitte beachte beim nächsten Mal, wenn du möchtest das dir jemand das gratis programmiert, weil du kein Stück vom Code-Snippet rausgegeben hast, falls du überhaupt einen hast. Dann stell ihn doch bitte im richtigen Forum!
-
Hier mal das ganze für Radio-Controls, das ganze Zeugs mit FileWrite der Realmlist kannst du ja selber machen, sind ja nur 3 Zeilen.
[autoit]#include <ButtonConstants.au3>
[/autoit][autoit][/autoit][autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>$Form1 = GUICreate("Form1", 286, 111, 192, 124)
[/autoit][autoit][/autoit][autoit]
$Radio1 = GUICtrlCreateRadio("1", 8, 8, 113, 17)
$Radio2 = GUICtrlCreateRadio("2", 8, 40, 113, 17)
$Radio3 = GUICtrlCreateRadio("3", 8, 72, 113, 17)
$Button1 = GUICtrlCreateButton("Button1", 176, 24, 75, 57)
GUISetState(@SW_SHOW)While 1
[/autoit][autoit][/autoit][autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitCase $Button1
[/autoit]
If GUICtrlRead($Radio1) = 1 Then
MsgBox(0,"",1)
ElseIf GUICtrlRead($Radio2) = 1 Then
MsgBox(0,"",2)
ElseIf GUICtrlRead($Radio3) = 1 Then
MsgBox(0,"",3)
Else
MsgBox(0,"","None")
EndIf
EndSwitch
WEnd -
Achso, danke für die Infos.
-
Viel Spaß!
-
Auch von mir ein herzliches Willkommen an die Kaffetasse!