Google anpingen, dann weisst du ob du im Internet bist ;).
Beiträge von blubbstar
-
-
So vielleicht:
Spoiler anzeigen
[autoit]$process = "iexplore.exe"
[/autoit] [autoit][/autoit] [autoit]$processlist = ProcessList($process)
[/autoit]
For $i = 1 To UBound($processlist) - 1
$processid = $processlist[$i][1]
$processstate = ProcessGetStats($processlist[$i][1])
If $processstate[0] / 1000 > 5000 Then
MsgBox(0, "", $processid)
ExitLoop
EndIf
Next -
Benutzt du denn "? Wenn nicht setzt die mal um deinen String.
-
Ist eine UDF und somit auch auf deinem Computer. Im Autoit Ordner unter Include die string.au3.
-
Musst mehr zulassen 50 bei UdpRecv sind zu wenig.
Spoiler anzeigen
[autoit]#include <String.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <array.au3>
Dim $A2S_SERVERQUERY_GETDATA = _HexToString('5c7374617475735c00')
Dim $getdata$s_ip = '81.19.219.217' ; bei dem server funktioniert es
[/autoit] [autoit][/autoit] [autoit]
$s_port = "27888" ; bei dem server funktioniert es;~ $s_ip = "69.125.2.214" ; bei dem server funktioniert es nicht
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]
;~ $s_port = "27890" ; bei dem server funktioniert es nichtUDPStartup()
[/autoit] [autoit][/autoit] [autoit]
$socket = UDPOpen($s_ip,$s_port)
UDPSend($socket,$A2S_SERVERQUERY_GETDATA)
While 1
$getdata = UDPRecv($socket, 2048)
If $getdata <> "" Then
MsgBox(0, "UDP DATA", $getdata)
ExitLoop
EndIf
sleep(100)
WEnd
ConsoleWrite(@CRLF & $getdata & @CRLF)
UDPCloseSocket($socket)
UDPShutdown()$ahostname = _StringBetween($getdata,'\hostname\','\')
[/autoit]
$hostname = _ArrayToString($ahostname)
MsgBox(0,'Server Name',$hostname) -
Hier hast du ein Beispiel zu meiner Lösung:
Spoiler anzeigen
[autoit]$timer = TimerInit()
[/autoit] [autoit][/autoit] [autoit]
$zahl = 0While True
[/autoit] [autoit][/autoit] [autoit]
Sleep(100)
ToolTip($zahl)
$zahl += 1
If TimerDiff($timer) > 3000 Then _ResetZahl();alle 3sek wird die funktion aufgerufen
WEndFunc _ResetZahl()
[/autoit]
$Zahl = 0
$timer = TimerInit();timer wird zurückgesetzt
EndFunc -
Oder TimerInit und TimerDiff, dann kannst du mit einer If-Bedingung alle 30Minuten eine Funktion aufrufen.
-
Bitte was?
-
Spoiler anzeigen
[autoit]Global $1 = 1, $2 = 2, $3 = 3, $4 = 4, $5 = 5
[/autoit] [autoit][/autoit] [autoit]$array = StringSplit('1,2,3,4,5', ',') ; hier die Namen der Variablen (ohne $) eingeben
[/autoit] [autoit][/autoit] [autoit]
For $i = 1 To $array[0]
_msgbox(Eval($array[$i]))
NextFunc _msgbox($zahl)
[/autoit]
MsgBox(0, "", $zahl)
EndFunc ;==>_msgbox -
Timerinit vor der Schleife, Timerdiff If-Abfrage in die Schleife und wenn ein If zutrifft bei dir einfach wieder Timerinit erneut, damit sich der Timer zurücksetzt.
-
Oscar, die $ müssen doch weg bei Eval, oder?
-
Hallo nuts,
[autoit]
das weiss ich jetzt auch nicht genau, ich habe mir dann immer die Werte in Array's angepasst, dass ich Forschleifen nutzen kann. Aber es geht auch ohne Array's aber ob das die beste Lösung ist, kann ich nicht sagen ;).$var1 = 1
[/autoit][autoit][/autoit][autoit]
$var2 = 4
$var3 = 6For $i = 1 to 3
[/autoit][autoit][/autoit][autoit]
_blubb(Eval("var"&$i))
NextFunc _blubb($zahl)
[/autoit]
MsgBox(0, "", $zahl)
EndFunc -
So ungefähr ;D
[autoit]#include <array.au3>
[/autoit][autoit][/autoit][autoit];Für die Zahlen.txt
[/autoit][autoit][/autoit][autoit]
For $i = 1 to 25
FileWrite("blubbstar.txt", Random(10, 99, 1) & @CRLF)
NextGlobal $line = 1, $array[6][6]
[/autoit][autoit][/autoit][autoit]For $i = 1 to 5
[/autoit][autoit][/autoit][autoit]
For $j = 1 to 5
$array[$i][$j] = FileReadLine("blubbstar.txt", $line)
$line += 1
Next
Next_ArrayDisplay($array)
[/autoit] -
[autoit]
$newvar="konst1"&$i&"konst2"
[/autoit] -
Genau und wenn du das CN= auch noch weghaben möchtest, dann ersetzt du einfach die Stringsplit Zeile mit dieser:
[autoit]$array2 = StringSplit(StringReplace($array[$i], "CN=", ""), ",")
[/autoit] -
Zitat
StringTrimRight("Hallo", 3) liefert "Ha" (die rechten 3 werden abgeschnippelt).
StringRight("Hallo", 3) liefert "llo" (die rechten 3 werden zurückgegeben).StringLeft("Hallo", 2) liefert "Ha" (die linken 2 werden zurückgegeben).
StringTrimLeft("Hallo", 2) liefert "llo" (die linken 2 werden abgeschnippelt). -
-
Hallo, also möchtest du eine Website nach einem Wort absuchen. Ich habe hier mal eine IE Lösung, welche aber ziemlich langsam ist. Vielleicht hat ja jemand was schnelleres.
Spoiler anzeigen
[autoit]#include <IE.au3>
[/autoit] [autoit][/autoit] [autoit]$url = "http://www.google.de"
[/autoit] [autoit][/autoit] [autoit]
$wort = "Suche"
$Anzahl = 0$IE = _IECreate($url, "", 0)
[/autoit] [autoit][/autoit] [autoit]
$text = _IEBodyReadText($IE)
For $i = 1 to StringLen($text)
If StringMid($text, $i, StringLen($wort)) = $wort Then $Anzahl += 1
NextMsgBox(0, "", $Anzahl)
[/autoit] -
;D Eher ein blöder Fehler
Du benutzt $hallo &= und setzt es nie zurück.Spoiler anzeigen
[autoit]#include <ButtonConstants.au3>
[/autoit] [autoit][/autoit] [autoit]
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>Dim $hallo
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=
[/autoit]
$Form1 = GUICreate("Test", 360, 330, -1, -1)
$Button1 = GUICtrlCreateButton("Ansehen", 5, 300, 75, 25, 0)
$Button2 = GUICtrlCreateButton("Beenden", 85, 300, 75, 25, 0)
$Edit1 = GUICtrlCreateEdit("", 5, 5, 350, 290)
;GUICtrlSetState(-1,$GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$hallo = ""
$var = IniReadSection("test.ini", "muster")
For $i = 1 To $var[0][0]
$hallo &= "A" & ": " & $var[$i][0] & " | " & " B " & " :" & $var[$i][1] & @CRLF
Next
GUICtrlSetData($Edit1, $hallo)
Case $Button2
Exit
EndSwitch
WEnd -
Vielleicht GUIDelete und neu erstellen ;D? Oder einfach mit GuiCtrlSetData alles zurücksetzen, wenn nicht viele Controls vorhanden sind.