Beiträge von MaxSony

  • Ping funktion sendet immer eine Ping zeit zurück

    Achso so meintest du das. - Aber was meinst du mit "In Shell ausführen " - den teil versteh ich nicht

    das mit cmd.exe und dann ping https://autoit.de/www.blubbelgedoens.de hab ich vorher schon gemacht gehabt, ich hab nur nicht verstanden was du mit "Shell" meinst.

    Es antwortet logischerweise immer der gleiche und zwar der, den ich auch mit NeoTracePro herausgefunden habe. - Undzwar infospace.com und/oder BERLIN 83-169-*****-isp.superkabel.de (kp. wie die im zusammenhang stehen - denke aber ne automatische weiterleitung von superkabel.de nach infospace.com)

    greetz Max Sony

  • Ping funktion sendet immer eine Ping zeit zurück

    Zitat von Jam00

    Auch bei meinem Script?

    jo klar ^^

    habs ja extra ausprobiert obs mit dem ">" anstatt "=" was ändert.

    jedoch leider ohne erfolg.

    aber wie gesagt, das liegt vermutlich an der weiterleitung zum ISP.

    mal schaun ob ich das routerintern abschalten kann. - allerdings bringt das ja nichts. wenn ich das programm compiliere und es jmd. schicke und er auch die automatische weiterleitung vom ISP auf "an" hat. - weil dann wird die MsgBox bei demjenigen und jedem anderen der automatische weiterleitung zum ISP besitzt auch nicht angezeigt. und dann bringt mir der komplette teil von dem code nix :(

    Deshalb würde ich gerne wissen ob es AutoIt Intern ne funktion gibt wie man eine MsgBox oder Traytip oder sonstiges anzeigen lässt, die einem das wirkliche resultat anzeigt, ob eine internetverbindung besteht, bzw ob die webseite auf die man connecten will, online ist, oder eben nicht!

    greetz Max Sony

  • Ping funktion sendet immer eine Ping zeit zurück

    Zitat von Jam00

    Zeile 2 ist geändert!!!!! Guck mal hin, und bei mir gehts!

    jo das hab ich schon gesehen ;) (von anfang an)

    aber ich meinte wo der unterschied beim resultat ist.

    Es mag ja sein, das es bei dir klappt, das sich die zweite msg box öffnet wenn sich die url nicht anpingen lässt. jedoch geht es darum, das bei mir IMMER nur die erste MsgBox erscheint, und IMMER eine PingZeit in ms angezeigt wird!

    egal was für eine url ich nehme, ob sie nun existiert oder nicht, spielt dabei keine rolle.

  • Ping funktion sendet immer eine Ping zeit zurück

    Zitat von FireFlyer

    weiss net ob mans mit tracerout vllt besser rausmessen kann

    neotracepro (falls du sowas meintest) sagt mir

    NeoTrace Trace Version 3.25 Results
    Target: https://autoit.de/www.blubbelgedoens.de
    Date: 05.02.2009 (Thursday), 14:24:58
    Nodes: 14


    Node Data
    Node Net Reg IP Address Location Node Name
    1 - - 192.168.0.100 Darmstadt *******
    2 1 - 192.168.0.1 Unknown
    3 - - 0.0.0.0 Unknown Keine Antwort
    4 2 1 83-169-**** BERLIN 83-169-****-isp.superkabel.de
    5 2 1 8 83-169-***** BERLIN 83-169-*****-isp.superkabel.de
    6 2 1 83-169-***** BERLIN 83-169-*****-isp.superkabel.de
    7 3 - 88.134.***** BERLIN
    8 2 1 83-169-***** BERLIN 83-169-*****-isp.superkabel.de
    9 2 1 83-169-***** BERLIN 83-169-*****-isp.superkabel.de
    10 2 - 83-169-***** Westminster
    11 4 2 70.167.**** 39.044N, 77.489W ip70-167-****.at.at.cox.net
    12 5 3 216.52.**** WASHINGTON D.C. border2.pc1-bbnet1.wdc002.pnap.net
    13 6 3 64.94.**** WASHINGTON D.C. infospaceinc-3.border2.wdc002.pnap.net
    14 7 4 67.63.**** 47.756N, 122.217W https://autoit.de/www.blubbelgedoens.de


    EDIT: Infospace.com scheint sowas wie gelbe seiten in amerika zu sein?!

  • Ping funktion sendet immer eine Ping zeit zurück

    Hallo leude.

    Hab mal aus der Autoit-Hilfe das beispiel genommen:

    [autoit]

    $var = Ping("www.autoit.de",250)
    If @error = 0 Then
    Msgbox(0,"Status","Online, Antwortzeit war:" & $var)
    Else
    Msgbox(0,"Status","Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
    EndIf

    [/autoit]


    Nun erscheint in einer MsgBox ping zeit von ca. 43ms


    wenn ich jetzt eine fake adresse angebe:

    [autoit]

    $var = Ping("www.blubbelgedoens.de",250)
    If @error = 0 Then
    Msgbox(0,"Status","Online, Antwortzeit war:" & $var)
    Else
    Msgbox(0,"Status","Es ist ein Fehler mit der Nummer " & @error & " aufgetreten.")
    EndIf

    [/autoit]

    Erscheint eine MsgBox mit einer PIngzeit von etwa 150ms.

    Liegt das daran das mein provide (kabel deutschland) automatisch auf
    http://nxr.kabeldeutschland.de/kdeassist/dnsa…ubbelgedoens.de
    weiterleitet, und somit die ping zeit einfach von kabeldeutschland.de wiedergegeben wird?

    Falls dies der fall sein sollte. Wie lässt sich das umgehen, damit ich auch mal einen @error bekomme.

    PS.: Das Komische ist, wenn ich in cmd ping mache zeigt er mir bei jeder beliebigen adresse eine pingzeit an. (Meist so um 150ms), wenn ich allerdings "www.kabeldeutschland.de" anpinge dann kommt "Zeitüberschreitung der Anforderung."

    greetz Max Sony

  • Einzelne Stücke einer Webseite in einer GUI anzeigen

    Hier mal meine ersten Versuche + beschreibung wie ich vorgegangen bin
    Alle Kommentare die mit semikolon (;) beginnen sind quasi für mich platzhalter, falls der befehl noch irgendwann verwendung findet, hab ich ihn gleich parat und muss nur das semikolon entfernen

    [autoit]

    #include <GUIConstants.au3>
    #include <INet.au3>
    #include <IE.au3>
    #include <String.au3>
    #include <array.au3>

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

    GUICreate ("GUI TEST", 650, 500)
    GUISetState (@SW_Show)
    AutoItSetOption ("GUICloseOnEsc", 0)

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

    GUICtrlCreateTab (0, 0, 650, 500)

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

    ;Login--->
    GUICtrlCreateTabItem ("Login/Register")
    _IEErrorHandlerRegister ()
    $sourcecode = _INetGetSource ('http://autoit.de/index.php?form=UserLogin&')
    $start = '<script type="text/javascript" src="wcf/js/AjaxRequest.class.js"></script>'
    $end = '<div id="footer">'
    $login = _StringBetween ($sourcecode, $start, $end, -1, 1)
    $sourcecodeoutput = StringRegExp ($login, ;"pattern= Das Suchmuster des regulären Ausdrucks. |||Was soll das sein?|||")
    $login = _IECreateEmbedded ()
    $GUIActiveX = GUICtrlCreateObj ($login, 0, 25, 650, 450)
    ;_IENavigate ($login, "http://autoit.de/index.php?form=UserLogin&")
    GUICtrlSetState(-1, $GUI_SHOW)

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

    While 1
    $msg = GUIGetMsg()
    If $msg = $GUI_EVENT_CLOSE Then Exit
    WEnd

    [/autoit]

    Beschreibung wie ich vorgagangen bin, bzw was ich autoit mitteilen will:

    1. _INetGetSource soll von der login seite den quelltext aufnehmen

    2. _StringBetween soll mir den teil der für mich relevant ist (also nur das feld in dem man die login daten angeben kann + Die Buttons "Absenden" und "Zurücksetzen") herausfiltern;
    - Die Funktionen $start und $end hab ich herausgefunden indem ich auf die login seite mit firefox gegangen bin und dann mir den quelltext anzeigen hab lassen. - Dann hab ich geschaut welcher teil des quelltextes das login feld + die buttons beinhaltet und hab eine zeile davor ($start) und eine zeile danach ($end), als parameter angegeben. /// Weiss nicht ob das so richtig ist?!

    3. StringRegExp soll mir dann den teil den _stringbetween herausgefiltert hat, wiedergeben.

    4. _IECreateEmbedded soll dann den sourcecode der von stringregexp wiedergegeben wurde in einem webbrowserobjekt wiedergeben

    5. GUICtrlCreateObj soll mir dann die Graphik (wenn man es so nennen darf) in meiner GUI anzeigen lassen.

    -

    Ich hoffe ihr könnt damit was anfangen, um mir weiterzuhelfen, da mir mein programm, wenn ich es so lasse, nichts anzeigt in der GUI - vermutlich würde er einen @error auswerfen wenn ich ihn aktivieren würde.
    Wenn noch weitere fragen bestehen, stehe ich gerne zur verfügung.

    greetz Max Sony

  • Einzelne Stücke einer Webseite in einer GUI anzeigen

    HI

    Danke für die schnelle antwort.

    Hab mir mal die funktionen der beiden von dir genannten befehle durchgelesen. - Steig da noch nicht ganz durch wie das hinhauen soll mit den befehlen.

    Eine alternative wäre ja, das man sagt _IECreate (url) und dann mithilfe eines zweiten mir noch unbekannten befehls sagt, das ein fenster innerhalb der GUI zb. nur den linken oberen rand der von _IECreate angezeigen wegseite, anzeigt. quasi nur ein ausschnitt.., aber kp ob das geht ;)

  • Sicherheitsabfrage beim Beenden

    Hallo zusammen. ich hab hier ein kleines aber sehr simples problem!

    Beim drücken auf X der GUI soll eine MsgBox(4) erscheinen, die beim drücken auf "Ja" das gesammte script (also GUI+MsgBox) schließt und beim Drücken auf "Nein" nur die MsgBox schliesst.
    Das Problem liegt darin, das er mit zb. Exit das script nicht beendet, wenn man auf den "Ja" button in der MsgBox(4) klickt... kp warum
    Code:

    GUICreate ("Programm", 600, 500)
    GUISetState (@SW_Show)
    AutoItSetOption ("GUICloseOnEsc", 0)

    While 1
    $msg = GUIGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
    MsgBox (4, "sicherheitsabfrage?", "frage")
    EndSelect
    Wend

    $beenden = MsgBox (4, "sicherheitsabfrage?", "frage")
    If $beenden = ;HIER IST MEIN PROBLEM
    ElseIf $beenden = 7 Then
    WinClose ("sicherheitsabfrage?", "frage")
    Endif

  • MsgBox innerhalb einer While 1 Schleife mittels X-Button beenden

    Hallo zusammen!

    Ich möchte das mein script immer wieder von vorne startet, deshalb benutze ich die While 1 funktion.

    Mein Problem ist nur wenn ich innerhalb der Endlosschleife bin, meine MsgBox sich nicht mittels X-Button schliessen lässt :( wie bekomme ich das hin? (ist vermutlich ziemlich simpel aber ich hab noch nix brauchbares gefunden:()

    PS.: Ich möchte bitte die MsgBox beibehalten. - Wie es mittels GUICreate funktioniert ist mir bewusst ;)
    PPS.: Mein neuestes Problem ist, ich will das man die Inputbox auch mittels X-Button schliessen kann!

    Code:
    $var = InputBox("Serial Finder", "Laufwerksbuchstabe:", "C:")
    $tar = DriveGetSerial ($var)
    While 1
    MsgBox(1, "Serien-Nummer: ", $tar)
    $var = InputBox("Serial Finder", "Laufwerksbuchstabe:", "C:")
    WEnd

    EDIT:

    Mein neuestes Problem ist, ich will das man die Inputbox auch mittels X-Button schliessen kann!
    Neuer Code:
    Code:
    $var = InputBox("Serial Finder", "Laufwerksbuchstabe:", "C:")
    $tar = DriveGetSerial ($var)
    While 1
    If MsgBox(1, "Serien-Nummer: ", $tar) = 2 Then ExitLoop
    $var = InputBox("Serial Finder", "Laufwerksbuchstabe:", "C:")
    WEnd

    greetz Max Sony