mit der tab taste kann man aber nur zwischen den feldern hin und her wechseln nicht jedoch zu dem was in den feldern steht wie eben zum beispiel ordner test
Klar kann man 
Nimm mal Strg+Tab, sind die auch unter Windows typischen Tastenkombinationen.
Du wirst eher Hilfe finden, wenn du dein Skript im Post mit Tags einbindest. Dann schaut schneller mal jemand drauf.
Ich habe z.B. keine Lust erst eine Datei runter zu laden um mir den Code anzuschauen.
Das war ein Bsp.
Die eingelesene Web-Site ist vergleichbar mit dem html-codierten Text, den du in deinem Edit-Ctrl erzeugst.
Wollte nur demonstrieren, dass man html-Code ohne vorher in eine Datei zu schreiben auch als Vorschau sehen kann.
Du kannst schon eine echte Vorschau machen.
Ich hab hier ein Bsp. gemacht, indem ich die Source einer Website in eine Variable einlese und anschließend in einem Browserfenster wieder ausgebe:
#include <IE.au3>
#include <INet.au3>
$source = _INetGetSource('http://www.autoitscript.com/autoit3/docs/history.htm')
$oIE = _IE_Example ("basic")
_IEPropertySet ($oIE, "innerhtml", $source)
Tipp zur Darstellung des Codes:
Du bist immer weiter eingerückt um Tab und TabItem abzugrenzen. Ist für die Übersicht auch sinnvoll.
Da alle Tabs gleichberechtigt sind und nur die TabItems untergeordnet sind, würde ich auch nur diese einrücken.
;create help-GUI
$helpgui = GUICreate("Information", 600, 400)
WinSetTrans($helpgui, "", 240)
$ok4 = GUICtrlCreateButton("OK", 260, 370, 80)
GUICtrlCreateTab(0,0, 600, 365)
GUICtrlCreateTabItem("General")
GUICtrlCreateTab(-1,-1, 600, 365)
GUICtrlCreateTabItem("CommandLine")
GUICtrlCreateTab(-1,-1, 600, 365)
GUICtrlCreateTabItem("ChangeLog")
GUICtrlCreateTab(-1,-1, 600, 365)
GUICtrlCreateTabItem("FAQ")
$MainTree = GUICtrlCreatetreeView(2, 24, 594, 337)
$1stSubTree = GUICtrlCreatetreeViewItem("Why appears the GUI only one time?", $MainTree)
GUICtrlCreateTreeViewItem("This GUI only appear on the first start of the program," & _
" after you did your settings, it creates an *.ini-file, where it stores your personal settings." & _
" If you want to renew or edit your settings, delete the *.ini-file or use a CommandLine parameter. ", $1stSubTree)
GUISetState(@SW_Show, $helpgui)
Ich hab mal alles eingefügt, du hattest noch nen Fehler. Du wolltest $i senden. $i ist aber das Inputfeld, das muß erst noch ausgelesen werden. Habs korrigiert.
#include <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]Dim $szIniName = StringLeft(@ScriptFullPath,StringInStr(@ScriptFullPath,".",0,-1)) & "ini"
Dim $def = ''
If FileExists($szIniName) Then $def = IniRead($szIniName,"config","default")
#Region ### START Koda GUI section ### Form=c:\dokumente und einstellungen\administrator\desktop\wio_script.kxf
$Form1 = GUICreate("WIO", 429, 112, 490, 163)
GUISetBkColor(0x000000)
$w1 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 0, 0, 140, 52, BitOR($SS_NOTIFY,$WS_GROUP))
$w2 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 128, 0, 172, 52, BitOR($SS_NOTIFY,$WS_GROUP))
$w3 = GUICtrlCreatePic("C:\Dokumente und Einstellungen\Administrator\Desktop\images.jpg", 296, 0, 132, 52, BitOR($SS_NOTIFY,$WS_GROUP))
$i1 = GUICtrlCreateInput("http://127.0.0.1", 88, 72, 209, 21)
If $def <> '' GUICtrlSetData(-1, $def)
$n1 = GUICtrlCreateLabel("Your No-Ip :", 8, 72, 73, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetBkColor(-1, 0x000000)
$b1 = GUICtrlCreateButton("Watch", 336, 72, 75, 25, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlSetCursor ($b1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $b1
send("{lwin}{up}{up}{up}{enter}" & GUICtrlRead($i1) & "{enter}")
IniWrite($szIniName,"config","default",GUICtrlRead($i1))
EndSwitch
WEnd
doch wie mache ich das das der send befehl mit druck auf den button ausgelöst wird ?
s. meinen letzten Post:
[autoit]$OK = GuiCtrlCreateButton( )
; ....
Case $msg = $OK
Send(...)
; ....
Ich hab dir mal ein Bsp. mit einem Bild aus dem Web gemacht:
#include <GUIConstants.au3>
#include <IE.au3>
#include <GuiIPAddress.au3>
Dim $picLink = 'http://www.winhelpline.info/forum/attachments/screenshot-galerie/' & _
'6534-games-convention-2006-world-warcraft-burning-crusade-screenshots-28.jpg' ; 800 x 640
$oIE = _IECreateEmbedded ()
$gui = GUICreate("WOW", 800, 600, -1, -1, $WS_OVERLAPPEDWINDOW + $WS_VISIBLE + $WS_CLIPSIBLINGS)
$GUIActiveX = GUICtrlCreateObj($oIE, -1, -1, 840, 670)
$child = GUICreate('IP-Adresse', 260, 40, @DesktopWidth/2 -385, @DesktopHeight/2 -285, $WS_POPUP)
$label = GUICtrlCreateLabel('IP-Adresse', 10, 13, 60, 17)
$hIPAddress = _GUICtrlIpAddressCreate ($child, 80, 10, 125, 21)
$OKip = GUICtrlCreateButton("OK", 215, 10, 30, 21)
GUISetState(@SW_SHOW, $gui)
GUISetState(@SW_SHOW, $child)
_IENavigate ($oIE, $picLink)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $OKip
$IP = _GUICtrlIpAddressGet($hIPAddress)
; was immer du jetzt mit der IP machen willst
EndSelect
WEnd
GUIDelete()
[/autoit] [autoit][/autoit] [autoit]Exit
[/autoit]Du kannst aber auch eine GUI mit Hintergrundbild erstellen, wurde hier auch schon mehrfach in der Hilfe besprochen. Einfach mal die Suche benutzen.
Hi,
ich habe meinen Vorschlag mal im 20 Sekunden Takt über mehrere Stunden laufen lassen.
Ergebnisse als TrayTip. Lief absolut problemlos.
Nützt natürlich nichts, sollte die Seite off sein. Ansonsten denke ich, eine gute Alternative.
#include <INet.au3>
Dim $url = 'http://www.rev6.com/index.php?site=servers'
Dim $pattern = "((?<=bgcolor=#800000>)[\w]*(?=</td><td))"
Dim $arServer[1][4], $n, $str
HotKeySet("^+e", "ende") ; Strg+Shift+e zum Beenden
While 1
$source = _INetGetSource($url)
$ret = StringRegExp($source, $pattern, 3)
$n = 0
$str = ''
If IsArray($ret) Then
$anz = UBound($ret)/4
ReDim $arServer[$anz][4]
For $i = 0 To UBound($arServer)-1
$arServer[$i][0] = $ret[$n]
$n += 1
$arServer[$i][1] = $ret[$n]
$n += 1
$arServer[$i][2] = $ret[$n]
$n += 1
$arServer[$i][3] = $ret[$n]
$n += 1
If $arServer[$i][1] < $arServer[$i][2] Then _
$str &= $arServer[$i][0] & @TAB & ' | ' & $arServer[$i][1] & @TAB & _
' | ' & $arServer[$i][2] & @LF
Next
EndIf
TrayTip("Freie Server", $str, 5)
Sleep(5000)
TrayTip('','',1)
Sleep(15000)
WEnd
Func ende()
Exit
EndFunc
Edit: Sollte kein freier Server vorhanden sein, erscheint kein TrayTip.
Ich war in der Annahme, dass er den markierten Text nur mit Tags versehen möchte.
Dann Auslesen und irgendwo wiedergeben, wo die Tags auch in Format umgesetzt werden.
Sollte die Formatierung tatsächlich innerhalb des Edit-Ctrl gewünscht sein, vielleicht mal mit RichEdit probieren. Weiß aber nicht sicher ob es dort funktioniert.
Verwende doch einfach: _GUICtrlEditReplaceSel( )
Warum eine Funktion neu erfinden, wenn sie schon existiert.
Lies doch einfach die Website aus, dann hast du alle Serverinformationen.
Leg das in eine Schleife mit Zeitintervall nach deinem Geschmack.
#include <array.au3>
#include <INet.au3>
Dim $url = 'http://www.rev6.com/index.php?site=servers'
Dim $pattern = "((?<=bgcolor=#800000>)[a-zA-Z0-9]*(?=</td><td))"
Dim $arServer[1][4], $n = 0
$source = _INetGetSource($url)
$ret = StringRegExp($source, $pattern, 3)
If IsArray($ret) Then
$anz = UBound($ret)/4
ReDim $arServer[$anz][4]
For $i = 0 To UBound($arServer)-1
$arServer[$i][0] = $ret[$n]
$n += 1
$arServer[$i][1] = $ret[$n]
$n += 1
$arServer[$i][2] = $ret[$n]
$n += 1
$arServer[$i][3] = $ret[$n]
$n += 1
Next
_ArrayDisplay($arServer)
EndIf
Original von TurboCal
tut das was zur Sache?
Damit ermittle ich den Server Traffic.
LOL
Ja, tut es. Was ist der Sinn von Packet Sniffern ?? - Traffic ermitteln ? Ich schmeiß mich weg.
Mag sein, das dies eine Möglichkeit zur Trafficermittlung ist. Aber sicher nicht die einzige und somit die erste die durchs Sieb fällt.
Dann teste doch vorab, ob das Game überhaupt Befehle von Autoit annimmt.
Falls in deinem Game eine Hilfefunktion z.B. auf "F1" liegt, schreib ein Skript um zu testen ob "F1" per Autoit angenommen wird.
z.B.
Run("game.exe")
WinWaitActive("Fenstertitel_wenn_Game_aktiv")
Sleep(3000) ; nun kannst du mitzählen 3-2-1
Send("{F1}") ; jetzt müßte deine Hilfe aufpoppen
Nimm mal das Pattern:
"((?<=<a href=).*(?=>Mirror))"Schau mal hier:
Scan Screen - Ergebnis sortiert
Das solltest du dafür nutzen können.
Edit: Senden von F-Tasten:
[autoit]Send("{F8}")
[/autoit]dass das problem die sleep funktion ist, die ich aber brauche!!
der rechner würde sonst unnötig viel belastet...
Wenn du mit "GUIGetMsg()" arbeitest, brauchst du das Sleep nicht. Wenn du es verwendest reicht ein Sleep(100), CPU-Last dann bei 8 - 12 %.
Probier mal so:
#include <GUIConstants.au3>
AutoItSetOption("WinTitleMatchMode", 2)
GUICreate ( "programm" , 300 , 450)
$create = GUICtrlCreateButton("Create", 125, 265, 60)
GUICtrlCreateLabel( "Crashes:" , 100 , 100)
$i = 0
$number = GUICtrlCreateLabel( $i , 150 , 100)
GUISetState (@SW_SHOW)
While 1
$msg = GUIGetMsg()
If $msg = $GUI_EVENT_CLOSE Then ExitLoop
if not WinExists("titel") or WinExists("teiltitel") then
if FileExists("programm.exe") Then run("programm.exe")
$i = $i + 1
GUICtrlSetData($number, $i)
EndIf
Wend
Edit:
Ist das gewollt:
if not WinExists("titel") or WinExists("teiltitel") then
[/autoit]
= Wenn "titel" nicht existiert ODER "teiltitel" existiert dann
Ich hab mal in meinen Spam-Ordner geschaut und folgendes entdeckt:
Wollte ich nur nochmal erwähnen. Das passiert bei mir vollautomatisch. Alles was 'Bank', 'Geld', 'Anwalt', 'Rechnung' u.v.a.m. enthält, wird von meinem Spamordner sofort geschluckt. 
Daran hab ich mich auch schon mal versucht. Ich hab dann aber aufgehört,weil schon "GUICtrlSetGraphic($gra, $GUI_GR_LINE, $x, $y)" völlig unerwartet arbeitet. (Line beginnt immer bei 0,0 des Grafikbereiches mit Länge $x bis $y als senkrechter Parameter.