Beiträge von FireFlyer

FireFlyer

es gibt schöne pages und schöne udfs auch in PHP *vorpeewegrenn*

http://www.theworldsend.net/php-ping.php

script kann man auch downloaden und abändern

/edit: hups, sorry thread is ja schon solved :O

FireFlyer

so ich hatte jetzt endlich mal kurz 2 minuten.. ich habs doch net mit ner doppelten schleife gemacht sondern mit ner rekursiven funktion

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Sound.au3>

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

Opt("GUICloseOnESC", 1)
opt("TrayMenuMode", 1)
Opt("GUIOnEventMode", 1)
Opt("TrayOnEventMode", 1)

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

Global $open_tray, $About_tray, $Lizenz_tray, $exit_tray, $mguu, $gmsg, $tsmg, $nein, $ja

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

main()

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

Func main()
$open_tray = TrayCreateItem ("Neu [F3]")
TrayItemSetOnEvent($open_tray, "main")

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

;$Alarm_tray = TrayCreateItem ("Alarm")
;TrayItemSetOnEvent (-1, "Alarm")
$About_tray = TrayCreateItem ("About [F1]")
TrayItemSetOnEvent($about_tray, "about")

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

$Lizenz_tray = TrayCreateItem ("Lizenz [F2]")
TrayItemSetOnEvent($Lizenz_tray, "lizenz")

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

TrayCreateItem ("")
$exit_tray = TrayCreateItem ("Exit [Alt+F4]")
TrayItemSetOnEvent($exit_tray, "Set_Exit")

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

TraySetState ()

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

HotKeySet("{F1}", "About")
HotKeySet("{F2}", "Lizenz")
HotKeySet("{F3}", "main")
HotKeySet("!" & "{F4}", "Set_Exit")

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

$mguu = GUICreate("Mal ganz unter uns", 225, 120)
GUICtrlCreateLabel("Hast du eigentlich einen kleinen P****?", 20, 30)
$ja = GUICtrlCreateButton("Ja", 50, 70, 50, 25)
GUICtrlSetOnEvent($ja, "ja")
GUICtrlSetCursor(-1, 0)
$nein = GUICtrlCreateButton("Nein", 120, 70, 50, 25)
GUICtrlSetOnEvent($nein, "nein")
GUICtrlSetCursor(-1, 0)

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

GUISetState()

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

While 1

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

WEnd
EndFunc

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

Func About()
MsgBox(64, "About", "team2way")
EndFunc

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

Func Lizenz()
MsgBox(0, "Lizenz", "hier die lizenz")
EndFunc

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

Func Set_Exit()
GUIDelete($mguu)
MsgBox(0, "Info", "Hab ich`s doch gewusst!")
Exit
EndFunc ;==>Set_Exit

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

Func Ja()
GUIDelete($mguu)
MsgBox(0, "Info", "Hab ich`s doch gewusst!")
EndFunc

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

Func Nein()
GUICtrlDelete($nein)
EndFunc

[/autoit]

FireFlyer

GUIOnEventMode?^^

sry ich werd das script bei mir heute abend testen

FireFlyer

weiss net ob mans mit tracerout vllt besser rausmessen kann

FireFlyer

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
#include <Sound.au3>

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

Opt("GUICloseOnESC", 1)
opt("TrayMenuMode", 1)
opt("TrayOnEventMode", 1)

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

While 1
Global $open_tray, $About_tray, $Lizenz_tray, $exit_tray, $mguu
$open_tray = TrayCreateItem ("Neu [F3]")
TrayItemSetOnEvent (-1, "Nload")
;$Alarm_tray = TrayCreateItem ("Alarm")
;TrayItemSetOnEvent (-1, "Alarm")
$About_tray = TrayCreateItem ("About [F1]")
TrayItemSetOnEvent (-1, "About")
$Lizenz_tray = TrayCreateItem ("Lizenz [F2]")
TrayItemSetOnEvent (-1, "Lizenz")
TrayCreateItem ("")
$exit_tray = TrayCreateItem ("Exit [Alt+F4]")
TrayItemSetOnEvent (-1, "Set_Exit")

TraySetState ()

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

HotKeySet("{F1}", "About")
HotKeySet("{F2}", "Lizenz")
HotKeySet("{F3}", "Nload")
HotKeySet("!" & "{F4}", "Set_Exit")

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

$mguu = GUICreate("Mal ganz unter uns", 225, 120)
GUICtrlCreateLabel("Hast du eigentlich einen kleinen P****?", 20, 30)
$ja = GUICtrlCreateButton("Ja", 50, 70, 50, 25)
GUICtrlSetCursor(-1, 0)
$nein = GUICtrlCreateButton("Nein", 120, 70, 50, 25)
GUICtrlSetCursor(-1, 0)

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

GUISetState()

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

While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Set_Exit()
$msg = GUIGetMsg()
Case $msg = $ja
GUIDelete($mguu)
MsgBox(0, "Info", "Hab ich`s doch gewusst!")
Case $msg = $nein
GUICtrlDelete($nein)
EndSelect
WEnd
GUIDelete($mguu)
WEnd

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

Func Nload()
ExitLoop
EndFunc

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

Func About()
MsgBox(64, "About", "team2way")
EndFunc

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

Func Lizenz()
MsgBox(0, "Lizenz", "hier die lizenz")
EndFunc

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

Func Set_Exit()
GUIDelete($mguu)
MsgBox(0, "Info", "Hab ich`s doch gewusst!")
Exit
EndFunc ;==>Set_Exit

[/autoit]

keine ahnung obs so geht kanns leider nicht testen

Generell: Es ist ein schlechter Stil im Tray On Event Mode zu arbeiten aber gleichzeitig mit GUIGetMsg

FireFlyer

ähhm du laberst immer von WinGetText aber in deinen Beispielen ist ControlGetText... was denn nun???

FireFlyer

machs am besten über ne doppelte schleife

[autoit]

While 1
;gUI etc

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

While 1
;das die gui offen bleibt
WEnd
WEnd

[/autoit]

Und wenn du es schon über eine Func machst so solltest du das traymenu vllt in die func einbeziehn

FireFlyer

[autoit]

If Not StringInStr($string, "http://") Then ;...

[/autoit]

FireFlyer

hä? also irgendwas stimmt da mit dem quellcode der seite nicht... ist die evt in framse aufgebaut??

FireFlyer

ups sorry hat ich vergessen :/... naja war ja auch schon spät^^

FireFlyer

warum einfach wenns auch kompliziert geht?

nein da hatte funkey wohl mal wieder die bessere lösung parat

FireFlyer

Ich habe mal alle zeilen markiert die ich geändert habe + die sachen aus der whileschleife gelöscht

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

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

Opt("GUIOnEventMode", 1);<<<<<<<<<<<<<<<<<<<<<<<<<<<<

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

#Region ### START Koda GUI section ### Form=
$zahl = "0"
$Form1 = GUICreate("Form1", 221, 334, 193, 125)
$Group1 = GUICtrlCreateGroup("Group1", 32, 16, 161, 81)
$Label1 = GUICtrlCreateLabel($zahl, 48, 32, 36, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("add", 16, 128, 177, 41, 0)
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit") ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
GUICtrlSetOnEvent($Button1,"_add1")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

Func _add1()
$zahl = GUICtrlRead($Label1);<<<<<<<<<<<<<<<<<<<<<<<<<
$zahl = $zahl + 1
GUICtrlSetData($Label1, $zahl);<<<<<<<<<<<<<<<<<<<<<<
EndFunc

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

Func _exit() ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
Exit
EndFunc

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

While 1

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

WEnd

[/autoit]

FireFlyer

so ich hatte endlich zeit zum durchtesten -.-

so funktioniert der code

Spoiler anzeigen

[autoit]

$string = "Deutsche AutoIt Seite"
$newstring = StringRegExpReplace($string, "^\[url=(.+?)\](.+?)\[\/url\]$", '<a href="$1">$2</a>')
MsgBox(0, "Der konvertierte text", $newstring)

[/autoit]

bei preg_match (php) leite ich den ausdruck mit einem / ein und beende ihn auch wieder mit einem /+parameter... wiso gibts da unterschiede zu autoit? Ist so ein regex nicht standartisiert?

FireFlyer

na da würd ich doch mal sagen
_IEBodyReadHTML

eine html tabelle sieht wie folgt aus:
<table><tr><td>Zeile1, Spalte1</td><td>Zeile1, Spalte2</td></tr>
<tr><td>Zeile2, Spalte1</td><td>Zeile2, Spalte2</td></tr></table>

das ganze mit einem regulären ausdruck z.b. in Zeile1, Spalte1; Zeile1, Spalte2 usw

dann kannst du entweder alles in ein array laden oder direkt als csv abspeichern

btw ein code der seite oder zumindest ein ähnlicher aufbau der tabelle wäre hilfreich

aso und ja.. man kann den internet explorer versteckt starten ansonsten InetGetSource verwenden

FireFlyer

@Jam...

ich weiss ja nicht was du für eine Hilfe benutzt aber:
http://www.autoitscript.com/autoit3/docs/functions/RunAs.htm

Zitat

Return Value
Success: The PID of the process that was launched.
Failure: Returns 0 and sets @error to non-zero.

FireFlyer

das ist genau das was ich oben geschrieben hatte...

Du musst abfragen ob RunAs einen error zurückgibt, wenn nicht hat alles geklappt wenn ein error da ist gibt es offensichtlich ein problem, ob dieser allerdings durch fehlende rechte herbeigeführt wurde kann man wohl nicht sagen

EDIT: Wie es wird kein error zurückgegeben???

FireFlyer

hmpf mit der runas funktion... tja da bleibt dir fast nur übrig zu schauen ob runas einen error zurückgibt, das muss aber nicht unbedingt heissen das der user keine adminrechte hat... also probiers mal so:

Spoiler anzeigen

[autoit]

#include <GUIConstantsEx.au3>

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

Opt('MustDeclareVars', 1)
_Main()
Func _Main()

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

Local $Button1ID, $Button2ID, $Button3ID, $Button4ID, $ExitID, $InfoID, $msg, $runas
Local $sUserName = "Administrator"
Local $sPassword = "Passwort"
Local $Startdatei1 = "c:\windows\system32\powercfg /h on"
Local $Startdatei2 = "c:\windows\system32\powercfg /h off"
Local $Startdatei3 = "rundll32 printui.dll,PrintUIEntry /il"

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

GUICreate("USS", 170, 160)
$Button1ID = GUICtrlCreateButton("Hibernate ON", 10, 10, 150, 20)
$Button2ID = GUICtrlCreateButton("Hibernate OFF", 10, 30, 150, 20)
$Button3ID = GUICtrlCreateButton("Lokale Druckerinstallation", 10, 50, 150, 20)
$ExitID = GUICtrlCreateButton("Beenden", 10, 100, 150, 20)
$InfoID = GUICtrlCreateButton("Info", 10, 130, 150, 20)
GUISetState()

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

Do
$msg = GUIGetMsg()
Select

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

Case $msg = $Button1ID
RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei1, @ScriptDir)
If @error Then MsgBox(0, "Fehler", "Es gab einen Fehler!") ;<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
MsgBox (32, "Hinweis", "Hibernate ON")
Case $msg = $Button2ID
RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei2, @ScriptDir)
MsgBox (32, "Hinweis", "Hibernate OFF")
Case $msg = $Button3ID
RunAs($sUserName, @ComputerName, $sPassword, 0, $Startdatei3, @ScriptDir)
Case $msg = $InfoID
MsgBox(0, "Info", "USS (User-Self-Service)"&@CRLF&"Version: 1.0")
Case $msg = $ExitID
Case $msg = $GUI_EVENT_CLOSE

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

EndSelect
Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID
EndFunc

[/autoit]

FireFlyer

ähh und woher hat der user jetzt die adminrechte?

Also testen ob ein User Adminrechte hat oder nicht tut man einfach so:

[autoit]

If IsAdmin() Then
MsgBox(0, "", "User hat Adminrechte")
Else
MsgBox(0, "", "User hat keine Adminrechte")
EndIf

[/autoit]

FireFlyer

ähh wo sind die daten hinterlegt und wie holst du sie mit autoit? bzw. weisst dem benutzer die adminrechte zu???
Stehe ich grad aufm schlauch oder ist dass das komplette script?

FireFlyer

@Jam

wenn du schon so hohe Ansprüche an deine Programme stellst, dann musst du auch damit rechnen das die Funktionen und Programme auch an dich hohe Anforderungen stellen, in Form von Zeitaufwand, Komplexität etc.

Nicht umsonst wird bei Systementwicklern/Programmierern eine hohe Kenntniss der Englischen Sprache vorrausgesetzt

Beiträge von FireFlyer

Ping funktion sendet immer eine Ping zeit zurück

Neu laden per Traymenu!?

Neu laden per Traymenu!?

Ping funktion sendet immer eine Ping zeit zurück

Neu laden per Traymenu!?

WinGetText Hilfe

Neu laden per Traymenu!?

ProcessClose geht nicht ganz

Website im Hintergrund kopieren und in Excel einfügen

Bei Klick auf Button in einer Gui + 1 Addieren und Anzeigen

Website im Hintergrund kopieren und in Excel einfügen

Bei Klick auf Button in einer Gui + 1 Addieren und Anzeigen

Umbenennen & StringLower()

Website im Hintergrund kopieren und in Excel einfügen

Fehlermeldung ausgeben

Fehlermeldung ausgeben

Fehlermeldung ausgeben

Fehlermeldung ausgeben

Fehlermeldung ausgeben

Runder Button