UUPS habe den Downloadlink fuer das Handbuch korrigiert. Vorher war es nur die Schnellanleitung.
Eingabefehler
Eingabefehler im Feld IP Adresse:Fehler durch Virtueller Server-Konflikt.
Bitte pruefe die Portfreigaben im Router auch unter dem Menue "Spezialanwenungen" , wahrscheinlich gibt es die Portfreigabe schon.
- Das Routermenü über den Browser aufrufen (192.168.2.1), anmelden
- Netzwerkeinstellungen -> NAT -> virtueller Server
- hier gibst du die IP deines Rechners ein (über cmd->ipconfig ermitteln), gibst als öffentlichen und internen Port den gewünschten Port ein über den du kommunizieren möchtest und setzt das Protokoll auf TCP
Hanbuch hier
Seite83, eventuell Seite 84 fuer spezielle Anwendungen Edit: Seite 83,84 wird vom PDF-Reader angezeigt, im Handbuch sind die Seiten 79, 80 gekennzeichnet.
clezZ, falls du mehr als ein Rechner im LAN hast, solltest du an deinem Rechner eine statische IP setzen.
Den internen Port, den du im Router freigegeben hast must du auch in der Windows Firewall freigeben, falls Windows Firewall aktiv.
- Sicherheit -> Firewall -> DMZ
- DMZ auf Ein stellen
DMZ auf EIN zu stellen, davon rate ich ab, mit dieser Funktion setzt du im Router alle Ports frei fuer deinen Rechner.
Dein Rechner wird bei aktivierten DMZ von der Router Firewall ausgeschlossen.
Hi Mahagon.D
Nene.. wenn du mal bei Kleinweich in der Klasse schaust siehst du, das die selbst dieses "Problem" kennen/verursacht haben
Ich nehme an, du meinst das von Kleinweich:
Win32_PrintJob Class
TotalPages Data type: uint32Access type: Read-only
Number of pages required to complete the job. This value may be 0 (zero) if the print job does not contain page-delimiting information.
Als Uebersetzung kommt bei mir folgendes raus:
Anzahl der Seiten erforderlich, um den Auftrag abzuschließen. Dieser Wert kann 0 (Null) sein, wenn der Druckauftrag keine Informationen ueber die Seitenbegrenzung (Seitenanzahl) enthält.
Schlau macht mich das nicht besonders:
Aus dem obigen Satz kann ich nicht erkennen ob die Eigenschaft .TotalPages oder die Variable $MaxPages den Fehler verursachen kann, deshalb gruebel. 
habe daheim OpenOffice und wenn ich da z.B. ein 100 Seitiges Dokument drucke, wird anscheinend MaxPages nicht übergeben (bleibt also 0), wodurch das Script nicht funktioniert.
Ich muss das mal bei Gelegenheit mit OpenOffice testen, mit Notepad hat deine Loesung funktioniert, allerdings mit einer kleinen Seitanzahl und unter XP getestet.
Eigentlich duerfte das nicht passieren, echt aergerlich, genau wie mit der PRNADMIN.DLL, die den STATUS des Druckers nicht zurueckliefert.
Hi Mahagon,
danke für deine Lösung, works 
Mich würde trotzdem interessieren warum die 1:1 Übersetzung von VBS zu Autoit nicht funktioniert hat, warum TIDY bei der Übersetzung verrückt spielt und warum Delete_ ausgeführt wird und dann ein Error meldet 
Ok es scheint noch ein anderes Problem zu geben, kenne die Ursache aber noch keine Lösung
TotalPages gibt 0 zurück, wenn keine Gesamtanzahl übergeben wird.
Verstehe nicht so ganz, was damit gemeint ist ???
Im Momoment sehe ich das Problem nicht wirklich. Was meinst du der Angabe der Gesamtanzahl ???
$oList = $WMIConnect.ExecQuery("select * from Win32_PrintJob WHERE TotalPages >= 1"; <---$MaxPages gibst du hier an, wird gebraucht für den Vergleich.
[/autoit]PS. Die Idee mit der WMI-Erweiterung finde ich gut, es gibt zwar den ScriptOmatic, der deckt aber nicht alles ab und ist auch keine UDF
aber was will man machen
°)(° erstmal
FileDelete
[/autoit]Hat sich das Problem keiner angeschaut ? 
Habe noch den VBS-Codeschnipsel angehängt.
Mit VBS funktioert es, aber halt nicht mit Autoit.
Hi Sprenger,
ja das selbe auch bei mir, was sich da Microsoft mit dieser Funktion gedacht hat, ist mir total unklar.
Ist dir bestimmt auch aufgefallen, das die Stausfunktion in der Doku nur ein eiziges mal erwähnt wird,
die Dokumentation der Codes fehlt ganz, die muss man sich im Internet raussuchen.
Hast ja Recht, wäre sicherlich nützliche DLL, nur wenn sie auch komplett funktionieren wurde.
Ich hab ne Geschwindigkeit von (höchstens) 90 kbit/s und zwar mit Lan
glaubste doch wohl selber nicht ich habe ne 45 kb/s down und nen 10 kb/s upstream
Mein Internet ist Wetterbedingt 15 kbit/s
OuuWaja, das hoert sich aber nicht nach schnellem Internet, ich sitze fast am Knotenpunkt, habe deshalb mehr Leistung als gemietet.
Naja wir in der Grossstadt haben schnellere Leitung, ihr dafuer bessere Luft
Was zahlt man eigentlich fuer so eine -schnelle Leitung ???
Den Downloadlink habe ich korrigiert (ist aber Lizenztechnisch immer noch das ganze RKTOOL ca.12MB, kostenlos)
Hi Leute,
ich nenne es schon eine "Welle an Misserfolg", mal wieder Problem, diesmal mit "TIDY - WMI - OBJ/COM"
Da ich Paar Funktionen fuer den Drucker-Managment sammle, wollte ich mir was ueber WMI zusammenschustern. (Es gibt da so wenig UDF's 
)
1.Problem: Kein ---> SyntaxCheckProd ausgefuehrt, keine Fehler
2.Problem: TIDY ausgefuehrt, es werden Fehler angezeigt, in Zeile 22 wird das UnderScore mit Leerzeichen versetzt, der Unterstrich ist aber kein Zeilenumbruch in Scite, sondern gehoert zu dem Befehl.
3.Problem: Das Script wird zwar ausgefuehrt und bringt die Aktion zu Ende, aber nur einmal, danach schiesst sich das Objekt aber ab.
4.Problem: Kann das Script nicht ueber das Systray beenden (Das ist aber fast kein Problem)
Ich keine Ahnung warum, muss deshalb hier Fragen 
Code im Spoiler:
;Ueberfacht den DruckerJob, wenn die zu druckende Seitenanzahl hoeher als die Vorgabe ist, wird der Druckauftrag abgebrochen und der Spooler geleert
$maxPages = 2 ; Limit der Seiten
$objWMIService = ObjGet("winmgmts:\\.\root\cimv2")
[/autoit] [autoit][/autoit] [autoit]$Wql = ("Select * from __InstanceOperationEvent within 1 where TargetInstance isa 'Win32_PrintJob'and TargetInstance.totalpages >" & $maxPages)
[/autoit] [autoit][/autoit] [autoit]$colEvents = $objWMIService.ExecNotificationQuery($Wql)
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite("!========================================================" & @CRLF)
ConsoleWrite("Drucker wird ueberwacht")
ConsoleWrite("!========================================================" & @CRLF)
While 1
;Sleep(100)
$objEvent = $colEvents.NextEvent
With $objEvent.TargetInstance
ConsoleWrite("!========================================================" & @CRLF)
ConsoleWrite(.document & "auf" & .name & " geleoscht " & .totalpages & " Limit " & $maxPages & @CRLF)
ConsoleWrite("!========================================================" & @CRLF)
.Delete_; Hier Underscore Problem mit TIDY
[/autoit] [autoit][/autoit] [autoit]ConsoleWrite("!========================================================" & @CRLF)
ConsoleWrite(" Drucken beendet " & @CRLF)
ConsoleWrite("!========================================================" & @CRLF)
EndWith
WEnd
[/autoit]Hi Sprenger,
Ich gib mal hier die vertrauliche Quelle zum Download an.
Hierl
Ist Bestandteil des Windows Server 2003 Resource Kit Tools und free.
Beschreibung steht in der PrnAdmin.doc
Die Codes sollten laut Beschreibung als Integer ausgegeben werden. Aber wie gesagt, egal was mein Drucker gerade macht, der Code ist immer Null 
Ich glaube, die DLL hat ein Bug in der Statusfunktion.
Hi,
wollte mal aus dem "Windows Resource Kit Tools" die PrnAdmin.dll benutzen um an Statusinformationen des Druckers zu gelangen. Leider ohne Erfolg. Bekomme immer eine 0 geliefert, egal im welchen Zustand sich der Drucker befindet.
Test 1
$oMaster = ObjCreate("PrintMaster.PrintMaster.1")
$oPrinter = ObjCreate("Printer.Printer.1")
ConsoleWrite("DefaultPrinterName: " & $oMaster.DefaultPrinter)
$DP= $oMaster.DefaultPrinter
$oPrinter = ObjCreate("Printer.Printer.1")
$oMaster.PrinterGet ("", $DP, $oPrinter)
MsgBox(0,"Status",$oPrinter.Status)
Keine Ahnung was ich da falsch mache.
Falls jemand einen Tip hat, bitte melden.
Hi Raupi,
das klappt so aber nicht, habe es auch mit den Vergleichsoperatoren versucht, das Ergebniss ist aber falsch.
Mir ist noch was anderes aufgefallen. Mit dem Sleep nutzt mir die UDF nichts.
Um die Threads zu ueberwachen musste ich das Script in einer weiteren Instanz starten und dann vergleichen
Hi Leute,
brauche bitte Hilfe, bekomme es einfach nicht hin.
Möchte zwei ArrayVariablen aus dieser UDF vergleichen .
Für eventuelle Hilfe Merci im voraus.
;///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
; Vergleiche $arr & $arr1 ob Änderung eingetreten ist, die Werte werden nicht benötigt, sondern nur ob eine Änderung eingetreten ist,deshalb wird ArrayDisplay nicht benötigt---> Siehe Spoiler
////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
#include <WinAPi.au3>
#include <array.au3>
Global Const $TH32CS_SNAPTHREAD = 0x00000004
Global Const $THREADENTRY32 = "dword dwSize;dword cntUsage;dword th32ThreadId;dword th32OwnerProcessID;long tpBasePri;long tpDeltaPri;dword dwFlags;"
;;; Example
$pid = ProcessExists("MeinProgramm.exe")
$arr=_GetAllProcessThreads($pid)
sleep(5000)
$arr1=_GetAllProcessThreads($pid)
;///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
; Vergleiche $arr & $arr1 ob Änderung eingetreten ist, die Werte werden nicht benötigt,
;////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
;_ArrayDisplay($arr)
; Get all threads in the system
;$arr=_GetAllThreads()
; And display them
;_ArrayDisplay($arr)
;;; End of example
[/autoit] [autoit][/autoit] [autoit];;;;;;;;;;;;_GetAllThreads;;;;;;;;;;;;;;;;;;;;
; Returns info of all the threads on the system
; Reterns a 2D array with the following structure:
;
; [n][0] = th32ThreadId - Thread ID
; [n][1] = th32OwnerProcessID - Pid of owener process
; [n][2] = tpBasePri - Priority of Thread (range 0-31)
;
; More info about the function:
;
; http://msdn.microsoft.com/en-us/library/ms682489(VS.85).aspx
; http://msdn.microsoft.com/en-us/library/ms686728(VS.85).aspx
; http://msdn.microsoft.com/en-us/library/ms686735(VS.85).aspx
;
; © monoceres 2008
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Func _GetAllThreads()
$call = DllCall("Kernel32.dll", "ptr", "CreateToolhelp32Snapshot", "dword", $TH32CS_SNAPTHREAD, "dword", 0)
$handle = $call[0]
Local $RetArr[1][3]
;ConsoleWrite("Handle: " & $handle & @CRLF)
$te32=DllStructCreate($THREADENTRY32)
DllStructSetData($te32,"dwSize",DllStructGetSize($te32))
$call=DllCall("Kernel32.dll","int","Thread32First","ptr",$handle,"ptr",DllStructGetPtr($te32))
_GetAllThreads_ArrHelper($RetArr,$te32)
Do
$call=DllCall("Kernel32.dll","int","Thread32Next","ptr",$handle,"ptr",DllStructGetPtr($te32))
If Not $call[0] Then ExitLoop
_GetAllThreads_ArrHelper($RetArr,$te32)
Until True And False
_ArrayDelete($RetArr,0)
_WinAPI_CloseHandle($handle)
Return $RetArr
EndFunc ;==>GetAllThreads
; Same as _GetAllThreads, but with a simple pid filter
Func _GetAllProcessThreads($iPid)
$call = DllCall("Kernel32.dll", "ptr", "CreateToolhelp32Snapshot", "dword", $TH32CS_SNAPTHREAD, "dword", 0)
$handle = $call[0]
Local $RetArr[1][3]
ConsoleWrite("Handle: " & $handle & @CRLF)
$te32=DllStructCreate($THREADENTRY32)
DllStructSetData($te32,"dwSize",DllStructGetSize($te32))
$call=DllCall("Kernel32.dll","int","Thread32First","ptr",$handle,"ptr",DllStructGetPtr($te32))
If DllStructGetData($te32,"th32OwnerProcessID")=$iPid Then _GetAllThreads_ArrHelper($RetArr,$te32)
Do
$call=DllCall("Kernel32.dll","int","Thread32Next","ptr",$handle,"ptr",DllStructGetPtr($te32))
If Not $call[0] Then ExitLoop
If DllStructGetData($te32,"th32OwnerProcessID")=$iPid Then _GetAllThreads_ArrHelper($RetArr,$te32)
Until True And False
_ArrayDelete($RetArr,0)
_WinAPI_CloseHandle($handle)
Return $RetArr
EndFunc
Func _GetAllThreads_ArrHelper(ByRef $Arr,$TE32_Struct)
$ub=Ubound($Arr)
ReDim $Arr[$ub+1][3]
$Arr[$ub][0]=DllStructGetData($TE32_Struct,"th32ThreadId")
;$Arr[$ub][1]=DllStructGetData($TE32_Struct,"th32OwnerProcessID")
;$Arr[$ub][2]=DllStructGetData($TE32_Struct,"tpBasePri")
EndFunc
Kannst du mal den Pfad zu der Exe prüfen ???
[autoit]If FileExists("C:\Users\Sandro\Desktop\GTA vice city.zip") Then
[/autoit][autoit][/autoit][autoit]MsgBox(0, "", "Alles Ok, Datei liegt in angegebenem Pfad")
Else
MsgBox(0, "", "Datei wurde nicht gefunden")
EndIf
[MSIE_newline_end ]
Hat jmd vll ne idee wie man sein Programm multilingual machen kann ohne ne ini?
If @OSLang <> 0405 Then
$Sprache = _Sprache()
Else
$Sprache = "cs"
EndIf
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("...........@OSLang cs .... .........@OSLang " & $Sprache, 390, 208, -1, -1)
$Button1 = GUICtrlCreateButton("Tiskarna", 69, 24, 97, 41, $WS_GROUP)
$Button2 = GUICtrlCreateButton("Zapnout", 69, 78, 97, 41, $WS_GROUP)
$Button3 = GUICtrlCreateButton("Vypnout", 69, 133, 97, 41, $WS_GROUP)
$Button4 = GUICtrlCreateButton(_GoogleTranslate("Tiskarna", "cs", $Sprache), 224, 24, 97, 41, $WS_GROUP)
$Button5 = GUICtrlCreateButton(_GoogleTranslate("Zapnout", "cs", $Sprache), 224, 78, 97, 41, $WS_GROUP)
$Button6 = GUICtrlCreateButton(_GoogleTranslate("Vypnout", "cs", $Sprache), 224, 133, 97, 41, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
Func _GoogleTranslate($sText, $sFrom = "en", $sTo = "ja")
Local Const $FileName = "Translation.jsn"
Local Const $Pattern = '"translatedText":"([^"]+)"'
Local $GoogleURL = "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&q=%s&langpair=%s%%7C%s"
Local $File
$GoogleURL = StringFormat($GoogleURL, $sText, $sFrom, $sTo)
[/autoit] [autoit][/autoit] [autoit]If Not InetGet($GoogleURL, $FileName, 1) Then Return SetError(1, 0, 0)
[/autoit] [autoit][/autoit] [autoit]$File = FileOpen($FileName, 4)
FileGetSize($FileName)
$Translation = FileRead($File, FileGetSize($FileName))
FileClose($File)
FileDelete($FileName)
$Translation = BinaryToString($Translation, 4)
[/autoit] [autoit][/autoit] [autoit]If StringRegExp($Translation, $Pattern) Then
$Translation = StringRegExp($Translation, $Pattern, 1)
$Translation = $Translation[0]
Return $Translation
EndIf
EndFunc ;==>_GoogleTranslate
Func _Sprache()
Select
Case StringInStr("0413 0813", @OSLang)
Return "nl"
Case StringInStr("0409 0809 0c09 1009 1409 1809 1c09 2009 2409 2809 2c09 3009 3409", @OSLang)
Return "en"
Case StringInStr("040c 080c 0c0c 100c 140c 180c", @OSLang)
Return "fr"
Case StringInStr("0407 0807 0c07 1007 1407", @OSLang)
Return "de"
Case StringInStr("0410 0810", @OSLang)
Return "it"
Case StringInStr("0414 0814", @OSLang)
Return "no"
Case StringInStr("0415", @OSLang)
Return "pl"
Case StringInStr("408", @OSLang)
Return "el"
Case Else
Return "en"
EndSelect
EndFunc ;==>_Sprache
Ist eher als Scherz gedacht, , nur Schade das Googel nicht besser übersetzt .
wie kann man von XP bestimmte Dienste abschalten ?
zb. Druckwarteschlange
Lokal
Run(@ComSpec & " /c " & 'sc stop Spooler', "", @SW_HIDE)
[/autoit]
Remote
Run(@ComSpec & " /c " & 'sc \\IP-DES-RemotePC stop Spooler', "", @SW_HIDE)
[/autoit]
Weitere Paramater: pause / continue / start
Hätte ich ja nicht gedacht, dass das sich nun so umständlich erweist.
Hehe, das war auch zu erwarten.
AutoCad benutzt die eigene Bibliothek "RealDWG" und zu dieser wurde noch nie ein Dokument veroeffentlicht und wird auch nie.
ODA hat durch Reverse Engineering die Bibliothek"OpenDWG" entwickelt, zu dieser gibt es eine Doku.(Autodesk freut sich bestimmt nicht, wenn Konsumenten mit einem Programm ab 25 Euro , das DWG format schreiben und lesen koennen) Deswegen erwarte in diese Richtung kein positiven Support seitens Autodesk.
Durch deine Frage und @Progandys loesung und der Doku von ODA kann ich wenigstens den Befehl "FileSetPos" nachvollziehen.
Ich fand das Thema, sowie die Loesung sehr lehrreich.
Hi,
Opera 9.51 antwortet , einiges geht tatsächlich nicht, zB. Bilder einfügen, Schriftfarbe wechseln
[MSIE_newline_end ] <--- das hängt Opera noch dran.
Was mich mich aber bei Opera wirklich stört, sehr oft passiert es, das ich keine Links auf eine Webseite öffnen kann, Opera reagiert erst nach manuellen Aktualisierung der Webseite und das passiert schon weit vor V9.51
Ich kehrte deshalb wieder zu Gecko-Engine zurück.
Test: Beitrag bearbeiten geht aber[MSIE_newline_end ]
Die findest du hier:
autoit.com--->klick
[MSIE_newline_end ]
Also nach dem Prinzip:
Programm mit dem MD5 Hash "fca888fc8ae3cd7636925e7538ff91d6" wird geöffnet.
In meinem Programm wird aber "fca888fc8ae3cd7636925e7538ff91d6" geblockt und beendet
den Prozess mit diesem Hash.
Hattest das Thema doch schon hier angefangen--->klick
[MSIE_newline_end ]
