Beiträge von Norman Bates

Zitat von Raupi

Warum benutzt du ein /22 und nicht ein /24 Netz? So viele Rechner am Switch das 254 Adressen nicht reichen ?

Ich habe leider keinen einfluß auf das Netzwerk. Ich muß nehmen was ich kriege.

Zitat von misterspeed

Die sicherste Methode ist das Senden an die Broadcast IP des Netzwerksubnets. Da jedes WOL Paket die MAC des anzuschaltenden Gerätes enthält wird auch nur der betreffende Rechner auf das Paket reagieren, alle anderen Empfänger ignorieren das Paket.

Das wäre doch in dem Fall 100.110*.255 oder? Und das funktioniert doch nicht mit PC1.

Gruß
Norman

Macht schon Sinn nur warum funktioniert es nicht mit beiden PC's gleich?
Wieso der eine so und der andere so.
Ich möchte das beide mit Ihrer IP gestarte werden und nicht mit *.*.*.255.

Das war die Frage...ob einer ne Idee warum das so sein könnte.

Gruß
Normsn

Ein 22er Subnet
Alles ist auf einem Switch. Nix ist dazwischen.

Vorab ein paar Infos

PC1 - HP Small Form Factor 6305 - DHCP IP: 100.110.169.126
PC2 - HP Small Form Factor 6005 - DHCP IP: 100.110.171.229

Zu meinem Problem:

Wenn ich das Script mit der IP und MAC für PC1 ausführe startet dieser.
Gebe ich die Daten von PC2 ein startet dieser nicht.

Dann gab es einige User in dem Beitrag von dem WOL Script die auch das Problem haben und dann das letzte Oktet der IP Adresse in *.*.*.255 geändert haben.
Das habe ich dann auch gemacht also ... PC2 IP 100.110.171.255 und siehe da der PC startet.
Gleiche vorgehensweise wie bei PC2 jetzt aber PC1.
PC1 IP 100.110.169.255 ... PC startet nicht.

Original Script:

$IPAddress = "192.168.1.255"; This is the broadcast address !
$MACAddress = "000D8787E226"

UDPStartUp()

$connexion = UDPOpen($IPAddress, 7)
$res = UDPSend($connexion, GenerateMagicPacket($MACAddress))
MsgBox(0, "", $res)

UDPCloseSocket($connexion)
UDPShutdown()

; ===================================================================
; Functions
; ===================================================================

; This function convert a MAC Address Byte (e.g. "1f") to a char
Func HexToChar($strHex)

Return Chr(Dec($strHex))

EndFunc

; This function generate the "Magic Packet"
Func GenerateMagicPacket($strMACAddress)

$MagicPacket = ""
$MACData = ""

For $p = 1 To 11 Step 2
$MACData = $MACData & HexToChar(StringMid($strMACAddress, $p, 2))
Next

For $p = 1 To 6
$MagicPacket = HexToChar("ff") & $MagicPacket
Next

For $p = 1 To 16
$MagicPacket = $MagicPacket & $MACData
Next

Return $MagicPacket

EndFunc

Hat einer ne Idee wieso das so ist?

Danke für Eure Hilfe.

Gruß
Norman

Danke für die Hilfe.

Habe was gefunden was ich für meine Zwecke abgeändert habe.

Für mich funktioniert das Script, nichtsdestotrotz wäre ich für Optimierungsvorschläge dankbar.

Danke und Gruß
Norman

Zitat von Andy

Die einzige Möglichkeit herauszufinden, welche Dienste der Proxy anbietet, ist einfach, diese Dienste auszuprobieren....wenns funktioniert, dann gut, wenn nicht, dann eben nicht.
Wenn der Proxy heute auf die wieistmeineip-Anfrage antwortet heisst das nicht, dass er das morgen auch macht. Also passe dein Script darauf an und frage die Rückgaben des Proxys ab...

Keine Ahnung wie ich das angehen soll.
Ich könnte einen kleinen Denkanstoß gebrauchen

Das Funktioniert:

#include <String.au3>
#include <Array.au3>
#include <Inet.au3>

;#############################################################################
; P R O X Y - C H E C K

$proxy = "77.94.48.4:80"
HttpSetProxy(2, $proxy)

$downlod = BinaryToString(InetRead("http://www.wieistmeineip.de/",16),4)

Local $aArray1 = _StringBetween($downlod,'<h1 class="ip">','</h1>')
_ArrayDisplay($aArray1)

;#############################################################################

Ich versteh nicht warum nicht so wie es eigentlich vohabe

EDIT:

Habe gerade festgestellt das z.b. der Proxy 178.32.223.88:3128 zwar angepingt werden kann aber nicht als Proxy funktioniert.
Trage ich aber den 147.31.182.137:3128 ein funktioniert es. Also kann ich mich auf ping nicht wirklich verlassen.

Gibt es den eine möglichkeit HttpSetProxy zu überprüfen?

Zitat von misterspeed

Wie stellst du fest ob der Proxy funktioniert / gesetzt wird? Da du etwas von einem Array Fehler erzählt hast ist davon auszugehen, dass das Script bereits in der Schleife abstürzt, weil eben keiner der Proxys erreichbar war.

Mit der If Abfrage stell ich fest ob der Proxy funktioniert. Wenn dem so ist wird die Schleife beendet und HttpSetProxy sollte eigentlich den Proxy haben was aber nicht der Fall, weil wenn dem so wäre müsste er ja das script fortführen und mir die von "wieistmeineip.de" IP Adresse ausgeben die ich eigentlich durch den Proxy haben müsste.

Zitat von misterspeed

Zum einen das, zum anderen ist ein Logikfehler drin. Wenn keiner der Proxys erreichbar ist sprichst du im vierten Durchlauf einen Arrayindex an, welcher nicht existiert, da du bei jedem nicht erfolgreichen Durchlauf den betreffenden Eintrag entfernst.

OK davon mal abgesehen. Wieso funktioniert HttpSetProxy nicht wenn er einen funktionierenden Proxy gefunden hat?

Ich habe es nur in diesem Beitrag hier vergessen. Im Script ist es vorhanden.

Gruß
Norman

Hallo zusammen,

Ich komme mit meinem Ping Proxy Script nicht weiter.
Eigentlich sollte es ja nicht so schwierig sein...doch ich komme nicht weiter.

Ich habe in einem Array 3 Proxy´s wovon der letzte funktioniert.
Ich möchte das die Proxy´s angepingt werden und bei erfolg diesen Proxy mit HttpSetProxy nutzen.
Nur das funktioniert nicht. Kaum aus der Schleife ist der Wert wohl noch vorhanden aber trotzdem erhalte ich eine Fehlermeldung wegen dem Array ... oder kein Array.

Was mache ich den da Falsch?

Local $aRecords[3]
$aRecords[0] = "213.1.222.253:80"
$aRecords[1] = "94.211.174.60:80"
$aRecords[2] = "178.32.223.88:3128"

$y = 0

While 1
$split = StringSplit($aRecords[$y],":")
$ping = Ping($split[1],1500)

If $ping > 0 Then
HttpSetProxy(2, $aRecords[$y])
ConsoleWrite("Proxy = " & $aRecords[$y] &@CRLF&@CRLF)
Exitloop
Else
ConsoleWrite("Lösche: " &$aRecords[$y] &" von Pos." &$y &@CRLF)
_ArrayDelete($aRecords,$y)
_ArrayDisplay($aRecords)
ContinueLoop
EndIf
Wend

$url = "http://www.wieistmeineip.de"
$get_source = BinaryToString(InetRead($url,16),4)
$aArray = StringRegExp($get_source, '<h1 class="ip">(.*?)</h1>', 3)

Gruß
Norman

Mag sein nur

$source

bekommt den Inhalt von

_InetgetSource

und _InetGetSource erkennt die Umlaute nicht.

Gruß
Norman

Hallo zusammen,

ich habe ein kleines Problem mit StringRegExp und Umlauten.

so sieht der der HTML Code aus

<dd class="heads-of-sales">Anhänger</dd><dt>

Ich lese dann Anhänger wie folgt aus

$Result = StringRegExp($source, '<dd class="heads-of-sales">(.*?)</dd><dt>',1)
_arraydisplay($Result)

Jetzt wird mir zwar ein Array angezeigt aber die Umlaute werden durch andere Zeichen ersetzt.
Was muß ich wo mitgeben damit mir auch die Umlaute angezeigt werden?

EDIT:

Habe gerade festgestellt, wenn ich

http://translation.autoit.de/onlinehilfe/libfunctions/_INetGetSource.htm

mit _InetGetSource auslese wir mir die Zeile mit "Falls True werden die Daten im Stringformat zurückgegeben, sonst im Binärformat"
richtig ausgelesen.

</b> Falls True werden die Daten im Stringformat zurückgegeben, sonst im Binärformat.</td>

Aber die Zeile mit Rückgabewert wird wie folgt ausgelesen

<h2>R&uuml;ckgabewert</h2>

Danke und Gruß
Norman

DANKE.
Funktioniert Super.

Könntest Du für die jenigen die diesen Beitrag finden weil sie auch dieses Problem haben und natürlich für mich noch die IF Anweisung kommentieren?

Danke und Gruß
Norman

Danke für Deine Antwort.
Funktioniert das bei Dir?

Bei mir nach wie vor nicht.

Habe mal ein Screenshot drangehangen wie die Seite aussieht wenn er die Else Anweisung ausführt.

[Blockierte Grafik: http://www.abload.de/thumb/bildhdkqf.jpg]

Gruß
Norman

Ich brauche hier bitte nochmal eure Hilfe.

Habe mir in der Hilfe mal ObjEvent angeguckt und ein Code ausschnitt ausprobiert wo ich dachte dass das doch eigentlich funktionieren müsste.

If $oIE.readyState = "complete" Or $oIE.readyState = 4 Then ExitLoop

Das habe ich dann wie folgt eingesetzt mit hilfe eines Scripts aus dem Englischen Forum.

Dim $oIE = _IECreate()

ObjEvent($oIE,"IEEvent_","DWebBrowserEvents2")
_IENavigate($oIE, "www.34jk5h4j3k5hj3453.com",0)
Sleep(10000)
If not $oIE.readyState = "complete" Or $oIE.readyState = 4 Then
_IEQuit($oIE)
ConsoleWrite("Nicht geladen" &@CRLF)
Exit
Else
_IEQuit($oIE)
ConsoleWrite("Seite komplett geladen" &@CRLF)
EndIf

Func IEEvent_NavigateError($pdisp, $url, $tf, $status,$cancel)
$msg = "Problems loading page: " & $url & @CRLF
$msg = $msg & "Status: " & $status & @CRLF
MsgBox(0,"PROBLEMS",$msg)
EndFunc

Egal ob die Seite geladen ist oder nicht er springt direkt zu Else Anweisung.

Vllt hat ja noch der eine oder andere ne Idee.

Danke und Gruß
Norman

RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Internet Settings","ProxyServer","REG_SZ",$Value)

Gruß
Norman

Habe mir das Script mal ausgeführt.
Verstehe nicht was die Func mit der Zeile 15 zu tun hat und wie diese funktioniert.

Kannst Du mir diese erklären?

Danke und Gruß
Norman

Danke werde es direkt mal testen

Du kannst den dafür vorgesehnen Eintrag in der Registry ändern. Nachteil ist nur damit der Eintrag gültig wird das du das IE Fenster neu öffnen mußt.
Die Porfis hier kennen bestimmt noch eine andere Möglichkeit.

Gruß
Norman