hi,
#ReqireAdmin ruft unter XP den 'Ausführen als'-Dialog auf, wo dann der Benutzername gewählt werden kann und dessen Kennwort eingegeben werden muß..
@Tron: ich hoffe, ich brauche dir nicht die Seite https://autoit.de/www.gidf.de zu empfehlen
Informationen zur Hosts-Datei findest du aber auch hier:
http://ytwinky.freebasic-portal.de/tuts/hosts.htm
Gruß
ytwinky
Beiträge von ytwinky
-
-
Hi,
ich vermute mal, daß bei dir XP auf C:\Windows installiert ist. Also:
C:>Attrib C:\Windows\System32\drivers\etc\hosts. -r -h -s
Das entfernt das (wahrscheinlich) gesetzte ReadOnly-Bit..
Nach der Bearbeitung wieder zurücksetzen mit:
C:>Attrib C:\Windows\System32\drivers\etc\hosts. +r +h +s
Wenn du diese Zeilen nicht verstehst, solltest du die Finger davon lassen ROFL
Im Ernst: Wahrscheinlich hat irgendein Sicherheitsprogramm das ReadOnly-Bit deiner Hosts. gesetzt.
(Natürlich könntest du auch mit AutoIt die Attribute abfragen und setzen bzw. löschen)
Ich verrate dir nur, daß dazu in der Hilfe etwas steht, den Rest überlasse ich deinem Unternehmungsgeist
Viel Erfolg
Gruß
ytwinky -
..
Der Auftrag steht im Bereich "Ohne Gegenleistung" und somit ist eine Angabe
der Bezahlung redundant, da sie höchstens einem "Danke" entspricht.
..Ooops, das hatte ich glatt übersehen :blush: (der fehlt in der Sammlung..)
@White: Sry, wenn ich dir zu nah getreten sein sollte.
Gruß
ytwinky -
hi,
du hast 'vergessen' zu erwähnen, wieviel du zu zahlen bereit bist!
Wenn ich mir deinen Kopf zerbrechen soll, wird das teuer
Einen Tipp gibts allerdings gratis: lt. Duden ist es DAS Skript..
Gruß
ytwinky -
Hi,
laß dich von dem Gewusel um die (täglich) neue Betaversion nicht beirren, die kannste immer noch installieren..
Die stable 3.3.6.1 war so lange stable und das gilt auch für die deutsche Hilfe(s.o.)
Das sollte eine gute Wiedereinstiegsbasis sein
Gruß
ytwinky -
hi,
auf dem Weg dorthin ist erstmal 3.3.7.6 erschienen..
<29-May-2011 13:40 6.5M>
Link s.o. (kann aber dauern^^)
[Edit]
Skyteddy sollte den Thread-Titel vllt. auf 3.3.7.x ändern..
..oder ein Privilegierter
[/Edit]
Gruß
ytwinky -
hi,
[autoit]
mglw. geht es anders, das habe ich aber noch nicht benötigt, denn in so einem Fall setze ich, quasi als Default, den Focus auf z.B. meinen 'Quit'-Button, vor GUISetState(@SW_SHOW) und schon ist ggfs. das Edit-Feld ohne Focus:$btnQuit=GUICtrlCreateButton('Quit', 208, 147, 75, 25, $WS_GROUP)
[/autoit]
GUICtrlSetFont(-1, 8, 800, 0, 'MS Sans Serif')
GUICtrlSetState(-1, $GUI_Focus)Das funktioniert wunderbar (solange ausser dem Editfeld noch andere Controls vorhanden sind)
Gruß
ytwinky -
..aber nur wenn du in den 3 Tagen nicht herausgefunden hast, daß in der Hilfe steht, daß der angewählte Eintrag einer Combobox mit GUICtrlRead() erhalten wird..
[/Push] -
Stimmt,
DL hat aber erst beim erneuten Versuch geklappt..
AutoIt v3.3.7.4-beta
War wohl zu viel los auf dem Server
Gruß
ytwinky -
Hi,
auch meinen allerherzlichsten Glühstrumpf, GTA
Feier man schön, solange es noch Spaß macht
Gruß aus Machteburch
ytwinkyPS:
an noir auch einen, wenn auch nachtäglichen Glückwunsch -
Hi,
Bei mir klappt bisher alles. Nur die AutoITSC.bin wird mal wieder von AntiVir als Dropper/Gen eingestuft. Ich hab gleich mal eine Mail verschickt
Das ist gut..
Mein Avira meldet leider auch den Dropper/Gen, obwohl ich die [kompletterPfad]/AutoItSC.bin überall als Ausnahme eingetragen habe!
(In der Annahme, das es wirklich ein Fehler von Avira ist^^)
Ich hab mal das Script von UEZ (Check Online Status v0.92 Build 2011-05-23 Beta) übersetzt, aber das geht nicht, weil ein
'written'-Fehler von au3check.exe gemeldet wird(und wenn der weggeklickt wird kommt ein 'read'-Fehler)!
Also brauch ich mir die neuen Features noch gar nicht anzusehen..
..oder vllt doch
Gruß
ytwinky -
Hi UEZ,
woher wußtest du an welchem Problem ich gerade sitze(allerdings mit FreeBASIC)?^^
Ich habe dein (korrigiertes) Skript mal eben durchlaufen lassen, funktioniert prima..
Die Auflösung von Web-Adressen könnte etwas schneller gehen, wenn du VOR dem Ping auf
z.B. https://autoit.de/www.heise.de erstmal prüfst, ob ein DNS-Server erreichbar ist(oder die hosts-Datei auswerten). Zur Auswertung der hosts-Datei siehe auch: http://ytwinky.freebasic-portal.de/tuts/hosts.htm
[Edit]
Das ist eine noch inoffizielle Vorabversion xD
[/Edit]
Wenn ich es schaffe, poste ich am WE mal mein Skript, mit dem ich meinen Router per Klick aus dem Netz kicke(also alle Netzkontakte verhindere) und genauso easy wieder einfüge..
Es ist wg. einer 'Verschlimmbesserung' z.Z. nicht mehr vorzeigbar
Gruß
ytwinky -
Hi @ all
vielen Dank für die heißen Glühstrümpfe(ganz besonders an autoBert, dem es gelang die Schnapszahl in einen diskreten Term zu verstecken, obwohl das eigentlich nicht nötig gewesen wäre)
Ja, danke der Nachfrage ich hatte einen schönen (freien) Tag, bei bestem Sonnenschein habe ich eine Stadtrundfahrt mit dem Fahrrad gemacht, alte Festungswerke besichtigt u.a.m. usw..
..und dabei festgestellt, daß es richtig ist, wie ich immer sage(und das geht besonders an die jüngeren unter uns):
Älter werden ist nix für Feiglinge!
Schönen Abend noch
Gruß
ytwinky -
Klar kann man 'irgendwie' stdout checken..
Versuchs mal so: Offene Ports mit NetStat anzeigen
(Ich vertraue darauf, daß du den NetStat-Befehl durch deinen NetSh-Aufruf ersetzen kannst..)
..und à propos Hilfe: die gibt es nicht nur OnLine sondern auch zum Download oder als Buch aber nicht bei OBI
Gruß
ytwinky -
Hi,
wie wär's wenn du in dein Skript einfügst:
..
#include <diverse.au3>
..
Dann wird also immer diverse.au3 included..
Was aber aktuell in diverse.au3 enthalten ist, könntest du per filewrite-Anweisung(oder wie auch immer) beeinflussen..
..nur so 'ne Idee mit dem Nachteil, daß du ZWEI Skripts benötigst..
Gruß
ytwinky -
Ich habe ein großes Problem obwohl die lösung wahrscheinlich ganz simpel ist und ich es nur nicht sehe
Folgende Situation:
1. ich habe mit _FileListToArray die namen von normalen *.txt dateien aus einem ordner ausgelesen
2. ich habe sie dann mit _ArraySort "gegen" das Alphabet sortiert
3. ich will alle dateien ausser die neuste also $File[1] löschen!jetzt zu meinem Problem...
wie mache ich das autoit alle dateien ausser die letzte löscht?ich hab's so versucht (klappt aber nicht):
[autoit]
[/autoit] [autoit][/autoit] [autoit]
$anzahl=$file[0]Do
[/autoit]
FileDelete($path & $file[2]+1) ;er soll immer +1 löschen (klappt nicht und er sagt das da wenn dann ein '=' hinein muss)
Until $anzahl = 1Sicherlich ist die Lösung von Name22 die effektivste, da ich aber vorher schon überlegt hatte, möchte ich meine Lösung trotzdem posten, schon damit klar wird, was im Original-Post nicht funktioniert:
[autoit]$anzahl=$file[0] ;das kann so bleiben..
[/autoit]
Do ; Einstellungssache, da For-Schleife imho besser.,
FileDelete($path & $file[$anzahl]) ; es soll immer das Feld $Anzahl(!!) gelöscht werden..
$anzahl -= 1
Until $anzahl = 1
Gruß
ytwinky -
Hi,
könnte so gehen:
R*q^n -R
Kn=Ko*q^n - ------------ | Bruch auflösen
(q-1)
Kn*(q-1)=Ko*q^n*(q-1)-R*q^n-R | ausmultiplizieren(wo nötig) und alle Terme mit ^n zusammenfassenKn*(q-1)+R=q^n(Ko*(q-1)-R) | q^n isolieren
Kn*(q-1)+R
-------------- = q^n | jetzt beide Seiten logarithmieren(zur Klarheit nehme ich Lg..)
Ko*(q-1)-RKn*(q-1)+R
Lg( -------------- ) = Lg(q^n) | nach n umstellen:Lg(q^n)=n*Lg(q) und die Seiten tauschen
Ko*(q-1)-R
Kn*(q-1)+R
n*Lg(q)= Lg( --------------- ) | jetzt noch durch Lg(q) teilen
Kn*(q-1)-R
Kn*(q-1)+R
Lg( -------------- )
Kn*(q-1)-R
n= ------------------- So sollte n jetzt berechenbar sein..
Lg(q)
..wenn bei den erforderlichen Divisionen NICHT durch NULL geteilt wird, denn das habe ich nicht untersucht
Fragen zu dieser Umstellung erörtere bitte mit deinem Mathe-Lehrer
(Vorsichtshalber habe ich die Txt-Datei angehängt, vllt wirds dadurch klarer..)
Die Terme musste etwas schieben, damit sie auf die 'Bruchstriche' passen(oder die Txt-Datei ankucken..)
Gruß
ytwinky -
Das ist auch kein Wunder, den TheShadowAE hat den Link 'vergessen'..
GUICtrlSetData
..und ich krieg ihn nicht in den Post..
..versuch's doch über die OnLine-Hilfe ;-))
[Edit]oh, hat ja doch geklappt^^[/Edit]
Gruß
ytwinky -
Hi,
so ein Glück, ich hatte das Programm ja schon fertig^^Spoiler anzeigen
[autoit]#NoTrayIcon
[/autoit] [autoit][/autoit] [autoit]
#include <Constants.au3>;Hier sind $IDYes usw. deklariert..
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
;<AutoItScript>
Opt('MustDeclareVars', 0) ;0=ohne, 1=erfordert Variablen-Deklaration
Const $ScriptType='GUI' ; Steht hier Console oder nur c erkennt Msg() daß es ein CUI.Programm ist..
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf $ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Autor='hhfp.au3 ©2010 by ytwinky, MD'; |
;| EMail: [email='PIII1kSystem-AutoIt3Forum@yahoo.de'][/email] |
;| AutoIt3-Version: 3.3.6.1, Beta: -.-.-.- |
;| Editor: SciTE 1.79d, feste Schriftart |
;| Zweck : Schablone für den Anfang, nach Bedarf anpassen |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $Bewertung[2]=[' nicht', ''], $rot=0xFF0000, $gruen=0x008F00, $Farben[2]=[$rot, $gruen]
Global $Epsilon=0.001, $nk='s', $fmt='%' &$nk
Dim $ar=60, $ah=10, $br=10, $bh=10, $cr=35, $ch=35, $p, $q, $h, $hp, $s, $sab
;h=hp=25, p=q=25
;(Be-)Rechnen wir's doch nach..;<AutoItFunctions>#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#Region ### START Koda GUI section ### Form=D:\Sprachen\AutoIt3\Au3\kxf\hhfp.kxf
$hhfp=GUICreate('hhfp', 573, 667, 189, 111)
GUICtrlCreateGroup('', 0, -4, 571, 669);Main
GUICtrlCreateLabel('Berechnung von Höhe und Höhenfußpunkt in einem Dreieck', 6, 10, 560, 26)
GUICtrlSetFont(-1, 14, 800, 0, 'Arial')
GUICtrlSetColor(-1, 0x000080)
GUICtrlSetTip(-1, $Autor)
GUICtrlCreateLabel('(Überprüfung, ob ein Punkt auf einer gegebenen Geraden liegt..)', 84, 38, 382, 20)
GUICtrlSetFont(-1, 10, 400, 0, 'MS Sans Serif')
$Skizze=GUICtrlCreatePic('G:\Grafik\hhfp_Skizze.gif', 116, 58, 344, 145)
GUICtrlCreateGroup('gegebene Gerade', 6, 204, 559, 89)
GUICtrlCreateLabel('Rechtswert', 176, 221, 58, 17)
GUICtrlCreateLabel('Hochwert', 324, 221, 50, 17)
GUICtrlCreateLabel('Punkt A', 87, 243, 42, 17)
$efar=GUICtrlCreateInput('10', 152, 240, 141, 21)
$efah=GUICtrlCreateInput('10', 296, 240, 141, 21)
GUICtrlCreateLabel('Punkt B', 86, 267, 42, 17)
$efbr=GUICtrlCreateInput('60', 152, 264, 141, 21)
$efbh=GUICtrlCreateInput('10', 296, 264, 141, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('zu untersuchender Punkt', 6, 294, 559, 91)
GUICtrlCreateLabel('Rechtswert', 176, 311, 58, 17)
GUICtrlCreateLabel('Hochwert', 324, 311, 50, 17)
GUICtrlCreateLabel('Punkt C', 86, 333, 42, 17)
$efcr=GUICtrlCreateInput('35', 152, 330, 141, 21)
$efch=GUICtrlCreateInput('35', 296, 330, 141, 21)
GUICtrlCreateLabel('erlaubte Abweichung', 24, 357, 104, 17)
$eferlaubt=GUICtrlCreateInput($Epsilon, 152, 354, 141, 21)
$lblBewertung=GUICtrlCreateLabel('', 298, 356, 250, 17)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('berechnet', 6, 387, 559, 225)
GUICtrlCreateEdit('', 12, 410, 133, 97, $ES_READONLY, 0)
GUICtrlSetData(-1, StringFormat('Berechnete Werte haben\r\ndie selbe Einheit, wie die\r\neingegebenen Koordinaten\r\n(also auch die Proben..)'))
GUICtrlCreateGroup('', 152, 396, 407, 117)
GUICtrlCreateLabel('c', 272, 410, 10, 17)
$efsab=GUICtrlCreateInput('', 296, 407, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlCreateLabel('p', 272, 435, 10, 17)
$efp=GUICtrlCreateInput('', 296, 432, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlCreateLabel('q', 272, 460, 10, 17)
$efq=GUICtrlCreateInput('', 296, 457, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlCreateLabel('h', 272, 487, 39, 17)
$efh=GUICtrlCreateInput('', 296, 484, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('Berechnungsproben', 10, 513, 549, 95)
GUICtrlCreateLabel('Differenzen(erlaubt=0)', 302, 531, 108, 17)
GUICtrlCreateLabel('c=p+q', 116, 556, 34, 17)
$efc=GUICtrlCreateInput('', 156, 553, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
GUICtrlSetTip(-1, '=Strecke von A nach B(Soll)')
$efDiffSab=GUICtrlCreateInput('', 300, 553, 141, 21)
GUICtrlCreateLabel("h'", 136, 581, 18, 17)
$efhp=GUICtrlCreateInput('', 156, 578, 141, 21, BitOR($ES_RIGHT,$ES_AUTOHSCROLL))
$efDiffh=GUICtrlCreateInput('', 300, 578, 141, 21)
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('', 6, 614, 559, 41) ;bedienfeld
$cmbnk=GUICtrlCreateCombo('Nachkommastellen(default=0)', 12, 626, 163, 25)
GUICtrlSetData(-1, '1|3|5|7|E-Format|*')
$btnBerechnen=GUICtrlCreateButton('Berechnen', 261, 625, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, 'MS Sans Serif')
$btnQuit=GUICtrlCreateButton('Quit', 484, 625, 75, 25, $WS_GROUP)
GUICtrlSetFont(-1, 8, 800, 0, 'MS Sans Serif')
GUICtrlCreateGroup('', -99, -99, 1, 1)
GUICtrlCreateGroup('', -99, -99, 1, 1) ;Main
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###While 1
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE, $btnQuit
Exit
Case $efar, $efah, $efbr, $efbh, $efcr, $efch, $eferlaubt
DisplayClear()
Case $cmbnk
$nk=GUICtrlRead($cmbnk)
Switch StringLower(StringLeft($nk, 1))
Case 'n', '*'
$fmt='%s'
Case '1'
$fmt='%.1f'
Case '3'
$fmt='%.3f'
Case '5'
$fmt='%.5f'
Case '7'
$fmt='%.7f'
Case 'e'
$fmt='%.14e'
Case '*'
$fmt=''
EndSwitch
DisplayNk()
Case $btnBerechnen
$ar=GUICtrlRead($efar)
$ah=GUICtrlRead($efah)
$br=GUICtrlRead($efbr)
$bh=GUICtrlRead($efbh)
$cr=GUICtrlRead($efcr)
$ch=GUICtrlRead($efch)
$h=HHFP($ar, $ah, $br, $bh, $cr, $ch, $p, $q, $hp, $sab)
$h=HHFP($ar, $ah, $br, $bh, $cr, $ch, $p, $q, $hp, $sab)
DisplayNk()
EndSwitch
WEndFunc HHFP($ARechts, $AHoch, $BRechts, $BHoch, $CRechts, $CHoch, byRef $p, byRef $q, byRef $hp, byRef $ab)
[/autoit] [autoit][/autoit] [autoit]
Local $bc=Sqrt(($BRechts-$CRechts)^2+($BHoch-$CHoch)^2), $ac=Sqrt(($ARechts-$CRechts)^2+($AHoch-$CHoch)^2)
$ab=Sqrt(($ARechts-$BRechts)^2+($AHoch-$BHoch)^2)
$p=($ab*$ab+$ac*$ac-$bc*$bc)/(2*$ab)
$q=($ab*$ab+$bc*$bc-$ac*$ac)/(2*$ab)
$h=Sqrt($bc*$bc-$q*$q)
$hp=Sqrt($ac*$ac-$p*$p)
Return $h
EndFuncFunc DisplayNk()
[/autoit] [autoit][/autoit] [autoit]
Local $i=$h=0
If Not $i Then $i=Abs($h)<=GUICtrlRead($eferlaubt); $h ist<>0, prüfen, ob Abweichung erlaubt..
GUICtrlSetData($efsab, StringFormat($fmt, $sab))
GUICtrlSetData($efp, StringFormat($fmt, $p))
GUICtrlSetData($efq, StringFormat($fmt, $q))
GUICtrlSetData($efh, StringFormat($fmt, $h))
GUICtrlSetData($efc, StringFormat($fmt, $p+$q))
GUICtrlSetData($efDiffSab, StringFormat('%g', $sab-$p-$q))
GUICtrlSetData($efhp, StringFormat($fmt, $hp))
GUICtrlSetData($efDiffh, StringFormat('%g', $h-$hp))
GUICtrlSetData($lblBewertung, 'Punkt C liegt' &$Bewertung[$i] &' auf der Geraden AB')
GUICtrlSetColor($lblBewertung, $Farben[$i])
EndFuncFunc DisplayClear()
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
GUICtrlSetData($efsab, '')
GUICtrlSetData($efp, '')
GUICtrlSetData($efq, '')
GUICtrlSetData($efh, '')
GUICtrlSetData($efc, '')
GUICtrlSetData($efDiffSab, '')
GUICtrlSetData($efhp, '')
GUICtrlSetData($efDiffh, '')
GUICtrlSetData($lblBewertung, '')
EndFuncFunc Msg($What, $Title=$Autor, $Icons=0, $ErrLevel=0)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
Local $RetWert
Switch StringLower($ScriptType)
Case 'c', 'console', 'cui'
ConsoleWrite($Title &@CrLf &$What)
$RetWert=0
Case Else
$RetWert=MsgBox($Icons, $Title, $What)
EndSwitch
If $ErrLevel Then Exit $ErrLevel
Return $RetWert
EndFunc;</AutoItScript>
[/autoit]
Viel Spaß damit..
Gruß
ytwinky -
hi,
das läßt sich mit 'Berechnung von Höhe und Höhenfußpunkt' leicht lösen:
http://www.freebasic-portal.de/code-beispiele…ade-ab-191.html
(das ist zwar ein FreeBasic-Programm, aber von jedem Programmierer leicht umsetzbar..)
Bei Bedarf kann ich mich dransetzen und das Dings mal nach AutoIt portieren..
[Edit]
..wäre dankbar für jede Hilfe zu Umsetzung der Records/UDTs nach AutoIt
(Ich brauche keine Hilfe bei der Umsetzung der Types in Arrays, denn das kann ich^^)
[/Edit]
Gruß
ytwinky