Beiträge von snoozer

snoozer

Zitat

Original von th.meger
Hi,

wenn ja - schön

Wollte nur darauf aufmerksam machen, dass es fehleranfällig ist und auchanders ginge.

So long,

Mega

na denn her mit der anderen lösung

snoozer

Zitat

Original von mcondoi
das is richtig gut, aber ein problem besteht noch:

Wenn man z.B.

<Beispiel

eingibt, dann soll Beispiel auch erscheinen, nicht
Hier spricht der NTC:D

dann versuch doch einfachmal das problem selbst zu lösen....wenn wir dir immer nur fertige scripte vorlegen dann lernst du nichts dabei ich denke der ansatz von mir sollte dir schon weiter helfen...außerdem bin ich grad zu faul was zu machen

der snoozer

snoozer

ja ist möglich.....
ja erstmal ganze verzeichnis mit FileFindNextFile () und FileFindFirstFile() einlesen dann mit StringRight() die endung auslesen....

der snoozer

//edit mit stringsplit() kannst auch arbeiten....

PS:alles in der hilfe bestens beschrieben....;-)

snoozer

like this??

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <GuiEdit.au3>
#include<Array.au3>
Global $actor[2][3]
$actor[0][0] = "Held"
$actor[0][1] = "other,self,"
$actor[0][2] ="; //Hier spricht der Held"
$actor[1][0] = "NTC"
$actor[1][1] = "self,other,"
$actor[1][2] ="; //Hier spricht der NTC"
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ConvertGUI", 633, 447, 197, 115)
$Button1 = GUICtrlCreateButton("Convert", 168, 120, 273, 49, 0)
$Edit1 = GUICtrlCreateEdit("", 64, 16, 513, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Anfangstext")
;~ $Input1 = GUICtrlCreateInput("AInput1", 64, 24, 489, 21)
$Edit2 = GUICtrlCreateEdit("", 96, 176, 465, 209, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Bitte geben Sie zunächst einen Anfangstext ein.")
GUICtrlSetState(-1,$GUI_DISABLE)
;~ $Input2 = GUICtrlCreateInput("AInput2", 64, 208, 521, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Edit1) = "Anfangstext" Or GUICtrlRead($Edit1) = "" Then
MsgBox(48,"Anfangstext vergessen.","Bitte geben Sie Ihren Anfangstext ein.")
Else
Dim $content = ""
For $i=1 to _GUICtrlEditGetLineCount ($Edit1)
If StringInStr(StringLower(_GUICtrlEditGetLine($Edit1, $i)),StringLower(StringLeft($actor[0][0],3)),1) Or StringInStr(StringLower(_GUICtrlEditGetLine($Edit1, $i)),">",1) Then
$content = $content & 'AI_Output('&$actor[0][1]&'"DIA_PIR_7007_Michael_Beispiel_hero_0")'&$actor[0][2]&@CRLF
;~ MsgBox(0,"","1")
ElseIf StringInStr(StringLower(_GUICtrlEditGetLine($Edit1, $i)),StringLower($actor[1][0]),1) Or StringInStr(StringLower(_GUICtrlEditGetLine($Edit1, $i)),"<",1) Then
$content = $content & 'AI_Output('&$actor[1][1]&'"DIA_PIR_7007_Michael_Beispiel_hero_0")'&$actor[1][2]&@CRLF
;~ MsgBox(0,"","2")
Else
$content = $content & "ERROR"&@CRLF
;~ MsgBox(0,"","3")
EndIf
Next
;GUICtrlSetData($Edit2,'AI_Output(other,self,"DIA_PIR_7007_Michael_Beispiel_hero_0"); //'&GUICtrlRead($Edit1))
GUICtrlSetData($Edit2,$content)
GUICtrlSetState($Edit2,$GUI_ENABLE)
EndIf
EndSwitch
WEnd

[/autoit]

snoozer

sowas in der art???

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("ConvertGUI", 633, 447, 197, 115)
$Button1 = GUICtrlCreateButton("Convert", 168, 120, 273, 49, 0)
$Edit1 = GUICtrlCreateEdit("", 64, 16, 513, 89, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Anfangstext")
;~ $Input1 = GUICtrlCreateInput("AInput1", 64, 24, 489, 21)
$Edit2 = GUICtrlCreateEdit("", 96, 176, 465, 209, BitOR($ES_AUTOVSCROLL,$ES_AUTOHSCROLL,$ES_WANTRETURN))
GUICtrlSetData(-1, "Bitte geben Sie zunächst einen Anfangstext ein.")
GUICtrlSetState(-1,$GUI_DISABLE)
;~ $Input2 = GUICtrlCreateInput("AInput2", 64, 208, 521, 21)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
If GUICtrlRead($Edit1) = "Anfangstext" Or GUICtrlRead($Edit1) = "" Then
MsgBox(48,"Anfangstext vergessen.","Bitte geben Sie Ihren Anfangstext ein.")
Else
GUICtrlSetData($Edit2,'AI_Output(other,self,"DIA_PIR_7007_Michael_Beispiel_hero_0"); //'&GUICtrlRead($Edit1))
GUICtrlSetState($Edit2,$GUI_ENABLE)
EndIf
EndSwitch
WEnd

[/autoit]

das ganze geht auch mit inputfelder anstatt von edit-felern ist auf jedenfall geschmackssache....muss eben nur das script leicht umgebastelt werden....

der snoozer

snoozer

vorher nachher bespiel bitte....soll das ne art trainer werden oder was??Ôô

der snoozer

snoozer

Zitat

Original von PaddyM
Also das 1. Script funktioniert, allerdings krieg ich alles aus der ganzen Domäne angezeigt, also alle Gruppen und Benutzer unserer Domäne.

Von demher such ich doch ein bischen was anderes

Bischen mehr Beschreibung:
Ich will prüfen ob ein lokaler User bereits existiert, wenn nicht dann will ich Ihn anlegen (hab ich übrigens schon realisiert).

Aber Danke trotzdem @Mega

c ya
Paddy

versteh dich nicht ganz aber dazu kannst du doch pee script nutzen???!!!
z.b. du willst prüfen ob user "xyZ" bereits ein konto hat...

Spoiler anzeigen

[autoit]

; Generated by AutoIt Scriptomatic

$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
$colItems = ""
$strComputer = "localhost"

$Output=""
$Output = $Output & "Computer: " & $strComputer & @CRLF
$Output = $Output & "==========================================" & @CRLF
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_GroupUser", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)

If IsObj($colItems) then
For $objItem In $colItems
$Output = $Output & "GroupComponent: " & $objItem.GroupComponent & @CRLF
$Output = $Output & "PartComponent: " & $objItem.PartComponent & @CRLF
;~ hier kommt die änderung:
If StringInStr($objItem.PartComponent,"xyZ") Then
MsgBox(0,"","User 'xyZ' existiert bereits!");" vergessen
Else
;_NetUser("xyZ")
EndIF
if Msgbox(1,"WMI Output",$Output) = 2 then ExitLoop
$Output=""
Next
Else
Msgbox(0,"WMI Output","No WMI Objects Found for class: " & "Win32_GroupUser" )
Endif

[/autoit]

/edit " vergessen

snoozer

und das geht nicht mit der IE.au3????
sry for shortpost
snoozer

snoozer

mhh...um den systempath rauszufinden gibt es auch andere möglichkeiten...

[autoit]

#include<Array.au3>
$dir = StringSplit(@WindowsDir,":")
MsgBox(0,"SystemDir","SystemDir:"&$dir[1])

[/autoit]

wenn du jedoch mit dem internetexplorer arbeiten willst (schließe ich daraus dass du da oben den IE öffnen willst) empfehle ich in der IE.au3 die funktion _IECreate().....

der snoozer

snoozer

bildschirmgröße?? -> dafür hat autoit gewisse "Macros" (was das genau ist weiß ich auch nicht so genau) könnte es höchstens als platzhalter bezeichenen (autoit erkennt automatisch das macro und ersetzt es mit dem gewünschten ergebniss/ereigniss.....

[autoit]

MsgBox(0,"Bildschirmhöhe,Bildschirmbreite","Bildschirmhöhe:"&@DesktopHeight&@CRLF&"Bildschirmbreite:"&@DesktopWidth&@CRLF&"Farbqualität:"&@DesktopDepth&@CRLF&"Bildschirmaktualisierungsrate:"&@DesktopRefresh&" HZ")

[/autoit]

@CRLF = Zeilenumbruch
....sonst schau in die hilfe unter macros

Code

wikipedia schreibt:
Ein Makro in der Programmierung ist ein kleines Stück Programmcode, das von einem Interpreter oder Präprozessor durch ein größeres Stück Programmcode ersetzt wird.
http://de.wikipedia.org/wiki/Macro

der snoozer

//grrr zu langsam...siehe post von bugfix

snoozer

siehe post von pee....
außerdem geht dein ganzes script doch weiß nicht was du willst

Spoiler anzeigen

[autoit]

Dim $vorgegebenerMonatsTag,$vorgegebeneStunde,$vorgegebeneMinute
$vorgegebenerMonatsTag = @MDAY
$vorgegebeneStunde = @HOUR
$vorgegebeneMinute = @MIN+10
If ($vorgegebenerMonatsTag = @MDAY) And (@HOUR = $vorgegebeneStunde) And (@MIN <= $vorgegebeneMinute - 10) Then ; wenn Trainingstag = jetziger Tag, Stunde = jetzige Stunde, Minute-10 = JetzigeMinute
Do
MsgBox(48, "Hinweis", "Bitte langsam im TeamSpeak-Server einfinden" & @CRLF & "Diese Meldungen werden so lange erscheinen," & @CRLF & "bis di TeamSpeak gestartet hast")
Until WinExists("TeamSpeak 2")
EndIf

[/autoit]

ein größer-gleichzeichen hilft

der snoozer

snoozer

mhhh....
gun und meger haben vollkommen recht.....
nun gut ich hab ne schnelle leitung (dsl 6000) und wenn ich zufällig grad musik höre(etwas lauter) und dann kommt eine seite wo musik im hintergrund abgespielt wird, dann ist die nicht länger als zwei sekunden offen...okay vll bin ich da auch eher die ausnahme
ansonsten find ich die idee ganz nett nur ich würde dir davon dringend abraten....

der snoozer

//edit

YEAH das war der 300 post xD

snoozer

problem ganz einfach gelößt....zunächst im quellcode "geschaut" ob "Seite nicht gefunden" drinn vorkommt und das wars schon fast....wenn das nicht vorkommt...download+datei vorhanden....andernfalls datei offline...

Spoiler anzeigen

[autoit]

#include <INet.au3>
$source = _INetGetSource ("http://example.ex.ohost.de/bla.txt")
If (Not @error) And (Not (StringInStr($source,"Seite nicht gefunden!",1)>1)) Then
InetGet("http://emaple.ex.ohost.de/bla.txt",@ScriptDir&"\ble.txt")
MsgBox(64,"Datei ONLINE","Datei ONLINE!")
Else
If Not @error Then
MsgBox(16,"Datei OFFLINE","Datei OFFLINE!")
Else
MsgBox(16,"Runtime Error.","Es ist ein Fehler in _INetGetSource aufgetreten."&@CRLF&"Der Fehlercode lautet:"&@error)
EndIf
EndIf

[/autoit]

snoozer

um nen fenster zu maximieren empfehle ich @SW_MAXIMIZE...kannste entweder like this einbasteln...

[autoit]

GUISetState (@SW_SHOW,$gui_handle)
GUISetState (@SW_MAXIMIZE,$gui_handle)

[/autoit]

oder einfach per WinSetState maximieren(da isses ein wenig umständlicher....hintergrund transparent??? kein plan vielleicht gibts dazu nen style im englischen forum...würde mich aber schon interessieren_>bei lösung bitte hier posten
mhhh ich hatte mal nen schickes script was immer im vordergrund war..wie ich das gemacht hab....tja ich glaube ich habe mit WinActivate gearbeitet aber so genau weiß ich das nicht mehr...schon länger her...find das script leider auch nicht mehr...naja vll hat ja jemand noch die lösung perat

der snoozer

snoozer

so geht es auch....

[autoit]

MsgBox(0,"","a"&@CR&"b"&@LF&"c")

[/autoit]

ich würde nach einem regread prüfen ob ein fehler aufgetretn ist...nun gut ist nicht notwenidig aber schick....

der snoozer

snoozer

weil ichs net gesehen hab....liegt vll auch daran dass ich grad ordentlich stress mit meinen eltern hab...die denken auch die wären die größten...-.-

naja egal zu spät jetzt....

ich bin eigentlich auch der meinung wer sowas proggren will muss das schon selber machen aber nicht unbedingt andere dafür arbeiten lassen....

der snoozer

snoozer

Zitat

Original von jonk
ntg-sm3svcd-13.part23.rar << sieht irgendwie nicht legal aus...

ist mir gar nicht aufgefallen Ôô.....
hiermit möchte ich gern nochmal klarstellen ich distanziere mich von jeglichen aktionen die gegen das geltende deutsche grundgesetz verstoßen!!!...

ps:@offtopic spiderman3 ist langweilig gewesen außerdem ist svcd nicht die beste qualli (lebt "nur" von dvd's aus der vidothek^^)....
lass die scheiße sein....raubkopierer sind verbrecher!

der snoozer

pls ~topic close

snoozer

//Edit........siehe unten...

snoozer

snoozer

@pee den ersten kenn ich schon :P^^

Ein Mathematiker, ein Physiker und ein Philosoph stehen auf dem Dach eines brennenden Hochhauses.

Die einzige Möglichkeit, den Flammen zu entkommen, besteht in einem Sprung in den kleinen Pool vor dem Hochhaus.

Der Philosoph meint:
"Wenn es einen Gott gibt, wird er mir schon helfen."

Er springt und verfehlt den Pool um Längen.

Der Physiker nimmt Taschenrechner und Notizblock, rechnet eine Weile, nimmt Anlauf und springt genau in die Mitte vom Pool.

Auch der Mathematiker rechnet eine Weile mit Taschenrechner und Notizblock.

Als er fertig ist, nimmt er Anlauf, springt und fliegt nach oben.

Was war passiert?

Vorzeichenfehler!

das video ist sowas was von hammer geil...link

der snoozer

snoozer

...deswegen war auch auch mein vorschlag den titel mit in die abfrage einzubasteln....sprich If $schleife_durchlaufen Or ($title = _ArraySearch ($previos_titles,$current_title))...oder sowas in der art......
müsste doch eigentlich gehen??ôÔ wo haste denn die abfragen eingebaut??

Beiträge von snoozer

Dateien endungen auslesen

Scripter erstellen

Dateien endungen auslesen

Scripter erstellen

Scripter erstellen

Scripter erstellen

lokale Windows Benutzer Abfragen

auf farbe warten

Variabeln

Variabeln

Problem mit der Zeitrechung bei AutoIt

Ich suche was

InetGet sonderbarer "Fehler"

Position

Eine kleine Frage

uploaded.to

uploaded.to

uploaded.to

Fun-Thread

Wird die Schleife nur einmal durchlaufen?