Beiträge von WhiteLion

hallo leute, ich habe ein tool, welches im hintergrund läuft und das modernmenu benutzt (Wer es nicht kennt: es ist ein besseres traymenü als das herkömmliche).
Das Problem ist, dass ich das Tool öfters automatisch neu starten lasse (muss auch so bleiben!), was zur folge hat, dass logischer weise das traymenu wieder neu erstellt wird.
Das modernmenu muss GUISetState() aufrufen, sonst sind die menüpunkte nicht anklickbar. Leider wirft mich genau dieses Aufrufen der Funktion GUISetState() immer wieder auf den
desktop, was in spielen natürlich oft total doof ist. Habt Ihr eine Idee wie ich GUISetState() so aufrufen kann, dass ich dadruch nicht auf dem desktop lande!?

;**********************************************************************
; _TrayIconCreate([ToolTip [, IconFile [, IconID]]])
;**********************************************************************
Func _TrayIconCreate($sToolTip = "", $sIconFile = @AutoItExe, $nIconID = 0, $sCallback = "", $nMsg = 0, $hIcon = 0)
If $sToolTip = "" Then $sToolTip = $sDefaultTT

$nIconID = _GetIconID($nIconID, $sIconFile)

If $sIconFile = "" Then
If $hIcon = 0 Then
If $nIconID = 0 Then
$sIconFile = @AutoItExe
Else
$hIcon = LoadIcon(0, $nIconID)
EndIf
EndIf
EndIf

If $sIconFile <> "" Then
Local $stIcon = DllStructCreate("hwnd")

If ExtractIconExW($sIconFile, $nIconID, 0, DllStructGetPtr($stIcon), 1) > 0 Then
$hIcon = DllStructGetData($stIcon, 1)
Else
$hIcon = LoadIcon(0, 32516)
EndIf
EndIf

If $TRAYMSGWND = 0 Then
$TRAYMSGWND = GUICreate("", 1, 1, 9999, 9999, -1, 0x00000080)
GUISetState() ; <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< hier das Problem!
ShowWindow($TRAYMSGWND, @SW_HIDE)
EndIf

Local $nNID = _GetNewTrayIndex()
If $nNID = 0 Then
DestroyIcon($hIcon)
Return 0
EndIf

$TRAYNOTIFYIDS[$nNID][0] = $nNID
$TRAYNOTIFYIDS[$nNID][1] = $hIcon
$TRAYNOTIFYIDS[$nNID][2] = 0
$TRAYNOTIFYIDS[$nNID][3] = 9
$TRAYNOTIFYIDS[$nNID][4] = $sToolTip
$TRAYNOTIFYIDS[$nNID][5] = $sCallback
$TRAYNOTIFYIDS[$nNID][6] = $nMsg
$TRAYNOTIFYIDS[$nNID][7] = FALSE
$TRAYNOTIFYIDS[$nNID][8] = FALSE

$TRAYLASTID = $nNID

Return $nNID
EndFunc

okay, ich hab eine lösung gefunden die ich leicht modifiziert habe... quelltext hängt an...
getestet unter Win 7 / Win 8 64 bit

also @error ist 0 und wenn ich den rückgabewert von _singelton anzeigen lasse (sollte ja ein handle sein), dann ist dieser z.B. folgender (bei 4 programmstarts):
1. instanz: 00000B1C
2. instanz: 00000B1B
3. instanz: 00000B1C
4. instanz: 00000B1B

Gerne dürft ihr die mal per teamviewer/skype selber schauen:
Skype ID:whitelionatx

Oscar

Kein Problem:
1. ich kompiliere den code aus meinem eröffnungspost unter nativem Win7 64
(code und kompilierte variante hängt an)
2. ich führe die kompilierte .exe aus und erwarte natürlich beim ersten starten der exe. NICHT die msgbox (

Msgbox(16,"Warning", $TileofWin&" is already running.", 10)

)
dann führe ich sie ein zweites und drittes ... ect. mal aus und alle ausgeführten varianten hängen natürlich in der While schleife und laufen sichtbar im tray.
und natürlich sollte ja beim zweiten mal ausführen die messagebox erscheinen und beim klick auf "OK" beendet werden, das passiert aber nicht. Weder unter dem Win7 64 noch unter der völlig unberührten Win 8 64 installation die in der VMWare läuft.... ich kann auch gerne ein video davon machen.

EDIT: ich verweise mal auf den post hier eines leidensgenossen (das zum thema: geht immer) :
[ offen ] _Singleton funktioniert nicht

danke für die lösungen .... aber wie auch immer, das original "singleton" beispiel geht in einer frischen Win8 64 installation jedenfalls auch nicht.

ich habe das problem, dass die programme, die sich im tray befinden ein totes icon hinterlassen, wenn sie unsanft (taskkill) beendet werden. erst wenn man über das trayicon die maus hält, dann verschwindet es. ich würde gerne wissen was ich machen kann um regelmäßigen abständen ein script laufen zu lassen, dass diese icons automatisch entfernt.

EDIT: ich habe folgendes script gefunden, was aber nicht zu funktionieren scheint ...

also ich kann nur von mir sprechen und von einigen thread eröffnern die am gleichen "singleton bug" leiden. es funktioniert bei mir nicht (script oben) und auch nicht in meiner Win 8 64bit VM ... genau das gleiche. in anderen threads wurde auch recht vehement behauptet das es unter "Win 7 64" funktionieren muss... nun ja, offensichtlich tut es das bei einigen aber nicht. ich behaupte einfach mal das ist ein bug, da selbst das beispiel, was ja kaum anders ist als mein script bei mir unter beiden OS nicht funktioniert.

_singleton geht nicht unter win 7 64

ich habe folgendes script, was leider nicht das multiple ausführen des scriptes verhindert:

#include <Misc.au3>
Global $ToolTitle = "xyz";

_checkMutex($ToolTitle)

Func _checkMutex($TileofWin)
if _Singleton($TileofWin,1) = 0 Then
Msgbox(16,"Warning", $TileofWin&" is already running.", 10)
Exit
EndIf
EndFunc

While 1
Sleep(3)
WEnd

hat jemand eine lösung ?

EDIT:
Habe gerade selber eine PID basierende lösung gefunden... wer sie gerne benutzen möchte:

Local $iSingleton = _SingletonPID('myUniqueName', 1)

If $iSingleton = 0 Then
MsgBox(4096, '', 'This is the first instance of the program running: ' & $iSingleton)
Else
MsgBox(4096, '', 'There is another instance running. This PID is: ' & $iSingleton)
EndIf

; #FUNCTION# ====================================================================================================================
; Name ..........: _SingletonPID
; Description ...: Enforce a design paradigm where only one instance of the script may be running.
; Syntax ........: _SingletonPID($sOccurenceName[, $iFlag = 0])
; Parameters ....: $sOccurenceName - String to identify the occurrence of the script.
; $iFlag - [optional] Optional parameters. Default is 0.
; 0 - Exit the script with the exit code -1 if another instance already exists.
; 1 - Return the PID of the main executable and without exiting the script too.
; Return values .: Success - 0 No other process is running.
; Failure - The PID of the main executable.
; Author ........: guinness with initial ideas by Valik for _Singleton & KaFu for _EnforceSingleInstance.
; Example .......: Yes
; ===============================================================================================================================
Func _SingletonPID($sOccurenceName, $iFlag = 0)
Local $hWnd = WinGetHandle($sOccurenceName)
If @error Then
AutoItWinSetTitle($sOccurenceName)
$hWnd = WinGetHandle($sOccurenceName)
ControlSetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1'), @AutoItPID)
Else
If BitAND($iFlag, 1) Then
Return Number(ControlGetText($hWnd, '', ControlGetHandle($hWnd, '', 'Edit1')))
Else
Exit -1
EndIf
EndIf
Return 0
EndFunc ;==>_SingletonPID

Func _PcapGetLastError($pcap=0) ; returns text from last pcap error
If NOT IsPtr($pcap) Then return DllStructGetData($Pcap_errbuf,1)
Local $v = DllCall($Pcap_dll, "str:cdecl", "pcap_geterr","ptr",$pcap)
return DllStructGetData($Pcap_errbuf,1)&$v[0]
EndFunc

die funktion wirft einen fehler der aus der dll selber kommt, nämlich:
No interfaces found! Make sure libpcap/WinPcap is properly installed on the local machine.

Interfaces sind wohl die netzwerkadapter.

Edit: ich hab mal ein beispiel + dlls angehängt .... evtl findet ja jemand den fehler bzw das problem.
ansonsten hilft nur noch rausfinden, wie ich die dateien in die windows systemverzeichnisse kopieren kann....

EDIT2:

ich hab was gefunden, was winpcap silent installieren soll, aber auch da wirds wieder in die systemverzeichnisse verschoben:

Yes it jusst places some DLL's and creates a service then starts it.
you will need to extract the proper DLL's from the WinPCap installer package - use 7zip and have it "auto rename" the duplicate files
there will be duplicates named with a _1 _2 etc on the end of the file names. each one is for a different version of windows - for win7 use the VISTA one


For 32bit windows these to C:\windows\system32


packet.dll


pthreadvc.cll


wpcap.dll


For 64bit windows you will need to copy those files to C:\windows\syswow64
as well as copying the 64bit versions of these:


packet.dll


wpcap.dll


to the C:\windows\system32 directory


then 1 more file - copy to c:\windows\system32\drivers


npf.sys


next use the SC command to create a service:
sc create npf binPath= system32\drivers\npf.sys type= kernel start= auto error= normal tag= no DisplayName= "NetGroup Packet Filter Driver"
then start the NPF service and winpcap is installed.
To make sure you get the right DLL's you could instlal winpcap through the normal "click through" method - then search for those DLL's mentioned above and make sure you get the right copies.
If that is confusing or u need more help let me know

Quelle: http://briandesmond.com/blog/installing-winpcap-silently/

genau das hatte ich anfangs probiert. doch leider hatte das nie funktioniert .... ich teste es später nochmal aus, da ich eigentlich auch dagegen bin die win-verzeichnisse vollzumüllen. ich hatte keine richtige erklärung warum es nicht funktionierte, dachte mir, dass es evtl daran liegt, dass es treiber sind die dann an keinem anderen ort liegen dürfen... ob die erklärung stimmt, weiss ich nicht, aber die winpcap ´s sind ja tatsächlich treiber.

EDIT: die nächste frage ist natürlich: warum funktioniert es trotz admin rechten nicht ins win 8 verzeichnis etwas zu kopieren ?

heyho trallato
in meinem script verwende ich die winpcap.dll ´s die im systemverzeichnis vom Windows liegen müssen damit sie funktionieren .... also (..windows/system oder ..windows/system32) ... leider klappt das Windows 8 nicht:

#RequireAdmin
SetPrivilege("SeDebugPrivilege", 1) ;hilft auch nicht
FileInstall("winpcap\wpcap.dll", @SystemDir & "\wpcap.dll")
...

jemand eine idee wie ich das problem lösen kann ?

ich schände mal die leiche .... ich habe genau das selbe problem wie der threaderöffner.
singleton rennt weder mit dem beispiel, noch mit dem was hier an lösungen gezeigt wurde.

die aufgabe der funktion ist, dezimalzahlen in hexwerte zu wandeln.
ich habe diese funktion benutzt (so weit ich mich erinnere) weil hex()/dec()
bei großen dezimalzahlen versagten ... damit meine ich insbesondere 64 bit große
integer werte.

EDIT:

oh sorry, ich habe die falsche funktion gepostet, hier die richtige:

Func Dec2Hex($iN)
MsgBox(0, "dec2hex in:", $iN)
Local $ihex = ""
Do
$ihex = Hex(Mod($iN, 16), 1) & $ihex
$iN = Floor($iN / 16)
;ConsoleWrite($iN & " " & $ihex & @CRLF)
Until $iN = 0
Return $ihex
MsgBox(0, "dec2hex out:", $ihex)
EndFunc ;==>Dec2Hex

edit2:

um es nochmal klar zu stellen:
die funktionen sollten in der lage sein dezimalzahlen in hex zu wandeln
das ganze sollte unter 64bit auch funktionieren d.h. wenn ich also folgende dezimalzahl habe
"8608480567731124087" sollte da als hex: "7777777777777777" rauskommen. (und umgekerht)
da ich ausschließlich mit positiven zahlen rechne (ich mochte speicheradressen zusammenrechnen),
sollten auch nur positive zahlen rauskommen, dh. unsigned int´s ....

es rechnet falsch und ich weiss nicht warum
entweder ist mir der fehler vorher nicht aufgefallen oder es liegt an 64 bit kompilierung oder dem update auf autoit 3.3.8.1
ich gebe z.B. decimal ein: 30086629
raus kommt 1CB15E0 ... was falsch ist! 1CB15E5 wäre richtig.

Func Hex2Dec($iN)
MsgBox(0, "dec in:", $iN)
Local $aN, $ihex = 0
$aN = StringSplit(StringTrimLeft($iN, 2), "", 1)
For $x = 1 To UBound($aN) - 1
$ihex += Dec($aN[$x]) * (16 ^ (UBound($aN) - 1 - $x))
Next
MsgBox(0, "dec out:", $ihex)
Return $ihex
EndFunc ;==>Hex2Dec

es sind nicht nur einige PW hardcoded sondern zig selbstgeschriebende verschlüsselungen verteilt über ca. 16.000 zeilen code verteilt in ca. 75 includes. plus einige selbstgeschriebende c++ dll´s die icludiert werden .... ich habe eh wenig hoffnungen das sich da wirklich jemand einarbeiten möchte, selbst wenn ich das alles rauswerfe... dann läufts ja nicht mehr.... es kommuniziert ständig mit dem server. das wäre nen haufen arbeit der recht sinnlos ist und ich bin der meinung, dass es nicht viel nützt, außer das risiko das ich was übersehe erhöht und dann der server geDOSed wird. du kannste es gut finden oder nicht ... es gibt auch leute die möchten / können nicht jedes script veröffentlichen und brauchen trotzdem hilfe

in meinem script befinden sich viel informationen wie z.b. verschlüsselte serverkommunikation die ich nicht veröffentlichen möchte. weiterhin steht die überlegung an das ganze zu veröffentlichen, aber in welcher form ist noch unklar... ich weiss, es ist immer besser mit script, aber wenn man so lange an etwas arbeitet und noch das o.g. risiko hat dann möchte man es auch wohl überlegt machen, wenn man es veröffentlicht.

ich lösche das debuglog genau an der stelle einmal (recht nahe beim programmstart):

if $debuglog = 1 Then
$debuglogworks = FileWrite($ToolTitle&"debug.log","Timer1:"&$Timer1&@LF)
if @error Then
MsgBox(0, "Error:"&@error, "Couldn´t create debuglog!"&@CRLF&"Maybe you have no administrations rights given to this app.")
Exit
EndIf
EndIf

FileDelete(@ScriptDir & "\"&$ToolTitle&"debug.log")

Zitat von Christoph54

So kurrios es auch klingt, mir ist das auch schon mal passiert!
Aber zum Glück hatte ich ja ein Backup von meinem durchaus wichtigen Scipt... not

hmmmm, ich glaube du hast mein anliegen nicht verstanden/gelesen. mein script nicht nicht weg, sondern nur das fehlerprotrokoll was es schreibt.

... ich habe gut 3 monate an einem script / programm gearbeitet und stelle nun folgenden fehler fest:
nach willkürlicher zeit (meistens so 2 tagen) beendet sich mein programm OHNE fehlermeldung.
ich lasse zwar an allen möglichen stellen ein logfile schreiben, aber das ding ist rätselhafter weise dann auch verschwunden!? (ist mir völlig unbegreiflich)
ich habe keine ahnung wie ich den fehler finden kann und bitte um hilfe.
gibt es nicht ein errorlog (cerror oder so ähnlich) wo windows noch diverse fehlermeldungen speichert, dass ich dort nochmal schauen
könnte ... oder fällt euch noch etwas ein!?

gibts auch ein beispielscript ?

edit: hat sich erledigt ...

ich wette autobert war der jenige der mit "ja" gestimmt hat