Register for your free account! | Forgot your password?

Go Back   elitepvpers > Coders Den > AutoIt
You last visited: Today at 04:00

  • Please register to post and access all features, it's quick, easy and FREE!

 

Gui lässt sich unter WinXP schließen, aber nicht unter Win7

Reply
 
Old   #1
Moderator


 
elite*gold: 2
Join Date: Jul 2009
Posts: 14,447
Received Thanks: 4,682
Gui lässt sich unter WinXP schließen, aber nicht unter Win7

Hey ich habe dieses kleine Programm hier erstellt:
LDTX - Lawliet!'s DTXConverter :)

Bei mir funktioniert alles (WinXP32), bei einem anderen User lässt sich das das Programm aber nach aber weder schließen, noch ein anderer Button drücken, nachdem er im Codebereich angekommen ist, den ich mit einem roten "HIER" markiert habe:
Code:
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#RequireAdmin

#include <StructureConstants.au3>
#include <GuiConstantsEx.au3>
#include <WindowsConstants.au3>
#include <WinAPI.au3>
#Include <File.au3>
#Include <String.au3>



Global $iMemo
Global $aPath
Global $CMDHandle
Global $LithTechDTXhex
Global $NexonDTXhex
Global $NexonDTX
Global $LithTechDTX 
Global $DTXFileName
Global $ConvertTF = 0
Global $OpenFolder = 0
Global $Filenamedtx = 0
Global $NexonDTXCheck
Global $LithtechDTXCheck =

_Example_Defaults()
_Example_ExplorerStyleMultiSelect()
_Example_OldStyle()
_Example_ExplorerStyleSinglSelect()
_Example_ExplorerStyle_NoPlaceBar()

Func _Example_Defaults()
	Local $hGui, $btn_dialog, $aFile, $sError, $FileName
	; Create GUI
	$hGui = GUICreate("Lawliet!'s DTX Converter", 300, 200)
	;$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 226, $WS_HSCROLL)
	;GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
	GUICtrlCreateLabel("File: ", 100, 40)
	GUICtrlCreateLabel("Typ: ", 100, 60)
	$btn_dialog = GUICtrlCreateButton("*.DTX File öffnen", 50, 150, 90, 20)
	$ConvertTF = GUICtrlCreateButton("Convertieren", 160, 150, 90, 20)
	GUISetState()
	
	While 1
		Switch GUIGetMsg()
		Case $btn_dialog
				
				$aFile = _WinAPI_GetOpenFileName("", "DTX Files (*.dtx)") ; use defaults
				If $aFile[0] = 0 Then
					$sError = _WinAPI_CommDlgExtendedError()
					MemoWrite("CommDlgExtendedError (" & @error & "): " & $sError)
				Else
					For $x = 1 To $aFile[0]
						
						;code
						
					Next
					
				EndIf
				$FileName = StringTrimRight($aFile[2], 4)
				$LithTechDTX = _HexToString($LithTechDTXhex)
				$NexonDTX = _HexToString($NexonDTXhex)
				$DTXFileName = StringTrimRight($aFile[2], 4)
				
				;MsgBox(1, "dawn", $DTXFileName)
				GUICtrlCreateLabel($aFile[2], 150, 40)
				
				;code
				If $TypVar == $LithTechDTXhex Then
					GUICtrlCreateLabel("LithTech", 150, 60)
					;MsgBox(1, "Typ", "LithTech .dtx File")
				Else
					GUICtrlCreateLabel("Nexon", 150, 60)
				EndIf
				
			Case $ConvertTF
				 ;code
				If $TypVar == $LithTechDTXhex Then
					;code
					If @error Then
						MsgBox(1, "error", @error)
					EndIf
					;code
				Else
					;code
					If @error Then
						MsgBox(1, "error", @error)
					EndIf
					;code
                                          [FONT="Arial"][SIZE="6"][COLOR="Red"]HIER[/COLOR][/SIZE][/FONT]
				EndIf
			Case $GUI_EVENT_CLOSE
				ExitLoop
			
				
				
				
		EndSwitch
	WEnd
	GUIDelete($hGui)
	

	

EndFunc 
Func MemoWrite($sMessage)
	GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc


Kann jemand erkennen woran es liegen könnte?



Lawliet is offline  
Old   #2
 
elite*gold: 40
Join Date: May 2007
Posts: 616
Received Thanks: 68
nimm mal für "$gui_event_close" einfach "exit" oder definier exit
so hast du zwei $ und kannst über gui und exit beenden wenn das eine nicht klappt klappt das andere


snow21 is offline  
Thanks
1 User
Old   #3
 
elite*gold: 0
Join Date: May 2011
Posts: 788
Received Thanks: 191
hab kein Bock es ausprobieren aber bei mir ist sowas schon mal passiert
GANZ unten rechts Rechtklick auf dein Programm und Beenden
Xemnas' is offline  
Old   #4
Moderator


 
elite*gold: 2
Join Date: Jul 2009
Posts: 14,447
Received Thanks: 4,682
Wäre aber keine Lösung für die Allgemeinheit.
Lawliet is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
[Frage] Root lässt sich nicht einpacken, aber auspacken ???
Hey, also ich habe folgendes Problem, ich bekomme die Root Dateien aus dem Clienten nicht gepackt. Entpacken kann ich die Dateien, aber wenn...
2 Replies - Metin2 PServer - Discussions / Questions
Rayman1 unter win7
Hallo liebe Community, Wie Spiele ich Rayman 1 auf win7 gibt es irgendwelche Patches oder so? achja und i h habe schon sehr viel gegooglet aber...
0 Replies - General Gaming Discussion
[Client]locale_de lässt sich entpacken aber nicht mehr packen?!
Abend epvp. Habe mal wieder ein Problem. Ich habe jetzt meine item_proto(clientside) bearbeitet, habe sie wieder gepackt und wollte denn die...
7 Replies - Metin2 PServer - Discussions / Questions
css probs unter win7.
hey. habe nun win7 raufgemacht weil ich meinen xp key verloren habe. nun muss ich leider mit win7 css spielen , folgende probs: anstatt 80-130...
21 Replies - Counter-Strike
War Rock startet unter Win7 nicht!
Hallo, Ich will War Rock unter Win7 starten(Habe es schon mit Admininstrator versucht und unter WinXP Sp2 Komatiblität) Hier bleibt er lange...
5 Replies - WarRock



All times are GMT +1. The time now is 04:00.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.