Doch, da steht es in der ASCII-Tabelle. Wobei es keinen wirklichen Zusammenhang gibt zwischen dem, was HTML nicht darstellen kann und den nichtdruckbaren Zeichen, die eben per Definition und name nicht druck- und darstellbar sind.
peethebee
Doch, da steht es in der ASCII-Tabelle. Wobei es keinen wirklichen Zusammenhang gibt zwischen dem, was HTML nicht darstellen kann und den nichtdruckbaren Zeichen, die eben per Definition und name nicht druck- und darstellbar sind.
peethebee
Hallo!
BugFix : Natürlich geht es mit Regulären Ausdrücken. Der Vorteil ist immer, das es unglaublich flexibel ist. Daher setze ich es gerne ein. Außerdem ist es etwas kürzer, nämlich 2 Zeilen
Gästebucheinträge:
Das andere kommt gleich.
Edit: Hier die Spielernummer:
$res = StringRegExp("http://www.esl.eu/alpen/player/1917142/", "/player/([0-9]*)/", 1)
MsgBox(0, '', $res[0])
peethebee
Mit GUIDelete geht es einfach. In de4r Regel ist es aber günstiger, die GUIs nur mittels GUISetState zu "hiden" und "showen", dann kann man sie später einfach wieder anzeigen.
peethebee
p.s. wir tuen alles dafür, dass das dein neues AutoIt-Becken wird hier
; fixed by peethebee
If IniRead(@ScriptDir & "\settings.ini", "PWaktiv", "Wert", "") = 0 Then
MsgBox(0, "Passwort deativiert", "Passwortabfrage ist deaktiviert")
Else
While 1
$passwd = InputBox("Passwort-Check", "Bitte geben Sie Ihr Passwort ein.", "", "*M")
If $passwd = "" Then
Exit
ElseIf $passwd = "Geheim" Then
MsgBox(0, "Passwort ativiert", "Anmeldung erfolgreich")
ExitLoop
Else
If MsgBox(53, "Anmeldung fehlgeschlagen!", "Ihr Passwort ist falsch!") = 2 Then ExitLoop
EndIf
WEnd
Return $passwd
EndIf
Alles anzeigen
peethebee
ja, AutoIt-/Refresh-Bug....
Schieb das Fenster aus dem Mnitor raus und zurück, dann stimmt es. Konnte es noch nicht umgehen.
peethebee
Hallo!
Das sollte aber eine Version vor 1.0 sein. In der war es nämlich schon abgeschaltet, nach allem was ich hier sehe.
peethebee
@loclahost:
#NoTrayIcon
#include <Constants.au3>
#include <GuiConstants.au3>
Dim $Prt, $ProgName, $Optionen, $MaxB = 0, $i, $PrtArray
;---------------------------------------------GUI------------------------------------------------------------
$Form1 = GUICreate("Admin Tools", 625, 441, 192, 111)
$Tab1 = GUICtrlCreateTab(0, 0, 625, 441)
$TabSheet1 = GUICtrlCreateTabItem("Network")
$Group1 = GUICtrlCreateGroup("Cache", 14, 34, 140, 70)
$flushdns = GUICtrlCreateCheckbox("Del DNS Cache", 24, 54, 120, 20)
GUICtrlSetCursor($flushdns, 0)
$rr = GUICtrlCreateCheckbox("Del NetBios Cache", 24, 74, 120, 20)
GUICtrlSetCursor($rr, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$execute = GUICtrlCreateButton("Execute", 534, 404, 80, 30, 0)
$Group2 = GUICtrlCreateGroup("IP", 14, 114, 140, 90)
$release = GUICtrlCreateRadio("release", 24, 134, 110, 20)
$renew = GUICtrlCreateRadio("renew", 24, 154, 110, 20)
$relren = GUICtrlCreateRadio("release && renew", 24, 174, 110, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ipconfig = GUICtrlCreateButton("IP Configuration", 14, 404, 100, 30, 0)
$netstat = GUICtrlCreateButton("Network Statistic", 124, 404, 100, 30, 0)
$route = GUICtrlCreateButton("Routingtable", 234, 404, 100, 30, 0)
$arp = GUICtrlCreateButton("Arp Entrys", 344, 404, 100, 30, 0)
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
GUICtrlCreateTabItem("")
GUICtrlCreateLabel("localhost", 550, 2, 63, 20)
GUICtrlSetFont(-1, 8, 800, 2, "System")
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
;------------------------------------------------------------------------------------------------------------
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
;---------------------------------------Ipconfig Button------------------------------------------------------
Case $msg = $ipconfig
$prt = ""
$ProgName = "ipconfig /all"
$PrtArray = StringSplit(_SysProg($ProgName & " " & $Optionen), @CRLF)
For $i = 1 To UBound($PrtArray, 1) - 1
If StringLen($PrtArray[$i]) > $MaxB Then $MaxB = StringLen($PrtArray[$i])
If $PrtArray[$i] <> "" Then $Prt &= $PrtArray[$i] & @CRLF
Next
_IEPrt($Prt, $ProgName, 9 * $MaxB, 9 * UBound(StringSplit($Prt, @CRLF), 1))
;---------------------------------------netstat Button-------------------------------------------------------
Case $msg = $netstat
$prt = ""
$ProgName = "netstat -s"
$PrtArray = StringSplit(_SysProg($ProgName & " " & $Optionen), @CRLF)
For $i = 1 To UBound($PrtArray, 1) - 1
If StringLen($PrtArray[$i]) > $MaxB Then $MaxB = StringLen($PrtArray[$i])
If $PrtArray[$i] <> "" Then $Prt &= $PrtArray[$i] & @CRLF
Next
_IEPrt($Prt, $ProgName, 9 * $MaxB, 9 * UBound(StringSplit($Prt, @CRLF), 1))
;---------------------------------------Route Button---------------------------------------------------------
Case $msg = $route
$prt = ""
$ProgName = "route print"
$PrtArray = StringSplit(_SysProg($ProgName & " " & $Optionen), @CRLF)
For $i = 1 To UBound($PrtArray, 1) - 1
If StringLen($PrtArray[$i]) > $MaxB Then $MaxB = StringLen($PrtArray[$i])
If $PrtArray[$i] <> "" Then $Prt &= $PrtArray[$i] & @CRLF
Next
_IEPrt($Prt, $ProgName, 9 * $MaxB, 9 * UBound(StringSplit($Prt, @CRLF), 1))
;---------------------------------Execute Button-------------------------------------------------------------
Case $msg = $execute
$chk1 = GUICtrlRead($flushdns)
$chk2 = GUICtrlRead($rr)
$chk3 = GUICtrlRead($renew)
$chk4 = GUICtrlRead($release)
$chk5 = GUICtrlRead($relren)
Select
Case $chk1 = 1
$rc = RunWait("ipconfig /flushdns", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't delete the DNS Cache. Please try ipconfig /flushdns at the command prompt.")
Case $chk2 = 1
$rc = RunWait("nbtstat -rR", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't delete the NETBIOS Cache. Please try nbtstat -rR at the command prompt.")
Case $chk3 = 1
$rc = RunWait("ipconfig /renew", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't renew the IP Adress. Please try ipconfig /renew at the command prompt.")
Case $chk4 = 1
$rc = RunWait("ipconfig /release", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't release the IP Adress. Please try ipconfig /release at the command prompt.")
Case $chk5 = 1
$rc = RunWait("ipconfig /release", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't release the IP Adress. Please try ipconfig /release at the command prompt.")
$rc = RunWait("ipconfig /renew", "", @SW_HIDE)
If $rc <> 0 Then MsgBox(64, "Error", " Can't release the IP Adress. Please try ipconfig /renew at the command prompt.")
EndSelect
;------------------------------------------------Uncheck all Check and Radio---------------------------------
GUICtrlSetState($flushdns, $GUI_UNCHECKED)
GUICtrlSetState($rr, $GUI_UNCHECKED)
GUICtrlSetState($renew, $GUI_UNCHECKED)
GUICtrlSetState($release, $GUI_UNCHECKED)
GUICtrlSetState($relren, $GUI_UNCHECKED)
EndSelect
WEnd
Exit
;------------------------------------Functions----------------------------------------------------------------
Func _IEPrt($Was, $Titel, $Breite = 660, $Hoehe = 300, $Links = 100, $Oben = 100)
Dim $IE = ObjCreate("InternetExplorer.Application.1")
$IE.Navigate ("about:blank")
$IE.Left = $Links
$IE.Top = $Oben
$IE.Width = $Breite
$IE.Height = $Hoehe
$IE.Visible = True
$IE.Document.Body.InnerHtml = "Bitte warten.."
$IE.Toolbar = False
$IE.Menubar = False
$IE.Statusbar = False
$IE.Document.Body.InnerHtml = $Was
EndFunc ;==>_IEPrt
;--------------------------------------Execute SystemProgram-------------------------------------------------
Func _SysProg($Which)
Local $h, $i, $Prt
$i = Run(@ComSpec & " /c " & $Which, @SystemDir, @SW_HIDE, $STDOUT_CHILD + $STDERR_CHILD)
Sleep(1000)
$h = StdoutRead($i)
If @error = 0 Then $Prt = $h
$h = StderrRead($i)
If @error = 0 Then $Prt = $h
$Prt = StringReplace($Prt, Chr(154), "Ü")
$Prt = StringReplace($Prt, Chr(129), "ü")
$Prt = StringReplace($Prt, Chr(142), "Ä")
$Prt = StringReplace($Prt, Chr(132), "ä")
$Prt = StringReplace($Prt, Chr(153), "Ö")
$Prt = StringReplace($Prt, Chr(148), "ö")
Return "<body scroll=auto><Pre>" & $Prt
EndFunc ;==>_SysProg
Alles anzeigen
peethebee
Der Mailserver hat leider öfter mal Probleme. Leider weiß ich nicht, ob das ein grundsetzliches Problem ist, oder ob Gun-Food das in den Griff bekommen kann. Von Zeit zu Zeit geht es und dann liefert er alle Mails nach...
peethebee
Im wesentlichen ist dazu das hier zu sagen:
http://autoit.aufwaerts.de/dokumentation/…g_functions.htm
peethebee
Steht in der Hilfe - unter IsPressed
Das korrekte Zählen baue ich dir gleich ein.
Edit:
[autoit]$keys = StringSplit("42|43|45|46|47|48|49|4A|4B|4C|4D|4E|4F|50|51|52|54|55|56|58|59|5A|" & _ ; <--- a bis z, ausgeschlossen a,w,s,d
"30|31|32|33|34|35|36|37|38|39|" & _ ; <-- 0 bis 9
"60|61|62|63|64|65|66|67|68|69|6A|6B|6C|6D|6E|6F|" & _ ; <-- Ziffernblock
"70|71|72|73|74|75|76|77|78|79|7A|7B", "|") ; <-- F1 bis F12
;
Global $i = 0
Global $last = 0
While 1
Sleep(100)
For $j = 1 To $keys[0]
If _IsPressed($keys[$j]) and $last <> $j Then
$i = $i + 1
$last = $j
EndIf
Next
ToolTip($i)
WEnd
Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
; $hexKey must be the value of one of the keys.
; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
Return 0
EndFunc ;==>_IsPressed
Diese Variante zählt Tasten nur dann falsch, wenn zwei gleichzeitig gedrückt sind. Sonst wird ein Tastendruck auch als genau einer gezählt.
Leider verursacht diese Variante bei mir (Athlon 64 X2 3800+) 2-3% Prozessorlast. Könnte sein, dass das (auch) an dem Ständig aktualisierten ToolTip liegt.
Man könnte es also per HotKey an- und ausschaltbar machen.
Außerdem sollte man beim Beenden der Wert (in einer Ini-Datei z.B.) konservieren und dann beim nächsten Start weider auslesen.
Wer Lust hat, kann ja mal den Kreuzvergleich gegen die HotKeySet-Variante fahren. Die etwas aufwendliger zu programmieren, aber die Prozessorlast sollte niedriger liegen, da Windows sich meldet, wenn ein HotKey gedrückt wurde.
peethebee
Global $i = 0
While 1
Sleep(90)
For $j = Dec("30") To Dec("5A")
If not $j = Dec(...) and not $j = Dec(...) usw. Then
If _IsPressed(Hex($j, 2)) Then $i = $i + 1
EndIf
Next
ToolTip($i)
WEnd
Func _IsPressed($s_hexKey, $v_dll = 'user32.dll')
; $hexKey must be the value of one of the keys.
; _Is_Key_Pressed will return 0 if the key is not pressed, 1 if it is.
Local $a_R = DllCall($v_dll, "int", "GetAsyncKeyState", "int", '0x' & $s_hexKey)
If Not @error And BitAND($a_R[0], 0x8000) = 0x8000 Then Return 1
Return 0
EndFunc ;==>_IsPressed
Die Werte gibt es in der Hilfe.
peethebee
Hallo!
ich habe nur 96 *g*.
Oben den Code gefixt für Version 3.2 und neuer: vor _ muss ein Leerzeichen stehen, damit die nächste Zeile direkt angeschlossen wird.
peethebee
Im englischen Forum wurde das IE7-Problem schon diskutiert. Microsoft hat da wohl in der Struktur nach außen hin Änderungen vorgenommen. Zum Teil wurden diese von Beta 1 auf Beta 2 aufgrund von Beschwerden scheinbar wieder zurückgenommen.
peethebee
Es steht doch ein komplette und funktionierendes Beispiel in der Hilfe!?
Das brauchst du nur anschauen, kopieren und minimal ändern.
peethebee
Schau mal die letzten paar Threads an. Einige davon behandeln die IE.au3, womit das ganz gut gehen sollte.
peethebee
$test = 12
Func _egal()
$variable = "test"
Local $variable2 = "test2"
Global $variable3 = "test3"
EndFunc
MsgBox(0, "1", $variable)
MsgBox(0, "2", $variable2)
MsgBox(0, "3", $variable3)
Alles anzeigen
Eine Variable, die mit Local deklariert wird, gilt NUR innerhalb der aktuellen Funktion und kann von außen nicht angesprochen werden.
Wenn du die Option MustDeclareVars einschaltest, produziert obiges Skript Fehler, sonst nur falsche (leere) Werte beim Auslesen.
peethebee
mein ranking 2-1-3-4-5
Es gibt die Möglichkeit, VLC oder WMP per ActiveX in eine GUI einzubinden.
Einen eigenen Player zu schreiben dürfte doch etwas länger dauern.
peethbee