Öhm, wie wärs mit:
#include <IE.au3>
$IE = _IECreate()
_IENavigate( $IE, "http://www.antenne.de" )
mfg Noels =)
Öhm, wie wärs mit:
#include <IE.au3>
$IE = _IECreate()
_IENavigate( $IE, "http://www.antenne.de" )
mfg Noels =)
Ich weiß nicht genau, ob es das ist was du suchst,
aber vll ist es ja
ToolTip ?
Oder soll es eine riesengroße Nachricht in pink mit blauen Streifen sein ?
noels =)
Wie willst das sonst machen ?
Wenn de mit Sleep arbeitest wird das Programm träge
--> reagiert kaum noch.
Edit:
Und mit Timern erschien mir das simpel
Ich hab seeehr viel durchprobiert..
alles andere war reaktionsträge, ungenau,
oder übelzt Speicherfressend
( 50 % cpu - auslastung -- ich hab nen DualCore. )
Hast denn ne Idee, wo man noch kürzen kann?
Ach... und ich könnte das Script noch auf
Tastatur reagieren lassen.... :p
$inhalt = GUICtrlRead( $input )
Edit:
wenn du $inhalt = $input machst, dann ist $inhalt = die CtrlID, aber
nicht gleich dem, was in dem Feld steht.
Jaja, meine Mudda müsstet ihr kennen
Macht ihren PC an, geht vor weg und kommt auch nicht
wieder
Und wir sind dann die blöden die ihren PC hinter ihr aus machen
Und das ist auch schon der Grund, warum ich mich in
AutoIt reingearbeitet habe xD
Denn:
Bei Windoof kann man den PC in standby / Ruhezustand versetzen lassen,
aber nicht bei Inaktivität ausschalten. Windoof halt.
Mir scheint mein Script dazu relativ ausgereift
(Ideen / Verbesserungen werden dankend angenommen ^^),
würd mich über eure Meinungen freuen, und wenns wer
nutzen will... greif zu, ich kanns ja nicht verhindern
Ahja.. dieses komische rumgerechne mit $sleep und $wait kommt
daher, dass ich inzwischen 5 versionen von dem Script geschrieben hab,
und in der ersten Versuchen ich noch mit Sleep's gearbeitet hab,
was das ganze ungenau und träge machte..
könnt ihr kürzen
(Für die ersten Versionen würdet ihr mich sowieso nur auslachen,
deshalb lass ich die ma vorerst weg ^^)
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.2.0
Author: noels
Script Function:
Herunterfahren bei Inaktivitität, CPU-schonend
Inklusive Autostart und speichern der Zeiteinstellung in einer Ini.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]#include <GuiConstants.au3>
#include <Constants.au3>
RegRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Inaktiv5.1" )
If @error Then
$answer = MsgBox( 4+32, "Autostart", "Möchten Sie das Programm in den" & @CRLF & "Autostart setzen?" )
If $answer = 6 Then
RegWrite( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Inaktiv5.1", "REG_SZ", @ScriptFullPath )
ElseIf $answer = 7 Then
MsgBox( 0, "Autostart", "Das Programm wurde nicht in den" & @CRLF & "Autostart gesetzt." )
EndIf
EndIf
Dim $i = 0
$sleep = IniRead( @MyDocumentsDir&"\Inaktiv.ini", "Sleep", "Minuten", 20 )
Dim $wait = $sleep*60000
Opt("TrayAutoPause", 0 )
Opt( "TrayMenuMode", 1 )
Opt( "GUIOnEventMode", 1 )
Opt( "TrayOnEventMode", 1 )
$tray_wieder = TrayCreateItem( "Wiederherstellen" )
TrayItemSetOnEvent( $tray_wieder, "wieder" )
$tray_exit = TrayCreateItem( "Exit" )
TrayItemSetOnEvent( $tray_exit, "quit" )
$main = GuiCreate("Inaktiv5.1", 371, 135,-1, -1 )
$menu = GUICtrlCreateMenu( "&Datei" )
$zeit_def = GUICtrlCreateMenuitem( "Zeit zum Shutdown", $menu )
$deinstall = GUICtrlCreateMenuitem( "Deinstallieren?", $menu )
GUICtrlSetOnEvent( $deinstall, "deinstall" )
GUICtrlSetOnEvent( $zeit_def, "einstellungen" )
$Progress_1 = GuiCtrlCreateProgress(30, 40, 310, 20)
$Button_2 = GuiCtrlCreateButton("Beenden", 220, 90, 110, 20)
GUICtrlSetOnEvent( $Button_2, "quit" )
GUISetOnEvent( $GUI_EVENT_MINIMIZE, "mini" )
GUISetOnEvent( $GUI_EVENT_CLOSE, "mini" )
GuiSetState(@SW_HIDE)
While 1
$ax = MouseGetPos(0)
$ay = MouseGetPos(1)
Sleep( 30000 ) ;alle 30 sec abfragen
$bx = MouseGetPos(0)
$by = MouseGetPos(1)
$timer = TimerInit()
While $ax = $bx And $ay = $by
$bx = MouseGetPos(0)
$by = MouseGetPos(1)
Sleep( 1000 )
$diff = TimerDiff( $timer )
GUICtrlSetData( $Progress_1, ($diff/$wait)*100 )
If $diff/$wait > 1 Then
Shutdown( 13 )
EndIf
WEnd
$timer = TimerInit()
$diff = TimerDiff( $timer )
GUICtrlSetData( $Progress_1, ($diff/$wait)*100 )
WEnd
Func quit()
Exit
EndFunc
Func mini()
GUISetState( @SW_HIDE, $main )
EndFunc
Func wieder()
GUISetState( @SW_SHOW, $main )
EndFunc
Func einstellungen()
Opt( "GUIOnEventMode", 0 )
$opt_gui = GuiCreate("Optionen", 248, 133,-1, -1 )
$Input_1 = GuiCtrlCreateInput($sleep, 40, 50, 30, 20)
$Label_2 = GuiCtrlCreateLabel("min: 10 max: 120", 40, 20, 160, 20)
$Label_3 = GuiCtrlCreateLabel("Minuten bis zum Shutdown", 80, 50, 140, 20)
$Button_4 = GuiCtrlCreateButton("OK", 80, 90, 80, 20, $BS_DEFPUSHBUTTON)
GuiSetState()
$x = 1
While $x = 1
$msg = GUIGetMsg()
If $msg = $Button_4 Then
$sleep = GUICtrlRead( $Input_1 )
$check = StringIsDigit ( $sleep )
If $check = 0 Then
MsgBox( 48, "Error", "Zahl bitte NICHT ausschreiben ;)" )
ElseIf $check = 1 Then
If $sleep > 120 or $sleep < 10 Then
MsgBox( 48, "Error", "Mindestens 10, höchstens 120 Minuten!" )
ElseIf $sleep > 9 And $sleep < 121 Then
IniWrite( @MyDocumentsDir&"\Inaktiv.ini", "Sleep", "Minuten", $sleep )
$wait = $sleep*60000
GUIDelete( $opt_gui )
Opt( "GUIOnEventMode", 1 )
$x = 2
EndIf
EndIf
EndIf
WEnd
EndFunc
Func deinstall()
$de_ans = MsgBox( 32+4, "Deinstallieren", "Möchten Sie das Programm vollständig" & @CRLF & "von Ihrem Rechner entfernen?" )
If $de_ans = 6 Then
RegRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Inaktiv5.1" )
If Not @error Then
RegDelete( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run", "Inaktiv5.1" )
EndIf
FileDelete( @MyDocumentsDir&"\Inaktiv.ini" )
GUIDelete( $main )
FileDelete( @ScriptFullPath )
ElseIf $de_ans = 7 Then
MsgBox( 0, "Deinstallation", "Abgebrochen" )
EndIf
EndFunc
Joa,
mfG Noels
Hallo
Ich hab ma wieder ein Problem.
Und zwar versuch ich grade nen TCP - Chat selbst zu schreiben,
klar, gibts schon massig, und auch viel bessere als meinen,
doch die Betonung liegt auf selbst
So.
Das Problem ist, dass ich nicht weiß, was mein Problem ist xD
Das funzt einfach ma wieder nicht, und wahrscheinlich
ist der Fehler so banal und einfach, dass ich mich nachher schämen
muss dafür n neues Topic erstellt zu haben
Alsoo.. connecten funzt..
aber die Nachrichten kommen nicht an..
bitte überseht Feinheiten und Stellen, wo ichs kürzen könnte,
der Feinschliff kommt später
Ach, und wenn euch meine Variablennamen nicht gefallen,...
helft mir, ich bin immer so unkreativ
Hab ich jz alles gesagt was ihr wissen müsst...?
ahja, mein Code:
(SocketToIP hab ich aus der Hilfe übernommen )
Für Schäden an Augen oder Hirn aufgrund beschi****** Code übernehme
ich grundsätzlich keine Haftung.
Lesen auf eigene Gefahr.
Kinder haften für ihre Eltern.
Dim $connected = 0
Dim $mainsocket
Dim $in_connector = 0
TCPStartup()
[/autoit] [autoit][/autoit] [autoit]$mysocket = TCPListen( Inputbox( "Verbindung ermöglichen", "Bitte gib hier deine IP an." ), 1337 )
$myname = InputBox( "Dein Name", "Bitte gib hier deinen Namen ein." )
If @error = 1 Then Exit
#include <GuiConstants.au3>
Opt( "GUIOnEventMode", 1 )
Opt( "TrayAutoPause", 0 )
$main = GuiCreate("Chat", 237, 310,-1, -1 )
$Edit_income = GuiCtrlCreateEdit("", 20, 40, 190, 160, $ES_READONLY )
$Edit_output = GuiCtrlCreateEdit("", 20, 210, 190, 50)
$Button_send = GuiCtrlCreateButton("senden", 40, 270, 150, 20, $BS_DEFPUSHBUTTON )
GUICtrlSetState( $Button_send, $GUI_DISABLE )
GUICtrlSetOnEvent( $Button_send, "_senden" )
$menu = GUICtrlCreateMenu( "Verbinden" )
$menu_verbinden = GUICtrlCreateMenuitem( "Verbindung herstellen mit...", $menu )
GUICtrlSetOnEvent( $menu_verbinden, "_verbinden" )
GUISetOnEvent( $GUI_EVENT_CLOSE, "_exit" )
GuiSetState()
While 1
If $connected = 1 Then
$get = TCPRecv( $mainsocket, 2048 )
If Not $get = "" Then
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income ) & @CRLF & $yourname & ":" & $get )
EndIf
EndIf
If $connected = 1 And GUICtrlGetState( $Button_send ) = $GUI_DISABLE Then
GUICtrlSetState( $Button_send, $GUI_ENABLE )
ElseIf $connected = 0 And GUICtrlGetState( $Button_send ) = $GUI_ENABLE Then
GUICtrlSetState( $Button_send, $GUI_DISABLE )
EndIf
If $connected = 0 And $in_connector = 0 Then
$yoursocket = TCPAccept( $mysocket )
If $yoursocket <> -1 Then
$in_connector = 1
MsgBox( 0, "Verbunden", "Jemand hat eine Verbindung zu dir aufgebaut.", 5 )
$income_connection = TCPConnect( SocketToIP( $yoursocket ), 1337 )
If $income_connection = -1 Then
MsgBox( 0, "Error", "Verbindung fehlgeschlagen. Er/Sie kann keine Nachrichten von dir empfangen.", 5 )
Else
$connected = 1
GUICtrlSetState( $Button_send, $GUI_ENABLE )
EndIf
EndIf
EndIf
Sleep( 300 )
WEnd
Func _exit()
Exit
EndFunc
Func OnAutoItExit()
TCPShutdown()
EndFunc
Func _verbinden()
Opt( "GUIOnEventMode", 0 )
$con = GuiCreate("Einstellungen", 182, 220,-1, -1 )
$Input_3 = GuiCtrlCreateInput("Die IP zum connecten", 20, 30, 140, 20)
$Group_5 = GuiCtrlCreateGroup("Daten des Freundes", 10, 10, 160, 80)
$Input_6 = GuiCtrlCreateInput("Name des Freundes", 20, 60, 140, 20)
$Button_7 = GuiCtrlCreateButton("OK", 10, 190, 80, 20)
$Button_8 = GuiCtrlCreateButton("Abbrechen", 90, 190, 80, 20)
GuiSetState()
Sleep( 1000 )
Dim $a = 0
While $a = 0
$msg = GuiGetMsg()
Select
Case $msg = $Button_8
GUIDelete()
Opt( "GUIOnEventMode", 1 )
ExitLoop
Case $msg = $Button_7
$yourname = GUICtrlRead( $Input_6 )
$yourip = GUICtrlRead( $Input_3 )
For $i = 1 To 5
$yoursocket = TCPConnect( $yourip, 1337 )
GUISwitch( $main )
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income ) & @CRLF & "Verbinungsversuch - " & $i )
GUISwitch( $con )
If $yoursocket <> -1 Then
GUISwitch( $main )
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income ) & @CRLF & "Verbindung hergestellt." )
GUISwitch( $con )
GUIDelete()
$connected = 1
GUICtrlSetState( $Button_send, $GUI_ENABLE )
$a = 1
Opt( "GUIOnEventMode", 1 )
ExitLoop
EndIf
Next
If $yoursocket = -1 Then
GUISwitch( $main )
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income ) & @CRLF & "Verbindung fehlgeschlagen." )
GUISwitch( $con )
GUIDelete()
Opt( "GUIOnEventMode", 1 )
ExitLoop
EndIf
EndSelect
WEnd
EndFunc
Func _senden()
$send = GUICtrlRead( $Edit_output )
TCPSend( $yoursocket, $send )
GUICtrlSetData( $Edit_output, "" )
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income )& @CRLF & $myname & ": " & $send )
EndFunc
Func SocketToIP($SHOCKET)
Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")
Local $aRet = DLLCall("Ws2_32.dll","int","getpeername","int",$SHOCKET, _
"ptr",DLLStructGetPtr($sockaddr),"int_ptr",DLLStructGetSize($sockaddr))
If Not @error And $aRet[0] = 0 Then
$aRet = DLLCall("Ws2_32.dll","str","inet_ntoa","int",DLLStructGetData($sockaddr,3))
If Not @error Then $aRet = $aRet[0]
Else
$aRet = 0
EndIf
$sockaddr = 0
[/autoit] [autoit][/autoit] [autoit]Return $aRet
EndFunc
Zitat??? Was soll das werden ???
Ich hab letztens was von nem Spielzeugauto gelesen,
dass man per Handy / PC über Bluetooth fernsteuern kann.
aber ganz so machthungrig und größenwahnsinnig bin ich nicht,
noch nicht
Ganz ehrlich?
Ich habe noch ein paar kleine Knaller von Sylvester hier rumliegen...
und wir haben untereinander fantasiert in unserem Wahn,
und überlegt, das es ziemlich witzig wär, Böller per Laptop
hochgehn lassen zu können...
Wenn man dann so n schönes Prog hätte ...
mit GUI ...
und die dann der Reihe nach hochgehn lassen würde..
Ich dachte ich hätte keinen Bluetooth - Sender...
hab aber doch vorhin doch einen inner Ecke gefunden,
der sich zum Ausprobieren wohl eignen würde
Zitatwenn deine LED an einen Rechner hängt
Nun, eine Fernsteuerung, bei der ein PC am Gerät hängen und
eingeschaltet sein muss, ist doch sehr... umständlich
ZitatDu willst bestimmt repeaten.
Bis ich grade bei Wikipedia nachgeschlagen habe, wusste ich nichtmal,
wovon du redest
Ich möchte hier nochmal anmerken, dass ich keineswegs vor habe,
die Schule in die Luft zu jagen. Das mach ich bereits jede Nacht
...
Ehrlich nicht !
Nun, da ich glaube, dass einige hier
sehr viel mehr Ahnung von Technik ect. haben als ich,
frag ich hier einfach ma was nach :
Es scheint mir möglich zu sein, das Wlan von
meinem Laptop auf "Senden" umzuschalten
Nun, zumindest *ist da so'n Schalter mit so nem Symbol:*
[Blockierte Grafik: http://web.informatik.uni-bonn.de/DV/dienste/wlan/wlan.gif]
(Naja so ähnlich ne Art Sendemast halt...)
Nun, die Frage ist, ob ich meinen Laptop dazu bringen
kann, ein Signal mit einer best. Frequenz zu senden um damit
zB 10m weiter ne LED anzuknipsen
:lol:
Wär doch ma was
mfG Nöls =)
Wow, danke =)
funktioniert
Hallo
Ich arbeite gerade, just 4 fun, an einem
"Hausaufgaben-Planer".
Das erste Gerüst steht, aber um die Bedienung
einfacher zu gestalten möchte ich, dass der Benutzer
eine Änderung der HA in eine Editbox einfügt.
Das soll dann mit dem Button "Save" in einer Ini-Datei
abgespeichert werden.
Problem:
bei mehreren Zeilen wird nur die erste aus der
Ini ausgelesen...
( Ich bin halt noch sehr unerfahren )
Auszüge aus meinem Code:
[autoit]#include <GUIConstants.au3>
$fach = "----"
$hashow = "----"
GUICreate( "Hausaufgaben - Planer v. 2.5", 300, 600, )
GUICtrlCreateLabel( "Der Hausaufgaben-Planer speichert deine" & @CRLF & "Aufgaben ab und lässt dich sie" & @CRLF & "bearbeiten. Beim 'Ändern' wird die" & @CRLF & "alte Aufgabe überschrieben." & @CRLF & @CRLF & "Viel Spaß ! =)", 30, 30 )
$radio_1 = GUICtrlCreateRadio( "Deutsch", 30, 120, 110 )
$radio_2 = GUICtrlCreateRadio( "Englisch", 30, 150, 110 )
;[...]
$button_1 = GUICtrlCreateButton( "SAVE", 195, 400, 70 )
$label = GUICtrlCreateLabel( "In " & $fach & " hast du auf:", 160, 120, 120, 30 )
$edit = GUICtrlCreateEdit( $hashow, 160, 170, 120, 200 )
GUISetState( @SW_SHOW )
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
Exit
Case $msg = $radio_1
$fach = "Deutsch"
$hashow = IniRead( "C:\Programme\Planer\AufgabenSave\has.ini", "Deutsch", 0, "Freu dich, nichts! =)" )
GUICtrlDelete( $label )
$label = GUICtrlCreateLabel( "In " & $fach & " hast du auf:", 160, 120, 120, 30 )
GUICtrlSetData( $edit, $hashow )
; Jetzt kommts
[/autoit][autoit][/autoit][autoit]Case $msg = $button_1
$read1 = GUICtrlRead( $radio_1 )
$read2 = GUICtrlRead( $radio_2 )
; [...]
If $read1 = $GUI_CHECKED Then
$neu = GUICtrlRead( $edit )
If $neu = "" Then
$neu = "Freu dich, nichts! =)"
EndIf
IniWrite( "C:\Programme\Planer\AufgabenSave\has.ini", "Deutsch", 0, $neu )
GUICtrlSetData( $edit, $neu )
MsgBox( 64, "Saved", "Gespeichert.", 5 )
Wenn ich das auslesen will,
[autoit]
Case $msg = $radio_1
$fach = "Deutsch"
$hashow = IniRead( "C:\Programme\Planer\AufgabenSave\has.ini", "Deutsch", 0, "Freu dich, nichts! =)" )
GUICtrlDelete( $label )
$label = GUICtrlCreateLabel( "In " & $fach & " hast du auf:", 160, 120, 120, 30 )
GUICtrlSetData( $edit, $hashow )
zeigt er nur die erste Zeile... :weinen:
Kann mir da jemand helfen?
Ich hab keinen Plan wie ich das machen soll....
mfG Nils
Dann musste am besten dein Virenprogramm in deine
Steuerung integrieren.
Wenn du dann mal weg bist (auf Klo / inner Dusche )
und sich dein PC n Virus einfängt,
schickt dir deine Steuerung ne Nachricht
per "Lampen - Morse - Code" xD
Naja, ne klasse Idee, aber ich denke sehr schwierig,
mit dem verlegen der Kabel....
aber bestimmt machbar, wenn ich dann ma n eigenes
Haus baue werd ich das mit einbeziehen
Stellt euch ma vor, ihr sitzt aufm Klo und auf einma
Morst euch das Virenprog:
"Tut mir Leid, deine Festplatte wird gerade
formatiert und ich kann nichts dage ..... " klack,
alle Lichter aus ...
Geiles Feeling, oder? xD :teufel: