Beiträge von limette

limette

Öhm, wie wärs mit:

#include <IE.au3>
$IE = _IECreate()

_IENavigate( $IE, "http://www.antenne.de" )

mfg Noels =)

limette

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 =)

limette

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

limette

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

limette

$inhalt = GUICtrlRead( $input )

Edit:

wenn du $inhalt = $input machst, dann ist $inhalt = die CtrlID, aber
nicht gleich dem, was in dem Feld steht.

limette

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 ^^)

Spoiler anzeigen

[autoit]

#cs ----------------------------------------------------------------------------

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

AutoIt Version: 3.2.2.0
Author: noels

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

Script Function:
Herunterfahren bei Inaktivitität, CPU-schonend
Inklusive Autostart und speichern der Zeiteinstellung in einer Ini.

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

#ce ----------------------------------------------------------------------------

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

#include <GuiConstants.au3>
#include <Constants.au3>

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

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

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

Dim $i = 0
$sleep = IniRead( @MyDocumentsDir&"\Inaktiv.ini", "Sleep", "Minuten", 20 )
Dim $wait = $sleep*60000

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

Opt("TrayAutoPause", 0 )
Opt( "TrayMenuMode", 1 )
Opt( "GUIOnEventMode", 1 )
Opt( "TrayOnEventMode", 1 )

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

$tray_wieder = TrayCreateItem( "Wiederherstellen" )
TrayItemSetOnEvent( $tray_wieder, "wieder" )
$tray_exit = TrayCreateItem( "Exit" )
TrayItemSetOnEvent( $tray_exit, "quit" )

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

$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)

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

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

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

Func quit()
Exit
EndFunc

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

Func mini()
GUISetState( @SW_HIDE, $main )
EndFunc

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

Func wieder()
GUISetState( @SW_SHOW, $main )
EndFunc

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

Func einstellungen()

Opt( "GUIOnEventMode", 0 )
$opt_gui = GuiCreate("Optionen", 248, 133,-1, -1 )

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

$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

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

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

[/autoit]

Joa,
mfG Noels

limette

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.

Spoiler anzeigen

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

Dim $connected = 0
Dim $mainsocket
Dim $in_connector = 0

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

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>

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

Opt( "GUIOnEventMode", 1 )
Opt( "TrayAutoPause", 0 )

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

$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()

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

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

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

Func _exit()
Exit
EndFunc

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

Func OnAutoItExit()
TCPShutdown()
EndFunc

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

Func _verbinden()

Opt( "GUIOnEventMode", 0 )

$con = GuiCreate("Einstellungen", 182, 220,-1, -1 )

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

$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

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

Func _senden()
$send = GUICtrlRead( $Edit_output )
TCPSend( $yoursocket, $send )
GUICtrlSetData( $Edit_output, "" )
GUICtrlSetData( $Edit_income, GUICtrlRead( $Edit_income )& @CRLF & $myname & ": " & $send )
EndFunc

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

Func SocketToIP($SHOCKET)
Local $sockaddr = DLLStructCreate("short;ushort;uint;char[8]")

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

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

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

$sockaddr = 0

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

Return $aRet
EndFunc

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

limette

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

Zitat

wenn 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

Zitat

Du 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 !

limette

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 =)

limette

Wow, danke =)
funktioniert

limette

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 )

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

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 )

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

; Jetzt kommts

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

Case $msg = $button_1
$read1 = GUICtrlRead( $radio_1 )
$read2 = GUICtrlRead( $radio_2 )
; [...]

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

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 )

[/autoit]

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 )

[/autoit]

zeigt er nur die erste Zeile... :weinen:

Kann mir da jemand helfen?
Ich hab keinen Plan wie ich das machen soll....

mfG Nils

limette

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:

Beiträge von limette

Sachen versteckt ausführen lassen

Frage um Text auf Bildschrim zu bringen

Inaktiv --> shutdown

Inaktiv --> shutdown

Fragen eines Anfängers

Inaktiv --> shutdown

TCP - Client & Server in einem

WLan Sender / Empfänger

WLan Sender / Empfänger

GUI Editbox in *.ini speichern ?

GUI Editbox in *.ini speichern ?

Lichtschalterkontrolle über PC