Hallo tklausl,
vermutlich generiert die Firewall einen Hash (MD5, oder ähnliches) und dieser ist ja jedesmal verschieden,
mfg autoBert
Hallo tklausl,
vermutlich generiert die Firewall einen Hash (MD5, oder ähnliches) und dieser ist ja jedesmal verschieden,
mfg autoBert
Hallo Wonder,
in eigenen Skripten kannst du dafür Funktionen der GuiRichEdit.au3 nehmen. Hier kannst du dir die Hilfe herunterladen, die Funktionen findest du unter GuiRichEdit Management bei den beutzerdefinierten Funktionen. Nützlich hierfür
[autoit]_GUICtrlRichEdit_FindText
_GUICtrlRichEdit_SetCharAttributes
.
Falls es eine Fremdanwendung ist, solltest du etwas genauer werden nicht dass alle ihre Glaskugel putzen müssen um dir eine Lösung anbieten zu können,
mfg autoBert
Hallo rewejo,
das leeren von Arrays kannst du auch durch eine Neudeklaration erreichen, wenn du also
[autoit]Global $avArray[1], $loesung[1]
[/autoit]in die func aufgabe nimmst und meinen vorherigen Post (#5) beachtest sollte alles klappen ,
mfg autoBert
ist es schlimm wenn ich etwas Poste um den thread am leben zu erhalten?false ja , beleehrt mich ums bessere , da das Fileread problemm weiterhin besteht
führt in der Regel dazu, dass der Thread ignoriert wird. 24 h sind hier meines Erachtens nach mind. angebracht,
mfg autoBert
Hallo Ophiel,
tausche Func _Read_LinksFile gegen diese:
[autoit]Func _Read_LinksFile()
_FileReadToArray(@ScriptDir & "\data\links.txt", $aRecords) ;<==================================0
If IsArray($aRecords) Then
;_ArrayDisplay($aRecords)
If $aRecords[0] > 1 Then
For $x = 1 To $aRecords[0]
GUICtrlSetData($list, $aRecords[$x])
Next
EndIf
EndIf
EndFunc ;==>_Read_LinksFile
PS.: mit den Bildern sieht es richtig gut aus,
Edit: mit dem Abbrechen-Button gefällt mir die Optik besser
mfg autoBert
Hallo Mr_gitarre,
da Oscar keinen Zufallsgenerator eingebaut hat, sollte es eigentlich unmöglich sein auf einem Rechner zu 2 Verschiedenen Ergebnissen zu kommen. Besorge dir die Ausgabe 24 von CT mit CD (€ 3,70) da sind Hardware-Diagnose Programme dabei. Ich tippe nämlich auf einen Hardware- bzw. Treiberfehler auf deinem System, da ausser dir ja noch niemand mit diesem Tool-Probleme hatte,
mfg autoBert
@Grossvater: setze die ms auf 5 oder 10, denn bei mir sind die Werte mit 1 ms schlechter als mit 2.
@Fr34k: nur nicht übertreiben, den im Skript sind 2 ms eingestellt also 5* wäre optimal, selbst wenn du auf 1 ms heruntergegangen bist sind es <= 10
denke aber, für exakte Timings gibt es bessere Sprachen
@Threadersteller setze bitte das Thema auf gelöst,
mfg autoBert
Hallo ophiel,
hier die überarbeitete Version:
#region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=C:\Users\PC\Desktop\Logo Test\2\Etarus.ico
#AutoIt3Wrapper_Res_Description=Suchmaschinen Optimierer
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=Copyright by Etarus
#AutoIt3Wrapper_Res_Language=1031
#endregion ;**** Directives created by AutoIt3Wrapper_GUI ****
#include <GUIConstants.au3>
#include <IE.au3>
#include <Array.au3>
#include <File.au3>
Global $list
Global $aRecords[1] ;<==================== muss ein Array sein
$frmMain = GUICreate("Suchmaschinen Optimierer - Startseite", 600, 420)
GUISetFont(14, 400, 0, "Comic Sans MS")
$mnuFile = GUICtrlCreateMenu("Datei")
$mnuStart = GUICtrlCreateMenuItem("Start", $mnuFile)
$mnuExit = GUICtrlCreateMenuItem("Schließen", $mnuFile)
$mnuVw = GUICtrlCreateMenu("Verwaltung")
$mnuVw_links = GUICtrlCreateMenuItem("Link verwaltung", $mnuVw)
$mnuInfo = GUICtrlCreateMenu("Info")
$mnuHelp = GUICtrlCreateMenuItem("Hilfe", $mnuInfo)
GUICtrlCreatePic(@ScriptDir & "\sdk\bk_main.jpg", 0, 0, 600, 400)
GUICtrlSetState(-1, $GUI_DISABLE)
$picStartMain = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 120, 260, 150, 50)
$picStartMain = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 330, 260, 150, 50)
$lblStartMain = GUICtrlCreateLabel("Start", 145, 260, 100, 40)
GUICtrlSetFont(-1, 28, 400, 0, "MV Boli")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
$lblExitMain = GUICtrlCreateLabel("Beenden", 335, 260, 140, 40)
GUICtrlSetFont(-1, 28, 400, 0, "MV Boli")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel("Gebrauchsanweisung:", 180, 15, 250, 35)
GUICtrlSetFont(-1, 20, 400, 4, "MV Boli")
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlCreateLabel('Um einen neuen Link hinzuzufügen, wählen Sie unter "Verwaltung" den Menüpunkt "Link Verwaltung" aus. Nun wird ihnen ein neues Fenster gezeigt, in dem Sie ihre Links bequem verwalten können.', 10, 55, 580, 100)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUISetState(@SW_SHOW)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$frmVw = GUICreate("Suchmaschinen Optimierer - Link Verwaltung", 600, 400)
GUISetBkColor(0xd19b07)
GUISetFont(14, 400, 0, "Comic Sans MS")
GUICtrlCreateLabel("Link Verwaltung", 210, 5, 200, 35)
GUICtrlSetFont(-1, 18, 400, 0, "Comic Sans MS")
$list = GUICtrlCreateList("", 10, 40, 580, 250)
GUICtrlSetFont(-1, 14, 400, 0, "Arial")
$picSaveVw = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 25, 340, 250, 50)
$lblSaveVw = GUICtrlCreateLabel("Speichern", 90, 350, 120, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
$picInsertVw = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 25, 285, 250, 50)
$lblInsertVw = GUICtrlCreateLabel("Link hinzufügen", 55, 295, 200, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
$picDeleteVw = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 325, 285, 250, 50)
$lblDeleteVw = GUICtrlCreateLabel("Link entfernen", 360, 295, 200, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
$picCancelVw = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 325, 340, 250, 50)
$lblCancelVw = GUICtrlCreateLabel("Abbrechen", 385, 350, 125, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
_Read_LinksFile() ;<===================
GUISetState(@SW_HIDE)
$frmIns = GUICreate("Suchmashienen Optimierer - Link hinzufügen", 400, 200)
GUISetFont(14, 400, 0, "Comic Sans MS")
GUISetBkColor(0xd19b07)
GUICtrlCreateLabel("Bitte geben Sie den neuen Link an.", 50, 20, 300, 35)
GUICtrlCreateLabel("Link:", 15, 60, 50, 20)
$inpUrl = GUICtrlCreateInput("", 80, 57, 250, 24)
GUICtrlSetFont(-1, 10, 400, 0, "")
$picOkIns = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 25, 100, 165, 50)
$lblOkIns = GUICtrlCreateLabel("Bestätigen", 40, 110, 135, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
$picCancelIns = GUICtrlCreatePic(@ScriptDir & "\sdk\bk_button.jpg", 210, 100, 165, 50)
$lblCancelIns = GUICtrlCreateLabel("Abbrechen", 230, 110, 135, 45)
GUICtrlSetBkColor(-1, $GUI_BKCOLOR_TRANSPARENT)
GUICtrlSetFont(-1, 20, 400, 0, "MV Boli")
GUISetState(@SW_HIDE)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]While 1
$msg = GUIGetMsg(1)
Switch $msg[1]
Case $frmMain
Switch $msg[0]
Case $GUI_EVENT_CLOSE, $picStartMain, $lblExitMain, $mnuExit
Exit
Case $picStartMain, $lblStartMain, $mnuStart
MsgBox(0, "Test", "TestText")
Case $mnuVw_links
_Read_LinksFile() ;<=============== wäre meine Erachtens nach sinnvoll
GUISetState(@SW_SHOW, $frmVw)
EndSwitch
Case $frmVw
Switch $msg[0]
Case $GUI_EVENT_CLOSE, $picCancelVw, $lblCancelVw
GUISetState(@SW_HIDE, $frmVw) ;<==================
Case $picDeleteVw, $lblDeleteVw
If GUICtrlRead($list) <> "" Then
$realy_delete = MsgBox(260, "Suchmashinen Optimierer - Link Verwaltung", 'Möchten Sie den Link: "' & GUICtrlRead($list) & '" wirklich aus der Liste entfernen?')
If $realy_delete = 6 Then
_ArrayDeleteInhalt($aRecords, GUICtrlRead($list))
EndIf
Else
MsgBox(0, "Suchmashinen Optimierer - Link Verwaltung", "Fehler - Bitte wählen Sie einen Link in der oberigen Liste aus.")
EndIf
GUICtrlSetData($list, "")
If $aRecords <> "" Then
For $y = 1 To UBound($aRecords) - 1
GUICtrlSetData($list, $aRecords[$y])
Next
EndIf
Case $picSaveVw, $lblSaveVw
FileDelete(@ScriptDir & "\data\links.txt")
FileWrite(@ScriptDir & "\data\links.txt", "")
If $aRecords <> "" Then
For $y = 1 To UBound($aRecords) - 1
FileWriteLine(@ScriptDir & "\data\links.txt", $aRecords[$y])
Next
EndIf
GUISetState(@SW_HIDE, $frmVw)
Case $picInsertVw, $lblInsertVw
GUISetState(@SW_SHOW, $frmIns)
EndSwitch
Case $frmIns
Switch $msg[0]
Case $GUI_EVENT_CLOSE, $picCancelIns, $lblCancelIns
GUISetState(@SW_HIDE, $frmIns) ;<============
Case $picOkIns, $lblOkIns
_ArrayAdd($aRecords, GUICtrlRead($inpUrl))
GUICtrlSetData($list, "")
If $aRecords <> "" Then
For $y = 1 To UBound($aRecords) - 1
GUICtrlSetData($list, $aRecords[$y])
Next
EndIf
GUISetState(@SW_HIDE, $frmIns)
EndSwitch
EndSwitch
WEnd
Func _Read_LinksFile();<==================================
_FileReadToArray(@ScriptDir & "\data\links.txt", $aRecords)
If $aRecords <> "" Then
For $x = 1 To $aRecords[0]
GUICtrlSetData($list, $aRecords[$x])
Next
EndIf
EndFunc ;==>_Read_LinksFile
Func _ArrayDeleteInhalt(ByRef $array, $inhalt)
For $i = UBound($array) - 1 To 0 Step -1
If $array[$i] = $inhalt Then _ArrayDelete($array, $i)
Next
EndFunc ;==>_ArrayDeleteInhalt
die wichtigsten Änderungen sind mit ;<========== gekennzeichnet, desweiteren habe ich den Variablen in einer SearchAndReplace-Session mir angenehmere Namen gegeben,
PS.: kannst du bitte die Bilder zu den PIC-Controls einstellen
mfg autoBert
@Großvater,
ich habe es extra getestet, da ich auch erwartet hatte nicht unter 10 ms zu kommen, hier die Konsolenausgabe dazu:
00:00:00.00
00:00:00.00
00:00:00.01
00:00:00.01
00:00:00.01
00:00:00.01
00:00:00.01
00:00:00.02
00:00:00.02
00:00:00.02
00:00:00.02
00:00:00.03
00:00:00.03
00:00:00.03
00:00:00.03
00:00:00.03
00:00:00.04
00:00:00.04
00:00:00.04
00:00:00.04
00:00:00.04
00:00:00.05
00:00:00.05
00:00:00.05
00:00:00.06
00:00:00.06
00:00:00.06
00:00:00.06
00:00:00.07
00:00:00.07
00:00:00.07
00:00:00.08
00:00:00.08
00:00:00.08
00:00:00.09
00:00:00.09
00:00:00.09
00:00:00.10
00:00:00.10
00:00:00.10
00:00:00.11
00:00:00.11
00:00:00.11
00:00:00.11
00:00:00.11
00:00:00.12
00:00:00.12
00:00:00.12
00:00:00.12
00:00:00.12
00:00:00.13
00:00:00.13
00:00:00.13
00:00:00.13
00:00:00.13
00:00:00.14
00:00:00.14
00:00:00.14
00:00:00.14
00:00:00.14
00:00:00.15
00:00:00.15
00:00:00.15
00:00:00.15
00:00:00.16
00:00:00.16
00:00:00.16
00:00:00.16
00:00:00.16
00:00:00.17
00:00:00.17
00:00:00.17
00:00:00.17
00:00:00.18
00:00:00.18
00:00:00.18
00:00:00.18
00:00:00.18
00:00:00.19
00:00:00.19
00:00:00.19
00:00:00.19
00:00:00.19
00:00:00.20
00:00:00.20
00:00:00.20
00:00:00.21
00:00:00.22
00:00:00.22
00:00:00.22
00:00:00.23
00:00:00.23
00:00:00.23
00:00:00.23
00:00:00.24
00:00:00.24
00:00:00.24
00:00:00.24
00:00:00.25
00:00:00.25
00:00:00.25
00:00:00.25
00:00:00.25
00:00:00.26
00:00:00.26
00:00:00.26
00:00:00.26
00:00:00.27
00:00:00.27
00:00:00.27
00:00:00.27
00:00:00.27
00:00:00.28
00:00:00.28
00:00:00.28
00:00:00.28
00:00:00.28
00:00:00.29
00:00:00.29
00:00:00.30
00:00:00.30
00:00:00.31
00:00:00.31
00:00:00.31
00:00:00.31
00:00:00.32
00:00:00.32
00:00:00.32
00:00:00.32
00:00:00.32
00:00:00.33
00:00:00.33
00:00:00.33
00:00:00.33
00:00:00.34
00:00:00.35
00:00:00.35
00:00:00.36
00:00:00.36
00:00:00.36
00:00:00.37
00:00:00.37
00:00:00.37
00:00:00.37
00:00:00.37
00:00:00.38
00:00:00.38
00:00:00.38
00:00:00.38
00:00:00.39
00:00:00.39
00:00:00.39
00:00:00.39
00:00:00.39
00:00:00.40
00:00:00.40
00:00:00.40
00:00:00.40
00:00:00.40
Alles anzeigen
Skript ist weiter oben.
mfg autoBert
autoBert: siehe mein Post
ja gleiches Prinzip, schon oft probiert, nur durch ExitLoop spar ich ein paar ms
Dann nimm meine Version, welche von autoBert abgeändert wurde... Oder ist es seine Version?^^
Kp, nimm die von autoBerts Post, dann gehts
deine Version kann nicht laufen da EXIT
Ich dachte mehr in diese Richtung
ideale Lösung, da nochmals ein paar ms eingespart werden.
noch eine Lösung:
Global $sUser = EnvGet("Username")
MsgBox($sUser)
Global $pfad = "G:\Installationen\Installationen.exe"
Global $abenutzername[3] = ["autoBert", "i2c", "m-obi"]
_ArraySearch($abenutzername, $sUser)
If @error Then
MsgBox(0, "angemeldet als " & $sUser, "Sie sind zur Installation nich berechtigt!")
Exit
EndIf
hier wird keine TXT-Datei verwendet, der User hat sich ja der Windowsanmeldung unterzogen,
mfg autoBert
Dann muss das Skript so aussehen:
;...
$Input1 = GUICtrlCreateInput("", 136, 96, 169, 21)
$Input2 = GUICtrlCreateInput("", 136, 128, 169, 21)
;...
$sCom =@ComSpec & " /c netsh firewall add portopening TCP " & GUICtrlRead($Input1) & " " & GUICtrlRead($Input2)
RunWait($sCom, @SystemDir, @SW_HIDE)
ConsoleWrite($sCom & @CRLF);zur Syntax-Kontrolle
mfg autoBert
Hallo
erstmal danke für die Antwort. Ich habe mal gelesen das man Variablen aus dem Speicher lesen kann stimmt das ?
Stimmt prinzipiell, wird hier aber nicht gerne supportet > 90% zu Spiele-Bots verwendet. Wenn du die Software selbst schreibst, ist es doch kein Problem über TXT, INI, Registry oder direkt in der DB die Rückgaben zu hinterlegen. Schaffst du es denn mit BATch-Dateien die Errorlevel deiner Tools abzufragen, dann kannst du auch runwait, shellexecutewait nehmen
Du solltest also etwas mehr Angaben zu deinem Projekt machen, dann findet sich sicher eine Lösung.
mfg autoBert
Hallo Hikonia,
so sollte es klappen:
[autoit]$sCom =@ComSpec & " /c netsh firewall add portopening TCP " & $Variable1 & " " & $Variable2
RunWait($sCom, @SystemDir, @SW_HIDE)
ConsoleWrite($sCom & @CRLF); zur Kontrolle
Anhand der Consoleausgabe kannst du überprüfen ob die Syntax richtig ist
mfg autoBert
Hallo cloncker,
du kannst in einer mit AdlibRegister regsitrierten Func mit _SoundPos und _SoundLength prüfen ob das Lied zu Ende ist und wenn ja dann halt neu starten,
mfg autoBert
nimm stattdessen ExitLoop und eine Bool
Local $tmp = @ScriptDir & "\tmp.txt"
Local $atmp
_FileReadToArray($tmp, $atmp)
Global $pfad = "G:\Installationen\Installationen.exe"
Global $abenutzername[4] = ["Benutzer1", "Benutzer2", "Benutzer3", "Benutzer4"], $bAllowed = False
For $e = 1 To Ubound($atmp) - 1
For $r = 0 To Ubound($abenutzername) - 1
If $abenutzername[$r] = $atmp[$e] Then
$bAllowed = True
ExitLoop
EndIf
Next
Next
if not $bAllowed then
MsgBox(0, "", "Sie sind zur Installation nicht berechtigt!")
exit
EndIf
mfg AutoBert
Greenhorn:
Thx aber mit Fileinstall klappt das nicht.
Es kommt immer eine Fehlermeldung dass die Datei nicht gefunden wird...
Dann hast du FileInstall falsch angewendet!
@ XP-User:
Deine Methode probier ich seit ner stunde aus, will nicht hinhauen xD
Ich melde mich sobald ich es hab xD
Edit:
Die Datei wird zwar exportiert, aber nicht gleich geöffnet.
und ich hätte eben dass er die Datei gleich öffnet.
im Anhang das ergänzte Skript (Passwortabfrage musst du noch einbauen) zum Umwandeln deiner MP3-Datei lies dir ;Fremddateien "includen" (ohne FileInstall) von BugFix durch,
mfg autoBert
Hallo Raupi ,
Beim erstellen von Einträgen mit _GUICtrlListView_AddItem wird sowieso kein Controlid erzeugt, die Rückgabe ist der Indexeintrag.
dies habe ich leider nicht in der Hilfe nachgeschlagen, dadurch ist das obige Skript für den Papierkorb da ich von der ControlID als Rückgabe ausging.
Hier eine geänderte Version, die Einträge erzeuge ich jetzt mit GUICtrlCreateListViewItem:
[spoiler][autoit];#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GuiConstantsEx.au3>
#include <GuiListView.au3>
#include <Array.au3>
Opt('MustDeclareVars', 1)
$Debug_LV = False ; Check ClassName being passed to ListView functions, set to True and use a handle to another control to see it work
_Main()
Func _Main()
Local $hListView, $aRes, $lvItems[10], $aRes2[1][2], $msg
GUICreate("ListView Get Selected Indices", 400, 300)
$hListView = GUICtrlCreateListView("", 2, 2, 394, 268, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))
GUISetState()
; Add columns
_GUICtrlListView_AddColumn($hListView, "Column 1", 100)
; Add items
For $i = 0 To 9
$lvItems[$i] = GUICtrlCreateListViewItem("Item " & $i,$hListView)
If Random(0, 1, 1) = 1 Then
_GUICtrlListView_SetItemSelected($hListView, $i) ; Select this item
ConsoleWrite("ControlId: " & $lvItems[$i] & " ist selktiert!" & @CRLF)
Else
;Item is not selected
EndIf
Next
$aRes = _GUICtrlListView_GetSelectedIndices($hListView, True)
Local $j = $aRes[0], $s1, $s2
ReDim $aRes2[$j + 1][2]
For $i = 1 To UBound($aRes) - 1
$s1 = _GUICtrlListView_GetItemText($hListView, $aRes[$i])
For $j = 0 To 9
$s2 = _GUICtrlListView_GetItemText($hListView, $j)
If $s1 = $s2 Then
$aRes2[$i][0] = $i
$aRes2[$i][1] = $j+$lvItems[0]
EndIf
Next
Next
$aRes2[0][0] = "Index"
$aRes2[0][1] = "Control-ID"
_ArrayDisplay($aRes2)
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
[autoit][spoiler]anhand der Kontrolausgabe der IDs in der Konsole siehst du dass diese mit dem ArrayDisplay übereinstimmen. Mir fällt aber auch kein Grund ein die ControlID eines LV-Items zu ermitteln ein, da alle mir bekannten Funktionen zu LV-Items mit dem Index arbeiten,
mfg autoBert
Hallo DankeSchön,
hier eine Methode um über den Index an die ID zu kommen:
Skript entfernt neue Version siehe [ offen ] GetSelectedIndices -> controlid
diese Methode funktioniert aber leider nur wenn der Text des Items eindeutig ist. Aber wie Raupi schon schrieb ist die ID unnötig, da alle _GUICtrlListView_ Funktionen die LV-Items betreffen auf dem Index aufbauen,
mfg autoBert
Hallo MidStarter,
ich erstelle meine GUIs so, [list][*]Main
[autoit]$idfrmMain = GUICreate($sProgTitel & $sProgVer, $iWidht, $iHeight, IniRead($sLiz, "Pos", "x", "20"), IniRead($sLiz, "Pos", "y", "20"))
[/autoit][*]Child
[autoit]$idfrmInit = GUICreate($sProgTitel & " Einstellungen", 300, 275, -1, -1, BitOR($DS_MODALFRAME, $DS_SETFOREGROUND, $WS_SYSMENU), $WS_EX_TOOLWINDOW, $idfrmMain)
[/autoit]desweiteren deaktiviere ich noch die MainGUI mit
[autoit]GUISetState(@SW_DISABLE, $idfrmMain)
[/autoit]aber was hat das ganze mit Datenbanken zu tun?
mfg autoBert
Hallo rewejo,
einfach in der func loesung das exit weglassen und in der while-Schleife hinter loesung aufgabe() einfügen,
@stayawaknight & developer30: er möchte einen Mathetrainer für skripten. Oscar hat einen Mathe-Trainer (Grundrechenarten) gemacht, rewejo ist in der Schule aber schon etwas weiter
mfg autoBert