Ich habe Windows 7 und das mit der Farbe gerade hinbekommen, Danke soweit !
Aber wie kann ich nun ein Bild einfügen?
Beiträge von Nathax
-
-
Ich bekomms nicht hin.
Wo bekomm ich die Includes her und wo kann ich den Bildpfad angeben? -
Hallo, wie kann ich ein Bild hinter ein Tabmenü setzten, sodass alle Controls sowie die Tabs richtig dargestellt werden?
-
Ich bin das Programm nochmal Schritt für Schrittt durchgegangen und habe den Fehler gefunden.
Ich würde ihn gern beschreiben, doch dazu müsste ich mindestens 50% meiner 2500 Zeilen erläutern.
Eins kann ich aber sagen, dieser Fehler ist echt komisch und hat nichts mit einem Befehl zu tun.
Viel eher lag es an einer Schleife, die abgeändert werden musste, damit nun endlich wieder alles funktioniert.
Danke an alle, die versucht haben, mir zu helfen -
Ich hab doch schon viel gepostet, der Rest funktioniert ja. Nur halt nicht das Auslesen. Hier nochmal die Funktion die beim Klick auf Start ausgeführt wird:
Spoiler anzeigen
[autoit]GUICtrlSetState($StartButton, $GUI_DISABLE)
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetState($RestartButton, $GUI_DISABLE)
GUICtrlSetState($BackupButton, $GUI_DISABLE)
GUICtrlSetState($HideLabel, $GUI_SHOW)
HotKeySet("{RIGHT}", "_blockTabs")GUICtrlSetData($ChatLogEdit, "")
[/autoit] [autoit][/autoit] [autoit]If $RamBoost = "" Then
[/autoit] [autoit][/autoit] [autoit]
Run(@ScriptDir & "\Files\Server\run0.bat", @ScriptDir & "\Files\Server\", @SW_HIDE)
ElseIf $RamBoost = "1024MB" Then
Run(@ScriptDir & "\Files\Server\run1.bat", @ScriptDir & "\Files\Server\", @SW_HIDE)
ElseIf $RamBoost = "2048MB" Then
Run(@ScriptDir & "\Files\Server\run2.bat", @ScriptDir & "\Files\Server\", @SW_HIDE)
ElseIf $RamBoost = "3072MB" Then
Run(@ScriptDir & "\Files\Server\run3.bat", @ScriptDir & "\Files\Server\", @SW_HIDE)
EndIf
FileDelete(@ScriptDir & "\Files\Server\server.log")AdlibRegister("_getLog", 1000)
[/autoit] [autoit][/autoit] [autoit]WinWait("[class:ConsoleWindowClass]", "")
[/autoit] [autoit][/autoit] [autoit]
$CMDTitle = WinGetTitle("[class:ConsoleWindowClass]")While 1
[/autoit]
Sleep(50)
If StringInStr(GUICtrlRead($ChatLogEdit), "For help, type") <> "" Then ExitLoop
WEnd
$Aktiv = True
AdlibUnRegister("_blockTabs")
GUICtrlSetData($StartButton, "Stop")
GUICtrlSetState($StartButton, $GUI_ENABLE)
GUICtrlSetState($RestartButton, $GUI_ENABLE)
GUICtrlSetState($CMDKickButton, $GUI_ENABLE)
GUICtrlSetState($CMDGiveItemButton, $GUI_ENABLE)
GUICtrlSetState($CMDBanButton, $GUI_ENABLE)
GUICtrlSetState($CMDBanIPButton, $GUI_ENABLE)
GUICtrlSetState($CMDPardonButton, $GUI_ENABLE)
GUICtrlSetState($CMDPardonIPButton, $GUI_ENABLE)
GUICtrlSetState($CMDTellButton, $GUI_ENABLE)
GUICtrlSetState($CMDTeleportButton, $GUI_ENABLE)
GUICtrlSetState($CMDSayButton, $GUI_ENABLE)
GUICtrlSetState($CMDSetTimeButton, $GUI_ENABLE)
GUICtrlSetState($CMDOpButton, $GUI_ENABLE)
GUICtrlSetState($CMDDeOpButton, $GUI_ENABLE)
GUICtrlSetState($CMDGiveXPButton, $GUI_ENABLE)
GUICtrlSetState($CMDToggleButton, $GUI_ENABLE)
GUICtrlSetState($BackupButton, $GUI_ENABLE)
GUICtrlSetState($CommandInput, $GUI_ENABLE)
GUICtrlSetState($CMDHelpButton, $GUI_ENABLE)
GUICtrlSetState($HideLabel, $GUI_HIDE)
HotKeySet("{RIGHT}") -
Kann mir denn einer die am häufigsten verwendeten Befehle sagen, die nur mit 64-Bit laufen?
-
Ich weiß echt nicht was ich machen soll -.-
-
Ok, hier die Teile, die dafür zuständig sind:
Spoiler anzeigen
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$ServerControlTab = GUICtrlCreateTabItem("Server-Control")$ChatLogEdit = GUICtrlCreateEdit("", 8, 92, 675, 401, BitOR($ES_READONLY, $ES_WANTRETURN, $WS_VSCROLL, $WS_HSCROLL))
[/autoit] [autoit][/autoit] [autoit]
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
GUICtrlSetBkColor(-1, 0xffffff)...
[/autoit] [autoit][/autoit] [autoit]AdlibRegister("_getLog", 1000)
[/autoit] [autoit][/autoit] [autoit]...
[/autoit] [autoit][/autoit] [autoit]Func _getLog()
[/autoit]
If StringReplace(StringReplace(FileRead(@ScriptDir & "\Files\Server\server.log"), @YEAR, @CRLF & @YEAR), @CRLF, "", 1) <> $LogOld Then
GUICtrlSetData($ChatLogEdit, StringReplace(StringReplace(FileRead(@ScriptDir & "\Files\Server\server.log"), @YEAR, @CRLF & @YEAR), @CRLF, "", 1))
_GUICtrlEdit_LineScroll($ChatLogEdit, 0, _GUICtrlEdit_GetLineCount($ChatLogEdit))
$LogOld = StringReplace(StringReplace(FileRead(@ScriptDir & "\Files\Server\server.log"), @YEAR, @CRLF & @YEAR), @CRLF, "", 1)
EndIf
EndFunc ;==>_getLogDas mit den Pfaden kann ja eigentlich nicht sein, da es keinen Unterscheid macht, ob ich Rechtsklick->Run oder F5 in Scite mache.
-
Dann funktioniert es aber wie gesagt ja nicht
-
Habe ich mir schon gedacht. Was soll ich nun machen, damit das Programm auch bei 32er Nutzer geht?
-
Sry, aber das Programm wird nacher verkauft, deshalb kann ich weder den Code noch die Exe hier preisgeben. Die Exe ist im richtigen Verzeichnis.
Edit: Mache ich Run(x64) bzw. Compile x64 so funktioniert es
Mit Compile(x64) ebenso, aber können das jetzt alle, d.h. XP-Nutzer/Win7-Nutzer mit 32-Bit benutzen? -
Hallo,
ich habe ein Programm, dass einen durch eine Batch-Datei erstellten Text in ein Edit-Feld schreibt, geschrieben.
Wenn ich in Scite F5 drücke funktioniert auch aller super, aber wenn ich Rechtslick->Run mache oder compiliere und dann die Exe starte erscheint kein Text in der Edit.
Was soll ich machen? -
Versuchs dochmal mit dem schreiben so:
[autoit]Controlsend($CMDTitel, "", "", $Text)
[/autoit] -
Danke, aber ich glaube ich machs einfach nur mit einem Tab-Menü.
Wer die Lösung hat, kann sie natürlich noch posten. -
So müsste es doch gehen:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=C:\_AutoIT\AutoIt.de\Form1.kxf
$Form1 = GUICreate("Form1", 471, 293, 567, 235)
$Group1 = GUICtrlCreateGroup("Group1", 24, 24, 425, 217)
$Radio1 = GUICtrlCreateRadio("Radio1", 40, 48, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Noch eine Radio-Option", 24, 256, 427, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlDelete($Group1)
GUICtrlDelete($Radio1); wie noch einen RadioButton hinzufügen?
$Group1 = GUICtrlCreateGroup("Group1", 24, 24, 425, 217)
$Radio1 = GUICtrlCreateRadio("Radio1", 40, 48, 113, 17)
$Radio1 = GUICtrlCreateRadio("Radio2", 40, 68, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndSwitch
WEndEdit: So hast dus mit nem Array:
Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#Region ### START Koda GUI section ### Form=C:\_AutoIT\AutoIt.de\Form1.kxfDim $Radio[10]
[/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate("Form1", 471, 293, 567, 235)
[/autoit] [autoit][/autoit] [autoit]
$Group1 = GUICtrlCreateGroup("Group1", 24, 24, 425, 217)
$Radio[0] = GUICtrlCreateRadio("Radio", 40, 48, 113, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Noch eine Radio-Option", 24, 256, 427, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###$j = 0
[/autoit] [autoit][/autoit] [autoit]While 1
[/autoit]
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If $j < 8 Then $j += 1
GUICtrlDelete($Group1)
GUICtrlDelete($Radio)
$Group1 = GUICtrlCreateGroup("Group1", 24, 24, 425, 217)
For $i = 0 to UBound($j)
$Radio[$j] = GUICtrlCreateRadio("Radio"&$j, 40, 48+$j*20, 113, 17)
Next
GUICtrlCreateGroup("", -99, -99, 1, 1)
EndSwitch
WEnd -
Hallo, wie kann ich Controls erzeugen, die dann nur in einem Untertab angezeigt werden?
Ich möchte z.B. einen Button im Control-Reiter.
Das ist mein Code:Spoiler anzeigen
[autoit]#include <GUIConstantsEx.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <TabConstants.au3>
#include <GuiTab.au3>
#include <WindowsConstants.au3>#Region ### START Koda GUI section ### Form=
[/autoit] [autoit][/autoit] [autoit]
$MainGui = GUICreate("Server-Tool", 992, 714, 297, 182)
GUISetFont(10, 800, 0, "Arial Narrow")$MainTab = _GUICtrlTab_Create($MainGui, 0, 0, 1024, 749)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlTab_InsertItem($MainTab, 0, "Server")
_GUICtrlTab_InsertItem($MainTab, 1, "File-Management")
_GUICtrlTab_InsertItem($MainTab, 2, "Premium-Account")$ServerSubTab = _GUICtrlTab_Create($MainTab, 10, 27, 975, 680)
[/autoit] [autoit][/autoit] [autoit]
_GUICtrlTab_InsertItem($ServerSubTab, 0, "Control")
_GUICtrlTab_InsertItem($ServerSubTab, 1, "Properties")
_GUICtrlTab_InsertItem($ServerSubTab, 2, "Plugins")#cs
[/autoit] [autoit][/autoit] [autoit]
$TabMain = GUICtrlCreateTab(0, 0, 1024, 749)$ServerSubTab = GUICtrlCreateTabItem("Server")
[/autoit] [autoit][/autoit] [autoit]
GUICtrlCreateTabItem("")
$PropertiesTab = GUICtrlCreateTab(0, 0, 1024, 749)
$PropertiesItem = GUICtrlCreateTabItem("Properties")
GUICtrlCreateTabItem("")$PremiumAccountTab = GUICtrlCreateTabItem("Premium-Account")
[/autoit] [autoit][/autoit] [autoit]
$FileManagementTab = GUICtrlCreateTabItem("File-Management")
$SettingsItem = GUICtrlCreateMenu("&Settings")
$AboutItem = GUICtrlCreateMenu("&About")#
#ceGUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit]
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit]
$Msg = GUIGetMsg()Switch (_GUICtrlTab_GetCurSel($MainTab))
[/autoit] [autoit][/autoit] [autoit]
Case 0
ControlShow("","",$ServerSubTab)
Case 1
ControlHide("","",$ServerSubTab)
Case 2
ControlHide("","",$ServerSubTab)
EndSwitchSwitch $Msg
[/autoit] [autoit][/autoit] [autoit]
Case $GUI_EVENT_CLOSE
_exit()
EndSwitch
WEndFunc _exit()
[/autoit] [autoit][/autoit] [autoit]
Exit
EndFuncFunc GetDlgCtrlID($hwndCtl)
[/autoit]
Local $aRes = DllCall("user32.dll", 'int', 'GetDlgCtrlID','hwnd', $hwndCtl)
Return $aRes[0]
EndFunc -
Hi, weiß jemand wie das geht?
Ich meine z.B., dass man bei Druck auf die "3" die Form, worüber die Maus ist, anklickt. -
^^, wenn du schon son prozessor nimmst würde ich auch das mb empfehlen
-
-