Tab aktualisieren und Array neu einlesen lassen

Func _query()
Dim $IP
_FileReadToArray( $File, $IP )
;///////////////////////////// Pingen der einzelnen Computer /////////////////////////////////
_FileReadToArray( $File, $IP ) ;Alles in ein Array einlesen
Dim $Zaehler = 50
$Result = GUISwitch( $GUI_Main, $GUI_Main_Tabitem_Uebersicht )
;~ If $Result > 0 Then
;~ MsgBox( 0, "Hat gefunzt", "" )
;~ Else
;~ MsgBox( 0, "Nix :(", "" )
;~ EndIf
for $i=1 to $IP[0]
$x = $Zaehler+30
$Zaehler = $x
$GUI_Main_Tab_Uebersicht_Query_IP = Ping( $IP[$i], 250 )
GUICtrlSetData( $GUI_Main_Tab_Uebersicht_Progress,( $i*100 )/( $Array_Anzahl[0]-1 ) )
If $GUI_Main_Tab_Uebersicht_Query_IP > 0 Then
GUICtrlCreateIcon( @SystemDir & "\shell32.dll", 22, 140, $x, 15, 15 );ok
Else
GUICtrlCreateIcon( @SystemDir & "\shell32.dll", 200, 140, $x, 15, 15 );net da
EndIf
Next
Sleep(1000)
GUICtrlSetData ( $GUI_Main_Tab_Uebersicht_Progress,0 )
$Zaehler = 50
$IP = ""
GUICtrlRead( $GUI_Main_Tab_Konfig_Edit_IP, 1 )
EndFunc

Func _read_file()
Dim $IP
_FileReadToArray( $File, $IP )
;////////////////////////// Auslesen der Textdatei um alle IP's zubekommen //////////////////
Dim $Zaehler = 50
for $i=1 to $IP[0]
$x = $Zaehler+30
$Zaehler = $x
GUICtrlCreateIcon( @SystemDir & "\shell32.dll", 19, 15, $x, 15, 15 )
GUICtrlCreateLabel( $IP[$i], 50, $x )
GUICtrlCreateLabel( "--------------------------------------", 50, $x+10 )
Next
$IP = ""
EndFunc

While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_Main_Btn_Exit
GUIDelete()
Exit

Case $GUI_Main_Btn_Minimize

Case $GUI_Main_Tab_Konfig_Btn_Save
FileOpen( $File, 2 )
FileWrite( $File, GUICtrlRead( $GUI_Main_Tab_Konfig_Edit_IP ) )
FileClose( $File )
;~ GUICtrlSetData( $GUI_Main_Tabitem_Uebersicht, _query() )
;~ GUICtrlSetData( $GUI_Main_Tabitem_Uebersicht, _read_file() )
_query()
_read_file()
Case $GUI_Main_Tab_Uebersicht_Btn_refresh
GUICtrlSetState( $GUI_Main_Tab_Uebersicht_Btn_refresh, $GUI_DISABLE )
_query()
GUICtrlSetState( $GUI_Main_Tab_Uebersicht_Btn_refresh, $GUI_ENABLE )
EndSwitch
Wend