Beiträge von MrB

  • _IENavigate() bei lokalen Dateien

    Hi,

    Trau mich schon fast gar nicht mehr zu fragen, deswegen ganz kurz:

    Warum geht das nicht ?

    [autoit]

    _IENavigate($oIE, "file:///" & @ScriptDir & "\Blanks\index.html")

    [/autoit]

    und warum geht das ?

    [autoit]

    _IENavigate($oIE, "file:///" & @ScriptDir & "\Blanks\index.html")
    _IENavigate($oIE, "file:///" & @ScriptDir & "\Blanks\index.html")

    [/autoit]

    Es erscheint kurz "Die Seite wurde nicht gefunden" und dann wird sie aber richtig angezeigt. Nichts gemacht als einen zweiten Aufruf hinten dran zu hängen. SuFu mag mich wieder nicht

    LG
    MrB

  • TCP/IP - Port forwarding Frage

    Zitat

    MrB: PHP ist sehr ähnlich wie AutoIt mit C-Syntax. Das kann man auch auf die Schnelle mal lernen.

    Lernen ist nicht so das Problem (bis zu einem gewissen Punkt). Nur wenn ich mal Marvin glaube (ich versteh zwar nicht ganz warum) braucht man einen Root-Server. Wie gesagt, dass hätte ich auch mal gerne näher erklärt. Bedeutet ROOT-Server das dort nicht nur was ankommen kann, sondern das von da aus auch Daten weg gehen können (so stell ichs mir mal vor, ja, ohne die SuFu zu benutzen)? Denn das ist ja genau der Punkt den z.B. bplaced nicht erfüllt.

    Hab mich nie mit dem Thema ROOT usw. beschäftigt, da bis jetzt einfach nicht nötig. Also, nicht so feste draufhauen ;)

    Alternativ zu der ganzen Sache könnte man ja auch einen FTP Chat machen ^^. Stumpfes auslesen einiger Dateien.

    P.S.: Ach ja, Marvin, schreib mal grad bitte deine TCP.au3 in eine UDP.au3 um :D

  • Run Problem

    Nein, leider kann es das auch nicht sein. Ich lasse mir den Pfad in eine Datei screiben und kontrollier den dann. Alles korrekt!!

    Code
    C:\Dokumente und Einstellungen\Administrator.NB\Desktop\Widget\FileManager\Uploader32.exe

    Unter z.B.

    Code
    C:\Widget\FileManager\Uploader32.exe


    funktioniert alles wunderbar

  • Run Problem

    Moin zusammen,

    Verzweiflung pur !!!

    Wo ist der Fehler ????

    [autoit]

    $run = Run(@ScriptDir & "\FileManager\Uploader32.exe", @ScriptDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    [/autoit]


    Funktioniert bei WIN7 64Bit wunderbar, bei WinXP 32Bit @error = 1

    Pfad ist soweit richtig:

    Code
    C:\Dokumente und Einstellungen\Administrator.NB\Desktop\Widget\FileManager\Uploader32.exe

    Das funktioniert auch ohne Probleme nur eben auch ohne $STDERR_CHILD + $STDOUT_CHILD, was ich aber brauche.

    [autoit]

    $run = ShellExecute(@ScriptDir & "\FileManager\Uploader32.exe")

    [/autoit][autoit]

    $run = Run(@ComSpec & ' /c ' & @ScriptDir & "\FileManager\Uploader32.exe", @SystemDir, @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD)

    [/autoit]

    Das ergibt zwar keinen Error mehr und gibt auch eine ProzessID zurück, startet aber die Datei nicht ?????

    * Schlauch steh und Unverständnis versprüh *

    P.S.: scheint tatsächlich am Pfad zu liegen

    Code
    C:\Dokumente und Einstellungen\Administrator.NB\Desktop\Widget\FileManager\Uploader32.exe


    Damit kommt AutoIt nicht klar. Nur warum?ß

  • TCP/IP - Port forwarding Frage

    AntiSpeed

    Hmm, ne Seite bei Bplaced hätte ich ja schon! Naja, nur der Rest.

    PHP ist nicht meine Sache. Kennt einer vielleicht ein Script welches man nur noch anpassen muss, ein Tut oder oder oder.... .

    Wie gesagt, PHP und ich mögen uns nicht. Hab zwar mal vor Jahren ne "komplette" Website manuell gemacht aber, wie gesagt, vor Jahen. Hab damals PHP schon nicht gemocht.

    Bin also für jede Unterstützung dankbar!!

    LG
    MrB

  • TCP/IP - Port forwarding Frage

    Hi Leute,

    Erstmal allen ein frohes Fest !!!!

    Hab letztens den TCP/IP Chat von Protex getestet und finde den auch echt Klasse ! Lob und THX an Protex

    Was mich nur tierisch stört, ist die eine Sache, dass man einen Port zwingend im Router öffnen muss. Da ich in dem Bereich Ports und deren Benutzung nun wirklich kein Fachmann bin nun die Frage:

    Wie kann man das umgehen ??

    Für ICQ usw. muss man ja auch nichts freigeben.

    Bin ich einfach nur wieder blöd? Nix falsches sagen ;)

  • Hilfe Auto IT TCP Chat

    @Death

    Da muss ich dir Recht geben. Wenn man nicht Zitieren kann und sich das was man macht noch nicht mal anschaut ist das schon blöd ! Da muss ich demnächst mal drauf achten ;)

    Quelltext hier: Beitrag 1

    P.S.: Wenn ich alles richtig verstanden habe, wird der Nickname gar nicht mitgesendet und auch nicht auf den UserArray zugegriffen usw. sondern einfach der lokale Nick genommen. Bitte korrigieren falls falsch

    So, man muss die Funktionen _Try2Send() und _Received($hClient, $sReceived, $iError) im Client so anpassen, dass der Nick mit übermittelt wird

    Spoiler anzeigen
    [autoit]


    Func _Received($hClient, $sReceived, $iError)
    $sReceived = _FormatRecieved($sReceived)
    If $sReceived[0] = 'Connected' Then
    _Connected()
    ElseIf $sReceived[0] = 'userArray' Then
    _userArrayUpdate($sReceived[1])
    ElseIf $sReceived[0] = 'chat' Then
    _Chatbox_SetData($Chat, "[b][" & _NowTime() & "] " & $sReceived[1], 0x68838B) ; Hier anpassen
    ;~ _Chatbox_SetData($Chat, "[b][" & _NowTime() & "] " & $NickName & ': ' & $sReceived[1], 0x68838B)
    EndIf
    EndFunc ;==>_Received

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

    Func _Try2Send()
    If GUICtrlRead($ChatInput) <> '' Then
    _TCP_Send($hClient, 'chat~' & $NickName & ": " & GUICtrlRead($ChatInput)) ; Hier anpassen
    GUICtrlSetData($ChatInput, '')
    EndIf
    EndFunc ;==>_Try2Send

    [/autoit]

    So funktioniert es zumindestens bis jetzt mal ohne Fehler

  • Hilfe Auto IT TCP Chat

    Hmm, doch nochmal ein Problem.

    Hab soweit alles hinbekommen. Chat läuft mit internen wie externen Ip´s. Daten können gesendet werden und werden nun auch bei den einzelnen Clients angezeigt. Das Problem ist nur, dass der Name des Absender der Nachricht immer derjenige ist der grad am Client angemeldet ist.

    Bsp.: Ich logg mich mit User1 beim Server ein. Klappt ! User2,User3 und User4 sind schon da
    Ich scheib was und bei meinem Client erscheint
    [12:00:00] User1: test

    Bei allen anderen erscheint jeweils deren Login Namen also
    [12:00:00] User2: test
    [12:00:00] User3: test
    [12:00:00] User4: test

    Finde irgendwie nicht den Fehler. Muss aber auch zugeben, dass ich da nicht zu 100% durchsteige

    LG
    MrB

    P.S.: Und zur Sicherheit: Allen schonmal schöne Feiertage !

  • Hilfe Auto IT TCP Chat

    SgtIgram

    Hmm, was soll ich dazu sagen. Um es mal in deiner Art und Weise auszudrücken :

    Hättest du mal alles gelesen, hättest du auch bemerkt, dass ich das Problem schon gelöst hatte und das es gar nicht an der Warteschleife liegt. Diese hatte ich nämlich schon eingebaut, da ich dein Problem/Thread sehr wohl gefunden hatte. Da es nur einfach nicht darum ging habe ich es nicht erwähnt.

    Da ich den Thread auch schon vor deiner Antwort auf gelöst gesetzt hatte, versteh ich das ganze sowieso nicht. Na egal !!

    CLOSED

  • Hilfe Auto IT TCP Chat

    Naja, ist schon ein bisschen kompliziert, da das bei fast jedem Router komplett anders ist. Natürlich nicht die Bedeutung, sondern nur das vorgehen.
    Man kann fast nur speziell auf denjenigen eingehen der die Probleme hat.

    Nachdem ich die FBen jetzt mal neu gestartet habe geht´s auch plötzlich. Gott weis warum !

    Wenn du mal dein Router Modell sagst und es nicht zu außergewöhnlich ist, kann ich dir bestimmt helfen. Wegen mir auch las PN

    LG
    MrB

    P.S.: Nervt nur ein wenig, dass jeder die Ports freigeben muss. Mal sehen ...

  • Hilfe Auto IT TCP Chat

    Ach ja, hänge mal wieder. Hab mir diesen Chat mal zu Gemüte geführt und verzweifle grad mal daran.

    Spoiler anzeigen

    Quelltext hier: Beitrag 1

    Solange ich im lokalen Netzwerk bleibe funktioniert alles wunderbar. Sobald ich aber externe Ip´s verwende funktioniert gar nix mehr. Sitze hinter einer FritzBox 7170. Firewalls etc. deaktiviert usw hab ich durch.
    Die externe IP für den Server hol ich mir über _GetIP().

    Kann mich da bitte mal einer auf den rechten Weg führen. Is doch bald Weihnachten ;)

    LG
    MrB

  • Temperaturen per WMI auslesen Win7

    Ähm, kannst du mir vielleicht einen Tip geben, wo man ne Beschreibung des Arrays her bekommt. Meine also welcher Wert was bedeutet? Ich find einfach nix

    P.S.: Scheint anscheinend nur über SmBus zu funktionieren und davon habe ich keinen blassen Schimmer. grrrr...
    Falls einer noch Anregungen haben sollte, wie man auf die Sensoren im Bios/Board zugreifen kann, bitte melden!

    So, neuer Stand:

    Temperatur der Festplatte lässt sich auslesen und zwar

    Spoiler anzeigen
    [autoit]


    Global $maintimer = TimerInit()
    Global $wert1, $old_wert1 = 0
    Global $wert2, $old_wert2 = 0
    Global $wert3, $old_wert3 = 0

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

    While 1
    HotKeySet("^!x", "MeinExit")

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

    If TimerDiff($maintimer) > 1000 Then
    $aData = Data()
    $wert1 = $aData[161] ; entspricht der Temperatur laut SpeedFan. Ändert sich auch
    $wert2 = $aData[162] ; soll angeblich der max. Wert lt. Hertseller sein
    $wert3 = $aData[163] ; entspricht der Temperatur laut SpeedFan. Ändert sich auch

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

    ToolTip("Wert 161: " & $aData[161] & @CRLF & _
    "Wert 162: " & $aData[162] & @CRLF & _
    "Wert 163: " & $aData[163], @DesktopWidth / 2, 30, "Werte", 0, 2)

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

    $maintimer = TimerInit()

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

    If $wert1 <> $old_wert1 And $old_wert1 <> 0 Then MsgBox(0, "Achtung", "Wert161 hat sich von " & $old_wert1 & " nach" & $wert1 & " geändert")
    If $wert2 <> $old_wert2 And $old_wert2 <> 0 Then MsgBox(0, "Achtung", "Wert162 hat sich von " & $old_wert2 & " nach" & $wert2 & " geändert")
    If $wert3 <> $old_wert3 And $old_wert3 <> 0 Then MsgBox(0, "Achtung", "Wert163 hat sich von " & $old_wert3 & " nach" & $wert3 & " geändert")
    $old_wert1 = $wert1
    $old_wert2 = $wert2
    $old_wert3 = $wert3
    EndIf

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

    WEnd

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

    Func Data()
    Dim $strComputer = "."
    Dim $objWMIService
    $output = ""
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\WMI")

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

    $colTemp = $objWMIService.ExecQuery("SELECT * FROM MSStorageDriver_ATAPISmartData")
    For $objItem In $colTemp
    $strVendorSpecific = $objItem.VendorSpecific
    If IsArray($strVendorSpecific) Then
    Return $strVendorSpecific
    EndIf
    Next
    EndFunc ;==>Data

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

    Func MeinExit()
    Exit
    EndFunc ;==>MeinExit

    [/autoit]

    Da die ganze Sache anscheind ja wirklich Herstellerabhängig ist (wie der Name VendorSpecific ja eigentlich auch schon vermuten lässt) gilt dies hier nur für eine Seagate Barracuda 7200.11 SATA 3Gb/s 1.5-TB

  • Temperaturen per WMI auslesen Win7

    Danke Chip für den Code. Funktioniert leider nicht bzw. gibt 0 zurück und so eine gute Kühlung habe ich nun nicht ;)

    Da ich mal davon ausgehe, dass die Temperatur wieder in Kelvin angegeben wird (hab nicht kontrolliert ob´s stimmt), hab ich mal den ganzen Array nach einem Wert über 273 durchsucht und nix gefunden.
    Hier mal der komplette Array:

    Spoiler anzeigen

    Falls ich da was falsch denke, bitte korrigieren.

  • Temperaturen per WMI auslesen Win7

    Moin zusammen,

    Hat einer eine Idee/Möglichkeit die Temperaturen (BIOS) per WMI auszulesen. Finde da nix und

    [autoit]


    select * from MSAcpi_ThermalZoneTemperature
    select * from MS_SmBios
    select * from Win32_TemperatureProbe

    [/autoit]


    geben bei mir nichts zurück. Aufrufe mit scriptomatic.

    Gibt´s da noch was. Ich such mir die Augen wund. Muss doch irgendwie gehen!

    LG
    MrB