Beiträge von sumsum

Zitat von Surfy

Ich danke euch! in beiden fällen komme ich aber noch nicht zum Ziel.

[autoit]

#include
$alias=""
$file = "c:\temp\alias.txt"
$count=_FileCountLines($file)

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

For $i=1 To $count
$read=FileReadLine($file,$i)
$split=StringSplit($read," ")
If StringInStr($read,"srv08110") Then $alias&=$split[1]
Next
MsgBox(0,"",$alias)

[/autoit]

Hier erhalte ich immer eine leere MSGbox. In sumsum Ansatz, erhalte ich fehler beim Kompilieren

Alles anzeigen

Was denn für einen Fehler? Ich hatte eben noch eine mit Fehlern im Post, probier mal die neue aus.

Vielleicht so?

[autoit]

#include <File.au3>
Func _SearchDNS($server, $file)
Local $read
_FileReadToArray($file, $read)
For $i = 1 To $read[0] Step +1
$split = StringSplit($read[$i], " ")
If StringInStr($split[3], $server) Then Return $split[1]
Next
Return 0
EndFunc ;==>_SearchDNS

[/autoit]

Ahhhh nicht mehr in einer

Bitte nochmal genauer,
du willst also einen servername angeben und dann die DB Server adresse bekommen oder wie?

Funktioniert bei mir nicht Auch das beispiel aus dem englishen Forum. Passier teinfach nichts wenn man auf einen eintrag klickt.

Windows 7 64bit

EDIT:
Muss als 32bit exe kompiliert sein

Das geht über den direkten Weg nicht, du könntest natürlich ne webseite o.ä. benutzen um die verbindung herzustellen.

Hi Kyubinoyoko ;D

So sollte das gehen:

[autoit]

Tcpstartup()
If TCPConnect("127.0.0.1",23000) <> -1 Then
Msgbox(64,"Online","Server auf 23000 ist Online")
Else
Msgbox(64,"Online","Server auf 23000 ist Offline")
Endif
Tcpshutdown()

[/autoit]

Die Ports bzw. die IP musst du halt ändern^^

Du willst also einfach das nur die Itemnamen angezeigt werden? Also nicht die Beschreibungen?

Hier^^

[autoit]

#include <Process.au3>
_RunDOS("BEFEHL")

[/autoit]

Also ich kenne zwar nicht das Spiel, aber du könntest es mal so versuchen:

[autoit]

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 463, 123, 192, 124)
$Edit1 = GUICtrlCreateEdit("", 8, 8, 257, 105)
GUICtrlSetData(-1, "Text")
$Button1 = GUICtrlCreateButton("Senden", 272, 8, 97, 25, $WS_GROUP)
$Group1 = GUICtrlCreateGroup("Fenstertitel", 272, 32, 185, 57)
$Input1 = GUICtrlCreateInput("Entropia Universe Client", 280, 56, 169, 21)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Immer im Vordergrund", 272, 96, 185, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

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

Case $Button1
$titel=GUICtrlRead($Input1)
sleep(4000)
If WinExists($titel) Then
ControlSend($titel,"","",GUICtrlRead($Edit1))
ControlSend($titel,"","","{ENTER}")
Else
MsgBox(16,"Fehler","Das Fenster existiert nicht")
Endif
Case $Checkbox1
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
WinSetOnTop ( $Form1, "", 1 )
Else
WinSetOnTop ( $Form1, "", 0 )
Endif
EndSwitch
WEnd

[/autoit]

Eventuell noch die Tasten die vor / nach dem Klick gedrückt werden ändern^^

Also schonmal danke AutoBert für die Lösung^^,
aber wie gesagt muss ich halt alle Listviewitems immer löschen, daher kommt denke ich das flackern.

Ich poste hier mal das komplette Script:

[autoit]

#include <Process.au3>
#include <File.au3>
#include <Array.au3>
#include <GUIConstantsEx.au3>
#include <ListViewConstants.au3>
#include <WindowsConstants.au3>
#include <GUIListview.au3>
#include <Coproc.au3>
Global $array,$items[999],$c=0
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Netstat Formater", 530, 245, 192, 124)
$ListView1 = GUICtrlCreateListView("Protokoll|Lokale Adresse|Remoteadresse|Status", 8, 8, 513, 225, -1, Bitor($LVS_EX_DOUBLEBUFFER,$LVS_EX_GRIDLINES))
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 0, 60)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 1, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 2, 50)
GUICtrlSendMsg(-1, $LVM_SETCOLUMNWIDTH, 3, 50)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

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

_RunDOS('netstat -p TCP > "'&@ScriptDir&'\temp.txt"')
Do
sleep(100)
Until FileExists("temp.txt") And not ProcessExists("netstat.exe")
_FileReadToArray("temp.txt",$array)
For $i=0 To $array[0] Step +1
If StringRegExp($array[$i],"TCP") Then
$strip=StringStripWS($array[$i],4)
$split=StringSplit($strip," ")
$protokoll=$split[2]
$lokal=$split[3]
$remote=$split[4]
$status=$split[5]
$view=GUICtrlCreateListViewItem($protokoll&"|"&$lokal&"|"&$remote&"|"&$status,$ListView1)
If $status="HERGESTELLT" Then GUICtrlSetBkColor($view,0x00EE00)
If $status="SCHLIESSEN_WARTEN" Or $status="WARTEND" Then GUICtrlSetBkColor($view,0xFFC125)
EndIf
Next

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

$pid=_Coproc("update")
AdlibRegister("load",5000)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ProcessClose($pid)
Exit

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

EndSwitch
WEnd

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

Func update()
_RunDOS('netstat -p TCP > "'&@ScriptDir&'\temp.txt"')
Do
sleep(100)
Until FileExists("temp.txt") And not ProcessExists("netstat.exe")
Endfunc

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

Func load()
_GUICtrlListView_DeleteAllItems($ListView1)
_FileReadToArray("temp.txt",$array)
For $i=0 To $array[0] Step +1
If StringRegExp($array[$i],"TCP") Then
$strip=StringStripWS($array[$i],4)
$split=StringSplit($strip," ")
$protokoll=$split[2]
$lokal=$split[3]
$remote=$split[4]
$status=$split[5]
$view=GUICtrlCreateListViewItem($protokoll&"|"&$lokal&"|"&$remote&"|"&$status,$ListView1)
If $status="HERGESTELLT" Then GUICtrlSetBkColor($view,0x00EE00)
If $status="SCHLIESSEN_WARTEN" Or $status="WARTEND" Then GUICtrlSetBkColor($view,0xFFC125)
Endif
Next
Endfunc

[/autoit]

Auch weil ich die Funktion
_GUICtrlListView_AddArray
Nicht richtig verstehe, jedenfalls nicht in dem Zusammenhang.

Hi Leute^^
Habe ein problem mit meinem Listview, dieses wird regelmäßig komplett aktualisiert, der Funktionscode ist folgender:

[autoit]

Func load()
_GUICtrlListView_DeleteAllItems($ListView1)
_FileReadToArray("temp.txt",$array)
For $i=0 To $array[0] Step +1
If StringRegExp($array[$i],"TCP") Then
$strip=StringStripWS($array[$i],4)
$split=StringSplit($strip," ")
$protokoll=$split[2]
$lokal=$split[3]
$remote=$split[4]
$status=$split[5]
$view=GUICtrlCreateListViewItem($protokoll&"|"&$lokal&"|"&$remote&"|"&$status,$ListView1)
If $status="HERGESTELLT" Then GUICtrlSetBkColor($view,0x00EE00)
If $status="SCHLIESSEN_WARTEN" Or $status="WARTEND" Then GUICtrlSetBkColor($view,0xFFC125)
Endif
Next
Endfunc

[/autoit]

Dieser erzeugt allerdings bei jeder ausführung ein Flackern und setzt die Scrollbar zurück, ausserdem wird die Farbe vom einem Listviewitem bis zur nächsten ausführung zur hälfte "gelöscht" das Listview habe ich so erstellt:

[autoit]

$ListView1 = GUICtrlCreateListView("Protokoll|Lokale Adresse|Remoteadresse|Status", 8, 8, 513, 225, -1, Bitor($LVS_EX_DOUBLEBUFFER,$LVS_EX_GRIDLINES))

[/autoit]

Hier noch ein Screen von der kaputten Farbe:
[Blockierte Grafik: http://img812.imageshack.us/img812/9523/picd.jpg]

Hoffe jemand kennt die Lösung

MfG Sumsum

Die Funktion heißt jetzt Adlibregister()