Aufruf der "hh.exe" per Doppelklick im Explorer und per Befehlszeile:
Hh.exe was run without a valid command line
Aber das ist ja OK, der Parameter für die Datei wurde ja nicht übergeben.
Aufruf "hh.exe /?":
Das Fenster öffnet kurz und schließt dann wieder. 
Edit: Hab jetzt mal die "hh.exe" ersetzt, keine Änderung.
Hier der Weg über Objekte. Da du nicht geschrieben hast, was du mit dem Dokument tun willst, habe ich in dem Bsp.
- Objekt erstellen
- DOC öffnen
- Schriftgröße ändern
- am Ende des Dokuments Text anfügen (hier Datum + Uhrzeit)
- DOC speichern
- DOC drucken (z.Zt. auskommentiert)
- Objekt schließen
#Include <Date.au3>
Dim $DOC_path = 'D:\Test.doc'
Const $END_OF_STORY = 6
Const $MOVE_SELECTION = 0
$objWord = ObjCreate("Word.Application")
$objWord.Visible = True ; oder False, wenn alles im Hintergrund laufen soll
; Worddokument öffnen
$objDoc = $objWord.Documents.Open($DOC_path)
$objSelection = $objWord.Selection
; zum Ende des Dokuments bewegen
$objSelection.EndKey($END_OF_STORY, $MOVE_SELECTION)
; 2 Zeilenumbrüche setzen
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
; Schriftgröße auf 14
$objSelection.Font.Size = "14"
; Datum + Uhrzeit schreiben
$objSelection.TypeText( "" & _Now() )
; 2 Zeilenumbrüche setzen
$objSelection.TypeParagraph()
$objSelection.TypeParagraph()
; Schriftgröße auf 10
$objSelection.Font.Size = "10"
; Dokument speichern
$objWord.ActiveDocument.SaveAs($DOC_path)
; Dokument drucken
;~ $objDoc.PrintOut()
; Word beenden
$objWord.Quit
Falls ernsthafter Bedarf besteht, würde ich mich breitschlagen lassen, und analog zur Excel.UDF eine Word.UDF erstellen. (aber braucht man die wirklich ? 
)
Hi Leute,
ich habe plötzlich folgendes Problem:
Wenn ich eine Hilfedatei (*.chm) per KOmmandozeilenaufruf oder im Explorer per Doppelklick öffne, wird die Hilfedatei kurz geöffnet und schließt sich dann wieder von selbst.
Im Kontext mit einer Anwendung wird die Hilfe normal geöffnet und bleibt offen (z. B. AutoIt-Hilfe aus Scite heraus aufrufen).
Hat jemand da 'ne Idee ? 
Edit:
Habs zusätzlich noch hier
http://board.protecus.de/t29864.htm
eingestellt
Send("{CTRLDOWN}{TAB}{CTRLUP}")
[/autoit]Es geht auch
[autoit]Send("^{TAB})
[/autoit]Ich verwende aber lieber die erste Variante, da diese eineindeutig zur Kombination führt.
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]