Japanisch in MsgBox bzw. Bild?

Der Matze

Ein freundliches Hallo in die Runde,

ich bin heute durch Zufall in das Forum gestolpert und musste mich auch gleich anmelden, da ich der absolute Newbie in Sachen AutoIT bin:-) .....
Nun zu meinem Problem:
Ich bin dabei ein Script zu basteln, dass folgendes machen soll.

Ein User klickt auf eine *.exe (dieses Script) und es wird ein Fenster geöffnt (MsgBox) was den User auffordert etwas zu machen und dann OK zu drücken. Klickt er OK wird eine Installation (MSI /qn) aufgerufen. Klickt er Cancel steigt das Script aus -> funktioniert!
Vorher wird von dem Script die Registry nach der verwendeten Sprache abgefragt. Wenn diese "DEU" ist, erscheint die MsgBox mit deutschen Anweisungen. Wenn Sie "ENU" ist in englisch -> funktioniert auch.

Aber ich brauche das auch in Japanisch!!! Und da fangen die richtigen Probleme an. Die Abfrage ist kein Prob. Nur die Schriftzeichen in die MsgBox zu bekommen!! Ich habe versucht dies Über send zu realisieren bin aber gescheitert Habt Ihr eine Idee?
erstens weil es meiner Meihnung nach nicht geht denn diese Schriftzeichen werden nur mit einer bestimmten Schriftart dargestellet (MS Gothik) (zum testen 30CF -> ALT+X).

Weiter wäre es eine Möglichkeit in die MsgBox einen Screenshot einzubauen? Also keine Text! Nur ein kleines Bild, wo die Japanischen Anweisungen zu lesen sind und darunter der OK und Cancel Button!??

Geht das?

Danke euch für eure Antworten

Der Matze.

P.S. Ich denke, dass ich euch bestimmt öfter stressen werde *smile*

**GtaSpider**

mhh
hast du dir die Gui schon mal angekugt?
damit kannst du bilder texte usw anzeigen nur weit aus kompfortabler! und auch die schriften ädnern! beim text! also könntest du eine japanische schrift machen...

Der Matze

Hallo gtaspider,

danke für deine Antwort aber geht es vielleicht auch ein wenig genauer? Diese Funktion habe ich zwar gerade gefunden, bin aber noch nicht wirklich weiter gekommen

Ich habe mich entschlossen, dies mit einem Bild zu realisieren. Aber ich benötige in diesem Fenster einen "OK" und einen "CANCEL" Button. Diese Müssen einen Rückgabewert liefern, damit ich auf diese dann die weiteren Funktionen binden kann.

Der Matze

**peethebee**

Hallo!

Hm, hört sich nicht so einfach an. Was passiert noch mal, wenn du den Code mit der Kombination aus Alt und der Zahl für das Japanische Zeichen eingibst? Hast du die Unterstützung für Japanisch und so in Windows installiert und aktiviert?

Wir freuen uns auf deine Fragen

peethebee

Der Matze

Wenn ich das mit send übergebe erscheint ein falsches Zeichen. 30CF habe ich umgerechnet und 12495 übergeben. Dies klappt aber nicht, da dies nur mit der Schriftart MS Gothik funzt. Ja ich habe Japanisch installiert

Aber wie ober schon geschrieben, mache ich das nun über die GUI mit einem Bild. Aber das gestaltet sich für mich genauso schwierig

Ist halt echt schwer, bei Null anzufangen und gleich so eine Aufgabe zu bekommen *grrr*

Wie gesagt: ich brauche ein Fenter, in dem ein Bild ist. Unter dem Bild (574 x 75 pix) soll ein OK und Cancel Button sein, die einen Wert übergeben, an die ich dann die Install funktion binden kann.

**peethebee**

Hallo!

Es gibt in der Hilfe eine generelle Einleitung zu GUI-Sachen, diese bitte lesen.
Dann hilft die Funktion GUICtrlCreatePic, um ein Bild zu einzubinden. Der Trick dürfte sein, das Bild in 3 Teile aufzuteilen und dann das Klickereignis für Ok und Cancel abzufangen.

peethebee

Der Matze

Ja ich weis. Diese fresse ich ja auch schon hoch und runter. Leider sind da zu wenig Beispiele

Ich verstehe z.B. auch nicht, das wenn ich das Fenster erstellt habe das Bild so geschrumpft ist!?

Habt ihr eine Idee, wo man für so etwas noch Beispielscripte findet?

Meins sieht bisher so aus:

Code

$var = RegRead("HKEY_USERS\.DEFAULT\Control Panel\International", "sLanguage") ; Sucht nach der verwendeten Sprachversion des SYSTEMS bzw. des USERS.
	if $var = "DEU" Then
		call ("DEU")
	elseif $var = "ENU" Then
		call ("ENU")
	elseif $var = "JPN" Then
		call ("JPN")
	elseif $var <> "DEU" or "ENU" or "JPN" Then
		Exit
	EndIf	
EndFunc


Func DEU()
	$answer = MsgBox (1, "Bitte Hardware anschliessen", "Bitte verbinden Sie nun die Manhattan Easy DOCK Multi-Portdocking Station mit Ihrem PC und bestätigen Sie dies mit einem klick auf OK.") ; Öffnet ein Fenster, dass den User auffordert die Hardware anzuschliessen.")
	if $answer = 1 Then
			Call ("Install")
	Elseif $answer = 2 Then
			Exit
	EndIf
EndFunc


Func ENU()
	$answer = MsgBox (1, "Please connect your Hardware", "Please connect your Manhattan Easy DOCK Multi-Portdocking Station with your PC and klick OK.")
	if $answer = 1 Then
			Call ("Install")
	Elseif $answer = 2 Then
			Exit
	EndIf
EndFunc


Func JPN()
	#include <GUIConstants.au3>
GUICreate("",500,300,-1,-1,$WS_SIZEBOX+$WS_SYSMENU)  ; will create a dialog box that when displayed is centered


GUISetBkColor (0xE7F784)
$n=GUICtrlCreatePic(@ScriptDir &'\JPN_OK.JPG',110,75,-1,-1)
GUICtrlCreateButton("&Ok", 110, 200, 90, 30)
GUICtrlCreateButton("&Cancel", 300, 200, 90, 30)
GUISetState ()


; Run the GUI until the dialog is closed
While 1
	$msg = GUIGetMsg()

	If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend




GUISetState ()
; resize the control
$n=GUICtrlSetPos($n,50,50,200,100)
; Run the GUI until the dialog is closed
While 1
	$msg = GUIGetMsg()

	If $msg = $GUI_EVENT_CLOSE Then ExitLoop
Wend
	$answer = MsgBox (1, "Please connect your Hardware", "Please connect your Manhattan Easy DOCK Multi-Portdocking Station with your PC and klick OK.")
	if $answer = 1 Then
			Call ("Install")
	Elseif $answer = 2 Then
			Exit
	EndIf
EndFunc


Func Install()
	BlockInput (1)  ; Schaltet die Tastatur und Maus aus
	If FileExists (@ScriptDir & '\Manhattan-Easy-Dock-en-01.msi') then 
		runwait ('msiexec /i "' & @ScriptDir & '\Manhattan-Easy-Dock-en-01.msi" /qn') 
	EndIf
	BlockInput (0)	; Schaltet die Tastatur und Maus ein
EndFunc

Alles anzeigen

Ich hoffe, dass ich das hier so hinein setzen darf?

Der Matze

**peethebee**

Hallo!

Kann es gerade nicht testen, aber was geht nicht?

Edit: Das Pic Control solltest du so groß anlegen wie das Bild, dann wird eigentlich auch nichts gestreckt oder so. Ansonsten gibt es auch einen Parameter dafür.

habe den Code mal in das entsprechende Tag gesetzt.
Klar darfst du ihn hier posten, das ist sogar explizit gewünscht, damit wir besser helfen können.

peethebee

**GtaSpider**

mh ich hab dir mal eben schnell eine gui gebastelt:
TIPP: hol dir SciTe! infos findest du hier

Code

#include <GUIConstants.au3>


$Form1 = GUICreate("gui", 587, 118, 192, 125)
GUISetBkColor(0xE7F784)
$Pic = GUICtrlCreatePic(@ScriptDir &'\JPN_OK.JPG', 8, 8, 574, 75)
$ok = GUICtrlCreateButton("&Ok", 8, 88, 283, 25)
$cancel = GUICtrlCreateButton("&Cancel", 304, 88, 275, 25);& bring folgendes: wenn ein und vor einem control ist kann man wenn die Gui aktiv ist Alt + das zeichen was vor dem & steht also in dem falle: ALT + C
GUISetState()
While 1
	$msg = GuiGetMsg()
	Select
	Case $msg = $GUI_EVENT_CLOSE
		ExitLoop
	Case $msg = $ok
		MsgBox(0,"","ok clicked!")
		;hier deine funktion was er machen soll wenn man ok klickt!
	Case $msg = $cancel
		MsgBox(0,"","cancel clicked!")
		;hier deine funktion was er machen soll wenn man cancel klickt!
	EndSelect
WEnd
Exit

Alles anzeigen

Der Matze

Guten morgen,

danke für das script ich werde es gleich testen. *freu*

Ich hoffe, dass ich es amit hin bekomme.

Gruß Der Matze

Edit:

C

Func DEU()
#include <GUIConstants.au3>


$Form1 = GUICreate("Manhattan Easy DOCK Multi-Portdocking Station", 587, 118, 192, 125)
GUISetBkColor(0xE7F784)
$Pic = GUICtrlCreatePic(@ScriptDir &'\JPN_OK.JPG', 8, 8, 574, 75)
$ok = GUICtrlCreateButton("&Ok", 150, 88, 100, 25)
$cancel = GUICtrlCreateButton("&Cancel", 350, 88, 100, 25)
GUISetState()
	While 1
		$msg = GuiGetMsg()
			Select
				Case $msg = $GUI_EVENT_CLOSE
					ExitLoop
				Case $msg = $ok
					Call ("Install") 
				Case $msg = $cancel
					Exit
				EndSelect
	WEnd			
Exit
EndFunc

Alles anzeigen

Wie bekomme ich es hin, dass wenn der User auf OK klickt die GUI automatisch geschlossen wird (wie bei Cancel) und meine Funktion ausgeführt wird? Denn sobald er in die Funktion hinein geht, wartet es so lange bis diese beendet ist und reagiert dann erst wieder auf befehle. Ich habe es mit send ("!{F4}"), controlklick usw. probiert. Leider ohne Erfolg *schade*

**GtaSpider**

GuiDelete()
Call("install")
in der case $msg = $ok eintragen!
mit dem befehl

Code

GuiDelete()

kannst du die momentane Gui schließen!
noch beser ist aber:
GuiSetState(@SW_HIDE) dann wird sie versteckt
und mit
GuiSetState() stellts du die gui wider her!

Der Matze

Super

ich danke für Eure Hilfe. Ich habe es nun geschaft, meine ersten Scripte mit AutoIT zu erstellen.

Nun will ich euch auch nicht der Ergebnis vorenthalten.

Hier das erste, was den User auffordert, die Hardware anzuschließen:

C

Dim $windowTitle, $var, $reg_read


$reg_read = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\{D26A9CEC-FD55-41BE-B6F1-F290F66C510F}", "DisplayName") ; Sucht nach diesem Eintrag in Registry.
	if $reg_read = "Manhattan Easy  Dock" Then ; Wenn der Eintrag vorhanden ist,...
		Exit ;  wird die Installation abgebrochen.
	ElseIf $reg_read <> "Manhattan Easy  Dock" Then ; Wenn der Eintrag nicht vorhanden ist,... (anders (größer/kleiner/ungleich))
		call ("GO") ;  wird die Funktion "GO" aufgerufen.
	EndIf


;Functions
Func GO ()
$var = RegRead("HKEY_USERS\.DEFAULT\Control Panel\International", "sLanguage") ; Sucht nach der verwendeten Sprachversion des SYSTEMS bzw. des Standard Users.
	if $var = "DEU" Then ; Wenn die Sprache Deutsch ist....
		call ("DEU") ; Rufe die Funktion "DEU" auf
	elseif $var = "ENU" Then ; Wenn die Sprache Englisch ist....
		call ("ENU"); Rufe die Funktion "ENU" auf
	elseif $var = "JPN" Then ; Wenn die Sprache Japanisch ist....
		call ("JPN"); Rufe die Funktion "JPN" auf
	elseif $var <> "DEU" or "ENU" or "JPN" Then ; Wenn die Sprache weder Deutsch, Englisch noch Japanisch ist....
		call ("ENU"); Rufe die Funktion "ENU" auf
	EndIf	
EndFunc


Func DEU()
	$answer = MsgBox (1, "Bitte Hardware anschliessen", "Bitte verbinden Sie nun die Manhattan Easy DOCK Multi-Portdocking Station mit Ihrem PC und bestätigen Sie dies mit einem klick auf OK.") ; Öffnet ein Fenster, dass den User auffordert die Hardware anzuschliessen.")
	if $answer = 1 Then ; Wenn dieses Fenster mit OK bestätigt wird,... 
			Call ("Install") ; die Funktion "Install" aufgerufen.
	Elseif $answer = 2 Then ; Wenn dieses Fenster mit Cancel bestätigt wird,... 
			Exit ; wird die Installation abgebrochen.
	EndIf
EndFunc


Func ENU()
	$answer = MsgBox (1, "Please connect your Hardware", "Please connect your Manhattan Easy DOCK Multi-Portdocking Station with your PC and klick OK.")
	if $answer = 1 Then
			Call ("Install")
	Elseif $answer = 2 Then
			Exit
	EndIf
EndFunc


Func JPN()
#include <GUIConstants.au3>


$Form1 = GUICreate("Manhattan Easy DOCK Multi-Portdocking Station", 587, 118, 192, 125) ; Erstellt ein Fenster mit dem Namen "Manhattan Easy DOCK Multi-Portdocking Station"
GUISetBkColor(0xE7F784) ; setzt die Hintergrundfarbe des Fensters
$Pic = GUICtrlCreatePic(@ScriptDir &'\JPN_OK.JPG', 8, 8, 574, 75) ; Erstellt ein Bild in dem gerade (oben) erstellten Fenster. (Setzt voraus, dass das Bild im gleichen Ordner wie das Script liegt.
$ok = GUICtrlCreateButton("&Ok", 150, 88, 100, 25) ; Erstellt einen Button mit "OK"
$cancel = GUICtrlCreateButton("&Cancel", 350, 88, 100, 25) ; Erstellt einen Button mit "Cancel"
GUISetState()
	While 1
		$msg = GuiGetMsg()
			Select
				Case $msg = $GUI_EVENT_CLOSE
					ExitLoop
				Case $msg = $ok ; Wenn die Nachricht der GUI "OK" lautet (der User hat OK angeklickt),...
					GuiDelete() ; wird das Fenster geschlossen und ...
					Call ("Install") ; die Funktion Install aufgerufen.
				Case $msg = $cancel ; Wenn die Nachricht der GUI "Cancel" lautet (der User hat Cancel angeklickt),...
					Exit ; ird das Fenster geschlossen und die Installation nicht ausgeführt.
				EndSelect
	WEnd			
Exit
EndFunc


Func Install()
	BlockInput (1)  ; Schaltet die Tastatur und Maus aus, damit der User nicht eingreifen kann.
	If FileExists (@ScriptDir & '\Manhattan-Easy-Dock-en-01.msi') then ; Überprüft, ob in dem Ordner wo das Script liegt die Datei "Manhattan-Easy-Dock-en-01.msi" vorhanden ist.
		runwait ('msiexec /i "' & @ScriptDir & '\Manhattan-Easy-Dock-en-01.msi" /qn') ; Wenn diese Datei vorhanden ist, wird die MSI im silent Modus (/qn) ausgeführt. Der User sieht nichts.
	EndIf
	BlockInput (0)	; Schaltet die Tastatur und Maus ein
EndFunc

Alles anzeigen

und hier das zweite, was dazu da ist, sämtliche Abfragen (Fenster) zu schließen:

Code

Dim $windowTitle, $var
Opt("WinTitleMatchMode", 4)


$var = RegRead("HKEY_USERS\.DEFAULT\Control Panel\International", "sLanguage") ; Sucht nach der verwendeten Sprachversion des SYSTEMS bzw. des Standard Users.
	if $var = "DEU" Then ; Wenn die Sprache Deutsch ist....
		call ("DEU") ; Rufe die Funktion "DEU" auf
	elseif $var = "ENU" Then ; Wenn die Sprache Englisch ist....
		call ("ENU"); Rufe die Funktion "ENU" auf
	elseif $var = "JPN" Then ; Wenn die Sprache Japanisch ist....
		call ("JPN"); Rufe die Funktion "JPN" auf
	elseif $var <> "DEU" or "ENU" or "JPN" Then ; Wenn die Sprache weder Deutsch, Englisch noch Japanisch ist....
		Exit ; Dann verlasse dieses Script! Die Installation der Anwendung wird nicht durchgeführt!
	EndIf	


;Functions


Func DEU()
	$windowTitle = "Neue Hardware gefunden" ; Wartet auf das Fenster, wo der Admin und das Admin PW angegeben muss.
	WinWait($windowTitle, "", 120) ; Wartet max. 120 Sekunden auf das Fenster.
	ControlClick ($windowTitle, "USB", "Button3") ; bestätigt das Fenster mit Abbrechen.
	Sleep (5000)
	$windowTitle = "Hardwareinstallation" ; Wartet auf das Fenster, dass uns darüber Informiert das wir keine ausreichenden Berechtigungen besitzen.
	WinWait($windowTitle, "", 120) ; Wartet max. 120 Sekunden auf das Fenster.
	ControlClick ($windowTitle, "Admin", "Button1") ; bestätigt das Fenster mit OK.
	Sleep (5000)
	$windowTitle = "Softwareinstallation" ; Wartet auf das Fenster (Treiber Cert. Serial Port) 
	WinWait($windowTitle, "", 120) ; Wartet max. 120 Sekunden auf das Fenster.
	ControlClick ($windowTitle, "Soft", "Button1") ; Bestätigt das Fenster mit Installation fortsetzen
	Sleep (9000)
	$windowTitle = "Hardwareinstallation" ; Wartet auf das Fenster (Treiber Cert. USB to LAN)
	WinWait($windowTitle, "", 120) ; Wartet max. 120 Sekunden auf das Fenster.
	ControlClick ($windowTitle, "", "Button1") ; Bestätigt das Fenster mit Installation fortsetzen
EndFunc


Func ENU()
	$windowTitle = "Found New Hardware"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "USB", "Button3")
	Sleep (5000)
	$windowTitle = "Hardwareinstallation"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "Admin", "Button1")
	Sleep (5000)
	$windowTitle = "Softwareinstallation"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "Soft", "Button1")
	Sleep (9000)
	$windowTitle = "Hardwareinstallation" 
	WinWait($windowTitle, "", 120) 
	ControlClick ($windowTitle, "", "Button1") 
EndFunc


Func JPN()
	$windowTitle = "classname=#32770"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "USB", "Button3")
	Sleep (5000)
	$windowTitle = "classname=#32770"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "Admin", "Button1")
	Sleep (5000)
	$windowTitle = "classname=#32770"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "Soft", "Button1")
	Sleep (9000)
	$windowTitle = "classname=#32770"
	WinWait($windowTitle, "", 120)
	ControlClick ($windowTitle, "", "Button1")
EndFunc

Alles anzeigen

Search keywords: Fenster schließen; Fenster erstellen; Bild in Fenster einfügen; GUI abfragen; GUI schließen.

Danke bis bald

Der Matze

**peethebee**

Hallo!

Wir haben gerne geholfen und freuen uns, dass du dein Ergebnis mit uns teilst. Danke!

Bis zum nächsten Problem *g*,
peethebee