Ich hab folgendes PROBLEM:
Diese tabelle
Spoiler anzeigen
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>Testtabelle</title>
</head>
<body
style="color: rgb(51, 204, 255); background-color: rgb(153, 0, 0);"
alink="#33ccff" link="#33ccff" vlink="#33ccff">
Hier stehen ab jetzt die Einsätze.<br>
<br>
<br>
<table style="text-align: left; width: 712px; height: 340px;"
border="1" cellpadding="2" cellspacing="2">
<tbody>
<tr>
<td>21:13<br>
</td>
<td></td>
</tr>
<tr>
<td>Einsatznummer:</td>
<td>WERT</td>
</tr>
<tr>
<td> Fahrzeug(e): </td>
<td>WERT</td>
</tr>
<tr>
<td>Löschbezirk:</td>
<td>WERT</td>
</tr>
<tr>
<td> Wache:</td>
<td>WERT</td>
</tr>
<tr>
<td> Adresse: </td>
<td>WERT</td>
</tr>
<tr>
<td> Meldestichwort: </td>
<td>WERT<br>
</td>
</tr>
<tr>
<td> Objekt:</td>
<td>WERT</td>
</tr>
<tr>
<td> Mitteilung von:</td>
<td>WERT</td>
</tr>
<tr>
<td> Telefon:</td>
<td>WERT</td>
</tr>
<tr>
<td> Kommentar:</td>
<td>WERT<br>
</td>
</tr>
<tr>
<td> Maßnahme:</td>
<td>WERT</td>
</tr>
</tbody>
</table>
<br>
<!--Exit-APP-->
</body>
</html>
Alles anzeigen
soll hiermt gefüllt werden...
Spoiler anzeigen
#NoTrayIcon
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#region
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Comment=Meldestellen-Simulator (C) 2010 by JuraX (http://jurax.square7.de)
#AutoIt3Wrapper_Res_Description=Meldestellen-Simulator
#AutoIt3Wrapper_Res_LegalCopyright=JuraX
#AutoIt3Wrapper_Res_Language=1031
#AutoIt3Wrapper_Add_Constants=n
#AutoIt3Wrapper_AU3Check_Stop_OnWarning=y
#AutoIt3Wrapper_Run_Tidy=y
#endregion
#include <ButtonConstants.au3>
#include <ComboConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
$inib1 = @ScriptDir & "\Löschbezirk 1.ini"
$inib2 = @ScriptDir & "\Löschbezirk 2.ini"
$inib3 = @ScriptDir & "\Löschbezirk 3.ini"
$Form1 = GUICreate("Leitstelle HiOrgs", 555, 441, 215, 136)
$MenuItem2 = GUICtrlCreateMenu("&Datei")
$MenuItem3 = GUICtrlCreateMenuItem("Speichern", $MenuItem2)
$MenuItem4 = GUICtrlCreateMenuItem("Laden", $MenuItem2)
$MenuItem5 = GUICtrlCreateMenuItem("Über", $MenuItem2)
$MenuItem1 = GUICtrlCreateMenu("&Einsätze")
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 25)
$einnumm = GUICtrlCreateInput("Einstatznummer", 24, 72, 105, 21)
$str = GUICtrlCreateInput("Straße", 24, 104, 105, 21)
$num = GUICtrlCreateInput("Nummer", 128, 104, 49, 21)
$plz = GUICtrlCreateInput("PLZ", 176, 104, 81, 21)
$ort = GUICtrlCreateInput("Ort", 256, 104, 73, 21)
$stichw = GUICtrlCreateInput("Meldestichwort", 24, 128, 305, 21)
$obj = GUICtrlCreateInput("Objekt", 24, 152, 305, 21)
$outof = GUICtrlCreateInput("Mitteiler", 24, 176, 305, 21)
$tel = GUICtrlCreateInput("Telefon", 24, 200, 305, 21)
$Kommentar = GUICtrlCreateEdit("", 24, 256, 305, 105)
GUICtrlSetData(-1, "Kommentar")
$masnahme = GUICtrlCreateInput("Maßnahme", 24, 224, 305, 21)
$Button1 = GUICtrlCreateButton("Alamieren", 24, 360, 305, 33, $WS_GROUP)
$RNR = GUICtrlCreateLabel("Server nicht Bereit!", 360, 32, 162, 28)
GUICtrlSetFont(-1, 15, 400, 0, "MS Sans Serif")
$bezirk = GUICtrlCreateCombo("Bezirk", 144, 24, 185, 25)
$Wache = GUICtrlCreateCombo("Wache", 144, 48, 185, 25)
$car = GUICtrlCreateLabel("Fahrzeuge", 144, 72, 360, 17)
GUISetState(@SW_SHOW)
GUICtrlSetData($bezirk, "Löschbezirk-1|Löschbezirk-2|Löschbezirk-3|Feuerwehrtechnische Zentrale")
AdlibRegister("servercheck")
While 1
$texttosend = @HOUR & ":" & @MIN & ":" & @SEC & " " & "Einsatznummer: " & GUICtrlRead($einnumm) & " | " & "Fahrzeug(e): " & GUICtrlRead($car) & " | " & "Löschbezirk: " & GUICtrlRead($bezirk) & " | " & "Wache: " & GUICtrlRead($Wache) & " ||| "
$texttosend = $texttosend & "Adresse: " & GUICtrlRead($str) & ", " & GUICtrlRead($num) & ", " & GUICtrlRead($plz) & ", " & GUICtrlRead($ort)
$texttosend = $texttosend & " | " & "Meldestichwort: " & GUICtrlRead($stichw) & " | " & "Objekt: " & GUICtrlRead($obj) & " | " & "Mitteilung von: " & GUICtrlRead($outof) & " | " & "Telefon: " & GUICtrlRead($tel) & " | " & "Kommentar: " & GUICtrlRead($Kommentar) & " | " & "Maßnahme: " & GUICtrlRead($masnahme)
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
;ControlSend("TeamSpeak 3", "", "[CLASS:QWidget; INSTANCE:29]", $texttosend)
ControlSend("Unbenannt [http:/.../testalarm.html] - Nvu", "", "[CLASS:MozillaWindowClass; INSTANCE:13]", $texttosend)
ControlSend("Unbenannt [http:/.../testalarm.html] - Nvu", "", "[CLASS:MozillaWindowClass; INSTANCE:13]", "{Enter}")
Case $MenuItem5
MsgBox(64, "Über", "Copyright 2010 JuraX")
Case $car
$carsel = CARSEL()
GUICtrlSetData($car, $carsel)
Case $bezirk
$readbez = GUICtrlRead($bezirk)
$str = ""
$var = IniReadSectionNames($inib1)
If $readbez = "Löschbezirk-1" Then
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $var[0]
$str = $str & "|" & $var[$i]
Next
GUICtrlSetData($Wache, $str)
EndIf
ElseIf $readbez = "Löschbezirk-2" Then
$var = IniReadSectionNames($inib2)
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $var[0]
$str = $str & "|" & $var[$i]
Next
GUICtrlSetData($Wache, $str)
EndIf
ElseIf $readbez = "Löschbezirk-3" Then
$var = IniReadSectionNames($inib3)
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file.")
Else
For $i = 1 To $var[0]
$str = $str & "|" & $var[$i]
Next
GUICtrlSetData($Wache, $str)
EndIf
EndIf
EndSwitch
WEnd
Func servercheck()
If ProcessExists("TeamSpeak.exe") Then
If GUICtrlRead($RNR) = "Server bereit" Then
Else
GUICtrlSetData($RNR, "Server bereit")
GUICtrlSetState($Button1, $GUI_ENABLE)
EndIf
Else
If GUICtrlRead($RNR) = "Server nicht bereit" Then
Else
GUICtrlSetData($RNR, "Server nicht bereit")
GUICtrlSetState($Button1, $GUI_DISABLE)
EndIf
EndIf
EndFunc ;==>servercheck
Func CARSEL()
[/autoit] [autoit][/autoit] [autoit]$Form2 = GUICreate("Form1", 419, 453, 342, 178)
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]Dim $ahCheckbox[15]
For $i = 0 To UBound($ahCheckbox) - 1
$ahCheckbox[$i] = GUICtrlCreateCheckbox("", 16, 20 + $i * 24, 385, 17)
Next
$Button2 = GUICtrlCreateButton("OK", 32, 392, 65, 33, $WS_GROUP)
$readbezwa = GUICtrlRead($Wache)
$readbez = GUICtrlRead($bezirk)
If $readbez = "Löschbezirk-1" Then
$var = IniReadSection($inib1, GUICtrlRead($Wache))
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file." & @error)
Else
For $i = 1 To $var[0][0]
GUICtrlSetData($ahCheckbox[$i], $var[$i][0])
Next
EndIf
ElseIf $readbez = "Löschbezirk-2" Then
$var = IniReadSection($inib2, GUICtrlRead($Wache))
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file." & @error)
Else
For $i = 1 To $var[0][0]
GUICtrlSetData($ahCheckbox[$i], $var[$i][0])
Next
EndIf
ElseIf $readbez = "Löschbezirk-3" Then
$var = IniReadSection($inib3, GUICtrlRead($Wache))
If @error Then
MsgBox(4096, "", "Error occurred, probably no INI file." & @error)
Else
For $i = 1 To $var[0][0]
GUICtrlSetData($ahCheckbox[$i], $var[$i][0])
Next
EndIf
EndIf
GUISetState(@SW_SHOW)
While True
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
Case $Button2
$sOutput = ''
For $i = 0 To UBound($ahCheckbox) - 1
If BitAND(GUICtrlRead($ahCheckbox[$i]), $GUI_CHECKED) Then $sOutput &= ControlGetText($Form2, '', $ahCheckbox[$i]) & ','
Next
GUIDelete()
Return $sOutput
EndSwitch
WEnd
EndFunc ;==>CARSEL
hat jmd ne ideewie das gehen könnte?
Jura
PS ich hab (fast) null ahnung von PHP (also bitte wenn möglich mit bsp...)