Beiträge von Der_Doc

**Der_Doc**

Hi,
schau mal HIER. Das muss eine neuere Version sein.

MfG
Der_Doc

**Der_Doc**

Hi,
vieleicht kann ich helfen mit einem au3 Script

[autoit]

Dim $inidatei = "inidatei.ini"

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

$port = IniReadSection(@ScriptDir&"\"&$inidatei, "Port")
If @error Then
MsgBox(4096, "", "Es wurde kein Eintrag gefunden!")
Else
if $port[3][1] +1 = $port[2][1] then $port[3][1] = $port[1][1]

MsgBox(0, "Result read", $port[3][1])
$port[3][1]= $port[3][1]+1

MsgBox(0, "Result write", $port[3][1])
IniWrite(@ScriptDir&"\"&$inidatei, "Port", "Portnummer", $port[3][1])
$port = $port[3][1]-1
EndIf

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

MsgBox(4096,"Port",$port)

[/autoit]

INI-Datei:

[Port]
portnummerstart=50000
portnummerend=50100
portnummer=50013

kurze Erklärung:

Das Skript hatt einen Startport "50000" und einen Endport "50100".
Bei jedem Durchlauf wird nachgeschaut wie der aktuelle Port ist und addiert ihn mit 1. Wenn der Port den Wert 50099 erreicht wird er auch um 1 addiert und dann auf den Wert 50000 zurückgesetzt.

MfG
Der_Doc

**Der_Doc**

Hi Gun-Food,
ich wäre dabei aber das ist mir leider zu stressig. Ich habe schon mit Auto immer die nase voll bis es losgeht und dann noch mit dem Zug? Dann aber nur mit Laptop.

Aber es sind (laut Bahn.de) von Berlin nur 10:48 Std, 3mal Umsteigen und um 5:17 ist Abfahrt.
Das geht.

Ich hatte schovn Braunschweig nach München 6mal umsteigen. Gut aber ich habe keine 10 Std gebraucht. :party3:

MfG
Der_Doc

**Der_Doc**

Hi Leute,
ich habe eine Software für die Original S100 Fernbedienung geschrieben, um den VLC (Video Lan Client) zu steuern.

Die Tasten

* rot
* grün
* gelb
* blau

können über die INI-Datei "Fernbedienung.ini" frei belegt werden.

Eine genaue Belegung der Tasten gibt es unter dem beigefügten PDF.

Das Programm gibt es in der Version 0.2

Fragen, Anregungen und Wünsche könnt ihr ja hier mal posten.

Spoiler anzeigen

[autoit]

;~ Author: <Der_Doc>
;~ Version: <Fernbeienung 0.2>
;~ AutoIt Version: 3.2.2.0
;~ Datum: 15.04.2007

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

;~ ####### Ini-Datei
Dim $inidatei = "fernbedienung.ini"

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

$section = IniReadSectionNames(@ScriptDir & "\fernbedienung.ini")
If @error Then
MsgBox(48, "Fehlermeldung von Fernbedienung_S100", "Konnte die Datei ''Fernbedienung.ini'' nicht finden!")
exit
Else
For $i = 1 To $section[0]
$ini = IniReadSection(@ScriptDir&"\"&$inidatei, $section[$i])
;~ For $a = 1 To $ini[0][0]
;~ msgbox(0,$a,$ini[$a][0] & @CRLF & $ini[$a][1])
;~
;~ Next
Next
EndIf

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

;~ ####### Hotkeys
HotKeySet("{SCROLLLOCK}", "mute") ;~ Mute - 145 0x91 Scr SCROLLLOCK
;~ 1 - 49 0x31 1
;~ 2 - 50 0x32 2
;~ 3 - 51 0x33 3
;~ 4 - 52 0x34 4
;~ 5 - 53 0x35 5
;~ 6 - 54 0x36 6
;~ 7 - 55 0x37 7
;~ 8 - 56 0x38 8
;~ 9 - 57 0x39 9
;~ 0 - 48 0x30 0
;~ * - 100 0x64 4n
;~ # - 102 0x66 6n
HotKeySet("{NUMPAD2}", "tab") ;~ i - 98 0x62 2n Tab {Tab}
HotKeySet("{NUMPAD8}", "epg") ;~ EPG - 104 0x68 8n "^o"
HotKeySet("{BS}", "esc") ;~ C - 8 0x8 BS ESC {Esc}
HotKeySet("{NUMPAD0}", "menu") ;~ MENU - 96 0x60 0n CTRL+o "!d"
HotKeySet("{F1}", "vollbild") ;~ -T- - 112 0x70 F1 f
HotKeySet("{NUMPAD5}", "ende") ;~ Exit - 101 0x65 5n Strg+q "^q"
HotKeySet("{NUMPAD7}", "kap_for") ;~ -> - 103 0x67 7n Strg+d "^d"
HotKeySet("{NUMPAD1}", "kap_back") ;~ <- - 97 0x61 1n Strg+u "^u"
HotKeySet("{NUMPAD9}", "vol_up") ;~ Vol+ - 105 0x69 9n {VOLUME_UP}
HotKeySet("{NUMPAD3}", "vol_down") ;~ Vol- - 99 0x63 3n {VOLUME_Down}
;~ HotKeySet("{UP}", "up") ;~ up - 38 0x26 UP {UP}
;~ HotKeySet("{Down}", "down") ;~ down - 40 0x28 Dow {Down}
;~ HotKeySet("{Left}", "left") ;~ left - 37 0x25 Left {Left}
;~ HotKeySet("{Right}", "right") ;~ right - 39 0x27 Right {Right}
;~ HotKeySet("{Enter}", "ok") ;~ OK - 13 0xd Ent {Enter}
HotKeySet("{F3}", "stop") ;~ stop - 114 0x72 F3 s
HotKeySet("{F4}", "play") ;~ ||/> - 115 0x73 F4 Space
;~ ? - 109 0x6d -
HotKeySet("{F5}", "sprung_l_back") ;~ |<< - 116 0x74 F5 Strg+Left ^!{Left}
HotKeySet("{F6}", "sprung_k_back") ;~ << - 117 0x75 F6 AltLeft ^{Left}
HotKeySet("{F7}", "sprung_k_for") ;~ >> - 118 0x76 F7 Alt+Right ^{Right}
HotKeySet("{F8}", "sprung_l_for") ;~ >>| - 119 0x77 F8 Strg+Right ^!{Right}
HotKeySet("{F9}", "rot") ;~ rot - 120 0x78 F9 Run VLC
HotKeySet("{F10}", "gruen") ;~ gruen - 121 0x79 F10
HotKeySet("{F11}", "gelb") ;~ gelb - 122 0x7a F11
HotKeySet("{F12}", "blau") ;~ blau - 123 0x7b F12

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

While 1
Sleep(100)
WEnd

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

;~ ####### Funktionen
Func mute()
Send("{VOLUME_MUTE}")
EndFunc

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

Func tab()
Send("{Tab}")
EndFunc

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

Func epg()
Send("^o")
EndFunc

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

Func esc()
Send("{Esc}")
EndFunc

Func menu()
Send("!d")
EndFunc

Func vollbild()
Send("f")
EndFunc

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

Func ende()
Send("^q")
EndFunc

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

Func kap_for()
Send("^d")
EndFunc

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

Func kap_back()
Send("^u")
EndFunc

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

Func vol_up()
Send("{VOLUME_up}")
EndFunc

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

Func vol_down()
Send("{VOLUME_Down}")
EndFunc

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

;~ Func up()
;~ Send("{Up}")
;~ EndFunc

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

;~ Func down()
;~ Send("{Down}")
;~ EndFunc

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

;~ Func left()
;~ Send("{Left}")
;~ EndFunc

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

;~ Func right()
;~ Send("{Right}")
;~ EndFunc

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

;~ Func ok()
;~ Send("{Enter}")
;~ EndFunc

Func stop()
Send("s")
EndFunc

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

Func play()
Send("{Space}")
EndFunc

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

Func sprung_l_back()
Send("^!{Left}")
EndFunc

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

Func sprung_k_back()
Send("^{Left}")
EndFunc

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

Func sprung_k_for()
Send("^{Right}")
EndFunc

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

Func sprung_l_for()
Send("^!{Right}")
EndFunc

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

Func rot()
If FileExists($ini[1][1]) Then
ShellExecute($ini[1][1])
Else
MsgBox(4096, "Tasten","Taste "&$ini[1][0]& " noch nicht belegt")
EndIf
EndFunc

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

Func gruen()
If FileExists($ini[2][1]) Then
ShellExecute($ini[2][1])
Else
MsgBox(4096, "Tasten","Taste "&$ini[2][0]& " noch nicht belegt")
EndIf
EndFunc

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

Func gelb()
If FileExists($ini[3][1]) Then
ShellExecute($ini[3][1])
Else
MsgBox(4096, "Tasten","Taste "&$ini[3][0]& " noch nicht belegt")
EndIf
EndFunc

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

Func blau()
If FileExists($ini[4][1]) Then
ShellExecute($ini[4][1])
Else
MsgBox(4096, "Tasten","Taste "&$ini[4][0]& " noch nicht belegt")
EndIf
EndFunc

[/autoit]

MfG
Der_Doc

**Der_Doc**

Also,
ich habe auf meinen USB-Stick nicht so viele Sachen draufgepackt. Aber ein AutoIt GUI ist natürlich dabei.

Funktionier wunderbar

MfG
Der_Doc

**Der_Doc**

Hi,
Wer schreibt denn sowas auf seinen Grabstein :lol:

cooler Spruch

**Der_Doc**

Hi,
ich habe eine Lösung .... :party4: ... glaube ich :hm:

Also es gibt das Tool "DevCon" von Microsoft damit funktioniert das. Jedenfalls bei mir.

Also zuerst das Tool von Microsoft downloaden (siehe Link).
Dann rausbekommen welche ID deine Lan-Karte hat.

Code

devcon status @PCI\*

Bei mir ist das Ergebnis: (Ausschnitt)

Code

PCI\VEN_1106&DEV_3104&SUBSYS_31041106&REV_82\3&61AAA01&0&83 
    Name: VIA USB erweiterter Hostcontroller                
    Driver is running.                                      
PCI\VEN_1106&DEV_3177&SUBSYS_00000000&REV_00\3&61AAA01&0&88 
    Name: PCI Standard-ISA-Br³cke                           
    Driver is running.                                      
PCI\VEN_1106&DEV_B099&SUBSYS_00000000&REV_00\3&61AAA01&0&08 
    Name: VIA CPU-zu-AGP-Controller                         
    Driver is running.                                      
PCI\VEN_8086&DEV_107C&SUBSYS_13768086&REV_05\3&61AAA01&0&68 
    Name: Intel(R) PRO/1000 GT Desktop Adapter              
    Driver is running.

Alles anzeigen

Meine Netzwerkkarte ist eine Intel Pro/1000 ..... die ID ist "PCI\VEN_8086&DEV_107C&SUBSYS_13768086&REV_05\3&61AAA01&0&68"

und dann hat man diese Möglichkeiten:

Code

devcon restart "@PCI\VEN_8086&DEV_107C&SUBSYS_13768086&REV_05\3&61AAA01&0&68"

devcon disable "@PCI\VEN_8086&DEV_107C&SUBSYS_13768086&REV_05\3&61AAA01&0&68"

devcon enable "@PCI\VEN_8086&DEV_107C&SUBSYS_13768086&REV_05\3&61AAA01&0&68"

Also teste mal ob das bei dir funktioniert und wenn ja dann kann man ja ein Script schreiben.

Ich hoffe das war die Lösung

MfG
Der_Doc

**Der_Doc**

Hi,
als Symbol gibt nur noch ein "?" nennt sich "$WS_EX_CONTEXTHELP".
aber ob es eine Hilfe war..... ??? :hm:

MfG
Der_Doc

**Der_Doc**

Hi,
ja dann hoffe ich doch das es dir hier gefällt und wir auch von die viel spionieren können. :party4:

MfG
Der_Doc

**Der_Doc**

Dann gibt es nur ein.
Im Router einwählen, trennen und neu einwählen.
Bei miener FritzBox kann ich Telnet aktivieren.
Dann einfach per TCPsend die Danten gesendet und fertig.

Wegen dem Linux auf der FritzBox kein Problem, ich kommuniziere so mit einer NSLU2 und es funktioniert.

Wie gesagt so könnte es bei einer FritzBox funzen.

MfG
Der_Doc

**Der_Doc**

Hi Leute,
das war aber ne lange Woche :tier:
so die neue Version (Arptool 1.4) ist fertig.

Änderungen siehe 1. Post

Feedback und Fehler bitte zu mir.

MfG
Der_Doc

**Der_Doc**

Hi,
ich verstehe dein problem nicht.
Wenn du nur ein Programm mit einem anderen User aufrufst, zählen die Berechtigungen nur für das Programm. Du kannst doch dann die Drucker nehmen die auf dem PC installiert sind.
Die Drucker sind doch (soweit ich glaube) nicht Profilgebunden.

MfG
Der_Doc

**Der_Doc**

Hi,

mit dieser Funktion kann man 2 Arrays vergleichen und gibt die Übereinstimmungen ausgeben lassen.

[autoit]

#include <Array.au3>
$Pos = _ArraySearch ($wert, $wert2)

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

MfG
Der_Doc

**Der_Doc**

Hi,
also ich wäre auch an einer Anleitung (Erklärung) zum Thema dll-auslesen interessiert. Ich werde nämlich aus den Programmteilen auch net schlau und in der Anleitung verstehe ich es auch nicht.

Also wenn dann bitte mir bescheid sagen.

MfG
Der_Doc

**Der_Doc**

Hi,wenn du doch gerne das "&" behalten möchtest, schreibe doch einfach ...

[autoit]

chr(38)

[/autoit]

... dann sollte es trotzdem funktionieren.

MfG
Der_Doc

**Der_Doc**

Hi,
Kein Thema. Hast dich ja gemeldet und net einfach so den Quelltext geändert. Außerdem steht mein Name noch drin.

MfG
Der_Doc

**Der_Doc**

Hi,
ah da ist ja dein Prog wieder
Schau mal hier:

[autoit]

#include <GUIConstants.au3>

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

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("AForm1", 633, 454, 193, 115)
$Button1 = GUICtrlCreateButton("Health 20%", 64, 48, 65, 25, 0)
$Button2 = GUICtrlCreateButton("Health 70%", 64, 88, 65, 25, 0)
$Health_Box = GUICtrlCreateCombo("", 40, 16, 121, 25)
GUICtrlSetData(-1,"Health 20%|Health 30%|Health 40%|Health 50%|Health 60%|Health 70%|Health 80%|Health 90%")

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

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $Button1
MsgBox(0,"",GUIctrlRead($Button1))
GUICtrlSetData($Health_Box,GUIctrlRead($Button1))

Case $Button2
MsgBox(0,"",GUIctrlRead($Button2))
GUICtrlSetData($Health_Box,GUIctrlRead($Button2))

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

Case $GUI_EVENT_CLOSE
Exit

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

EndSwitch
WEnd

[/autoit]

MfG
Der_Doc

**Der_Doc**

Hi Schwester,
sollen die Formeln in der Datenbank noch bearbeitet werden oder sollen sie nur angezeigt werden?
Bei nur angezeigt, würde ich es mit Gif-Bildern lösen.
Ich werde aber mal suche was so geht :tier:

MfG
Der_Doc

**Der_Doc**

Hi ich will auch mal was sagen

Ich nutze Paint.Net3.01. kann ich nur empfehlen. .Net2.0 gibt es bei Microsoft und los geht es.
Das ist aber nur für XP für Windows 2000 wird ne andere Version gebraucht.

Windows XP

Windows 2000

Achtung alle Links gehen auf fremde Seiten und ich übernehme keine Haftung!

MfG
Der_Doc

**Der_Doc**

Hi
schi... verlesen

Ich dachte Zeilen einfärben, bei Spalten müsste man jede Spalte auslesen und dann einfärben.
Nur ich glaube das es ziemlich schwer ist.

MfG
Der_Doc

Beiträge von Der_Doc

Datei hochladen

var from *.txt

Dreamhack 16.06.-19.06.

Fernbedienung T-Online S100 Set-Top-Box

USB-Stick Tools

"gefenstert"

Verbindung trennen

Move to Tray Icon

Spion unter euch

Verbindung trennen

Arptool

[gelöst] Probleme beim arbeiten mit versch. Benutzerumgebungen

array durchsuchen

dlls einbinden

ArrayProblem oder nicht?

Script "LoginAs"

autoheal/mana mit gui

Datenbank für Prüfungsfragen mit Formeln

Bild von snoozer

GUICtrlSetBkColor auf Zelle in ListView