Hi,
Ja das werde ich in der nächsten Version mal berücksichtigen. (Vieleicht schon nächste Woche)
Danke für das Lob.
MfG
Der_Doc
Hi,
Ja das werde ich in der nächsten Version mal berücksichtigen. (Vieleicht schon nächste Woche)
Danke für das Lob.
MfG
Der_Doc
Hi super,
wäre nur net wenn du uns den Lösungsweg mal kurz nenen könntest.? Andere könnten ihne vieleicht brauchen. :musik2:
MfG
Der_Doc
Hi,
das verstehe ich nicht.
Mit dem Tool Au3Info.exe kanst du doch die Radiobutton (die Beschriftung)
anklicken und auslesen.
Notepad ist ja auch ein externes Programm.
MfG
Der_Doc
Hi Leute,
ich habe ein weiterst Script fertiggestellt und möchte es nun veröffentlichen.
Das Tool nennt sich "LoginAS" und meldet einen Benutzer unter einem anderem Benutzer an. Das Script funktioniert unter Domain und Arbeitsgruppen Benutzern.
Da das Tool unter Autoit geschrieben ist kann man es anpassen und so in andere Scripte einpassen.
Zum testen liegt eine Datei "testlogin.au3" bei um den angemeldeten Benutzernamen anzeigen zu lassen. Die Datei muß noch kompeliert werden.
EDIT: 28.05.2009
Hi Leute ich habe es ja versprochen, das ich das Script anpasse.
Die Arbeit wurde mir von ytwinky und bernd670 schon fast abgenommen Danke Euch natürlich nochmal.
Ich selber habe auch nochmal rumgespielt und stelle die neue Version nun online.
Also testen und die Verbesserungen hier posten.
MfG
Der_Doc
Hi,
vieleicht meinst du DLLcall
sonnst weis ich leider auch nicht was du möchtest, programmiere leider kein VB.
MfG
Der_Doc
Hi,
ich habe mal ein kleine Beispiel geschrieben wie mann z.B. bei Notepad die Seite auf Querformat umstellen kann.
[autoit]
Run("notepad.exe")
WinWait("Unbenannt")
send("!d+r")
ControlClick("Seite einrichten","&Querformat","Button4")
ControlClick("Seite einrichten","OK","Button6")
Dein Lösungsansatz wäre:
[autoit]
ControlClick("Import CDR's","&<Text>","<ClassNameNN>")
&<Text> = Hier kommt der Text des Feldes rein welches du auswählen möchtest(siehe Autoit Info)
<ClassNameNN> = Ist die Name des ausgwähleten Feld.
MfG
Der_Doc
Hi,
ansonsten löse ich das mit der FTP-Funktion.
ACHTUNG DER DIE FUNKTION IST NICHT VON MIR ist aus dem englische Forum. Ich habe sie nur angepasst.
#include <ftp.au3>
#include <file.au3>
#include <array.au3>
dim $Handle, $DllRect
$dll = DllOpen("wininet.dll")
$server = 'nslu2'
$user = 'daten'
$pass = '123daten'
$Dir = '/daten/'
$datei = "test.txt"
$ftpOpen = _FTPOpen("FileZilla")
If @error Then
MsgBox(0,"FTP-Handle","FTP-Handle wurde nicht erfolgreich erzeugt!")
SetError(0)
EndIf
$ftpConnect = _FTPConnect($ftpOpen, $server,$user, $pass)
If @error Then
MsgBox(0,"FTP-Connect","FTP-Connect war nicht erfolgreich.")
SetError(0)
EndIf
$ftpFindfirst = _FTPFileFindFirst($ftpConnect,$Dir&$datei&"*",$Handle, $DllRect)
If @error Then
MsgBox(0,"FTP-Find","FTP-Find war nicht erfolgreich.")
SetError(0)
Else
If $ftpFindfirst[0] Then
While $ftpFindfirst[0]
;~ _ArrayDisplay($ftpFindfirst,"")
$dl_file = $ftpFindfirst[10]
$ftpFindfirst = _FtpFileFindNext($Handle, $DllRect)
MsgBox(0,"FTP-Find","Jetzt Aktion ausführen, da Datei "&chr(34)&$dl_file&chr(34)& "." )
Wend
EndIf
_FtpFileFindClose($Handle, $DllRect)
EndIf
DllClose($dll)
[/autoit] [autoit][/autoit] [autoit][/autoit]MfG
Der_Doc
Hi,
es kommt darauf an, sind es denn alles Standard Treiber oder spezielle Herstellertreiber.
Sonst gibt es doch bestimmt Standardtreiber die mann nachinstallieren kann.
Sonnst ist die Frage ob das Script für 2000 oder XP sein soll.
MfG
Der_Doc
Hi,
danke für die Anmerkungen.
1. IP-Adressfelder sind nicht nötig da ich entweder den PC-Namen oder die IP eingeben kann.
2. Bei ungültigen Eingaben "schmiert" das Script nicht ab, sonder gibt eine Fehlermeldung aus das der Host nicht existiert.
Habe es trotzdem nochmal geändert. Nun kann eine neue Abfrage starten.
3. Fehler ist behoben.
Änderung siehe 1.er Post.
MfG Der Doc
Autoit erzeugt eine exe-Datei die man eben auf fast allen Windowsrechnern benutzen kann.
Ein großer Vorteil für Administratoren, die viel mit Batchdateien gearbeitet haben, ist es geht einfacher, es gibt mehr möglichkeiten und die User können aus versehen nichts in der fertigen EXE-Datei ändern.
Benutze:
Autoit-Version 3.2.2.0
Programmierumgebung : SciTE 1.7.2
GUI-Builder: Koda 1.6.0.2
Macht weiterso die Programme sind einfach super.
MfG
Der_Doc
He He
Bin doch ...
ZitatNun System und Netzwerkadmin im "öffentlichem Dienst" im schönen Niedersachsen.
Sorry aber es hatte eben so gepasst. :engel2:
Hi Leute da ich Netzwerkadmin bin habe ich viel mit MAC-Adressen zutun. Da die aber ewig lang sind und man die nie weis habe ich ein Tool geschrieben was mir ein klein bischen Arbeit abnimmt.
Das Tool bassiert auf den Dos-Befehlen:
Getestet wurde es unter dem Betriebssystemen
Beschreibung:
Es können Rechner Remote oder lokal abgefragt werden.
Nach Eingabe der IP-Adresse, wird ein Ping auf das Gerät abgesetzt um zusehen ob es online ist.
Sollte ein Name angegeben werden wird dieser mit der Function "TCPNameToIP" umgesetzt da eine Arpanfrage nur auf eine IP funktioniert.
Sollte keine Adresse angegeben werden, wird das lolale Gerät abgefragt.
Das Ergebniss wird dann in einem Editfeld angezeigt und in die Zwischenablage kopiert. (Das erspart falsches abschreiben :schild4: )
Mit "Strg + V" kann sie somit überall eingefügt werden.
Feedback:
So schreibt bitte was Ihr von dem Tool haltet und ob es für Euch von Interesse ist.
Edit: Neue Version 1.3
Changes:
- Auflösung nach IP und DNS-Name.
- Fehlermeldung korrigiert.
Edit: Neue Version 1.4
Changes:
- Checkbox kopieren ja nein eingebunden.
- Gui verändert.
Edit: Neue Version 1.5
Changes:
- GUI an Vista angepasst.
- Fehler durch Autoitversion 3.2.2.0 behoben
Der Quellcode:
#include <GuiStatusBar.au3>
#include <Inet.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#AutoIt3Wrapper_icon=192.ico
#AutoIt3Wrapper_outfile=Arptool.exe
Dim $author = "Der_Doc"
Dim $version = "1.5"
Dim $change = "Update: 1.3 | 26.02.2007" & @CRLF & _
' -Auflösung nach IP und DNS-Name' & @CRLF & _
'Update: 1.4 | 05.04.2007 ' & @CRLF & _
' -Checkbox kopieren ja nein eingebunden' & @CRLF & _
' -Gui erneuert ' & @CRLF & _
'Update: 1.5 | 23.04.2009 ' & @CRLF & _
' -GUI an Vista angepasst'
Dim $a_PartsRightEdge[2] = [110, -1]
Dim $a_PartsText[2] = [$author & " 2009", "Version: " & $version]
Dim $ausgabe
#Region ### START Koda GUI section ### Form=arpgui.kxf
$Arpgui = GUICreate("Arptool", 279, 250, -1, -1)
$Group1 = GUICtrlCreateGroup("IP oder PC-Name", 6, 7, 265, 55)
$In_Input = GUICtrlCreateInput("", 14, 27, 249, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Ergebniss der Arpanfrage", 7, 68, 265, 90)
$Edit = GUICtrlCreateEdit("", 22, 86, 241, 65, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_READONLY))
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Senden = GUICtrlCreateButton("Senden", 214, 167, 57, 25, $BS_DEFPUSHBUTTON)
$check1 = GUICtrlCreateCheckbox("Ergebniss in Zwischenablag kopieren", 6, 173, 201, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
GUICtrlSetState($In_Input, $GUI_FOCUS)
$MenuItem1 = GUICtrlCreateMenu("&Datei")
$MenuItem2 = GUICtrlCreateMenuItem("Neu", $MenuItem1)
$separator2 = GUICtrlCreateMenuItem("", $MenuItem1, 2)
$MenuItem3 = GUICtrlCreateMenuItem("Beenden", $MenuItem1)
$dateihelp = GUICtrlCreateMenu("?")
$menuehelp = GUICtrlCreateMenuItem("Über Arptool", $dateihelp)
$StatusBar1 = _GUICtrlStatusBar_Create($Arpgui, $a_PartsRightEdge, $a_PartsText)
GUICtrlCreateGraphic(0, 0, 306, 2, BitOR($SS_NOTIFY, $SS_SUNKEN))
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $MenuItem2
GUICtrlSetData($Edit, "")
GUICtrlSetData($In_Input, "")
ClipPut("")
Case $Senden
$Input = GUICtrlRead($In_Input)
If $Input = "" Then $Input = @ComputerName ; Wenn kein Computername eingegeben wurde wird der locale genommen.
$ping = Ping($Input, 50)
Select
Case $ping > 0
TCPStartup()
$ausgabe = TCPNameToIP($Input)
$ausgabe_name = _TCPIpToName($ausgabe, 0)
GUICtrlSetData($Edit, 'PC-Name: ' & @TAB & $ausgabe_name & @CRLF)
TCPShutdown()
GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'IP-Adresse: ' & @TAB & $ausgabe & @CRLF)
arp()
If $ausgabe = "" Then ipconfig()
GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse: ' & @TAB & $ausgabe & @CRLF)
If GUICtrlRead($check1) = 1 Then
ClipPut($ausgabe)
GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse in Zwischenablage kopiert!' & @CRLF)
Else
GUICtrlSetData($Edit, GUICtrlRead($Edit) & 'Mac-Adresse wurde nicht kopiert!' & @CRLF)
EndIf
Case $ping = 0
MsgBox(64, "Fehlermeldung Arptool", "Der Host ist nicht Verfügbar! " & @CRLF & "Bitte neue Abfrage starten!")
GUICtrlSetData($Edit, "")
GUICtrlSetData($In_Input, "")
GUICtrlSetState($In_Input, $GUI_FOCUS)
EndSelect
Case $menuehelp
$help = GUICreate("Über Arptool ......", 280, 180, -1, -1, BitOR($WS_MINIMIZEBOX, $WS_CAPTION, $WS_GROUP, $WS_BORDER, $WS_CLIPSIBLINGS))
$help_ok = GUICtrlCreateButton("OK", 112, 136, 75, 25, $BS_DEFPUSHBUTTON)
$Info = GUICtrlCreateEdit("", 24, 48, 249, 73, BitOR($ES_READONLY, $WS_VSCROLL))
GUICtrlSetData(-1, "Author: " & $author & @CRLF & _
'AutoIt Version: 3.2.2.0' & @CRLF & _
'Datum: 15.01.2007' & @CRLF & _
$change)
$Label_help = GUICtrlCreateLabel("Arptool " & $version, 125, 16, 134, 23)
GUICtrlSetFont(-1, 12, 800, 0, "Times New Roman")
GUICtrlCreateIcon("shell32.dll", 24, 50, 7, 32, 32, BitOR($SS_NOTIFY, $WS_GROUP))
GUISetState(@SW_SHOW, $help)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Case $help_ok
GUIDelete($help)
GUISetState(@SW_SHOW, $Arpgui)
GUISwitch($Arpgui)
ExitLoop
EndSwitch
WEnd
Case $GUI_EVENT_CLOSE
Exit
Case $MenuItem3
Exit
EndSwitch
WEnd
Func arp()
$pid = Run(@ComSpec & " /c arp -a " & $ausgabe, "", "", 2)
$ausgabe = StdoutRead($pid)
While ProcessExists($pid)
Sleep(100)
WEnd
$ausgabe = StringMid($ausgabe, StringInStr($ausgabe, "-", 0, -5) - 2, 17)
EndFunc ;==>arp
Func ipconfig()
$pid = Run(@ComSpec & " /c ipconfig /all", "", "", 2)
$ausgabe = StdoutRead($pid)
While ProcessExists($pid)
Sleep(100)
WEnd
$ausgabe = StringMid($ausgabe, StringInStr($ausgabe, "Physikalische Adresse", 0, -1) + 36, 17)
EndFunc ;==>ipconfig
Als Anlage noch die Kodadatei und das ICON.
MfG
Der_Doc
Hi wollte mich auch vorstellen. Bin Der_Doc gesunde 26 und gebürtig aus Hessen. Nun System und Netzwerkadmin im "öffentlichem Dienst" im schönen Niedersachsen.
Eigentlich ein kleiner Webprogrammierer (PHP, MySQL, HTML). Aber immer erst nen Apache aufsetzten war auch lästig. In Autoit schreibe ich nun kleine Scripte im Bereich Netzwerke und Domain.
Natürlich nicht ganz allein :schild4: Micha_he is nen Scriptkollege von mir.
So nun genug von mir!
Let´s Autoit :admin:
Hallo Ihr Scripter. Ich wollte nocheinmal um die Freischaltung bitte um Scripte veröffentlichen zukönnen.
PS: Micha_HE bitte auch freischalten (wir programmieren zusammen)
4 Hände programmieren mehr wie 2
Hi,
ich bin auch am programmieren und hätte gerne eine Freischaltung um meine Scripte ablegen zukönnen.
Weil Fehler finden nur die User die damit arbeiten :schild4:
Dr.Galvany
is zwar nix zum Thema aber Namesraub sieht anders aus :musik2: ich nutze den Namen seit fast 6 Jahren.
Machtin
Ich meine aber in einem Autoit-Script. Wenn ich mit AutoHotKey aufnehme dann bekomme ich die Tastenfolge auch. Aber leider tut sich nix an meinen Monitoren.
Könnte aber auch daran liegen, das ich mit dem Prog nur den Controller der Tastatur im Rechner anspreche und eben nicht den Switch.
Weis sonst keiner Rat?
Wäre sehr wichtig um ein Programm zubeenden.
Moin,
ich habe nun auch Autoit für mich entdeckt und bin schwer am entwickeln.
Nun brauche ich aber mal Eure Hilfe.
Mein Problem ist das ich gerne einen KVM-Switch per Script umschalten möchte.
Das Kommando dafür ist mir bekannt aber leider zeigt es keine Wirkung.
oder
Es liegt nicht an der Schreibweise weil eine msgBox mir sagt das es Funktioniert (LED auf der Tastatur leuchtet auch). Aber leider ertönt kein BEEEEB und nix.
Weis einer von Euch Rat?
MfG
Der Doc