danke klappt
besten dank!
danke klappt
besten dank!
Hallo zusammen,
kann mir einer helfen wie ich den Input Buchstaben Alphabet alles zu kleine Buchstaben
bekomme (string)?
Lg Martin
Guten Morgen,
gibt es schon ein Update?
Lg Martin
OK danke erstmal
wie gesagt die mir helfen wollen bekommen auch was dafür.....
Lg
Ja das wäre nicht schlecht...
aber wie machen wir das weiter?
wer könnte das mit dem Drucken machen?
wäre nett wenn das einer machen könnte
Lg
Hi
Excel wäre besser, geht aber auch ini, bitte stimmt euch ab wehr was macht
Danke
Das ist ok
Danke!
hier habe ich schon mal das gerüst gebaut...
ist aber noch ausbau fähig
[autoit]#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <GuiToolbar.au3>
#include <TabConstants.au3>
#include <ToolbarConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=d:\Dokumente und Einstellungen\Administrator\Desktop\mama\Form1_1.kxf
$Form1_1 = GUICreate("Form1", 818, 594, 179, 231)
$Tab1 = GUICtrlCreateTab(56, 80, 649, 377)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$TabSheet1 = GUICtrlCreateTabItem("TabSheet1")
$TabSheet2 = GUICtrlCreateTabItem("TabSheet2")
$TabSheet3 = GUICtrlCreateTabItem("TabSheet3")
$TabSheet4 = GUICtrlCreateTabItem("TabSheet4")
$TabSheet5 = GUICtrlCreateTabItem("TabSheet5")
GUICtrlSetState(-1,$GUI_SHOW)
GUICtrlCreateTabItem("")
GUICtrlCreateTabItem("")
GUICtrlSetState(-1, $GUI_HIDE)
$ToolBar1 = _GUICtrlToolbar_Create($Form1_1, 0)
_GUICtrlToolbar_AddButton($ToolBar1, 0, 1)
_GUICtrlToolbar_AddButton($ToolBar1, 0, 1)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
LG
autoit.de/wcf/attachment/12326/
KODA Creater
autoit.de/wcf/attachment/12327/
Ich möchte nur das Programm,
weil meine meine Eltern die DB füllen wollen
Wir können über PN Reden...!
ja ich suche leute die mir helfen ein kleines Programm zu schreiben. (Ausfüll Hilfe DB)
ich würde auch was dafür geben.
Programm mit DB
kurzfassung : ich schreibe alles im Progamm rein und ich will zb. nur die Seite mit N ausdrucken und er sollte alles mit dem Namen N suchen und ausdrucken
so stelle ich mir das vor...
das layout über lasse ich euch wie ihr das macht...
Lg
ich suche freiwillige die mir helfen meine Register Karten fürs Telefonbuch zu erstellen mit Datenbank.
Es sollte so aussehen
Zitat- Eine Datenbank mit Name Telefonnummer (Lokal DB)
- eine suche in der DB wäre auch nicht schlecht
- das drucken auf die Registerkarte (siehe anhang)
für die fleißigen Helfer bekommen sie auch was dafür
(nach vorherige Absprache)
Ich würde mich auf eure Hilfe freuen
Gruß Martin
Hallo BugFix,
ich habe eine GUI für die Suche gebastelt,
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=.\Such_index.kxf
$Suche_index = GUICreate("Suche", 316, 231, -1, -1)
GUISetIcon("C:\WINDOWS\system32\shell32.dll", 22)
$GroupBox1 = GUICtrlCreateGroup("", 8, 0, 297, 193)
$suche_in_Button = GUICtrlCreateButton("suche in", 208, 40, 75, 25, 0)
$suche_Input = GUICtrlCreateInput("", 24, 40, 169, 21, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$WS_HSCROLL))
$suche_endungen_Combo = GUICtrlCreateCombo("", 24, 104, 257, 25, BitOR($CBS_DROPDOWN,$CBS_AUTOHSCROLL,$CBS_SORT,$WS_GROUP,$WS_HSCROLL,$WS_VSCROLL))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$suche_Button_start = GUICtrlCreateButton("&OK", 64, 200, 75, 25, 0)
$suche_Button_Close = GUICtrlCreateButton("&Close", 160, 200, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetData($suche_Input,"Auswahl")
$Combo_suche_endung = GUICtrlSetData($suche_endungen_Combo,"*.log|*.ini|*.txt|*.exe|*.bat|*.doc|*.xls","Auswahl")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete($Suche_index)
ExitLoop
Case $suche_in_Button
[/autoit] [autoit][/autoit] [autoit]GUICtrlSetData($suche_Input,"")
$var_suche = FileSelectFolder("Choose a folder.", "")
GUICtrlSetData($suche_Input,$var_suche,"Auswahl")
Case $suche_Button_start
$suche_Input1 = GUICtrlRead($suche_Input)
$suche_endungen_Combo1 = GUICtrlRead($suche_endungen_Combo)
If GUICtrlRead($suche_Input) = "" Or GUICtrlRead($suche_Input) = "Auswahl" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte geben sie den Suchpfad ein")
ElseIf GUICtrlRead($suche_endungen_Combo) = "" Or GUICtrlRead($suche_endungen_Combo) = "Auswahl" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte wählen sie die Endung aus")
Else
$suche_endungen_Combo1 = GUICtrlRead($suche_endungen_Combo)
MsgBox("","",$suche_Input1)
MsgBox("","",$suche_endungen_Combo1)
;~
Local $ret = _SearchTreeForFile($suche_Input1, $suche_endungen_Combo1)
;~ Local $ret = _SearchTreeForFile("c:\Temp", "KB920670.txt")
If $ret Then
MsgBox(0, 'Gefunden', $ret)
Else
MsgBox(0, 'Nicht Gefunden', 'Datei nicht im Suchpfad')
EndIf
EndIf
Case $suche_Button_Close
GUIDelete($Suche_index)
ExitLoop
EndSwitch
WEnd
;===============================================================================
; Function Name: _SearchTreeForFile($sRootPath, $sFileName)
; Description:: Dateisuche in einem Pfad und allen Unterpfaden
; Parameter(s): $sRootPath Startpfad der Suche
; $sFileName Name der gesuchten Datei
; Return Value(s): gefunden Pfad der gesuchten Datei
; n. gefunden 0
; Author(s): BugFix ([email='bugfix@autoit.de'][/email])
;===============================================================================
Func _SearchTreeForFile($sRootPath, $sFileName)
If StringRight($sRootPath, 1) <> '\' Then $sRootPath &= '\'
Local $sOutputPathBuffer = ''
Local $aRet = DllCall("imagehlp", 'long', 'SearchTreeForFile', 'str', _
$sRootPath, 'str', $sFileName, 'str', $sOutputPathBuffer)
If $aRet[0] = 1 Then
Return $aRet[3]
Else
Return 0
EndIf
EndFunc ;==>_SearchTreeForFile
ich habe nur ein Problem wenn mann mehre Dateien sucht dann klappt es nicht und sagt dann er hat nichts gefunden
Gruß Martin
Hallo zusammen,
ich habe ein Problem, wie kann ich mit Autoit Windows XP VPN Clients erstellen.
Geht es evtl mit WIN_API?
Gruß Martin
Alles anzeigenHi,
na das ist doch super das dein Script funktioniert.
Wie hast du denn die Inidatei aufgebaut? Habe schon lang nix mehr mit INI gemacht, daher weis ich net welche von deinen 2 Varianten die bessere ist.Die 1. ist gut wenn du einzelne werte in der INI-Section ändern möchtest.
Die 2. spart einfach platz und ist mit "StringSplit" einfach zu zerlegen.Also wäre es egal.
Aber nach al dem Lob jetzt der Tadel! Bitte beim Quelltext posten SPOILER verwenden sonst wird alles so lang.
Wenn Problem gelöst dann bitte auch Post auf gelöst setzten damit andere sehen FERTIG.MfG
Der_Doc
ich habe die ini so aufgebaut
[07cad-02]
mac=00114477
ip=192.168.1.1
netz=255.255.255.0
[09cad-04]
mac=00225588
ip=192.168.1.1
netz=255.255.255.0
[05cad-01]
mac=00225588
ip=192
netz=255.255.255.0
[04cad]
mac=0
ip=0
netz=255.255.255.0
Alles anzeigen
MFG
Martin
Hallo zusammen
hier ist das Fertige Script für Wake on lan.
Ich möchte mich bei allen bedanken die mir geholfen haben.
MFG
Martin Schmidt
; ----------------------------------------------------------------------------
;
; AutoIt Version: 3.1.0
; Author: Martin Schmidt <[email='martin.schmidt.bonnl@web.de'][/email]>
; Version 1.0
; Script Function:
;WOL GUI For Brain Slack http://www.depicus.com AutoIt script.
;
; ----------------------------------------------------------------------------
; Script Start - Add your code below here
; --------------------------------------------------------------------------------------------
#include-once
#include <File.au3>
#include <GUIConstants.au3>
#Include <File.au3>
#include <GuiConstantsEx.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <Misc.au3>
#include <Memory.au3>
#include <WinAPI.au3>
#include <StructureConstants.au3>
#include <GUIComboBox.au3>
#include <Constants.au3>
Global $_ghCBLastWnd
Global $Debug_CB = False
Dim $netz_config_ini = @scriptdir & "\netz-config.ini"
Dim $mac_config_ini = @scriptdir & "\mac-config.ini"
Dim $filew2 = "255.255.255.0|255.192.0.0|255.224.0.0|255.240.0.0|255.248.0.0|255.252.0.0|255.254.0.0|255.255.0.0|255.255.128.0|255.255.192.0|255.255.224.0|255.255.240.0|255.255.252.0|255.255.248.0|255.255.254.0|255.255.255.128|255.255.255.192|255.255.255.224|255.255.255.240|255.255.255.248|255.255.255.252"
If FileExists ($netz_config_ini) =False Then
IniWrite($netz_config_ini,"netz-bereich","netz",$filew2)
EndIf
#Region ### START Koda GUI section ### Form=d:\dokumente und einstellungen\administrator\desktop\wol\wol-gui.kxf
$Form1_1 = GUICreate("WOL-GUI", 416, 209, 323, 170)
$Button = GUICtrlCreateButton("Start", 104, 128, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Exit", 224, 128, 75, 25, 0)
$Button3 = GUICtrlCreateButton("Neue Mac-Adresse", 296, 16, 107, 25, 0)
$Combo1 = GUICtrlCreateCombo("Rechner", 88, 80, 241, 150)
$PCNamen=IniReadSectionNames(@scriptdir & "\mac-config.ini")
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $PCNamen[0]
_GUICtrlComboBox_AddString($Combo1,$PCNamen[$i])
Next
EndIf
;GUICtrlSetData(-1,$1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button
;Msgbox(0,"Ergebnis","Gewählt wurde : " & GUICtrlRead($Combo1))
$mac_ausgabe = IniRead($mac_config_ini,GUICtrlRead($Combo1),"mac","NA")
$ip_ausgabe = IniRead($mac_config_ini,GUICtrlRead($Combo1),"ip","NA")
$netz_ausgabe = IniRead($mac_config_ini,GUICtrlRead($Combo1),"netz","NA")
$ausgabe = $mac_ausgabe &" "& $ip_ausgabe &" "& $netz_ausgabe
;MsgBox("",GUICtrlRead($Combo1),IniRead($mac_config_ini,GUICtrlRead($Combo1),"mac","NA"))
MsgBox("", "Ergebnis: "& GUICtrlRead($Combo1), " MAC Adresse :"& $mac_ausgabe & " IP Adresse :"& $ip_ausgabe & " Netz Adresse :" & $netz_ausgabe )
Run("WolCmd.exe "& $ausgabe)
Case $Button2
GUIDelete("WOL-GUI")
Exit
Case $Button3; Neue Client Eingabe
;Opt("OnExitFunc", "endscript")
dim $netz_default = "255.255.255.0"
dim $netz = IniRead($netz_config_ini, "netz-bereich","netz",$netz_default)
#region --- GuiBuilder code Start ---
; Script generated by AutoBuilder 0.6 Prototype
#include <GuiConstants.au3>
;GuiCreate("WOL-GUI Eingabe Neuer Clients", 402, 320,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
GuiCreate("WOL-GUI Eingabe Neuer Clients", 402, 320,-1, -1)
$Button_1 = GuiCtrlCreateButton("SAVE", 100, 240, 90, 30)
$Button_2 = GuiCtrlCreateButton("Exit", 220, 240, 90, 30)
$Input_6 = GuiCtrlCreateInput("Name", 200, 25, 110, 20)
$Input_3 = GuiCtrlCreateInput("Mac", 200, 70, 110, 20)
$Input_4 = GuiCtrlCreateInput("IP", 200, 120, 110, 20)
$Input_5 = GUICtrlCreateCombo("Netz", 200, 170, 110, 20)
GUICtrlSetData(-1,$netz)
$Label_9 = GuiCtrlCreateLabel("Rechner Name", 100, 30, 80, 20)
$Label_10 = GuiCtrlCreateLabel("Mac Adresse", 100, 80, 80, 20)
$Label_7 = GuiCtrlCreateLabel("IP-Adresse", 100, 130, 80, 20)
$Label_8 = GuiCtrlCreateLabel("Subnetz Mask", 100, 180, 80, 20)
GuiSetState()
[/autoit] [autoit][/autoit] [autoit]While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Input_6
$Input_name_write = GUICtrlRead($Input_6)
;MsgBox(0,$Input_name_write,$Input_name_write)
;IniWrite($mac_config_ini, $Input_name_write,$Input_name_write,$Input_name_write)
Case $Input_3
$Input_mac_write = GUICtrlRead($Input_3)
;MsgBox(0,$Input_mac_write,$Input_mac_write)
;IniWrite($mac_config_ini, $Input_name_write,"mac",$Input_mac_write)
Case $Input_4
$Input_ip_write = GUICtrlRead($Input_4)
;MsgBox(0,$Input_ip_write,$Input_ip_write)
;IniWrite($mac_config_ini, "Rechner","mac",$Input_ip_write)
Case $Input_5
$Input_netz_write = GUICtrlRead($Input_5)
;MsgBox(0,$Input_netz_write,$Input_netz_write)
;IniWrite($mac_config_ini, "Rechner","mac",$Input_netz_write)
Case $Button_1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]If GUICtrlRead($Input_6) = "" Or GUICtrlRead($Input_6) = "Name" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte geben sie den Rechner Namen ein")
ElseIf GUICtrlRead($Input_3) = "" Or GUICtrlRead($Input_3) = "Mac" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte geben sie die Mac Adresse ein")
ElseIf GUICtrlRead($Input_4) = "" Or GUICtrlRead($Input_4) = "IP" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte geben sie den IP Adresse ein")
ElseIf GUICtrlRead($Input_5) = "" Or GUICtrlRead($Input_5) = "Netz" Then
MsgBox(48,"Error, fehlende Eingabe","Bitte geben sie den Netzmaske ein")
Else
[/autoit] [autoit][/autoit] [autoit]iniwrite($mac_config_ini, $input_name_write,"mac",$input_mac_write)
iniwrite($mac_config_ini, $input_name_write,"ip",$input_ip_write)
iniwrite($mac_config_ini, $input_name_write,"netz",$input_netz_write)
FileOpen($mac_config_ini,1)
FileWrite($mac_config_ini, @CRLF )
FileClose($mac_config_ini)
MsgBox(0,$Input_Name_write," Es wurde der Rechner "&$Input_Name_write&" mit der IP "&$Input_IP_write&" und Netzmaske "&$Input_netz_write&" und MAC "&$Input_MAC_write&" angelegt",20)
[/autoit] [autoit][/autoit] [autoit]EndIf
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit];EndIf
Case $Button_2
GUIDelete("WOL-GUI Eingabe Neuer Clients")
ExitLoop
EndSwitch
WEnd
#endregion --- GuiBuilder generated code End MAC eingabe---
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Case $Combo1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]EndSwitch
WEnd
; --------------------------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]Hallo DOC,
meinst du so
[1]
Name=test-rechner
IP=192.168.1.1
MAC=00114477
oder so
1 |Name=test-rechner | IP=192.168.1.1| MAC=00114477
MFG
Hi schmidt-ma,
Ein Tip und der ist net böse gemeint. Super Beispiele zu den einzelnen Funktionen findest du in der Autoit Hilfe die bei Autoit da bei ist. (chm Datei) einfach dden Funktionsnamen
eingeben und schon bekommst du zu jeder Funktion ein Beispiel.MfG
Der_Doc
Hallo zusammen,
ich brauche eure Hilfe, ich verstehe nicht das Beispiel für _GUICtrlComboBox_GetListArray
wie es einsetzten kann für mein Skript
#AutoIt3Wrapper_au3check_parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIComboBox.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>
Opt('MustDeclareVars', 1)
[/autoit][autoit][/autoit][autoit]$Debug_CB = False ; Check ClassName being passed to ComboBox/ComboBoxEx functions, set to True and use a handle to another control to see it work
[/autoit][autoit][/autoit][autoit]Global $iMemo
[/autoit][autoit][/autoit][autoit]_Main()
[/autoit][autoit][/autoit][autoit]Func _Main()
Local $aList, $hCombo
; Create GUI
GUICreate("ComboBox Get List Array", 400, 296)
$hCombo = GUICtrlCreateCombo("", 2, 2, 396, 296)
$iMemo = GUICtrlCreateEdit("", 2, 32, 396, 266, 0)
GUICtrlSetFont($iMemo, 9, 400, 0, "Courier New")
GUISetState()
; Add files
_GUICtrlComboBox_AddDir($hCombo, "", $DDL_DRIVES, False)
; Get List
$aList = _GUICtrlComboBox_GetListArray($hCombo)
For $x = 1 To $aList[0]
MemoWrite($aList[$x])
Next
; Loop until user exits
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
GUIDelete()
EndFunc ;==>_Main
; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($iMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
###User Defined Function###
_GUICtrlComboBox_GetListArray
###Description###
Ermittelt alle Items eines ComboBox Steuerelements
###Syntax###
#Include <GuiComboBox.au3>
_GUICtrlComboBox_GetListArray($hWnd)
###Parameters###
@@ParamTable@@
$hWnd
Handle des Steuerelements
@@End@@
###ReturnValue###
Erfolg: Array in dem folgenden Format:
[0] - Anzahl von Items
[1] - Item 1
[2] - Item 2
[n] - Item n
###Remarks###
Nichts.
###Related###
_GUICtrlComboBox_GetList
###Example###
@@IncludeExample@@
aber auch die deutsche Übersetzung verstehe ich nicht.
wenn einer mir helfen könnte wäre ich dankbar
Gruß Martin
Alles anzeigenHi,
den selektierten Wert kannst du per GuiCtrlRead auslesen. Alle Werte kann man per _GUICtrlComboBox_GetList() oder mit _GUICtrlComboBox_GetListArray() auslesen.Gruss
eddy_erpel
------------------------------Hi
kannst nur mal ein beispiel machen
danke
Gruß Martin
Hi eddy_erpel,
danke das hat geklappt, weist du auch wie mann aus einer Combo box die Werte ausliest .
Gruß Martin
Hallo zusammen,
ich habe festgestellt wenn ich @CR nehme ist es ein MAC File format,
aber wenn ich @CRLF dann macht er ein Windows datei, die auch lesbar ist.
MFG